Refactor lighting shaders

src/Picture/Render.hs

@@ -73,10 +73,8 @@ createLightMap pdata resDiv wallPoints lightPoints (viewFromx,viewFromy) _ = do
     nWalls <- F.foldM (pokeShader $ _lightingOccludeShader pdata) (map Render22 wallPoints)
     bindShaderBuffers [_lightingOccludeShader pdata] [nWalls]
 -- clear buffer to full alpha and furthest depth
-    clearColor $= Color4 0 0 0 1
-    clearDepth $= 1
+-- clearColor is specified in preloadRender
     clear [ColorBuffer,DepthBuffer]
-    depthFunc $= Just Less
 -- draw walls from your point of view in order to set z buffer
     colorMask $= Color4 Disabled Disabled Disabled Disabled
     currentProgram $= Just (_shaderProgram $ _lightingOccludeShader pdata)
@@ -174,27 +172,6 @@ pingPongBlur pdata = do
     generateMipmap' Texture2D
     drawShader (_boxBlurShader pdata) 4
 
-renderBackground 
-    :: RenderData 
-    -> Float            -- Rotation
-    -> Float            -- Zoom
-    -> (Float,Float)    -- Translation
-    -> (Float,Float)    -- Window size
-    -> IO ()
-renderBackground pdata rot camZoom (tranx,trany) (winx,winy) = do
---    depthFunc $= Just Less
--- set drawing for on top
-    --blendFuncSeparate    $= ((SrcAlphaSaturate, OneMinusSrcAlpha), (Zero,One))
--- draw background
-    --bindArrayBuffers 1 $ _vaoBufferTargets $ _shaderVAO $ _backgroundShader pdata
-    bindArrayBuffers 1 $ _vaoVBO $ _shaderVAO $ _backgroundShader pdata
-    currentProgram $= Just (_shaderProgram $ _backgroundShader pdata)
-    bindVertexArrayObject $= Just (_vao $ _shaderVAO $ _backgroundShader pdata)
-    let backPtr = _vboPointer $ _vaoVBO $ _shaderVAO $ _backgroundShader pdata
-    pokeArrayOff backPtr 0 [tranx,trany,rot,camZoom,winx,winy]
-    textureBinding Texture2D $= _textureObject <$> _shaderTexture (_backgroundShader pdata)
-    drawArrays Points 0 1
-
 renderShader
     :: Foldable f
     => FullShader