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
@@ -188,6 +188,8 @@ clipZoom = min 20 . max 0.2
 setViewDistance :: Configuration -> World -> World
 setViewDistance cfig w = w & viewDistance 
    .~ sqrt (halfWidth cfig ** 2 + halfHeight cfig ** 2) / _cameraZoom w
+--    .~ max (halfWidth cfig) (halfHeight cfig) / _cameraZoom w
+

 -- TODO consider adding visible/nearby creatures as view points
 farWallDist :: Point2 -> Configuration -> World -> Float