Tweak

src/Dodge/Render.hs

@@ -253,7 +253,6 @@ doDrawing' win pdata u = do
         ----render transparency depths
         --        glDepthMask GL_TRUE
         glDepthFunc GL_ALWAYS
-        glDisable GL_BLEND
         withArray [GL_NONE, GL_COLOR_ATTACHMENT1, GL_COLOR_ATTACHMENT2] $
             glNamedFramebufferDrawBuffers (pdata ^. fboCloud . _1 . unFBO) 3
         withArray [0, 0, 0, 0] $
@@ -263,7 +262,7 @@ doDrawing' win pdata u = do
         glEnable GL_BLEND
         -- we sum the positions weighted by alpha, and sum the alpha
         glBlendFuncSeparatei 1 GL_SRC_ALPHA GL_ONE GL_ONE GL_ONE
-        -- we sill divide by the alpha later
+        -- we divide by the alpha later
         -- and sum the normals weighted by alpha
         glBlendFunci 2 GL_SRC_ALPHA GL_ONE
         glUseProgram (pdata ^. cloudShader)
@@ -319,7 +318,6 @@ doDrawing' win pdata u = do
     glDepthMask GL_FALSE
     withArray [GL_COLOR_ATTACHMENT0, GL_NONE] $
         glNamedFramebufferDrawBuffers (pdata ^. fboCloud . _1 . unFBO) 2
-    --        $ \ptr -> glDrawBuffers 2 ptr
     glDepthFunc GL_ALWAYS
     glBindTextureUnit 0 (_unTO . snd $ _fboLighting pdata)
     glEnable GL_BLEND