Shimmerscale

NOW IN GLORIOUS QUADRACOLOR

Consuming 239 chars because I didn't bother to minify further:

cls(13)s=sin
a=12b=4
::_::
t=time()/4
for i=0,36 do 
for j=0,42 do
r=(i+1.4*j)/64
m=12*s(t+r)
x=-8+4*i+3.4*s(t+r-.25)
y=-20+4*j+8*s(r)
if(btn(❎))a=11b=5
if(btn(🅾️))a=12b=4
o=a+(i/3+j/3+t*16)%b
line(x,y-m,x+1,y-m+s(t+r+.75),o)
end
end
goto _

Press ❎ to activate CHROMATOSIS:
An experimental bleeding-edge 5-color mode

Feel free to use/modify this effect for your projects!

a is the starting color and b is how many subsequent colors in the palette to use, so you can alter this to use any colors you want using pal({}) and those two variables. Note that the effect relies on not using cls() so this would be best suited to a splash screen or menu, or for use with clip()