11 lines
328 B
ObjectPascal
11 lines
328 B
ObjectPascal
uses Graph3D;
|
|
|
|
begin
|
|
View3D.ShowGridLines := False;
|
|
var disc := Cylinder(0,0,0,0.2,6,Colors.DeepPink);
|
|
|
|
var r := 5;
|
|
foreach var x in PartitionPoints(0,2*Pi,12) do
|
|
disc.AddChild(Sphere(r*cos(x),r*sin(x),0.2,0.1,Colors.White));
|
|
disc.AnimRotate(OrtZ,360,2).AccelerationRatio(1,1).AutoReverse.Forever.Begin;
|
|
end. |