PICO8 Tweetcart

.p8

-- https://twitter.com/lucatron_/status/1252171663883423745
-- https://gist.github.com/lucatronica/5d1b2bdceced5d5f1315b8e2f252146e

for i=1,8 do pal(i,({8,11,10,140,14,12,7})[i],1)end
::_::cls()
?"#pico8♥",0,0,8
for i=0,2 do
k=.25+i/60+cos(t()/8)/5
for y=0,5,.25 do
for x=0,30,.25 do
if(pget(x,y)>0) u=64+(x-15)/k v=64+(y-2.3)/k pset(u,v,bor(2^i,pget(u,v)))
end end end flip()goto _