Commit before simplifying some shader types

src/Preload/Render.hs

@@ -144,6 +144,7 @@ preloadRender = do
             ptr
             0
     screentexturevao <- setupVAOvbo' [2,2] 4 screentexturevbo
+    alphadivideshader <- makeShader4UsingVAO "texture2D/alphaDivide" [vert,frag] GL_TRIANGLE_STRIP screentexturevao
     fsShad <- makeShaderUsingVAO "texture/simple" [vert, frag] ETriangleStrip screentexturevao
     bloomBlurShad <- makeShaderUsingVAO "texture/bloomBlur" [vert, frag] ETriangleStrip screentexturevao
     colorBlurShad <- makeShaderUsingVAO "texture/colorBlur" [vert, frag] ETriangleStrip screentexturevao
@@ -170,8 +171,6 @@ preloadRender = do
     (cloudshader, cloudebo)
         <- makeShaderEBO "cloud/basic" [vert, frag] cloudverxsizes (sum cloudverxsizes) 
             GL_TRIANGLES cloudvbo
---    -- bind fixed vertex data
---    bufferPokedVBO (snd fsShad) 4
     framebuf2 <- setupTextureFramebuffer 800 600
     framebuf3 <- setupTextureFramebuffer 800 600
 
@@ -229,6 +228,7 @@ preloadRender = do
             , _windowShader = wallBlankShad{_shadVAO = winColVAO}
 --            , _textureArrayShader = textArrayShad
             , _fullscreenShader = fsShad
+            , _alphaDivideShader = alphadivideshader
             , _lightingTextureShader = lightingTextureShad
             , _bloomBlurShader = bloomBlurShad
             , _colorBlurShader = colorBlurShad