Clamp framebuffer textures to edges

src/Preload/Render.hs

@@ -128,7 +128,7 @@ preloadRender = do
     bloomBlurShad <- makeSourcedShader "texture/bloomBlur" [vert, frag]
     lightingTextureShad <- makeSourcedShader "lighting/texture" [vert, frag]
     barrelShad <- makeShaderVBO "texture/barrel" [vert, geom, frag] (toFloatVAs [2, 2, 2, 1]) pmPoints
-    -- blank wallShader
+
     putStrLn "Setup floor VBO, shader"
     flvbo <- mglCreate glCreateBuffers
     flptr <- mallocArray (8 * 65536)
@@ -142,8 +142,7 @@ preloadRender = do
     chptr <- mallocArray (2 * 65536)
     let chasmvbo = VBO chvbo chptr (2 * floatSize)
     chasmshader <- makeSourcedShader "chasm" [vert]
-    framebuf2 <- newTextureFramebuffer
-    framebuf3 <- newTextureFramebuffer
+
 
     putStrLn "Setup framebuffers"
     rboBaseBloomName <- mglCreate glCreateRenderbuffers
@@ -157,6 +156,9 @@ preloadRender = do
     fboPosName <- setupFramebufferGivenStencil rboBaseBloomName
     fboLightingName <- setupFramebufferGivenStencil rboBaseBloomName
 
+    framebuf2 <- newTextureFramebuffer
+    framebuf3 <- newTextureFramebuffer
+
     fboHalf1Name <- newTextureFramebuffer
     fboHalf2Name <- newTextureFramebuffer
 
@@ -205,7 +207,6 @@ preloadRender = do
             , _winVBO = winvbo
             , _cloudVBO = cloudvbo
             , _cloudShader = cloudshader
---            , _screenTextureVAO = screentexturevao
             , _dummyVAO = dummyvao
             }