for(t=[],W=400,c=N=0;N<41;N++)t[N]=[5*N,0,9*N];draw=a=>{c||createCanvas(W,W),background(W),t.find(a=>{[q,r,s]=t[++c%N],b=a[1]+=atan2(q,s)*mag(q,s),u=a[0]+=cos(b),v=a[2]+=sin(b),t.find(t=>{stroke(0,W-9*dist(u,v,x=t[0],y=t[2])),line(u+99,v,x+99,y)})})};//#つぶやきProcessing