Wirbelsturm

PROCEDURE Sturm;
VAR
   x,y,i: INTEGER;   
   NewObjekt:HANDLE;
   r,g,b:Longint;
BEGIN
 i:=0;
 x:=20;
 y:=20;
  
 For i:=0 To 360 Do BEGIN
 RRECT(i,i,2+x,2*y,Random*10*i,Random*10*i);
   r:=Random*10000;
   g:=Random*40000;
   b:=55000;
   NewObjekt:=LNewObj;
   SetFillBack(NewObjekt,r,g,b);
   NewObjekt:=NextObj(NewObjekt);   
  ROTATE(i);
REDRAW; 
END;

END;

RUN (Sturm);