This commit is contained in:
2022-06-17 21:48:23 +01:00
parent 5053590792
commit a7c03671d3
5 changed files with 12 additions and 13 deletions
+1 -1
View File
@@ -43,7 +43,7 @@ worldSPic cfig w =
filtOn f g = IM.filter (pointIsClose . f) (g w)
--pointIsClose p = dist camCen p < _viewDistance w
pointIsClose = cullPoint w
camCen = _cameraCenter w
--camCen = _cameraCenter w
cullPoint :: World -> Point2 -> Bool
cullPoint w p = pointInPolygon p (_boundBox w)