tcc01.lua 385 B

1234567891011121314151617181920
  1. pt={}
  2. g=0r=0m=math
  3. for i=1,180 do pt[i]={x=0,y=0,c=i%15} end
  4. function TIC()r=time()/1000
  5. h=2*m.pi/10
  6. c=0
  7. for i=1,180 do
  8. p=pt[i]
  9. pix(p.x,p.y,p.c)
  10. if i%10==0 then
  11. c=c+1g=r
  12. end
  13. pt[i]={x=c*3*m.sin(g)+120,y=(c*3*m.cos(g)*0.55)+10+(c*8),c=p.c}
  14. g=g+h
  15. end;end
  16. -- <PALETTE>
  17. -- 000:1a1c2c5d275db13e53ef7d57ffcd75a7f07038b76425717929366f3b5dc941a6f673eff7f4f4f494b0c2566c86333c57
  18. -- </PALETTE>