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
@@ -41,9 +41,13 @@ worldSPic cfig w =
    <> foldMap mcSPic (filtOn _mcPos _machines)
  where
    filtOn f g = IM.filter (pointIsClose . f) (g w)
-    pointIsClose p = dist camCen p < 30 + _viewDistance w
+    --pointIsClose p = dist camCen p < _viewDistance w
+    pointIsClose = cullPoint w
    camCen = _cameraCenter w

+cullPoint :: World -> Point2 -> Bool
+cullPoint w p = pointInPolygon p (_boundBox w)
+
 extraShapes :: World -> Shape
 extraShapes = _foregroundShape