This repository has been archived on 2024-12-25. You can view files and clone it, but cannot push or open issues or pull requests.
2024-03-10 20:32:51 +03:00

10 lines
328 B
ObjectPascal

uses Graph3D;
function ParametricTrajectory(a,b: real; N: integer; fun: real->Point3D) := PartitionPoints(a,b,N).Select(fun);
begin
var tr := ParametricTrajectory(0,2*Pi,100,t->P3D(8*cos(t),4*sin(t),0));
Polyline3D(tr);
var b := Sphere(tr.First,1,Colors.Blue);
b.AnimMoveTrajectory(tr.Skip(1),5).Forever.Begin;
end.