t,r,c,s,l=0,rnd,cos,sin,line
::_::
cls(0)
if(t%30==0)q,p,g,b=t,r(1),r(25)+10,r(0.2)+0.1
srand(q)
for i=0,1,0.03 do
d,e=i*50,r((i^p*g)*(1-i)^p)for a=0,1,0.17 do
v=a+t/500x,y=64-s(v)*d,64+c(v)*d
l(x,y,x-s(v+b)*e,y+c(v+b)*e,6)
l(x,y,x-s(v-b)*e,y+c(v-b)*e,7)
end
end
t+=1flip()
goto _