p,tx,ty={},0,0 for i=1,24 do add(p,{x=0,y=0,r=abs (64-(i*6-2)),v=i%2-.5}) end ::_:: cls(0) b=sin(t()/10) i=sin(t()/4)*.8 j=cos(t()/4)*9 for v in all(p) do v.x=64+i*2*v.r*b v.y=64+j*v.v*v.r/5*b line(v.x,v.y,tx,ty,v.x) tx,ty=v.x,v.y end flip() goto _