Commit before pushing more input events into update

2022-10-29 22:33:10 +01:00
parent afaef480db
commit e3155752ba
36 changed files with 121 additions and 147 deletions
@@ -15,8 +15,8 @@ lightsToRender cfig w =
  where
    getLS = getlsparam . _lsParam
    getTLS = getlsparam . _tlsParam
-    cbox = w ^. cWorld . lWorld . camPos . camBoundBox
-    cpos = w ^. cWorld . lWorld . camPos . camCenter
+    cbox = w ^. cWorld . camPos . camBoundBox
+    cpos = w ^. cWorld . camPos . camCenter
    getlsparam ls
        | not (pointInPolygon lpos cbox) && extraculltest = Nothing
        | otherwise = Just (_lsPos ls, rad ^ (2 :: Int), _lsCol ls)