From e878717c3196d24e6f2dc3e5ab0ddd2c39122456 Mon Sep 17 00:00:00 2001
From: Kistaro Windrider <kistaro@gmail.com>
Date: Sun, 1 Jan 2023 12:06:22 -0800
Subject: [PATCH] Better debug mouse
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Debug mouse is now its own module, so it can be separated from the hint system, since it is useful for more than just positioning hints. It now has the following enhancements:

1. Clock-based table cyclng now has a helper function (cycle)
2. Debug mouse color cycling is distinct from hint color cycling, so debug position readout remains legible
3. Debug position readout now stays on screen even when the cursor is near or past the edges
4. Debug cursor cycles between a mouse sprite specifically marking the exact pixel that is being sampled, an "X" for text character sizing, and a "□" for positioning the centered 3x3 characters often used as hint target markers
5. Map cell coordinates (in square brackets) are displayed in addition to pixel coordnates (in parentheses)

Sprite 50 is now the mouse cursor. Color 15 is color cycling for debug readouts.

Debug mouse features can be disabled by commenting out `add(real_modules, debugmouse)`.

I've done a little bit of golfing but this is stiill a token expense. I'm going to write a crappy sprintf function to save tokens everywhere we're assembling strings from their component parts.
---
 chameleonic.p8 | 51 ++++++++++++++++++++++++++++++++++++--------------
 1 file changed, 37 insertions(+), 14 deletions(-)

diff --git a/chameleonic.p8 b/chameleonic.p8
index 6dca504..bc9028a 100644
--- a/chameleonic.p8
+++ b/chameleonic.p8
@@ -33,6 +33,11 @@ function gsv(s)
  return ret
 end
 
+function cycle(tbl,period)
+ period = period or 1
+ return tbl[t()%period*#tbl\period+1]
+end
+
 mnames={}
 function names(root)
  local n=mnames[root]
@@ -1787,8 +1792,6 @@ function hints:init()
  end
  menuitem(1,"get hint",function() level.hintlevel+=1 end)
  menuitem(2,"hide hints",function() level.hintlevel=0 end)
- -- debug mode: enable mouse
- poke(0x5f2d,1)
 end
 
 function shdprint(txt,x,y,c)
@@ -1796,16 +1799,10 @@ function shdprint(txt,x,y,c)
  print(txt,x,y,c)
 end
 
-hintflicker={7,10,9,8,8,9,10,7}
+hintflicker=split"7,10,9,8,8,9,10,7"
 function hints:draw2()
  pal()
- local c=hintflicker[t()%1*#hintflicker\1+1]
-  -- debug mode: mouse coord display
- if stat(34) != 0 then
-  local mousex, mousey = stat(32), stat(33)
-  print("x ("..mousex..", "..mousey..")",mousex,mousey,c)
- end
-
+ local c=cycle(hintflicker)
 
  for i,h in ipairs(self[level.ix]) do
   if (i > level.hintlevel) return
@@ -1815,6 +1812,32 @@ function hints:draw2()
  end
 end
 
+-->8
+-- debug mouse support
+
+debugmouse = {}
+
+-- comment this out to disable debug mode
+add(real_modules, debugmouse)
+
+function debugmouse:init()
+ poke(0x5f2d,1)
+end
+
+debugflicker=split"5,6,7,15,14,8,2,4,9,10,11,3,12,13"
+debugchs = split" ,x, ,□"
+
+function debugmouse:draw3()
+ if (stat(34) == 0) return
+ pal(15,cycle(debugflicker,1.5))
+ local x, y, c = stat(32), stat(33), cycle(debugchs,2)
+ if (c == " ") spr(50,x,y)
+ print(c,x,y,15)
+ local px, py = mid(0,x,89), mid(0, y > 111 and y - 12 or y + 6, 117)
+ print("("..x..", "..y..")\n["..(x\8)..", "..(y\8).."]",px,py,15)
+ pal()
+end
+
 __gfx__
 000030000000002200003000eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeff1ff1ff1fffffff1ffffff1fffffff1dddddddd111111110005000000000000
 003333300000332200333330eeffffffffffffffffffffeee5e555e55e555e5eff1ff1ffffffffffffffffffffffffffdddddddd111111110000500000000000
@@ -1840,10 +1863,10 @@ eeee0000cc04405500444400efeeee5e11111111e5eeeefeeeeeeeeeeeeeeeeeffffffffffffffff
 0a000aa4441a91a1bbabbbbbeffeeeeeeeeeeeeeeeeeeffeff1ff1ff11111111ff1111ff00000000000000000000000000000000000000000000000000000000
 00a0044449a110a1bbbbbbbbeeffffffffffffffffffffeeff1ff1ffffffffffffffffff00000000000000000000000000000000000000000000000000000000
 000aa111991111103bbbbbb3eeeeeeeeeeeeeeeeeeeeeeeeff1ff1ffffffffffffffffff00000000000000000000000000000000000000000000000000000000
-00000000991000000000000000000000000000000000000000000000000000000000000000000000000000000000000011111111111111111999999111111111
-00000000990000000000000000000000000000000000000000000000000000000000000000000000000000000000000019911991999999911999999119999999
-00000000990000000000000000000000000000000000000000000000000000000000000000000000000000000000000019977991999999911999999119999999
-00000000090000000000000000000000000000000000000000000000000000000000000000000000000000000000000019911991999117111991199111711999
+0000000099100000f765000000000000000000000000000000000000000000000000000000000000000000000000000011111111111111111999999111111111
+00000000990000007700000000000000000000000000000000000000000000000000000000000000000000000000000019911991999999911999999119999999
+00000000990000006060000000000000000000000000000000000000000000000000000000000000000000000000000019977991999999911999999119999999
+00000000090000005005000000000000000000000000000000000000000000000000000000000000000000000000000019911991999117111991199111711999
 00000000aa0000000000000000000000000000000000000000000000000000000000000000000000000000000000000019911991999117111991199111711999
 0000000077a000000000000000000000000000000000000000000000000000000000000000000000000000000000000019999991999999911997799119999999
 00000007777a00000000000000000000000000000000000000000000000000000000000000000000000000000000000019999991999999911991199119999999