Camera position refactor

2022-10-28 15:32:46 +01:00
parent 27fe1c7a96
commit 2e7cd0aec2
24 changed files with 184 additions and 163 deletions
@@ -11,7 +11,7 @@ zoneOfSight s w =
    , b <- [minimum ys .. maximum ys]
    ]
  where
-    (xs, ys) = unzip $ map sizeZoneOfPoint $ w ^. cWorld . lWorld . cwCam . cwcBoundBox
+    (xs, ys) = unzip $ map sizeZoneOfPoint $ w ^. cWorld . lWorld . camPos . camBoundBox
    sizeZoneOfPoint (V2 x y) = (f x, f y)
      where
        f = floor . (/ s)