Downsample when blurring bloom

2021-08-20 04:14:59 +02:00
parent 6933d610cd
commit 3707716569
4 changed files with 25 additions and 16 deletions
@@ -34,7 +34,7 @@ renderDataResizeUpdate xsize ysize xfull yfull rdata = do
    bbFrag <- BS.readFile "shader/texture/bloomBlur.frag"
    let (bh,bmid) = BS.breakSubstring "(" bbFrag
        (_,btt) = BS.breakSubstring ")" bmid
-        bbFrag' = BS.append bh $ BS.append (BSC.pack $ '(' : show xfull ++ "," ++ show yfull) btt
+        bbFrag' = BS.append bh $ BS.append (BSC.pack $ '(' : show xsize ++ "," ++ show ysize) btt
    --BSC.putStrLn bbFrag'
    bbShad <- makeByteStringShaderUsingVAO "bloomBlur" [(vert,bbVert),(frag,bbFrag')] ETriangleStrip
                (_fullscreenShader rdata)