Genuary 2023 Day 5 - Debug View

-- genuary #5 2023
-- debug view
-- by carson kompon
matrix={}
debugmode=false
dbgx=-128
m_tim=0
w_len=32
w_len_slider={8,128}
w_wigam=8
w_wigam_slider={0,32}
w_thicc=6
w_thicc_slider={1,16}
w_col1=11
w_col2=12
w_col_table={3,4,5,6,7,8,9,10,11,12}
w_wavy=1
w_wavy_slider={0,2}
-- set fps to 60
_set_fps(60)
-- set palette colours
pal({[0]=0,5,6,136,8,4,9,3,11,1,140,2,14,7},1)
-- enable mouse functionality
poke(0x5f2d, 1)
-- debug slider function
function draw_slider(txt,y,var,bounds)
	print(txt .. ": " .. tostr(var),dbgx+2,y-8,2)
	line(dbgx+2,y,dbgx+52,y,1)
	hx=dbgx+2+50*((var-bounds[1])/(bounds[2]-bounds[1]))
	line(hx,y-2,hx,y+2,2)
	if debugmode and mc==1 and mx>=dbgx+2 and my>=y-2 and mx<=dbgx+52 and my<=y+2 then
		var=bounds[1]+(((mx-2)/50)*(bounds[2]-bounds[1]))
	end
	return var
end
-- debug colour select function
function draw_colselect(txt,y,var)
	print(txt .. ":",dbgx+2,y-8,2)
	l=#w_col_table
	for i=1,l do
		x=(i-1)*8
		oc=1
		if(var==w_col_table[i])oc=2
		rect(dbgx+x+2,y,dbgx+x+8,y+6,oc)
		rectfill(dbgx+x+3,y+1,dbgx+x+7,y+5,w_col_table[i])
		if debugmode and mc==1 and mx>=dbgx+x+2 and my>=y and mx<=dbgx+x+8 and my<=y+6 then
			var=w_col_table[i]
		end
	end
	return var
end
lmc=0
-- main loop
::_::
	-- clear the screen
	cls()
	-- get mouse info
	mx=stat(32)
	my=stat(33)
	mc=stat(34)
	-- spawn matrix character
	if m_tim%4==0 then
		add(matrix,{
			x=rnd(128),y=0,c=chr(16+rnd(228-16)\1)
		})
	end
	-- update matrix characters
	for m in all(matrix) do
		m.y += 1
		print(m.c,m.x,m.y,1)
		-- destroy if falls off-screen
		if(m.y>=128)del(matrix,m)
	end
	m_tim+=1
	-- draw worm body
	xx=64-(w_len/2)
	for i=1,w_len do
		col=w_col2
		if(i%2==0)col=w_col1
		circfill(
			xx+i,
			64+sin(t()/8+(i/w_len*w_wavy))*w_wigam,
			w_thicc,
			col
		)
	end
	-- print debug header
	hdr="w𝘰𝘳𝘮 c𝘳𝘦𝘢𝘵𝘪𝘰𝘯 t𝘰𝘰𝘭𝘬𝘪𝘵 𝘷0.141276"
	for i=1,#hdr do
		print(hdr[i],i*4-2,4+sin(t()+i/#hdr*4)*.5,3+i%9)
	end
	-- draw controls
	dp=26
	w_len=flr(draw_slider("w𝘰𝘳𝘮 l𝘦𝘯𝘨𝘵𝘩",dp,w_len,w_len_slider)+.5)
	dp+=16
	w_thicc=flr(draw_slider("w𝘰𝘳𝘮 t𝘩𝘪𝘤𝘤𝘯𝘦𝘴𝘴",dp,w_thicc,w_thicc_slider)+.5)
	dp+=16
	w_wigam=flr(draw_slider("w𝘪𝘨𝘨𝘭𝘦 a𝘮𝘰𝘶𝘯𝘵",dp,w_wigam,w_wigam_slider)+.5)
	dp+=16
	w_wavy=draw_slider("w𝘢𝘷𝘺 a𝘮𝘰𝘶𝘯𝘵",dp,w_wavy,w_wavy_slider)
	-- draw color selector
	dp+=16
	w_col1=draw_colselect("c𝘰𝘭𝘰𝘳 a",dp,w_col1)
	dp+=16
	w_col2=draw_colselect("c𝘰𝘭𝘰𝘳 b",dp,w_col2)
	-- draw edit button
	txt="edit"
	if(debugmode)txt="back"
	w=#txt*2
	rectfill(64-w-2,119,64+w+2,128,12)
	print(txt,64-w+1,121,13)
	if mc==1 and lmc==0 and mx>=64-w-2 and my>=119 and mx<=64+w+2 and my<=128 then
		debugmode = not debugmode
	end
	-- lerp debug menu
	if debugmode then
		dbgx=dbgx*.9
	else
		dbgx=dbgx*.9+(-128*.1)
	end
	-- draw cursor sprite
	spr(0,mx,my)
	flip()
	lmc=mc
goto _