Tweak clouds

src/Dodge/Render.hs

@@ -262,6 +262,14 @@ doDrawing' win pdata u = do
     glDepthFunc GL_ALWAYS
     glBindTextureUnit 0 (pdata ^. fboBloom . _2 . unTO)
     glDisable GL_BLEND
+    -- this all needs more tuning + more thought
+    -- a fade effect would be cool, so not to fully reset last frames bloom
+    -- buffers...
+--    withArray [0, 0, 0, 0] $
+--        glClearNamedFramebufferfv (pdata ^. fboHalf1 . _1 . unFBO) GL_COLOR 0
+--    withArray [0, 0, 0, 0] $
+--        glClearNamedFramebufferfv (pdata ^. fboHalf2 . _1 . unFBO) GL_COLOR 0
+--    glBlendFunc GL_ONE GL_ONE_MINUS_SRC_ALPHA
     drawShader (_bloomBlurShader pdata) 4
     when (cfig ^. graphics_bloom) $ do
         replicateM_ 2 $ pingPongBetween 
@@ -377,6 +385,7 @@ doDrawing' win pdata u = do
     --Draw blurred bloom onto base buffer
     glEnable GL_BLEND
     glBlendFunc GL_SRC_ALPHA GL_ONE
+    --glBlendFunc GL_ONE GL_ONE
     glBindTextureUnit 0 (_unTO . snd $ _fboHalf1 pdata)
     drawShader (_fullscreenShader pdata) 4
     glBlendFunc GL_SRC_ALPHA GL_ONE_MINUS_SRC_ALPHA