Refactor framebuffer update

src/Preload/Render.hs

@@ -115,8 +115,8 @@ preloadRender = do
     cloudvbo <- setupVBO (sum cloudverxsizes)
     (cloudshader, cloudebo)
         <- makeShaderEBO "cloud/basic" [vert, frag] cloudverxsizes pmTriangles cloudvbo
-    framebuf2 <- setupTextureFramebuffer 800 600
-    framebuf3 <- setupTextureFramebuffer 800 600
+    framebuf2 <- newTextureFramebuffer
+    framebuf3 <- newTextureFramebuffer
 
     rboBaseBloomName <- mglCreate glCreateRenderbuffers
     glNamedRenderbufferStorage 
@@ -133,9 +133,11 @@ preloadRender = do
 
     fboShadowName <- setupShadowFramebuffer
 
-    fboHalf1Name <- setupTextureFramebuffer 300 300
-    fboHalf2Name <- setupTextureFramebuffer 300 300
-    fboHalf3Name <- setupTextureFramebuffer 300 300
+    fbooverlay <- newTextureFramebuffer
+
+    fboHalf1Name <- newTextureFramebuffer
+    fboHalf2Name <- newTextureFramebuffer
+    fboHalf3Name <- newTextureFramebuffer
 
     -- reset to default framebuffer, ready for drawing direct to screen
     glBindFramebuffer GL_FRAMEBUFFER 0
@@ -183,6 +185,7 @@ preloadRender = do
             , _fboCloud = fboCloudName
             , _fboBloom = fboBloomName
             , _fboPos = fboPosName
+            , _fboOverlay = fbooverlay
             , _rboBaseBloom = rboBaseBloomName
             , _matUBO = theUBO
             , _orthonormalMatUBO = orthonormalUBO