7 lines
120 B
ObjectPascal
7 lines
120 B
ObjectPascal
|
uses Graph3D;
|
||
|
|
|
||
|
|
begin
|
||
|
|
var Cube := Box(Origin,Sz3D(3,3,3),Colors.Green);
|
||
|
|
Cube.AnimRotate(OrtZ,180).Forever.Begin
|
||
|
|
end.
|