program AndesCastel;

 uses
  FixMath, Graf3D, Graf3DScene, Graf3DPrimitives, Graf3DStructures;

 var
  sta1, sta12, dwy1, dwy11, dwy12, dww1, cir1, rec1: Shape3D;
  sta2, sta22, dwy2, dwy21, dwy22, dww2, cir2, rec2: Shape3D;
  cir3, tri1, tri2, led1, led2, led3, led4, led5, led6, led7, led8: Shape3D;
  par1: Shape3D;
  guide1, guide2, guide3, guide4: Shape3D;
begin

{scene}

 SetScene3D(scene);

{guides}

 SetRec3D(guide1, 0, 0, -100, 1000, 1000);
 SetRec3D(guide2, 0, 0, -100, 1000, 1000);
 SetRec3D(guide4, 0, 0, -100, 1000, 1000);
 SetRec3D(guide3, 0, 0, 500, 1000, 300);
 TurnXShape3D(@guide2);
 TurnYShape3D(@guide3);
 AddShape3D(scene, @guide1);
 AddShape3D(scene, @guide2);
 AddShape3D(scene, @guide3);
 AddShape3D(scene, @guide4);

 SetStairs3D(sta1, 0, -150, 0, 100, 100, 100);
 SetStairs3D(sta12, 0, -250, 200, 100, 100, 100);
 SetDoorwayWall3D(dww1, 0, 50, -50, 100, 300, 100);

 SetRec3D(rec1, 0, -150, -100, 100, 200);
 SetRec3D(rec2, 0, 200, -150, 100, 300);
 SetCir3D(cir1, 0, 150, -50, 250);

 SetDoorway3D(dwy1, 0, 50, -50, 100, 300, 100);
 SetDoorway3D(dwy11, 0, 50, -150, 100, 300, 100);
 SetDoorway3D(dwy12, 0, 50, -200, 100, 300, 100);

 AddShape3D(scene, @rec1);
 TurnXShape3D(@rec1);
 AddShape3D(scene, @dwy11);
 AddShape3D(scene, @dwy12);
 AddShape3D(scene, @dww1);

 SetCir3D(cir2, -300, 150, -50, 250);
 SetDoorway3D(dwy2, -300, 50, -50, 100, 300, 100);
 SetStairs3D(sta2, -300, -150, 0, 100, 100, 100);
 SetStairs3D(sta22, -300, -250, 200, 100, 100, 100);

 SetLedge3D(led1, -100, 50, -50, 100, 100, 100);
 SetLedge3D(led2, -200, 50, -50, 100, 100, 100);
 SetLedge3D(led3, -400, 50, -50, 100, 100, 100);
 SetLedge3D(led4, 100, 50, -50, 100, 100, 100);
 AddShape3D(scene, @led1);
 AddShape3D(scene, @led2);
 AddShape3D(scene, @led3);
 AddShape3D(scene, @led4);

 SetLedge3D(led5, 200, 50, 150, 300, 100, 100);
 TurnYShape3D(@led5);
 TurnYShape3D(@led5);
 TurnYShape3D(@led5);
 SetLedge3D(led6, -150, -250, -50, 600, 100, 100);
 AddShape3D(scene, @led5);
 AddShape3D(scene, @led6);

 SetLedge3D(led7, 200, -250, 150, 300, 100, 100);
 TurnYShape3D(@led7);
 TurnYShape3D(@led7);
 TurnYShape3D(@led7);
 AddShape3D(scene, @led7);

 AddShape3D(scene, @dwy1);
 AddShape3D(scene, @cir1);
 AddShape3D(scene, @sta1);
 AddShape3D(scene, @sta12);

 AddShape3D(scene, @dwy2);
 AddShape3D(scene, @cir2);
 AddShape3D(scene, @sta2);
 AddShape3D(scene, @sta22);

 SetParticles3D(par1, 0, 0, 200, 1000, 1000, 1000);
 AddShape3D(scene, @par1);

{ornaments}
 SetCir3D(cir2, -150, 400, -50, 250);
 AddShape3D(scene, @cir3);
 SetTri3D(tri1, -150, 250, -50, 300, 300);
 AddShape3D(scene, @tri1);
 tri1.facesLength := 0;

 InitWindow;

end.