From d4aafe8dfc0752e95b7d58b07eae4c4d4936db34 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Sat, 24 Jun 2023 22:45:44 +0000 Subject: [PATCH] NiceChart: Remove windows dependence from BSplines unit. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8850 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/nicechart/source/BSplines.pas | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) 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