8 lines
182 B
ObjectPascal
8 lines
182 B
ObjectPascal
uses Graph3D;
|
|
|
|
begin
|
|
var l := Lego(-4,-1,0,8,4,1,Colors.Green);
|
|
Lego(-2,0,0.4,4,2,1,Colors.Blue);
|
|
Lego(-1,0,0.8,1,1,1,Colors.Red);
|
|
Lego(-1,1,0.8,2,1,1,Colors.Yellow);
|
|
end. |