Add aggressive light culling

src/Dodge/CullBox.hs

@@ -0,0 +1,23 @@
+module Dodge.CullBox 
+    (cullBox
+    ) where
+import Dodge.Data
+import Dodge.GameRoom
+import Dodge.Base
+import Dodge.Zone
+import Geometry
+import Dodge.Update.Camera
+import Shape
+
+import Data.Maybe (mapMaybe)
+
+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
+--    --mapMaybe (fmap (fst . _wlLine . snd) . f) $ screenPolygon cfig w
+--  where
+--    grs = filter (pointInOrOnPolygon cp . _grBound) (_gameRooms w)
+--    cp = _cameraCenter w
+--    f p = collidePointWallsWall cp p $ wallsAlongLine cp p w
+--