-- bad radar alt
-- alexthescott
-- 8/23/21
circ_c=1
t=0
v=-0.001
p={134,2,130,13,141,128,131,1,129}
pal(p,1)
cls()
::♥::
if time()<2 then
print("bad radar alt",38,64,1)
else
--burn pixels
for c=0, 256 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)
end
flip()
goto ♥
