PROCEDURE moirePattern;

VAR
   i,k,m : INTEGER;
   rectWidth, rectHeight : INTEGER;   
   Width, Height :INTEGER;
   X,Y : INTEGER;
   gap : REAL; 

BEGIN;
   rectWidth := 1;
   rectHeight := 1;
   gap := 1;

   FOR k:=0 TO 100 DO BEGIN
      FOR i:=0 TO 100 DO BEGIN

         X := i*rectWidth + i*gap ;
         Y := k*rectHeight + k*gap ;
         Width := rectWidth ;
         Height := rectHeight ;

         {Setting the color}
         FillBack(10000,10000,10000);

         {draw circle}
         Oval(X,Y,X + Width,Y + Height);            
      END;      
   END;
{groups the most recently created objects}      
Group;
      
   For m:=0 TO 800 DO BEGIN         
      {Setting the color}
      FillBack(10000,10000,10000);
      {draw arc}
      ArcByCenter(0,99,201,0,0.15);
      Rotate(m*10);
      Dselectall;
   END;

Selectall;
{groups the most recently created objects}      
Group;

END;
Run(moirePattern);

-- NDSClaudiaFuhr - 08 Nov 2005