Add lighting on walls, imperfect

2021-03-21 11:11:44 +01:00
parent a8aa19bb18
commit e7b4e54f9a
8 changed files with 140 additions and 68 deletions
@@ -505,13 +505,5 @@ wallsForGloom w = map (linePairs . _wlLine) $ filter (not . _wlIsSeeThrough)

 lightsForGloom' :: World -> [(Point4)]
 lightsForGloom' w = map getLS (IM.elems $ _lightSources w) ++ map getTLS (_tempLightSources w)
-    where getLS ls  = ( fst $ ssls ls, snd $ ssls ls,  _lsRad ls , _lsIntensity ls)
-          getTLS ls = ( fst $ sstls ls,snd $ sstls ls, _tlsRad ls, _tlsIntensity ls)
-          ss' v = rotateV (0 - _cameraRot w) (v -.- _cameraPos w)
-          ss'' (a,b) = (a*2*zoom / _windowX w,b*2*zoom / _windowY w)
-          ss = ss'' . ss'
-          ssls = _lsPos 
-          sstls = _tlsPos 
--          ssls = ss . _lsPos 
--          sstls = ss . _tlsPos 
-          zoom = _cameraZoom w
+    where getLS ls  = ( fst $ _lsPos ls, snd $ _lsPos ls,  _lsRad ls , _lsIntensity ls)
+          getTLS ls = ( fst $ _tlsPos ls,snd $ _tlsPos ls, _tlsRad ls, _tlsIntensity ls)