Don't draw shadowed walls

2025-11-14 11:06:39 +00:00
parent db62de75d8
commit 0eb2fe50a6
2 changed files with 4 additions and 6 deletions
@@ -45,10 +45,12 @@ wallsToDraw w =
 --    g (V2 i j) = w ^? wlZoning . znObjects . ix i . ix j

 wlOpaqueDraw :: Wall -> Bool
-wlOpaqueDraw wl = wlIsOpaque wl && _wlHeight wl == 100
+wlOpaqueDraw wl = wlIsOpaque wl && _wlHeight wl == 100 && _wlUnshadowed wl

 wlSeeThroughDraw :: Wall -> Bool
-wlSeeThroughDraw wl = wlIsSeeThrough wl && _wlHeight wl == 100
+wlSeeThroughDraw wl = wlIsSeeThrough wl 
+    && _wlHeight wl == 100
+    && _wlUnshadowed wl

 getWallSPic :: Wall -> SPic
 getWallSPic wl = case wl ^? wlOpacity . opDraw of