alexthescott.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 ♥