pt={}
g=0r=0m=math
for i=1,180 do pt[i]={x=0,y=0,c=i%15} end
function TIC()r=time()/1000
h=2*m.pi/10
c=0
for i=1,180 do
p=pt[i]
pix(p.x,p.y,p.c)
if i%10==0 then
c=c+1g=r
end
pt[i]={x=c*3*m.sin(g)+120,y=(c*3*m.cos(g)*0.55)+10+(c*8),c=p.c}
g=g+h
end;end

-- <PALETTE>
-- 000:1a1c2c5d275db13e53ef7d57ffcd75a7f07038b76425717929366f3b5dc941a6f673eff7f4f4f494b0c2566c86333c57
-- </PALETTE>