Provisional working coloured lights

2021-08-21 12:34:49 +02:00
parent e35b95bf36
commit b396d6c857
9 changed files with 30 additions and 26 deletions
@@ -220,7 +220,7 @@ wallsToList :: [((Point2,Point2),Point4)] -> [Float]
 wallsToList = concatMap (\((V2 a b,V2 c d),V4 e f g h) -> [a,b,c,d,e,f,g,h])


-lightsForGloom :: World -> [(Point3,Float,Float)]
+lightsForGloom :: World -> [(Point3,Float,Point3)]
 lightsForGloom w = map getLS (IM.elems $ _lightSources w) ++ map getTLS (_tempLightSources w)
  where 
    getLS ls  = ( _lsPos ls,  _lsRad ls , _lsIntensity ls)