Camera position refactor

2022-10-28 15:32:46 +01:00
parent 27fe1c7a96
commit 2e7cd0aec2
24 changed files with 184 additions and 163 deletions
@@ -15,8 +15,8 @@ lightsToRender cfig w =
  where
    getLS = getlsparam . _lsParam
    getTLS = getlsparam . _tlsParam
-    cbox = w ^. cWorld . lWorld . cwCam . cwcBoundBox
-    cpos = w ^. cWorld . lWorld . cwCam . cwcCenter
+    cbox = w ^. cWorld . lWorld . camPos . camBoundBox
+    cpos = w ^. cWorld . lWorld . camPos . camCenter
    getlsparam ls
        | not (pointInPolygon lpos cbox) && extraculltest = Nothing
        | otherwise = Just (_lsPos ls, rad ^ (2 :: Int), _lsCol ls)