9 lines
273 B
ObjectPascal
9 lines
273 B
ObjectPascal
uses Graph3D;
|
|
|
|
begin
|
|
var b := Box(0,0,0,3,1,2,Colors.Blue);
|
|
var b1 := b.Clone.RotateAt(OrtZ,90,P3D(1.5,0,0)).MoveByX(-0.5);
|
|
b1 := b.Clone.RotateAt(OrtZ,-90,P3D(-1.5,0,0)).MoveByX(0.5);
|
|
View3D.BackgroundColor := Colors.Black;
|
|
View3D.ShowGridLines := False;
|
|
end. |