Use downscaling to sixteenth res for bloom

src/Preload/Render.hs

@@ -179,8 +179,8 @@ preloadRender = do
     fboLightingName <- setupFramebufferGivenStencil rboBaseBloomName
 
     fbofullscreen <- newTextureFramebuffer
-    fboHalf1Name <- newTextureFramebuffer
-    fboHalf2Name <- newTextureFramebuffer
+    fbohalf <- newTextureFramebuffer
+    fboquarter <- newTextureFramebuffer
 
     -- reset to default framebuffer, ready for drawing direct to screen
     glBindFramebuffer GL_FRAMEBUFFER 0
@@ -208,8 +208,8 @@ preloadRender = do
             , _barrelShader = (barrelShad,distvbo)
 --            , _fbo2 = framebuf2
             , _fboFullscreen = fbofullscreen
-            , _fboHalf1 = fboHalf1Name
-            , _fboHalf2 = fboHalf2Name
+            , _fboHalf = fbohalf
+            , _fboQuarter = fboquarter
             , _fboLighting = fboLightingName
             , _fboBase = fboBaseName
             , _fboWindow = fbowindow