Headache (2018)
(273 chars)
p,q={},{} for i=0,31 do add(p,{y=i*4})end for i=0,4 do add(q,{x=i*37,v=i})end ::_::cls(7) for v in all(p) do if (v.y<127) v.y+=1 else v.y=0 line(0,v.y,127,v.y,0) end for v in all(q) do if (v.x>-20) v.x-=1 else v.x=164 circfill(v.x,64+sin(t()+v.v/5)* 5,20,7)end flip()goto _ |
[Please log in to post a comment]