From 9ef1f9b5746fcadc58409a8c5ebffbfdcd64c8f5 Mon Sep 17 00:00:00 2001 From: jgk Date: Thu, 19 Aug 2021 20:53:03 +0200 Subject: [PATCH] Restablish line of sight --- src/Dodge/Render.hs | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/src/Dodge/Render.hs b/src/Dodge/Render.hs index c9e05f800..9f186964f 100644 --- a/src/Dodge/Render.hs +++ b/src/Dodge/Render.hs @@ -74,6 +74,11 @@ doDrawing pdata w = do if w ^. config . wall_textured 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 @@ -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 - , divideSize (w ^. config . shadow_resolution) $ Size (round $ fstV2 wins) (round $ sndV2 wins)) + --viewport $= (Position 0 0 + -- , 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