pyrex/chameleonic
1
1
Fork 1
Code Issues Pull Requests 2 Packages Projects Releases Wiki Activity

Better debug mouse #20

Merged
pyrex merged 2 commits from kistaro/chameleonic:better_debug_mouse into main 2023-01-02 00:31:34 +00:00
Conversation 3 Commits 2 Files Changed 1 +11 -6
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 60c1ccd85d - Show all commits

15
chameleonic.p8
View File

@ -1846,16 +1846,21 @@ function debugmouse:init()
end end
debugflicker=split"5,6,7,15,14,8,2,4,9,10,11,3,12,13" debugflicker=split"5,6,7,15,14,8,2,4,9,10,11,3,12,13"
debugchs = split" ,x, ,□" debugchs = split" ,□,x"
function debugmouse:draw3() function debugmouse:draw3()
if (stat(34) == 0) return if (stat(34) == 0) return
pal(15,cycle(debugflicker,1.5)) pal(15,cycle(debugflicker,1.5))
local x, y, c = stat(32), stat(33), cycle(debugchs,2) local x, y, c = stat(32), stat(33), debugchs[stat(34) & 0x3]
if (c == " ") spr(50,x,y) if not c or c == " " then
spr(50,x,y)
else
print(c,x,y,15) print(c,x,y,15)
local px, py = mid(0,x,89), mid(0, y > 111 and y - 12 or y + 6, 117) end
print("("..x..", "..y..")\n["..(x\8)..", "..(y\8).."]",px,py,15) print(x..", "..y,
mid(0,x,97),
mid(0, y > 117 and y - 6 or y + 6, 117),
15)
pal() pal()
end end