Tweak rendering

src/Preload/Render.hs

@@ -73,6 +73,18 @@ preloadRender = do
 
     frameBufs <- setupFramebuffersSharedStencil 6
 
+    rboLightingName <- genObjectName
+    bindRenderbuffer Renderbuffer $= rboLightingName
+    renderbufferStorage Renderbuffer Depth24Stencil8 (RenderbufferSize 800 600)
+    fboLightingName <- newFramebufferGivenStencil rboLightingName
+
+    rboBaseBloomName <- genObjectName
+    bindRenderbuffer Renderbuffer $= rboBaseBloomName
+    renderbufferStorage Renderbuffer Depth24Stencil8 (RenderbufferSize 800 600)
+
+    fboBaseName <- newFramebufferGivenStencil rboBaseBloomName
+    fboBloomName <- newFramebufferGivenStencil rboBaseBloomName
+
 -- reset to default framebuffer, ready for drawing direct to screen
     bindFramebuffer Framebuffer $= defaultFramebufferObject
 
@@ -99,6 +111,11 @@ preloadRender = do
         , _fbo2                     = framebuf2
         , _fbo3                     = framebuf3
         , _fbos = frameBufs
+        , _fboLighting = fboLightingName
+        , _rboLighting = rboLightingName
+        , _fboBase = fboBaseName
+        , _fboBloom = fboBloomName
+        , _rboBaseBloom = rboBaseBloomName
         , _matUBO = theUBO
         }
 cornerList :: [[Float]]