Add in "linear" lWorld to separate time reversable worlds

src/Dodge/Render/Lights.hs

@@ -10,13 +10,13 @@ import Control.Lens
 
 lightsToRender :: Configuration -> World -> [(Point3, Float, Point3)]
 lightsToRender cfig w =
-    mapMaybe getLS (IM.elems $ _lightSources (_cWorld w))
-        ++ mapMaybe getTLS (_tempLightSources (_cWorld w))
+    mapMaybe getLS (IM.elems $ w ^. cWorld . lWorld . lightSources)
+        ++ mapMaybe getTLS (w ^. cWorld . lWorld . tempLightSources)
   where
     getLS = getlsparam . _lsParam
     getTLS = getlsparam . _tlsParam
-    cbox = w ^. cWorld . cwCam . cwcBoundBox
-    cpos = w ^. cWorld . cwCam . cwcCenter
+    cbox = w ^. cWorld . lWorld . cwCam . cwcBoundBox
+    cpos = w ^. cWorld . lWorld . cwCam . cwcCenter
     getlsparam ls
         | not (pointInPolygon lpos cbox) && extraculltest = Nothing
         | otherwise = Just (_lsPos ls, rad ^ (2 :: Int), _lsCol ls)