justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Slightly less aggressive culling of light sources

Browse Source
This commit is contained in:
justin
2022-06-17 18:37:27 +01:00
parent cbfb417d21
commit f365f18ee8
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Render/Lights.hs
+6 -3
View File
@@ -15,10 +15,13 @@ lightsForGloom cfig w = mapMaybe getLS (IM.elems $ _lightSources w)
getLS = getlsparam . _lsParam getLS = getlsparam . _lsParam
getTLS = getlsparam . _tlsParam getTLS = getlsparam . _tlsParam
cbox = cullBox cfig w cbox = cullBox cfig w
cpos = _cameraCenter w
getlsparam ls getlsparam ls
| not (pointInPolygon lpos cbox) = Nothing | not (pointInPolygon lpos cbox)
| dist (_cameraCenter w) (fst2 $ _lsPos ls) > _viewDistance w + _lsRad ls = Nothing && isNothing (intersectSegPolyFirst lpos (lpos +.+ rad *.* (normalizeV (cpos -.- lpos))) cbox)
| otherwise = Just ( _lsPos ls, _lsRad ls^(2::Int) , _lsCol ls) = Nothing
-- | dist (_cameraCenter w) (fst2 $ _lsPos ls) > _viewDistance w + _lsRad ls = Nothing
| otherwise = Just ( _lsPos ls, rad^(2::Int) , _lsCol ls)
where where
lpos = xyV3 $ _lsPos ls lpos = xyV3 $ _lsPos ls
rad = _lsRad ls rad = _lsRad ls