a=(x,y,d=mag(k=x/8-12,e=y/8-9)**2/50)=>stroke(99+99/abs(k)*sin(t*4+e*e)**2,96).point((q=x/3+e+60+1/k+k/sin(e)*sin(d-t))*sin(c=d/4-t/8)+200,(q-y*d/9)*cos(c)+200)
t=0,draw=$=>{t||createCanvas(w=400,w);background(6);for(t+=PI/90,i=1e4;i--;)a(i%200,i/200<<2)}
a=(x,y,d=mag(k=x/8-12,e=y/8-9)**2/50)=>stroke(99+99/abs(k)*sin(t*4+e*e)**2,96).point((q=x/3+e+60+1/k+k/sin(e)*sin(d-t))*sin(c=d/4-t/8)+200,(q-y*d/9)*cos(c)+200)
t=0,draw=$=>{t||createCanvas(w=400,w);background(6);for(t+=PI/90,i=1e4;i--;)a(i%200,i/200<<2)}