6 lines
105 B
ObjectPascal
6 lines
105 B
ObjectPascal
uses Graph3D;
|
|
|
|
begin
|
|
var p := Pyramid(0,0,0,5,2,2,Colors.Red);
|
|
p.AnimRotate(OrtZ,360,5).Begin
|
|
end. |