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
@@ -113,8 +113,9 @@ viewBoundaries cfig w

 viewClipBounds :: Configuration -> World -> Picture
 viewClipBounds cfig w
-    | _debug_view_clip_bounds cfig 
--         = setLayer 5 $ color green $ concatMap (polygonWire . _cpPoints) (_roomClipping w)
+    | _debug_view_clip_bounds cfig == AllRoomClipBoundaries
+         = setLayer 5 $ color green $ concatMap (polygonWire . _cpPoints) (_roomClipping w)
+    | _debug_view_clip_bounds cfig == IntersectingRoomClipBoundaries
        = setLayer 5 $ f (_roomClipping w)
    | otherwise = []
  where