s=[m=0]
setup=_=>createCanvas(b=400,b)
draw=_=>{
background(0,30);
a=m++%255
d=200
e=99*sin(m/d)
s[m%b]={c:e/10,e,w:0,a}
s['map'](_=>(_.w+=1/b,_.c+=_.w,_.e+=_.c/d)+strokeWeight(5-_.w*3)+stroke(0,_.a,d)+point(_.e*cos(_.c)+d,_.e*sin(_.c)+99+_.c))}//#つぶやきProcessing