Cleanup

src/Dodge/CullBox.hs

@@ -3,7 +3,7 @@ module Dodge.CullBox
     ) where
 import Dodge.Data
 --import Dodge.GameRoom
---import Dodge.Base
+import Dodge.Base.Window
 --import Dodge.Zone
 import Geometry
 import Dodge.Update.Camera
@@ -13,8 +13,10 @@ import Dodge.Update.Camera
 
 cullBox :: Configuration -> World -> [Point2]
 --cullBox cfig w = farWallPoints cp w
-cullBox cfig w' = let (n,s,e,w) = farWallDistDirection (_cameraCenter w') cfig w'
-    in map ((+.+ _cameraCenter w') . rotateV (_cameraRot w') ) $ rectNSWE n (negate s) (negate w) e
+cullBox cfig w' 
+    | debugOn Bound_box_screen cfig = screenPolygon cfig w'
+    | otherwise = let (n,s,e,w) = farWallDistDirection (_cameraCenter w') cfig w'
+            in map ((+.+ _cameraCenter w') . rotateV (_cameraRot w') ) $ rectNSWE n (negate s) (negate w) e
 --    --mapMaybe (fmap (fst . _wlLine . snd) . f) $ screenPolygon cfig w
 --  where
 --    grs = filter (pointInOrOnPolygon cp . _grBound) (_gameRooms w)