pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

NiceChart: Remove windows dependence from BSplines unit.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8850 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-06-24 22:45:44 +00:00
parent 87836a7f2b
commit d4aafe8dfc
1 changed files with 4 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/nicechart/source/BSplines.pas
View File

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