Module 01.4.3 Script 3d fabric "hahnentritt".

PROCEDURE pieddepoule24hscript;

VAR

   OffsetDX, OffsetDY : INTEGER;
   gap : REAL;
   r,g,b: LONGINT;

BEGIN;
   
   OffsetDX := 12;
   OffsetDY := 12;
   gap := 12;

BeginGroup;
BeginGroup;
   
BeginGroup;
   BeginGroup;

BeginXtrd(0,18);
         {Setting the color}
            ColorIndexToRGB(255,r,g,b);
            FillBack(r,g,b);   
            ColorIndexToRGB(255,r,g,b);
            PenFore(r,g,b);
      
         {draw rectangle black1Vert}
            Rect(0,0,9,27);

         {Setting the color}
            ColorIndexToRGB(0,r,g,b);
            FillBack(r,g,b);   
            ColorIndexToRGB(255,r,g,b);
            PenFore(r,g,b);
               
         {draw rectangle white2Vert}
            Rect(0+4*gap,0+4*gap,9+4*gap,27+4*gap);
EndXtrd;

      {duplicate objects}
      Duplicate(OffsetDX,OffsetDY);
      Duplicate(OffsetDX,OffsetDY);
      Duplicate(OffsetDX,OffsetDY);
      
   EndGroup;

Selectall;
   Duplicate(OffsetDX*0,OffsetDY*4);
   Duplicate(OffsetDX*0,OffsetDY*4);
   Duplicate(OffsetDX*0,OffsetDY*4);
   Duplicate(OffsetDX*0,OffsetDY*4);
   Duplicate(OffsetDX*0,OffsetDY*4);
   Duplicate(OffsetDX*0,OffsetDY*4);
   Duplicate(OffsetDX*0,OffsetDY*4);
   Duplicate(OffsetDX*0,OffsetDY*4);
Selectall;
   Duplicate(OffsetDX*8,OffsetDY*0);
   Duplicate(OffsetDX*8,OffsetDY*0);
   Duplicate(OffsetDX*8,OffsetDY*0);
   Duplicate(OffsetDX*8,OffsetDY*0);
DSelectall;
EndGroup;

BeginGroup;
   BeginGroup;

BeginXtrd(0,18);
               
         {Setting the color}
            ColorIndexToRGB(0,r,g,b);
            FillBack(r,g,b);
            ColorIndexToRGB(255,r,g,b);
            PenFore(r,g,b);

         {draw rectangle white1Hor}
            Rect(9,3,36,12);   
         
         {Setting the color}
            ColorIndexToRGB(255,r,g,b);
            FillBack(r,g,b);   
            ColorIndexToRGB(255,r,g,b);
            PenFore(r,g,b);

         {draw rectangle black2Hor}
            Rect(9+4*gap,3+4*gap,36+4*gap,12+4*gap);
EndXtrd;   
      
      {duplicate objects}
      Duplicate(OffsetDX,OffsetDY);
      Duplicate(OffsetDX,OffsetDY);
      Duplicate(OffsetDX,OffsetDY);

   EndGroup;
Selectall;
   Duplicate(OffsetDX*4,OffsetDY*0);
   Duplicate(OffsetDX*4,OffsetDY*0);
   Duplicate(OffsetDX*4,OffsetDY*0);
   Duplicate(OffsetDX*4,OffsetDY*0);
   Duplicate(OffsetDX*4,OffsetDY*0);
   Duplicate(OffsetDX*4,OffsetDY*0);
   Duplicate(OffsetDX*4,OffsetDY*0);
   Duplicate(OffsetDX*4,OffsetDY*0);
Selectall;
   Duplicate(OffsetDX*0,OffsetDY*8);
   Duplicate(OffsetDX*0,OffsetDY*8);
   Duplicate(OffsetDX*0,OffsetDY*8);
   Duplicate(OffsetDX*0,OffsetDY*8);
DSelectall;
EndGroup;
EndGroup;

Selectall;
   Duplicate(OffsetDX*0,OffsetDY*32);
Selectall;
   Duplicate(OffsetDX*32,OffsetDY*0);
EndGroup;


END;
Run(pieddepoule24hscript);

-- NDSClaudiaFuhr - 08 Dec 2005