p,v,t,m,z,f,s=0,0,0,64,128,circfill,sin::_::cls(0)c=3
for i=0,m do
if(i==m)c=0
x=m+9*s(i/z+p/z)y=z+4-i+4*s(i/z+t/z)-4*s(p/32)f(x,y,18+c-i/8,c)end
f(m,t%m,2,12)for i=0,m do
f(x+i/4*s((i+p*5+t)/z),y+7-i/2+i/7*s(p/z),4-i/16,8)end
flip()a=.1-rnd(.2)t+=2v=max(-1,min(1,v+a))p+=v
goto _