for(t=[],W=400,c=N=0;N<201;N++)t[N]=[N,0,N%2?N:W-N];draw=a=>{c||createCanvas(W,W),background(W,30),noStroke(),t.find(a=>{[q,r,s]=t[++c%N],b=a[1]+=atan2(a[0]-q,a[2]-s)*(mag(a[0]-q,a[2]-s)/32),a[0]+=cos(b),a[2]+=sin(b),fill(a),circle(a[0]+99,a[2],2)})};//#つぶやきProcessing