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