Test aggressive object culling

src/Dodge/Default/World.hs

@@ -6,6 +6,7 @@ import Dodge.Bounds
 --import Dodge.Menu
 --import Picture
 import Geometry.Data
+import Geometry.Polygon
 --import Picture.Texture
 --import Data.Preload
 
@@ -105,6 +106,7 @@ defaultWorld = World
     , _genRooms = IM.empty
     , _deathDelay = Nothing
     , _testFloat = 0
+    , _boundBox = square 1000
     }
 youLight :: TempLightSource
 youLight = TLS