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