m=math s=m.sin c=m.cos t=0
function TIC()cls(14)t=t+0.02
for i=0,240 do
x=92+i*c(i+t)
y=52+i*s(i+t)r=6
P=0 T=r
if i%8<3*s(t/3)then C=circ else C=circb end
for j=0,6.3,6.3/(8+3*s(t)) do
R=r*2*c(j)S=r*2*s(j)
C(x+R,y+S,r,i%16+1)
end
C(x,y,r*1.2,i%16)
end end