Clouds are affected by (underlying) lightmap

src/Dodge/Render.hs

@@ -122,13 +122,6 @@ doDrawing pdata w = do
     viewport $= (Position 0 0
         , divideSize (w ^. config . shadow_resolution) $ Size (round $ fstV2 wins) (round $ sndV2 wins))
 
---    bindFramebuffer Framebuffer $= fst (_fboColor pdata)
---    clear [ColorBuffer]
---    depthMask $= Disabled
---    blendEquation $= FuncAdd
---    renderLayer 3 shadV layerCounts
---    renderLayer 4 shadV layerCounts
---    renderLayer 5 shadV layerCounts
 --
 --    depthMask $= Enabled
     -- this is not ideal if the original is not divisible by 2
@@ -138,6 +131,27 @@ doDrawing pdata w = do
     colorMask $= Color4 Enabled Enabled Enabled Enabled
     clearColor $= Color4 0 0 0 0
 
+    bindFramebuffer Framebuffer $= fst (_fboColor pdata)
+    clearColor $= Color4 0 0 0 0
+    clear [ColorBuffer]
+    depthFunc $= Just Lequal
+    depthMask $= Disabled
+    blendFuncSeparate $= ((SrcAlpha,OneMinusSrcAlpha),(SrcAlpha,One))
+    --blendFunc $= (SrcAlpha,One)
+    renderLayer 2 shadV layerCounts
+    clearColor $= Color4 0 0 0 0
+    depthMask $= Enabled
+    depthMask $= Disabled
+    depthFunc $= Just Always
+    textureBinding Texture2D $= Just (snd $ _fboLighting pdata)
+    blend $= Enabled
+    --blendFunc $= (Zero, OneMinusSrcAlpha)
+    blendFuncSeparate $= ((Zero, OneMinusSrcColor),(Zero, One))
+    drawShader (_fullscreenShader pdata) 4
+    blendFunc $= (SrcAlpha, OneMinusSrcAlpha)
+--    renderLayer 4 shadV layerCounts
+--    renderLayer 5 shadV layerCounts
+
     --blend $= Disabled
     depthMask $= Disabled
     depthFunc $= Just Always
@@ -152,7 +166,6 @@ doDrawing pdata w = do
     drawShader (_fullscreenShader pdata) 4
     blendFunc $= (SrcAlpha, OneMinusSrcAlpha)
 
-    --textureBinding Texture2D $= Just (snd $ _fboColor pdata)
     --drawShader (_colorBlurShader pdata) 4
     blendFunc $= (SrcAlpha, One)
     textureBinding Texture2D $= Just (snd $ _fboFourth1 pdata)
@@ -161,10 +174,11 @@ doDrawing pdata w = do
 --    textureBinding Texture2D $= Just (snd $ _fboBloom pdata)
 --    drawShader (_fullscreenShader pdata) 4
 
-    depthFunc $= Just Lequal
-    --mapM_ (uncurry $ drawShaderLay 2) (vnums IM.! 2)
-    renderLayer 2 shadV layerCounts
+    textureBinding Texture2D $= Just (snd $ _fboColor pdata)
+    drawShader (_fullscreenShader pdata) 4
+    --renderLayer 2 shadV layerCounts
     renderWindows pdata windowPoints
+    depthFunc $= Just Lequal
 
     viewport $= (Position 0 0, Size (round $ fstV2 wins) (round $ sndV2 wins))
     depthFunc $= Just Always