structure scripts:

script 01

procedure lineGraphic1;

VAR i,k:integer;
   rot,gruen,blau,colorRange:LONGINT;
   p1X, p1Y, p2X, p2Y:real;

begin
   colorRange:=20000;
   move(0,0);
   
   for i:=1 to 24 do begin
      rot:=(65535-colorRange)+(Random*colorRange);
      gruen:=0;
      blau:=0;
      PenFore(rot,gruen,blau); 
      
      for k:= 1 to 20 do begin
         p1X := sin (i*20);
         p1Y := i*i/2;
         p2X := 30*i;
         p2Y := 40*i;
         moveto(p2X,p2Y);
         lineto (p1X,p1Y) ;
         Rotate(p1X);
         redraw;
      end;
      Rotate(13);
   end;
end;
run(lineGraphic1);

script 02

procedure lineGraphic3;

VAR i,k:INTEGER;
   groessePoly:INTEGER;
   rot,gruen,blau,colorRange:LONGINT;
   kx,ky:REAL;
   
begin
   groessePoly:=100;
   colorRange:=20000;
   for i:= 1 to 8 do begin
      rot:=(65535-colorRange)+(Random*colorRange);
      gruen:=0;
         blau:=0;
      FillBack(rot,gruen,blau);
      for k:=1 to 360 do begin
         groessePoly:=k;
         kx:=k*10;
         ky:=1000*sin(deg2rad(k));   
         moveto(kx,ky);
           poly(groessePoly,#60d,
           groessePoly,#120d,
           groessePoly,#180d,
           groessePoly,#240d,
           groessePoly,#300d);
       end;
      rotate(360/8);
      redraw;         
   end;
end;

run(lineGraphic3);

script 03

VAR i,k:INTEGER;
   rot,gruen,blau,colorRange:LONGINT;
   kx,ky, kx1,ky1:REAL;
   kxOff,kyOff:real;
   
begin
   colorRange:=30000;
   for i:= 1 to 25 do begin
      
      rot:=(65535-colorRange)+(Random*colorRange);
      gruen:=0;
         blau:=0;
      PenFore(rot,gruen,blau);
      
      kxOff   :=random*700+400;
      kyOff   :=random*400;
      
      for k:=1 to 180 do begin
         kx:=100*sin(deg2rad(k));
         ky:=(k);
         kx1:=130*sin(deg2rad(k));
         ky1:=(k);
         moveto(kx+kxOff,ky+kyOff);
           lineto(kx1+kxOff,ky1+kyOff);
       end;
      for k:=1 to 180 do begin
         kx:=(k);
         ky:=130*sin(deg2rad(k));
         kx1:=(k);
         ky1:=100*sin(deg2rad(k));
         moveto(kx+kxOff,ky+kyOff);
           lineto(kx1+kxOff,ky1+kyOff);
           
       end;
       rotate(2);
   end;
end;

run(lineGraphic4);
 

procedure lineGraphic2;

VAR i,k,j,h:integer;
   kreis:real;
   muster:integer;
   width,height:real;
   p1X, p1Y, p2X, p2Y:real;
   pw1X, pw1Y, pw2X, pw2Y:LONGINT;
   kx,ky,kx1,ky1:real;
   kurvex,kurveY,rangeY:real;
   check:real;
   randomHoehe:real;
   gap, anzahl:integer;
   c:integer;
   rot,gruen,blau,colorRange:LONGINT;

begin
   c:=9; (*anzahl sinuskurven*)
   anzahl:=7;
   colorRange:=40000;
   gap    := -20;
   width  := 200;
   height := 200;
   
   for i:= 1 to anzahl do begin
      for k:= 1 to anzahl do begin
         
         rot:=(65535-colorRange)+(Random*colorRange);
         gruen:=0;
            blau:=0;
         FillBack(rot,gruen,blau);
         
         p1X := ((i*width)+(i*gap));
         p1Y := ((k*height)+(k*gap));
         p2X := ((i*width)+width+(i*gap));
         p2Y := ((k*height)+height+(k*gap));
   
         (*rect(p1X,p1Y,p2X,p2Y);*)
         
         pw1X:=trunc(p1X);
         pw2X:=trunc(p2X);
         
         dselectall;
         
         for h:= 1 to c do begin
         
            kreis:=0;
            randomHoehe:=trunc((random)*height);
            
            if randomHoehe>height/2 then randomHoehe:=height/2;
      
            
            rot:=(65535-colorRange)+(Random*colorRange);
            gruen:=0;
               blau:=0;
            PenFore(rot,gruen,blau); 
            
            for j:= pw1x to pw2x-1 do begin
         
                rangeY:=p2Y-p1Y;
                kreis:=kreis+10;
               check:=(sin(deg2rad(kreis)))*(height/randomHoehe);
               
               if check>height/3 then check:=height/3;
               
               kurveY:=(p1y+(rangeY/2))+check;
               kurveX:=j;
               moveto(kurveX,kurveY);
               lineto(kurveX+1,kurveY);
            
               
            end;
            rotate(360/c);
            randomhoehe:=0;
            check:=0;
         end;
         
          redraw;
      end;
      
   end;

end;

run(lineGraphic2);