Force field

PROCEDURE forcefield;


VAR


{   myArray:DYNARRAY[,] OF BOOLEAN;}

   l, i, k, j, m, n, h2, s : longint ;
   
   rotate1, move1, r, h : real;

   x, y, num : INTEGER;



BEGIN

{num := intdialog('Please enter an even number of pattern:','8') ;}
num := 12;


for j:=1 to 2 do begin  

   flipver;

   h2 := j*10 ;



   for k:=1 to num/2 do begin 

      r := random-0.5 ;
      
      m:=10+(random*20);
   
      n := (3*m)*r ;
      
      rotate1:=(random-0.5)*(8/5);

      IF r>0 then begin

         h := random*10;

         s := (random+1)/3 ;

         end


         else begin

         h := (random*10) + 10 ;

         s := random ;

         end;


         for i:=0 to m do begin
            
            moveto(i+n, h-h2) ;

            lineto(m+n, i+h-h2) ; 

            lineto(m+(m-i)+n, h-h2);

            rotate(rotate1);

            scale(1,1);

            redraw;         
      
         end;      

      END;

   end;

END;

RUN (forcefield);