Progress towards downscaling bloom texture

2021-07-06 14:06:24 +02:00
parent be7bf986e2
commit f5b139a53e
6 changed files with 80 additions and 176 deletions
@@ -168,15 +168,34 @@ pingPongBlur :: RenderData -> IO ()
 pingPongBlur pdata = do
    bindFramebuffer Framebuffer $= fst3 (_fbo3 pdata)
    textureBinding Texture2D $= Just (snd3 $ _fbo2 pdata)
-    textureFilter Texture2D $= ((Linear',Just Linear') , Linear')
-    generateMipmap' Texture2D
-    drawShader (_boxBlurShader pdata) 4
+    --textureFilter Texture2D $= ((Linear',Just Linear') , Linear')
+    --generateMipmap' Texture2D
+    drawShader (_bloomBlurShader pdata) 4

    bindFramebuffer Framebuffer $= fst3 (_fbo2 pdata)
    textureBinding Texture2D $= Just (snd3 $ _fbo3 pdata)
-    textureFilter Texture2D $= ((Linear',Just Linear') , Linear')
-    generateMipmap' Texture2D
-    drawShader (_boxBlurShader pdata) 4
+    --textureFilter Texture2D $= ((Linear',Just Linear') , Linear')
+    --generateMipmap' Texture2D
+    drawShader (_bloomBlurShader pdata) 4
+
+-- assumes that vertices have already been sent to the shader
+pingPongBetween 
+    :: (FramebufferObject,TextureObject)
+    -> (FramebufferObject,TextureObject)
+    -> FullShader
+    -> IO ()
+pingPongBetween (fb1,to1) (fb2,to2) fs = do
+    bindFramebuffer Framebuffer $= fb2
+    textureBinding Texture2D $= Just to1
+--    textureFilter Texture2D $= ((Linear',Just Linear') , Linear')
+--    generateMipmap' Texture2D
+    drawShader fs 4
+
+    bindFramebuffer Framebuffer $= fb1
+    textureBinding Texture2D $= Just to2
+--    textureFilter Texture2D $= ((Linear',Just Linear') , Linear')
+--    generateMipmap' Texture2D
+    drawShader fs 4

 renderShader
    :: Foldable f