Add view debug option

2021-10-03 18:47:11 +01:00
parent b526517404
commit df9a8ea242
7 changed files with 35 additions and 53 deletions
@@ -44,18 +44,18 @@ debugOptionsMenu  = OptionScreen
    }
 debugMenuOptions :: [MenuOption]
 debugMenuOptions =
-    [ Toggle 
-        ScancodeF 
+    [ Toggle ScancodeF 
        (Just . (config . debug_seconds_frame %~ not))
        (\w -> "SHOW SECONDS/FRAME:" ++ show (_debug_seconds_frame $ _config w))
-    , Toggle 
-        ScancodeC 
+    , Toggle ScancodeC 
        (Just . (config . debug_noclip %~ not))
        (\w -> "NOCLIP:" ++ show (_debug_noclip $ _config w))
-    , Toggle 
-        ScancodeS 
+    , Toggle ScancodeS 
        (Just . (config . debug_cr_status %~ not))
        (\w -> "SHOW CREATURE STATUS:" ++ show (_debug_cr_status $ _config w))
+    , Toggle ScancodeV
+        (Just . (config . debug_view_boundaries %~ not))
+        (\w -> "SHOW VIEW BOUNDARIES:" ++ show (_debug_view_boundaries $ _config w))
    ]
 gameplayOptionsMenu :: ScreenLayer
 gameplayOptionsMenu  = OptionScreen