From f32b212b473a671229c1af73cf4c27fbcb6b999d Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Tue, 26 Apr 2022 09:20:53 +0100
Subject: [PATCH] Cleanup 2

---
 src/Dodge/Render.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/Dodge/Render.hs b/src/Dodge/Render.hs
index a4676fce6..d00e2248b 100644
--- a/src/Dodge/Render.hs
+++ b/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)