Separate out concrete part of world

src/Dodge/Render/Lights.hs

@@ -9,13 +9,13 @@ import Data.Maybe
 import qualified IntMapHelp as IM
 
 lightsToRender :: Configuration -> World -> [(Point3,Float,Point3)]
-lightsToRender cfig w = mapMaybe getLS (IM.elems $ _lightSources w) 
-    ++ mapMaybe getTLS (_tempLightSources w)
+lightsToRender cfig w = mapMaybe getLS (IM.elems $ _lightSources (_cWorld w)) 
+    ++ mapMaybe getTLS (_tempLightSources (_cWorld w))
   where 
     getLS  = getlsparam . _lsParam
     getTLS = getlsparam . _tlsParam 
-    cbox = _boundBox w
-    cpos = _cameraCenter w
+    cbox = _boundBox (_cWorld w)
+    cpos = _cameraCenter (_cWorld w)
     getlsparam ls
         | not (pointInPolygon lpos cbox) && extraculltest = Nothing
         | otherwise = Just ( _lsPos ls,  rad^(2::Int) , _lsCol ls)