-- NDSSladjanaMarkovic - 09 Nov 2005

• flu
  

     PROCEDURE flu;
  
  VAR
  
  rectWidth, rectHeight : INTEGER;
  r,g,b:LONGINT;
  i,m: INTEGER;
  startX: INTEGER;
  gap : REAL;
  
  BEGIN
  
  rectWidth:=20;
  rectHeight:=50;
  gap := 2;
  
  
     For m:=0 TO 20 DO BEGIN
  
        For i:=0 TO 10 DO BEGIN
  
        ColorIndexToRGB (15,r,g,b);
        PenFore (r,g,b);
        FillBack (0,0,0);
        startX := i*rectWidth + i*gap ;
  
        Rect(startX,0,startX + rectWidth,rectHeight);
  
        RotatePoint(startX,0,45);
  
        END;
  
     MoveObjs(2*m,2*m,FALSE,FALSE);
     
     END;
  
  END;
  
  RUN(flu);