Tweak debug display

2025-10-15 12:17:44 +01:00
parent 365821e969
commit e139499ed2
7 changed files with 174 additions and 137 deletions
@@ -118,6 +118,8 @@ mouseCursorType u = case u ^. uvWorld . input . mouseContext of
    OverTerminal _ ts -> drawCursorByTerminalStatus ts
    OutsideTerminal -> rotate (pi / 4) $ drawPlus 5
    MouseGameRotate -> rotate a (drawVerticalDoubleArrow 5)
+    OverDebug {} -> drawPlus 5 <> rotate (pi/4) (drawPlus 5)
+    --OverDebug db i -> scale 0.1 0.1 $ text (show db ++ show i)
  where
    w = u ^. uvWorld
    selsec = u ^? uvWorld . hud . diSelection . _Just . slSec