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