7 lines
194 B
ObjectPascal
7 lines
194 B
ObjectPascal
uses Graph3D;
|
|
|
|
begin
|
|
var bb := ArrGen(15,i -> Object3D(Box(0.5*i,0,0,0.1,6,2,RandomColor)));
|
|
var g := Group(bb).MoveByX(-5);
|
|
g.AnimRotateAt(ortZ,360,P3D(-1,0,0),2).Forever.Begin;
|
|
end. |