Add extra debug options for viewing room clipping

2022-03-21 07:57:21 +00:00
parent d6285c45b3
commit 13e8ea85d2
5 changed files with 16 additions and 14 deletions
@@ -22,7 +22,7 @@ data Configuration = Configuration
    , _debug_noclip         :: Bool
    , _debug_cr_status      :: Bool
    , _debug_view_boundaries :: Bool
-    , _debug_view_clip_bounds :: Bool
+    , _debug_view_clip_bounds :: RoomClipping
    , _debug_pathing        :: Bool
    }
  deriving (Generic, Show)
@@ -31,6 +31,11 @@ data ResFactor = FullRes | HalfRes | QuarterRes
 instance ToJSON ResFactor where
  toEncoding = genericToEncoding defaultOptions
 instance FromJSON ResFactor
+data RoomClipping = NoRoomClipBoundaries | AllRoomClipBoundaries | IntersectingRoomClipBoundaries
+  deriving (Generic, Show, Eq, Ord, Enum, Bounded)
+instance ToJSON RoomClipping where
+  toEncoding = genericToEncoding defaultOptions
+instance FromJSON RoomClipping
 resFactorNum :: ResFactor -> Int
 resFactorNum rf = case rf of
    FullRes     -> 1
@@ -62,6 +67,6 @@ defaultConfig = Configuration
    , _debug_noclip         = False
    , _debug_cr_status      = False
    , _debug_view_boundaries = False
-    , _debug_view_clip_bounds = False
+    , _debug_view_clip_bounds = NoRoomClipBoundaries
    , _debug_pathing    = False
    }