for(t=[],c=N=0;N<401;N++)t[N]=[N/4,0,N/2];setup=a=>createCanvas(N,N),draw=r=>{for(c++,background(0),noStroke(),i=10;i<N;i++)a=t[i],b=t[(i+c+N)%N],a[0]+=cos(a[1]/8),a[2]+=sin(a[1]/8),a[1]=3*atan2(b[0],b[2])*mag(b[0],b[2]),fill(a),circle(a[0]+99,a[2],a[1]/9)};//#つぶやきProcessing