Fix wall normals

src/Preload/Render.hs

@@ -49,14 +49,10 @@ preloadRender = do
          nullPtr
         GL_STREAM_DRAW
     let wpVBO = VBO{_vboName = wpVBOname, _vboPtr = wpVBOptr, _vboVertexSize = 8}
---    wpVAOname <- genObjectName
---    bindVertexArrayObject $= Just wpVAOname
     wpVAOname <- mglCreate glCreateVertexArrays
     glBindVertexArray wpVAOname
     glVertexArrayVertexBuffer wpVAOname 0 wpVBOname 0 (fromIntegral $ floatSize * 8) 
     setupVertexAttribPointer wpVAOname 0 4 0
-    --wpColVAOname <- genObjectName
-    --bindVertexArrayObject $= Just wpColVAOname
     wpColVAOname <- mglCreate glCreateVertexArrays
     glBindVertexArray wpColVAOname
     glVertexArrayVertexBuffer wpColVAOname 0 wpVBOname 0 (fromIntegral $ floatSize * 8) 
@@ -72,8 +68,6 @@ preloadRender = do
          nullPtr
         GL_STREAM_DRAW
     let winVBO = VBO{_vboName = winVBOname, _vboPtr = winVBOptr, _vboVertexSize = 8}
-    --winColVAOname <- genObjectName
-    --bindVertexArrayObject $= Just winColVAOname
     winColVAOname <- mglCreate glCreateVertexArrays
     glBindVertexArray winColVAOname
     glVertexArrayVertexBuffer winColVAOname 0 winVBOname 0 (fromIntegral $ floatSize * 8) 
@@ -168,8 +162,6 @@ preloadRender = do
     lightingTextureShad <-
         makeShaderUsingVAO "lighting/texture" [vert, frag] ETriangleStrip fsshadvao
             >>= addUniforms ["lightPos", "lumRad"]
-            -- >>= addUniforms ["lightPos", "lumRad"]
---            >>= addUniforms ["lightID"]
     barrelShad <- makeShader "texture/barrel" [vert, geom, frag] [2, 2, 2, 1] EPoints
     -- blank wallShader
     wallBlankShad <- makeShaderUsingVAO "wall/blank" [vert, geom, frag] EPoints wpColVAO
@@ -181,7 +173,6 @@ preloadRender = do
     textArrayShad <-
         makeShader "texture/arrayPos" [vert, frag] [3, 3] ETriangles
             >>= addTextureArray "data/texture/ayene_wooden_floor_transformed.png"
-    --  >>= addTextureArray "data/texture/ayene_wooden_floor.png"
     -- bind fixed vertex data
     bufferPokedVBO (snd fsShad) 4
     framebuf2 <- setupTextureFramebuffer 800 600
@@ -197,10 +188,8 @@ preloadRender = do
     fboBaseName <- setupFramebuffer3GivenStencil rboBaseBloomName
     fboCloudName <- setupFramebuffer2GivenStencil rboBaseBloomName
     fboBloomName <- setupFramebufferGivenStencil rboBaseBloomName
-    fboColorName <- setupFramebufferGivenStencil rboBaseBloomName
     fboPosName <- setupFramebufferGivenStencil rboBaseBloomName
     fboLightingName <- setupFramebufferGivenStencil rboBaseBloomName
-    --fboLightingHighName <- setupFramebufferGivenStencil rboBaseBloomName
 
     fboShadowName <- setupShadowFramebuffer
 
@@ -254,12 +243,10 @@ preloadRender = do
             , _fboHalf2 = fboHalf2Name
             , _fboHalf3 = fboHalf3Name
             , _fboLighting = fboLightingName
-            --, _fboLightingHigh = fboLightingHighName
             , _fboShadow = fboShadowName
             , _fboBase = fboBaseName
             , _fboCloud = fboCloudName
             , _fboBloom = fboBloomName
-            , _fboColor = fboColorName
             , _fboPos = fboPosName
             , _rboBaseBloom = rboBaseBloomName
             , _matUBO = theUBO