Hypno Octagon (2018)
(269 chars)
p={} for i=0,20 do add(p,{x=64+i*4.5,y=64+i*1.5, q=i*3-32,t=i*3}) end ::_:: cls() for k,v in all(p) do if (k.q<30) k.q+=.1 else del(p,k)add(p,{x=64,y=64,q=-30,t=0}) k.t,k.w,k.h=k.t+.1,k.x,k.y k.x+=sin(k.q)*k.t k.y+=cos(k.q)*k.t line(k.x,k.y,k.w,k.h,7) end flip() goto _ |
[Please log in to post a comment]