Do
CLS
TILE 0,0,Rnd*&hF0F0F0,0,80,40
For G=-Rnd*42 To 400
 tt=Rnd*99:qq=Rnd*99
 vv=Rnd*480:uu=Rnd*640
 A=Rnd*3
 R=90/(1+Rnd*200)
 Q=1+3*(.5+Rnd/2)
 aa=1+3*Rnd^2:M=1
 If Rnd*9<4 Then Q=R:t=0:qq=0:A=0:M=Pi/3:aa=1
 C=(1+3*Rnd^2)*R*R
 For ii=0 To C
   S=-Log(Rnd):T=ii*M
   U=S*R*Sin(T):V=S*Q*Cos(T)
   T=S*A
   X=U*Cos(T)+V*Sin(T)
   Y=V*Cos(T)-U*Sin(T)
   D=(X*X+Y*Y)/(R*R+Q*Q)
   Z=99*((2.7^-D)+.1)
   Z=Z*(Rnd-.5)^3
   yy=Y*Cos(tt)+Z*Sin(tt)
   Z=Z*Cos(tt)-Y*Sin(tt)
   xx=uu+X*Cos(qq)+yy*Sin(qq)
   yy=vv-X*Sin(qq)+yy*Cos(qq)
   Pixel xx,yy
 Next
Next
Loop