uses Graph3D;

begin
  var p := Pyramid(0,0,0,5,2,2,Colors.Red);
  p.AnimRotate(OrtZ,360,5).Begin
end.