Cleanup shaders

2025-11-13 17:52:01 +00:00
parent 0ea7af4bdd
commit a7a11ccc03
12 changed files with 142 additions and 205 deletions
@@ -32,10 +32,5 @@ renderDataResizeUpdate cfig rdata = do
        (bh, bmid) = BS.breakSubstring "(" bbFrag
        (_, btt) = BS.breakSubstring ")" bmid
        bbFrag' = BS.append bh $ BS.append (BSC.pack $ '(' : show xsize ++ "," ++ show ysize) btt
-    bbShad <-
-        makeByteStringShaderUsingVAO
-            "bloomBlur"
-            [(vert, bbVert), (frag, bbFrag')]
-            pmTriangleStrip
-            (rdata ^. screenTextureVAO)
+    bbShad <- makeShaderProgram "bloomBlur" [(vert, bbVert), (frag, bbFrag')]
    return rdata'{_bloomBlurShader = bbShad}