a=(x,y,d=5*cos(o=mag(k=x/8-12,e=y/13-14)/2))=>
point((q=x/2 10 1/k k*cos(e)*sin(d*8-t))*sin(c=d/3 t/8) sin(d*2 t)*k 200,(y/4 5*o*o q*cos(c*3))/2*cos(c) 200)
t=0,draw=$=>{t||createCanvas(w=400,w);background(6).stroke(w,66);for(t =PI/60,i=2e4;i--;)a(i 0,i/200)}
#つぶやきProcessing