NTHD

FLASHING LIGHTS WARNING

Move with arrows, Rotate and Zoom with S/E/D/F . Q will randomize the color pallette.

made for tweettweetjam under 560 chars

(desktop only for now)

cls()
poke(0x5f2c,7)
g=flr
r=rnd
ww=32
sx=0
sy=0
x=3
y=3
a=0
sc=61
p=0
::_::
srand(p)
z=btnp()
x+=g(z/2)%2-z%2
y+=g(z/8)%2-g(z/4)%2
z=shr(z,8)
a+=(g(z/2)%2-z%2)/666
sc-=g(z/8)%2-g(z/4)%2
z=shr(z,14)
p-=(z%2)/99
for i=9,15 do
pal(i,1+g(r(15)))
end
w=ww
ca,sa=cos(a),sin(a)
q,s=ca,sa
m=shl(0xfff8,(w-1))
ca*=w-0.5
sa*=w-0.5
j,h=sa-ca+w,-ca-sa+w
w=2*w-1
for ix=0,w do
k,l=j,h
for iy=0,w do
if band(bor(k,l),m)==0 then
c=pget(sx+k,sy+l)
if (c==0) c=g(r(5))
sset(x+ix,y+iy,9+(c+1)%6)
end
k-=s
l+=q
end
j+=q
h+=s
end
sspr(0,0,64,64,x,y,sc,sc)
flip()
goto _