justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Remove bloom trails

Browse Source
This commit is contained in:
justin
2021-07-10 15:12:51 +02:00
parent c63b293ea5
commit 50295daeba
2 changed files with 18 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Render.hs
+12 -12
View File
@@ -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