mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2024-06-01 11:42:07 +00:00
28 lines
493 B
ObjectPascal
28 lines
493 B
ObjectPascal
program ExampleScene;
|
|
|
|
uses
|
|
FixMath, Graf3D, Graf3DScene, Graf3DPrimitives, Graf3DStructures;
|
|
|
|
var
|
|
box1, wed1, pyr1: Shape3D;
|
|
|
|
begin
|
|
|
|
{scene}
|
|
|
|
SetScene3D(scene);
|
|
SetBox3D(box1, -100, 0, 0, 100, 100, 100);
|
|
SetWedge3D(wed1, 0, 0, 0, 100, 100, 100, 50);
|
|
SetPyramid3D(pyr1, 100, 0, 0, 100, 100, 100, 50, 50);
|
|
|
|
AddShape3D(scene, @box1);
|
|
AddShape3D(scene, @wed1);
|
|
AddShape3D(scene, @pyr1);
|
|
|
|
TurnYShape3D(@pyr1);
|
|
MoveShape3D(@pyr1, 100, 0, 0);
|
|
TurnYShape3D(@pyr1);
|
|
|
|
InitWindow;
|
|
|
|
end. |