uses SysUtils, CastleVectors, CastleFilesUtils, CastleCurves;
var
FirstCurve: TCurve;
Curves: TCurveList;
begin
FirstCurve := TCurve.LoadFromFile(ApplicationData('my_curves.xml'));
try
Writeln(FirstCurve.Point(0.0).ToString);
Writeln(FirstCurve.Point(0.1).ToString);
finally FreeAndNil(FirstCurve) end;
Curves := TCurveList.Create(true );
try
Curves.LoadFromFile(ApplicationData('my_curves.xml'));
if Curves.Count = 0 then
raise Exception.Create('No curves defined in file');
FirstCurve := Curves[0];
Writeln(FirstCurve.Point(0.0).ToString);
Writeln(FirstCurve.Point(0.1).ToString);
Writeln(FirstCurve.Point(0.2).ToString);
finally FreeAndNil(Curves) end;
end.