Remove bloom trails

src/Dodge/Creature/Action.hs

@@ -59,12 +59,16 @@ blinkAction
     -> World 
     -> World
 blinkAction cr w = soundOnce teleSound 
-    . set radDistortion distortionBulge
+    . over radDistortion (distortionBulge ++)
     . set (creatures . ix cid . crPos) p3
     . blinkShockwave cid p3
     $ inverseShockwaveAt cpos 40 2 2 2 w
   where
-    distortionBulge = [(p3,p3 +.+ (40,0), p3 +.+ (0,40),0.5)]
+    distR = 120
+    distortionBulge = 
+        [(p3,p3 +.+ (distR,0), p3 +.+ (0,distR),0.1)
+        ,(cpos,cpos +.+ (distR,0), cpos +.+ (0,distR),1.9)
+        ]
     cid  = _crID cr
     p1 = mouseWorldPos w
     cpos = _crPos cr

src/Dodge/Render.hs

@@ -79,26 +79,26 @@ doDrawing pdata w = do
     _ <- renderFoldable pdata $ picToLTree (Just 3) pic
     _ <- renderFoldable pdata $ picToLTree (Just 4) pic
     _ <- renderFoldable pdata $ picToLTree (Just 5) pic
+
     depthMask $= Enabled
-    --bindFramebuffer Framebuffer $= (fst3 $ _fbo2 pdata)
     bindFramebuffer Framebuffer $= (fst $ _fboFourth1 pdata)
     viewport $= (Position 0 0, Size 300 300)
     depthFunc $= Just Always
-    --blend $= Disabled
     textureBinding Texture2D $= Just (snd $ _fboBloom pdata)
+
+    --colorMask $= Color4 Disabled Disabled Disabled Enabled
+    --blendFunc $= (One,One)
+    --blendEquation $= FuncReverseSubtract
+    --drawShader (_fullscreenAlphaHalveShader pdata) 4
+    --colorMask $= Color4 Enabled Enabled Enabled Enabled
+    --blendEquation $= FuncAdd
+
     --clear [ColorBuffer]
     --blendFunc $= (SrcAlpha,OneMinusSrcAlpha)
-    --blendFuncSeparate $= ((Zero,One), (Zero,SrcAlpha))
-    --drawShader (_fullscreenAlphaHalveShader pdata) 4
-    --blendFunc $= (SrcAlpha,OneMinusSrcAlpha)
-    --drawShader (_bloomBlurShader pdata) 4
-    --blendFuncSeparate $= ((Zero,One),(Zero,SrcAlpha))
-    blendFunc $= (One,One)
-    blendEquation $= FuncReverseSubtract
-    drawShader (_fullscreenAlphaHalveShader pdata) 4
-    blendFunc $= (SrcAlpha,OneMinusSrcAlpha)
-    blendEquation $= FuncAdd
+    blendFunc $= (One,Zero)
+    --textureBinding Texture2D $= Just (snd $ _fboFourth1 pdata)
     drawShader (_bloomBlurShader pdata) 4
+    blendFunc $= (One,Zero)
     replicateM_ 5 $ pingPongBetween (_fboFourth1 pdata) (_fboFourth2 pdata) (_bloomBlurShader pdata)
     --replicateM_ 5 $ pingPongBlur pdata
     --blend $= Enabled