根据点集合画曲线

根据一个已有的点集合，想画出一条光滑的曲线有很多种算法。

其中一种比较快捷的是使用贝塞尔曲线，有成熟的PolyBezier方法可以直接调用。

但是有一个问题需要注意，就是贝塞尔曲线对点集合是有要求的，如果不满足要求，就不会得到你想要的曲线。

如何满足要求呢，先要理解贝塞尔曲线的原理。简单点说：

贝赛尔曲线的每一段曲线都要一个起点，一个终点，两个控制点（用于控制曲线的弧度）。所以点数组的记录方式是：起点＋控制点＋控制点＋终点＋控制点＋控制点＋终点＋……。也就是说，点的数量应该是3×n+1.

明白了道理，我们就可以修正任何一个点数组了，我实现的算法如下：

 

//贝塞尔曲线点位修正 function AdjustPointsForBezier(arrSource: TArrayOfPoint): TArrayOfPoint; var   i: integer;   nCount, nMod, nCountResult: integer;  begin   nCount := High(arrSource) + 1;

 

  //贝塞尔曲线点数为3*n+1   nMod := nCount mod 3;   if nMod = 1 then     nCountResult := nCount   else   if nMod = 2 then     nCountResult := nCount + 2   else     nCountResult := nCount + 1;

  SetLength(Result, nCountResult);     //得到所有源点   for i := 0 to nCount - 1 do   begin     Result[i].X := arrSource[i].X;     Result[i].Y := arrSource[i].Y;   end;

 

  //增加修正点   for i := nCount to nCountResult - 1 do   begin     Result[i].X := arrSource[nCount - 1].X;     Result[i].Y := arrSource[nCount - 1].Y;   end; end;

 

当然，本算法是用最后一个点做修正点，你可以选择差值法，得到更合适的中间点位来修正，以求更好的精确度。