Pink Road (2018)
(277 chars)
p,q={},{} ::_::cls() h=cos(t())*4 for i=0,1 do add(p,{x=54+sin(t()/4)*15, y=h+i-10,w=20,c=flr(t()*8)%2*15+222}) end rectfill(0,0,128,128,14) for k,v in all(p) do if (k.y<128) k.y+=1 k.x-=.5 k.w+=1 else del(p,k) fillp(k.c) line(k.x,k.y,k.x+k.w,k.y,k.c) fillp() end flip() goto _ |
[Please log in to post a comment]