TBSpline.Value

TBSpline.Value
TBSpline

function Value(Const Parameter: TDataType): TVertex;

Unit
TeeSpline

Description
Returns an interpolated point.

Uses TeeSpline;

var BSpline : TBSpline;

BSpline:=TBSpline.Create;
try
for t:=0 to 10 do
begin
BSpline.AddPoint(Random(100), Random(100) );
BSpline.Knuckle[t]:=False;
end;

BSpline.Interpolated:=Interpolate;
BSpline.Fragments:=10*4;

with BSpline
for t:=0 to Fragments do
with Value(t/Fragments) do
Series1.AddXY(x,y);
finally
BSpline.Free;
end;