Refactor lighting shaders

src/Preload/Render.hs

@@ -49,10 +49,6 @@ preloadRender = do
     pokeArray (_vboPointer $ _vaoVBO $ _shaderVAO boxBlurShad) $ concat cornerList
     grayscaleShad <- makeShader "texture/grayscale" [vert,frag] [2,2] TriangleStrip $ const cornerList
     pokeArray (_vboPointer $ _vaoVBO $ _shaderVAO grayscaleShad) $ concat cornerList
--- background shader
-    bgShad <- makeShader "background" [vert,geom,frag] [4,2] Points pokeBGStrat
-                >>= addTexture "data/texture/marbleSlabs.png"
---                >>= addTexture "data/texture/smudgedDirt.png"
 -- blank wallShader
     wlBlank <- makeShader "wall/blank" [vert,geom,frag] [4,4] Points pokeWPColStrat
 -- textured wallShader
@@ -70,6 +66,10 @@ preloadRender = do
     framebuf3 <- setupFramebufferWithStencil
 -- reset to default framebuffer, ready for drawing direct to screen
     bindFramebuffer Framebuffer $= defaultFramebufferObject
+
+-- set the clearColor to have 1 alpha
+    clearColor $= Color4 0 0 0 1
+
     return $ RenderData
         { _pictureShaders           = [bslist,lslist,cslist,aslist,eslist,bezierQuadShader]
         , _lightingFloorShader      = lightingFloorShad
@@ -79,7 +79,6 @@ preloadRender = do
         , _wallTextureShader        = wlTexture
         , _textureShader            = textShad
         , _textureArrayShader       = textArrayShad
-        , _backgroundShader         = bgShad
         , _fullscreenShader         = fsShad
         , _boxBlurShader            = boxBlurShad
         , _grayscaleShader          = grayscaleShad
@@ -148,7 +147,6 @@ cleanUpRenderPreload pd = do
     mapM_ freeShaderPointers $ _pictureShaders pd
     freeShaderPointers $ _lightingFloorShader pd
     freeShaderPointers $ _lightingOccludeShader pd
-    freeShaderPointers $ _backgroundShader pd
     freeShaderPointers $ _fullscreenShader pd
 
 {-# INLINE pokeBezQStrat #-}