a=(y,d=mag(k=(y<5?6 sin(y^1)*6:4 cos(y))*cos(i t/4),e=y/3-13) sin(e/4-t)/3)=>point((q=y*k/5*(2 sin(d*2 y-t*4))) 90*cos(c=d/3-t/2 i%2) 200,q*sin(c) d*29-170)
t=0,draw=$=>{t||createCanvas(w=400,w);background(9).stroke(w,96);for(t =PI/90,i=1e4;i--;)a(i/790)}//
#つぶやきProcessing