mini-assignment 1

vectorscript

• back to mainpage

skript 01

Procedure martin1;

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

BEGIN; 

   For n:=0 TO 5 DO BEGIN

      For i:=0 TO 5 DO BEGIN

         For k:=0 TO 5 DO BEGIN

         PenFore(k*13107,0,0);

            For m:=0 TO 5 DO BEGIN

            Arc(0,0,10,10,135,270);

            RotatePoint(0,0,60d);

            END;

         RotatePoint(-20,-20,60d);

         END;

      RotatePoint(-60,-60,60d);
      ReDrawAll;

      END;

   RotatePoint(-180,-180,60d);
   ReDrawAll;

   END;

END;
run(martin1);

skript 02

Procedure martin2;

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



BEGIN; {1st wave}

   For m:=0 TO 5 DO BEGIN

         For k:=0 TO 19 DO BEGIN

            For i:=0 TO 8 DO BEGIN  {vertical row of ellipses}
   
               PenFore(0,0,8125*i);
               Oval(0,i*12,10,10+i*12);

            END;

         CASE k OF
         0..9: MoveObjs(12,2*k,TRUE,TRUE);
         10..19: MoveObjs(12,40-2*k,TRUE,TRUE);

         END;

   MoveObjs(0,-k-1/2,TRUE,TRUE);

   END;

END;

MoveObjs(-1440,-120,TRUE,TRUE);
ReDrawAll;



BEGIN; {2nd wave}

   For m:=0 TO 5 DO BEGIN

         For k:=0 TO 19 DO BEGIN

            For i:=0 TO 8 DO BEGIN
   
               PenFore(0,0,8125*i);
               Oval(0,i*12,10,10+i*12);

            END;

         CASE k OF
         0..9: MoveObjs(12,2*k,TRUE,TRUE);
         10..19: MoveObjs(12,40-2*k,TRUE,TRUE);

         END;

   MoveObjs(0,-k-1/2,TRUE,TRUE);

   END;

END;

MoveObjs(-1440,-120,TRUE,TRUE);
ReDrawAll;




BEGIN; {3rd wave}

   For m:=0 TO 5 DO BEGIN

         For k:=0 TO 19 DO BEGIN

            For i:=0 TO 8 DO BEGIN
   
               PenFore(0,0,8125*i);
               Oval(0,i*12,10,10+i*12);

            END;

         CASE k OF
         0..9: MoveObjs(12,2*k,TRUE,TRUE);
         10..19: MoveObjs(12,40-2*k,TRUE,TRUE);

         END;

   MoveObjs(0,-k-1/2,TRUE,TRUE);

   END;

END;

MoveObjs(-1440,-120,TRUE,TRUE);
ReDrawAll;



BEGIN; {4th wave}

   For m:=0 TO 5 DO BEGIN

         For k:=0 TO 19 DO BEGIN

            For i:=0 TO 8 DO BEGIN
   
               PenFore(0,0,8125*i);
               Oval(0,i*12,10,10+i*12);

            END;

         CASE k OF
         0..9: MoveObjs(12,2*k,TRUE,TRUE);
         10..19: MoveObjs(12,40-2*k,TRUE,TRUE);

         END;

   MoveObjs(0,-k-1/2,TRUE,TRUE);

   END;

END;

END;

END;

END;

END;
run(martin2);

skript 03

Procedure martin3;

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

BEGIN; 

   For m:=0 TO 39 DO BEGIN

BeginGroup;

      For k:=0 TO 1 DO BEGIN

         For i:=0 TO 19 DO BEGIN
   
         PenFore(0,3450*i,0);

         Moveto(0,0);
         Line(5*i,19-i/2);

         END;

      FlipVer

      END;

EndGroup;

   RotatePoint(121,19/2,9d);

   END;

END;
run(martin3);

skript 04

Procedure martin4;

VAR
   
   r,g,b : LONGINT;
   k,m : INTEGER;

BEGIN;

   For k:=0 TO 30 DO BEGIN

      BeginGroup;

      For m:=0 TO 30 DO BEGIN

      PenFore(65535,65535*random,0);

      Rect(15*random,15*random,15*random,15*random);

      MoveObjs(10*random,0,FALSE,FALSE);

      END;

      EndGroup;

   ReDrawAll;

   MoveObjs(0,10*random,FALSE,FALSE);

   END;

END;
run(martin4);

skript 05

Procedure martin5;

VAR
   
   r,g,b : LONGINT;
   i,k : INTEGER;

BEGIN;
   
For k:=0 TO 5 DO BEGIN
      
   For i:=0 TO 180 DO BEGIN   
      PenFore(355*i,0, 0);
   
      moveto (0,0);
      LineTo(i,i);

      RotatePoint(180,180,2d);

   END;

   RotatePoint(0,0,60d);

END;

END;
run(martin5);

• top of page