z,t,r,c=128,0,rectfill,circfill::_::cls(2)
c(40,64,25,10)
r(0,90,z,z,1)
for i=0,z do
r(i,64-sin(sin((i-t)/999))*20,i,90,3)
r(i,70,i,99-sqrt(abs(sin((i-t*4)/z)*640)),6)
end
for i=0,32 do
r(40+24*i,65,64+24*i-2,69,5)
if(i%8<7)then r(41+3*i,67,42+3*i,67,9)
end
end
t+=1
flip()goto _