More cleverly set maximum view distance for rectangular window sizes

2022-06-26 11:30:02 +01:00
parent 15b98e38ac
commit 6c571d1878
7 changed files with 27 additions and 28 deletions
@@ -100,6 +100,7 @@ data World = World
    , _cameraViewFrom       :: Point2
    , _viewDistance         :: Float
    , _boundBox             :: [Point2]
+    , _boundDist            :: (Float,Float,Float,Float) -- NSEW, S and W negative
    , _creatures            :: IM.IntMap Creature
    , _creaturesZone        :: Zone (IM.IntMap Creature)
    , _creatureGroups       :: IM.IntMap CrGroupParams