Blumen

PROCEDURE Blumen;

VAR
beta,f,r,d1,d2,xm,ym,x0,x1,x2,x3,x4,x5,y0,y1,y2:REAL;
i,j,k,m,t:INTEGER;

BEGIN
   x0:=0;
   y0:=0;
   CLOSEPOLY;
   FOR k:=1 TO 8 DO BEGIN
      FOR m:=1 TO 8 DO BEGIN
         r:=(Random*60)+60;
         t:=Random*30+4;
         beta:=(2*pi/t)/2;
         d1:=cos(beta)*r;
         d2:=r*sin(beta);
         PenFore(65000,60000*Random,0);
         OVAL(x0,y0,(x0+2*r),(y0+2*r));
         xm:=x0+r;
         ym:=y0+r;
         x1:=xm-d2;
         y1:=ym+d1;
         x2:=x1+2*d2/3;
         y2:=ym+2*d1;
         x3:=x1+4*d2/3;
         x4:=xm+d2;
         POLY(xm,ym,x1,y1,x2,y2,x3,y2,x4,y1);
         DselectAll;   
         FOR i:=1 TO t DO BEGIN
            xm:=x0+r;
            ym:=y0+r;
            x1:=xm-d2;
            y1:=ym+d1;
            x2:=x1+2*d2/3;
            y2:=ym+2*d1;
            x3:=x1+4*d2/3;
            x4:=xm+d2;
            POLY(xm,ym,x1,y1,x2,y2,x3,y2,x4,y1);      
            RotatePoint(xm,ym,i*(2*beta*180/pi));
            DselectAll;
            REDRAW;     
         END;   
         x0:=RANDOM*50+(470*m);
      END;
      x0:=0;
      y0:=RANDOM*50+(470*k);
   END;   
END;

RUN(Blumen);

-- NDSTobiasWendt - 09 Nov 2005