Add trail to bloom

2021-07-05 21:31:35 +02:00
parent 77d93fabeb
commit be7bf986e2
6 changed files with 28 additions and 2 deletions
@@ -84,12 +84,18 @@ doDrawing pdata w = do
    depthFunc $= Just Always
    --blend $= Disabled
    textureBinding Texture2D $= Just (snd $ _fboBloom pdata)
-    clear [ColorBuffer]
+    --clear [ColorBuffer]
    --blendFunc $= (SrcAlpha,OneMinusSrcAlpha)
+    blendFuncSeparate $= ((Zero,One), (Zero,SrcAlpha))
+    bindShaderBuffers [_fullscreenAlphaHalveShader pdata] [4]
+    drawShader (_fullscreenAlphaHalveShader pdata) 4
    blendFunc $= (One,Zero)
    bindShaderBuffers [_boxBlurShader pdata] [4]
+    blendFunc $= (SrcAlpha,OneMinusSrcAlpha)
    drawShader (_boxBlurShader pdata) 4
+    blendFunc $= (One,Zero)
    pingPongBlur pdata
+    replicateM_ 5 $ pingPongBlur pdata
    --blend $= Enabled

    blendFunc $= (SrcAlpha,OneMinusSrcAlpha)