bad radar

-- bad radar -- alexthescott -- 8/23/21

circ_c=1 t=0 v=.001 p={8,136,2,12,140,1,11,139,131} pal(p,1) cls()

::♥:: if time()<2 then print("bad radar",46,64,1) else --burn pixels for c=0, 512 do local x=rnd(128) local y=rnd(128) local f=pget(x,y) if f%3>0 then pset(x,y,f+1) else pset(x,y,0) end end

-- draw 6 lines
for i=1,6do
	x=33+((cos(t+i/6)+1)/2)*63
	y=33+((sin(t+i/6)+1)/2)*63
	x2=-32+((cos(t+i/6)+1)/2)*192
	y2=-32+((sin(t+i/6)+1)/2)*192
	line(x,y,x2,y2,(1+(i-1)*3)%9)
end

-- invert v
if btnp(4) or btnp(5) then
	v*=-1
end

t+=v

if t==abs(1)then
	t=0
end

-- draw inner circle
s=(cos(0.375+time()/16)+1)/2
if s==0 then
	circ_c+=3
	circ_c%=9
end

circfill(64,64,29*s,circ_c)

flip()

end goto ♥