TweetPaint

I started working on a little paint program for TweetTweetJam, but it ended up fitting in just a single tweet!

Scroll wheel to change colour. X to pick the colour under the cursor.

To draw a line, rectange or filled rectangle, place the cursor at one end/corner position, press Z to select the tool you want, and move to the 2nd end/corner position.

g=24576l=1k='+-□■'d={line,line,rect,rectfill}c=7m=memcpy
poke(24365,1)s=stat::_::m(g,0,8192)x,y=s(32),s(33)h=s(36)
if(btnp(4))l=l%4+1
if(btn(5))c=pget(x,y)
d[l](w,z,x,y,c)
if(s(34)>0)m(0,g,8192)l=1
print(sub(k,l,l),x-1,y-2,c)
if(h!=0)c=(c+sgn(h))%16
if(l<2)w,z=x,y
flip()goto _