Haar

PROCEDURE Haar;
VAR
f,f2,x1,x2,x3,x4,x5,x6,y1,y2,y3:REAL;
px1,px2,px3,px4,px5,py1,py2,py3:REAL;
i,m,j:INTEGER;

BEGIN
  f:=50;
  f2:=20;
  x1:=0;
  y1:=0;
  x2:=f;
  y2:=y1+f;
  x3:=x2+f;
  y3:=(-1*y2);
  x4:=x3+f;
  x5:=x1+((x4-x1)/2);
  CLOSEPOLY;
  Penfore(1000,1000,0);
  POLY(x1,y1,x2,y2,x3,y2,x4,y1,x5,y3);  
  FOR i:=1 TO 20 DO BEGIN 
   FOR m:=1 to 20 DO BEGIN
        x1:=x4;
        y1:=y3+f;
       x2:=x4+f;
          y2:=y3+(2*f);
        x3:=x4+(2*f);
        x4:=x4+(3*f);
        x5:=x4-(3*f/2);
      Penfore(1000,1000,0);
      POLY(x1,y1,x2,y2,x3,y2,x4,y1,x5,y3);
      px1:=x1;
        py1:=y1;      
      FOR j:=0 To 20 DO 
       BEGIN
           f2:=-f2;
         Penfore(45000,30000,0);
         LINE(random*f2,50);
      END;
      f2:=random*48; 
   END;
     x4:=i*f;
    y3:=(i-1)*f;
   END;
     REDRAW;     
END;
RUN(Haar);

-- NDSTobiasWendt - 09 Nov 2005