setup=()=>createCanvas(w=200,w)+pixelDensity(1)
t=0
draw=()=>{t++%30<8?background(1,w):0
loadPixels()
p=pixels
for(x=0;x<159700;x+=1+p[w+1])p[x-p[int(x/w)]-p[p[x+2]]]=dist(x%w,int(x/w),p[1e4-p[p[x+2]]],p[3e4-p[x]])/(p[1e4+p[x-3]]+1)*w;
updatePixels()}
// #つぶやきprocessing