srand()r=0::f::o={}r+=1if(r>5)stop"⁶c"
t=0g=0h=-9n=0a=1l=cos for f=1,500do g,d=rnd(),g/2-.25s={sin(d),f/25,l(d),sin(d/2)+.3,f/25,l(d/2)*1.5,f/125-3,f/30,f/500,f/125-3,f/30,.5,sin(d)*2-1,f/25,l(d)}i=r*3-2add(o,{f=s[i],o=s[i+1],d=s[i+2],g=3+f/200+r*2})end::i::?"⁶1⁶c1"
circfill(64,550,500,0)t+=.01g,d=rnd(),g*2-1for f in all(o)do e,c,i=f.e,f.f,f.t if f.h then f.e+=f.c f.t+=f.r if(f.f+f.i>0)f.f=min(f.f)f.i*=-.4f.c*=.9f.r*=.7
f.f+=f.i f.i+=.01else e=f.d*l(f.o+t)c=f.f i=f.d*sin(f.o+t)c+=h if(h+n>-1and(e+g*3)^2+(c+r)^2+i^2<a^2)f.h=1f.e,f.f,f.t=e,c,i f.i,f.c=n*.7,e/15f.r=i/15
end e+=t*4-5i+=9-t*4circfill(64+e*64/i,54+(-c+2)*64/i,2/i,1)circfill(64+e*64/i,54+(c+2)*64/i,2/i,f.g)end if(h+n>-1)n*=-.8a*=1.7
n+=.02h+=n if(t>1)deli(o,rnd(#o))deli(o,rnd(#o))deli(o,rnd(#o))deli(o,rnd(#o))deli(o,rnd(#o))deli(o,rnd(#o))
if(t>2)goto f
goto i