-- NDSSladjanaMarkovic - 09 Nov 2005

• perspective
  

  PROCEDURE perspective;
  
  VAR
  rectWidth, rectHeight : INTEGER;
  r,g,b:LONGINT;
  i,m: INTEGER;
  startY: INTEGER;
  gap : REAL;
  
  BEGIN
  
     For m:=0 TO 12 DO BEGIN
  
  rectWidth:=20;
  rectHeight:=20;
  gap:=50;
  
        ColorIndexToRGB (13,r,g,b);
        Fillback(r,g,b);
        rect(0,rectWidth,rectWidth,34*rectHeight+gap);
  
           For i:=0 TO 12 DO BEGIN
  
           ColorIndexToRGB (79,r,g,b);
           Fillback(r,g,b);
           startY := gap+i*rectHeight+i*gap;
           rect(0,startY,rectWidth,startY+rectHeight);
     
     MoveObjs(2*m+1,2*m,FALSE,FALSE);
  
            END;
  
        END;
  
     END;
  
  RUN(perspective);