Cleanup shaders

src/Dodge/Render.hs

@@ -242,9 +242,10 @@ doDrawing' win pdata u = do
     --    withArray [0, 0, 0, 0] $
     --        glClearNamedFramebufferfv (pdata ^. fboHalf2 . _1 . unFBO) GL_COLOR 0
     --    glBlendFunc GL_ONE GL_ONE_MINUS_SRC_ALPHA
-    drawShader (_bloomBlurShader pdata) 4
+    glUseProgram (_bloomBlurShader pdata)
+    glDrawArrays GL_TRIANGLES 0 6
     when (cfig ^. gr_bloom) $ do
-        replicateM_ 2 $
+        replicateM_ 1 $
             pingPongBetween
                 (_fboHalf1 pdata)
                 (_fboHalf2 pdata)
@@ -317,8 +318,7 @@ doDrawing' win pdata u = do
                 ptr
         glBindTextureUnit 0 (pdata ^. fboCloud . _2 . _2 . unTO)
         glDepthMask GL_FALSE
---        drawShader (pdata ^. alphaDivideShader) 4
-        glUseProgram (pdata ^. alphaDivideShader . shaderUINT)
+        glUseProgram (pdata ^. alphaDivideShader)
         glDrawArrays GL_TRIANGLES 0 6
         ----draw lightmap for cloud buffer
         glDepthMask GL_TRUE
@@ -370,7 +370,6 @@ doDrawing' win pdata u = do
     glBlendFunc GL_SRC_ALPHA GL_ONE_MINUS_SRC_ALPHA
 
     -- bind base buffer for drawing clouds and bloom
-    --glBindFramebuffer GL_FRAMEBUFFER (_unFBO (fst (_fboBase pdata)))
     glBindFramebuffer GL_FRAMEBUFFER (pdata ^. fboBase . _1 . unFBO)
 
     --    --draw shadowed clouds onto base buffer
@@ -385,7 +384,10 @@ doDrawing' win pdata u = do
     glBindTextureUnit 2 (pdata ^. fboCloud . _2 . _1 . unTO)
     --glBindTextureUnit 3 (pdata ^. fboCloud . _2 . _2 . unTO)
     glBindTextureUnit 3 (pdata ^. fboPos . _2 . unTO)
-    drawShader (_transparencyCompShader pdata) 4
+    
+    --drawShader (_transparencyCompShader pdata) 4
+    glUseProgram (pdata ^. transparencyCompShader)
+    glDrawArrays GL_TRIANGLES 0 6
 
     --Draw blurred bloom onto base buffer
     glEnable GL_BLEND