Cleanup creature picture

src/Dodge/Render.hs

@@ -121,7 +121,7 @@ doDrawing pdata w = do
     textureBinding Texture2D $= Just (snd $ _fboBloom pdata)
     blend $= Disabled
     drawShader (_bloomBlurShader pdata) 4
-    replicateM_ 5 $ pingPongBetween (_fboHalf1 pdata) (_fboHalf2 pdata) (_bloomBlurShader pdata)
+    replicateM_ 9 $ pingPongBetween (_fboHalf1 pdata) (_fboHalf2 pdata) (_bloomBlurShader pdata)
     blend $= Enabled
     setViewportSize (round winx `div` resFact) (round winy `div` resFact)
     --draw clouds
@@ -137,22 +137,20 @@ doDrawing pdata w = do
     clear [ColorBuffer]
     renderLayer 2 shadV layerCounts
     renderWindows pdata windowPoints
-    if (_cloud_shadows $ _config w)
-        then do
-            ----render transparency depths
-            depthMask $= Enabled
-            blend $= Disabled
-            drawBuffers $= [NoBuffers,FBOColorAttachment 1]
-            renderLayer 2 shadV layerCounts
-            renderWindows pdata windowPoints
-            ----draw lightmap for cloud buffer
-            depthMask $= Disabled
-            blend $= Enabled
-            bindFramebuffer Framebuffer $= fst (_fboLighting pdata)
-            createLightMap pdata lightPoints nWalls nSils nCaps (snd $ snd $ _fboCloud pdata)
-            colorMask $= Color4 Enabled Enabled Enabled Enabled
-            clearColor $= Color4 0 0 0 0
-        else return ()
+    when (_cloud_shadows $ _config w) $ do
+        ----render transparency depths
+        depthMask $= Enabled
+        blend $= Disabled
+        drawBuffers $= [NoBuffers,FBOColorAttachment 1]
+        renderLayer 2 shadV layerCounts
+        renderWindows pdata windowPoints
+        ----draw lightmap for cloud buffer
+        depthMask $= Disabled
+        blend $= Enabled
+        bindFramebuffer Framebuffer $= fst (_fboLighting pdata)
+        createLightMap pdata lightPoints nWalls nSils nCaps (snd $ snd $ _fboCloud pdata)
+        colorMask $= Color4 Enabled Enabled Enabled Enabled
+        clearColor $= Color4 0 0 0 0
     --apply lightmap to cloud buffer
     clearColor $= Color4 0 0 0 0
     bindFramebuffer Framebuffer $= fst (_fboCloud pdata)