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

Don't draw shadowed walls

Browse Source
This commit is contained in:
justin
2025-11-14 11:06:39 +00:00
parent db62de75d8
commit 0eb2fe50a6
2 changed files with 4 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Render.hs
-4
View File
@@ -330,10 +330,6 @@ doDrawing' win pdata u = do
-- bind base buffer for drawing clouds and bloom -- bind base buffer for drawing clouds and bloom
glBindFramebuffer GL_FRAMEBUFFER (pdata ^. fboBase . _1 . unFBO) glBindFramebuffer GL_FRAMEBUFFER (pdata ^. fboBase . _1 . unFBO)
-- --draw shadowed clouds onto base buffer
-- glBindTextureUnit 0 (pdata ^. fboCloud . _2 . _1 . unTO)
-- drawShader (_fullscreenShader pdata) 4
glBlendFunc GL_SRC_ALPHA GL_ONE_MINUS_SRC_ALPHA glBlendFunc GL_SRC_ALPHA GL_ONE_MINUS_SRC_ALPHA
-- --draw windows onto base buffer -- --draw windows onto base buffer
glBlendFunc GL_SRC_ALPHA GL_ONE_MINUS_SRC_ALPHA glBlendFunc GL_SRC_ALPHA GL_ONE_MINUS_SRC_ALPHA
src/Dodge/Render/Walls.hs
+4 -2
View File
@@ -45,10 +45,12 @@ wallsToDraw w =
-- g (V2 i j) = w ^? wlZoning . znObjects . ix i . ix j -- g (V2 i j) = w ^? wlZoning . znObjects . ix i . ix j
wlOpaqueDraw :: Wall -> Bool wlOpaqueDraw :: Wall -> Bool
wlOpaqueDraw wl = wlIsOpaque wl && _wlHeight wl == 100 wlOpaqueDraw wl = wlIsOpaque wl && _wlHeight wl == 100 && _wlUnshadowed wl
wlSeeThroughDraw :: Wall -> Bool wlSeeThroughDraw :: Wall -> Bool
wlSeeThroughDraw wl = wlIsSeeThrough wl && _wlHeight wl == 100 wlSeeThroughDraw wl = wlIsSeeThrough wl
&& _wlHeight wl == 100
&& _wlUnshadowed wl
getWallSPic :: Wall -> SPic getWallSPic :: Wall -> SPic
getWallSPic wl = case wl ^? wlOpacity . opDraw of getWallSPic wl = case wl ^? wlOpacity . opDraw of