Log In  


Orb (2018)

(258 chars)

p,c=1,{} for i=1,80 do c[i]={i*2,i,i*((i%2)-.5)} end::_::cls() if(p>-1)p-=.01else p=1 for j=1,3 do for i=1,80 do if(c[i][2]>0)c[i][2]-=1 else c[i][2]+=30 c[i][1]=cos(p)*c[i][2]/j c[i][3]+=rnd(2)-1 circ(c[i][1]+64,c[i][3] /j+64,c[i][2],7) end end flip()goto _

1



[Please log in to post a comment]