Work on rendering

src/Preload/Render.hs

@@ -17,7 +17,6 @@ import qualified Data.Vector.Mutable as MV
 import Foreign
 import Framebuffer.Setup
 import Shader
-import Shader.Bind
 import Shader.Compile
 import Shader.Data
 import Shader.Parameters
@@ -145,14 +144,7 @@ preloadRender = do
             ptr
             0
     screentexturevao <- setupVAOvbo' [2,2] 4 screentexturevbo
-
---    fsShad <- makeShaderSized "texture/simple" [vert, frag] [2, 2] 4 ETriangleStrip
---    -- note we directly poke the shader vertex data here
---    -- could possibly use an indirect draw call
---    pokeArray (shadVBOptr fsShad) $ concat cornerList
-
     fsShad <- makeShaderUsingVAO "texture/simple" [vert, frag] ETriangleStrip screentexturevao
-
     bloomBlurShad <- makeShaderUsingVAO "texture/bloomBlur" [vert, frag] ETriangleStrip screentexturevao
     colorBlurShad <- makeShaderUsingVAO "texture/colorBlur" [vert, frag] ETriangleStrip screentexturevao
     grayscaleShad <- makeShaderUsingVAO "texture/grayscale" [vert, frag] ETriangleStrip screentexturevao