diff --git a/components/nicechart/source/BSplines.pas b/components/nicechart/source/BSplines.pas index e321079d7..35b326425 100644 --- a/components/nicechart/source/BSplines.pas +++ b/components/nicechart/source/BSplines.pas @@ -37,12 +37,8 @@ Unit BSplines; interface -uses windows, - sysutils, - classes, - Graphics, - dialogs, - Math; +uses + Sysutils, Classes, Graphics; //, Math; const MaxFragments = 600; // The maximum of straight line segments allowed for drawing the spline MaxResults = MaxFragments+10; // Max. number of calculated intersections @@ -53,7 +49,7 @@ const MaxFragments = 600; // The maximum of straight line segments al VerticesIncrement = 25; // Number of vertices to allocate memory for when the count property exceeds the current capacity type TDataType = single; - TVertex = record + TVertex = record X,Y : TDataType; end; // The following dynamic array is used to store the desired user-specified controlpoints @@ -61,7 +57,7 @@ type TDataType = single; P2DPointList = ^T2DPointList; // The vertexlist is used internally to make the spline interpolate the controlpoints - TVertexList = array[0..0] of TVertex; + TVertexList = array[0..0] of TVertex; P2DVertexList = ^TVertexList; // The knuckle list stores a flag to see whether a point is a knuckle or not