PROCEDURE Script_02;


VAR
   rectWidth, rectHeight : INTEGER;
   i,k : INTEGER;
   startX, startY : INTEGER;
   gap : REAL;
   r,g,b : LONGINT;
   
      BEGIN
         
         FOR i := 0 TO 20 DO BEGIN
            FOR k := 0 TO 20 DO BEGIN
         
            PenFore(Random * 65535,Random*20000,10000);
            FillBack(Random * 65535*i,20000,10000);

            rectWidth := 2*i;
            rectHeight := 8*k;
            gap := 1;

            startX := i*rectWidth + i*gap;
            startY := k*rectHeight + k*gap;

            Rect(startX, startY, startX + rectWidth, startY + rectHeight);

            Rotate(i+k);
            
         END;
      END;
END;
RUN (Script_02);

PROCEDURE Script_03;


VAR
   rectWidth, rectHeight : INTEGER;
   i,k : INTEGER;
   startX, startY : INTEGER;
   gap : REAL;
   r,g,b : LONGINT;
   
      BEGIN
         
         FOR i := 0 TO 30 DO BEGIN
            FOR k := 0 TO 30 DO BEGIN
            
      
            PenSize (1*i);
            PenFore(Random * 65535,Random * 20000,10000);
            FillBack(Random * 65535* i,20000,10000);
         
            rectWidth := 2*i;
            rectHeight := 8*k;
            gap := 1;

            startX := i*rectWidth + i*gap;
            startY := k*rectHeight + k*gap;

            Rect(startX, startY, startX + rectWidth, startY + rectHeight);
   
            RotatePoint(5*i,5*i,3);
            
            
         END;
      END;
END;
RUN (Script_03);

PROCEDURE Script_04;


VAR
   i,k,m : INTEGER;
   r,g,b : LONGINT;
   
      BEGIN
         
         FOR i := 0 TO 10 DO BEGIN
            FOR k := 0 TO 10 DO BEGIN
               FOR m := 0 TO 5 DO BEGIN
               PenSize(14*k);
               PenFore(65535,k*10000,20000);
         
               MoveTo(0*k,500*m);
               LineTo(200*i,20*k);

               MoveObjs(10*m,0,False,False);
               Rotate(3*m);
            END;
         END;
            
      END;   
   
END;
RUN (Script_04);

PROCEDURE Script_08;


VAR
   rectWidth,rectHeight : REAL;
   i,k,m : INTEGER;
   gap : REAL;

BEGIN
   PenFore(0,10000,10000);
   
   
   rectWidth:= 5;
   rectHeight:= 10;
   gap:= 2;
   
   FOR m:= 1 TO 11 DO BEGIN
      FOR k:= 1 TO 12 DO BEGIN
         FOR i:= 1 TO 10 DO BEGIN
            FillBack(65535,8000*i,20000);
         
            Rect(i*(rectWidth+gap), 0, i*(rectWidth+gap)+rectWidth, rectHeight/(2*i));
            Rotate(3); {arm}
            
         END;
         
         RotatePoint(0,0,30*k);{roate arm}
         RotatePoint(10*m,10*m,30*m);{rotate star}
         DSelectAll;
      END;
   END;
END;
RUN (Script_08);

__________________________________________________________________________________________________________________________

PROCEDURE Script_07;


VAR
   i,k,m : INTEGER;
   r,g,b : LONGINT;
   x,y : INTEGER;

BEGIN
   PenSize(14);
      FOR k:= 1 TO 360 DO BEGIN
         PenFore(20000,150*k,10000);
         i:= 5;   
         x := k*10;
         y := 100*sin(deg2rad(k*i));
         MoveTo(2*x,5*y);
         LineTo(k*i,y*i*10);
         Rotate(20);
         DSelectAll;      
      END;
            
END;
RUN (Script_07);

-- NDSMatthiasZaeh - 09 Nov 2005