Cleanup 2

src/Dodge/Render.hs

@@ -167,7 +167,7 @@ doDrawing pdata u = do
     replicateM_ 9 $ pingPongBetween (_fboHalf1 pdata) (_fboHalf2 pdata) (_bloomBlurShader pdata)
     blend $= Enabled
     setViewportSize (round winx `div` resFact) (round winy `div` resFact)
-    --draw clouds
+    --draw clouds onto cloud buffer
     bindFramebuffer Framebuffer $= fst (_fboCloud pdata)
     depthFunc $= Just Lequal
     depthMask $= Disabled
@@ -209,8 +209,9 @@ doDrawing pdata u = do
     blendFuncSeparate $= ((Zero, OneMinusSrcColor),(Zero, One))
     drawShader (_fullscreenShader pdata) 4
     blendFunc $= (SrcAlpha, OneMinusSrcAlpha)
-    --Draw blurred bloom onto base buffer
+    -- bind base buffer for drawing bloom then clouds
     bindFramebuffer Framebuffer $= fst (_fboBase pdata)
+    --Draw blurred bloom onto base buffer
     blend $= Enabled
     blendFunc $= (SrcAlpha, One)
     textureBinding Texture2D $= Just (snd $ _fboHalf1 pdata)