Optimized Rainbow Card

rainbow/rainbow.p8

@@ -1,13 +1,8 @@
 pico-8 cartridge // http://www.pico-8.com
 version 32
 __lua__
-m=128
-v=1.4
-function _draw()	
-cls()rectfill(0,0,m,m,15)
-for x=0,m do 
-pset(x,l(x,0),2)pset(x,l(x,1),13)pset(x,l(x,2),12)pset(x,l(x,3),11)pset(x,l(x,4),10)pset(x,l(x,5),9)pset(x,l(x,6),8)flip()
-end
-end
-function l(x,p)return ((((x/90-v)*(x/90-v))/2)*64)+64-p
-end
+c={2,13,12,11,10,9,8}::_::cls(15)for x=0,128 do
+for i=1,7 do
+n=x/90-1.4pset(x,n*n*32+65-i,c[i])end
+flip()end
+flip()goto _