c=circfill
g=90n=15h=128t=0s=110p=clip::_::s=max(s-.1,50)cls(1)rectfill(0,g,h,h,0)p(0,0,h,g)c(64,s,20,14)p(0,g,h,h)c(64,180-s,20,13)for i=0,4 do
x=g+(i*3+i^2)line(0,x,h,x,12)end
t-=.5for i=0,n do
z=i*n+t%n
y=h*n/z+32v=i+t%n/n-n/2line(v*9+64,g,v*60+64,h,12)end
flip()goto _