Test aggressive object culling

2022-06-17 20:14:47 +01:00
parent f365f18ee8
commit 261bb0bb6b
11 changed files with 38 additions and 16 deletions
@@ -86,11 +86,12 @@ data World = World
    , _mousePos             :: Point2
    , _cameraCenter         :: Point2
    , _cameraRot            :: Float
-    , _cameraZoom           :: Float
+    , _cameraZoom           :: Float  -- smaller values zoom out
    , _itemZoom             :: Float
    , _defaultZoom          :: Float
    , _cameraViewFrom       :: Point2
    , _viewDistance         :: Float
+    , _boundBox             :: [Point2]
    , _creatures            :: IM.IntMap Creature
    , _creaturesZone        :: Zone (IM.IntMap Creature)
    , _creatureGroups       :: IM.IntMap CrGroupParams