--pride flags
--by mabbees

fs={{8,9,10,11,12,2},{12,14,7,14,12},{10,7,2,0}}
z=0
function _update60()
	if(btnp(❎))z+=1
	z%=#fs
	f=fs[z+1]
end
function _draw()
	cls(1)t=2*time()h=108/#f	
	for x=0,127 do
	for i,c in ipairs(f) do
	y=12+h*i-h+3*(sin(t+x/144)-sin(t))
	line(x,y,x,y+h,c)
	end
	end
end