Tweak debug display

src/Dodge/Data/Config.hs

@@ -48,9 +48,9 @@ data Config = Config
     , _graphics_world_resolution :: ResFactor
     , _graphics_distortion_resolution :: ResFactor
     , _graphics_num_shadow_casters :: NumShadowCasters
-    , _windowX :: Int
+    , _windowX :: Int --size
     , _windowY :: Int
-    , _windowPosX :: Int
+    , _windowPosX :: Int --position in os
     , _windowPosY :: Int
     , _gameplay_rotate_to_wall :: Bool
     , _debug_view_clip_bounds :: RoomClipping

src/Dodge/Data/Input.hs

@@ -5,6 +5,7 @@
 
 module Dodge.Data.Input where
 
+import Dodge.Data.Config
 import Dodge.Data.Terminal.Status
 import Control.Lens
 import qualified Data.Map.Strict as M
@@ -28,6 +29,7 @@ data MouseContext
     | OverTerminal {_mcoTermID :: Int, _mcoTermStatus :: TerminalStatus}
     | OutsideTerminal
     | MouseGameRotate
+    | OverDebug {_mcoDBBool :: DebugBool, _mcoDBInt :: Int}
     deriving (Show)
 
 data Input = Input