Restablish line of sight

src/Dodge/Render.hs

@@ -75,6 +75,11 @@ doDrawing pdata w = do
         then renderTextureWalls pdata nWalls
         else renderBlankWalls pdata nWalls
     
+    -- draw wall occlusions from your point of view
+    drawShader (_lightingOccludeShader pdata) nWalls
+    -- this might only work because the uniform has been correctly set
+    -- elsewhere, beware
+
     renderFoldable shadV $ polysToPic $ foregroundPics w
 
     layerCounts <- UMV.replicate (6*6) 0
@@ -100,7 +105,7 @@ doDrawing pdata w = do
 
     depthMask $= Enabled
     bindFramebuffer Framebuffer $= fst (_fboFourth1 pdata)
-    viewport $= (Position 0 0, Size 300 300)
+    --viewport $= (Position 0 0, Size 300 300)
     depthFunc $= Just Always
     textureBinding Texture2D $= Just (snd $ _fboBloom pdata)
     blend $= Disabled
@@ -110,8 +115,8 @@ doDrawing pdata w = do
     blend $= Enabled
 
     bindFramebuffer Framebuffer $= fst (_fboLighting pdata)
-    viewport $= (Position 0 0
+    --viewport $= (Position 0 0
-        , divideSize (w ^. config . shadow_resolution) $ Size (round $ fstV2 wins) (round $ sndV2 wins))
+    --    , divideSize (w ^. config . shadow_resolution) $ Size (round $ fstV2 wins) (round $ sndV2 wins))
     createLightMap pdata lightPoints nWalls nSils nsurfVs 
     --viewport $= (Position 0 0, Size (round $ fstV2 wins) (round $ sndV2 wins))
     colorMask $= Color4 Enabled Enabled Enabled Enabled