Tweak flamer flame drawing

src/Dodge/Render.hs

@@ -105,18 +105,22 @@ doDrawing pdata w = do
 
     bindFramebuffer Framebuffer $= fst (_fboBloom pdata)
     clear [ColorBuffer]
+    --blendFunc $= (SrcAlpha,OneMinusSrcAlpha)
     blendFunc $= (SrcAlpha,OneMinusSrcAlpha)
-
-    renderLayer 1 shadV layerCounts
-    bindFramebuffer Framebuffer $= fst (_fboColor pdata)
-    clear [ColorBuffer]
+    --blendEquation $= Max
     depthMask $= Disabled
-
     renderLayer 3 shadV layerCounts
-    renderLayer 4 shadV layerCounts
-    renderLayer 5 shadV layerCounts
-
     depthMask $= Enabled
+    renderLayer 1 shadV layerCounts
+--    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
     viewport $= (Position 0 0
         , divideSize (2 * (w ^. config . shadow_resolution)) $ Size (round $ fstV2 wins) (round $ sndV2 wins))
@@ -149,9 +153,8 @@ doDrawing pdata w = do
     drawShader (_fullscreenShader pdata) 4
     blendFunc $= (SrcAlpha, OneMinusSrcAlpha)
 
-    textureBinding Texture2D $= Just (snd $ _fboColor pdata)
-    drawShader (_colorBlurShader pdata) 4
-    --textureBinding Texture2D $= Just (snd3 $ _fbo2 pdata)
+    --textureBinding Texture2D $= Just (snd $ _fboColor pdata)
+    --drawShader (_colorBlurShader pdata) 4
     blendFunc $= (SrcAlpha, One)
     textureBinding Texture2D $= Just (snd $ _fboFourth1 pdata)
     drawShader (_fullscreenShader pdata) 4