Enable more control of bloom using hdr

2021-08-20 15:06:55 +02:00
parent 822c65e0cc
commit 778d18276b
6 changed files with 24 additions and 22 deletions
@@ -112,7 +112,7 @@ doDrawing pdata w = do
    textureBinding Texture2D $= Just (snd $ _fboBloom pdata)
    blend $= Disabled
    drawShader (_bloomBlurShader pdata) 4
-    replicateM_ 3 $ pingPongBetween (_fboFourth1 pdata) (_fboFourth2 pdata) (_bloomBlurShader pdata)
+    replicateM_ 2 $ pingPongBetween (_fboFourth1 pdata) (_fboFourth2 pdata) (_bloomBlurShader pdata)
    blend $= Enabled
    viewport $= (Position 0 0
        , divideSize (w ^. config . shadow_resolution) $ Size (round $ fstV2 wins) (round $ sndV2 wins))