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