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]]

src/Preload/Update.hs

@@ -32,15 +32,17 @@ resizeSpareFBO xsize ysize xfull yfull pdata = do
     bindRenderbuffer Renderbuffer $= fboRBO
     renderbufferStorage Renderbuffer Depth24Stencil8 (RenderbufferSize xsize' ysize')
     framebufferRenderbuffer Framebuffer DepthStencilAttachment Renderbuffer fboRBO
-
     fboStatus <- framebufferStatus Framebuffer
     putStrLn $ "after resize, framebuffer status:" ++ show fboStatus
-
     resizeTextureFBO (_fbo2 rdata) xfull yfull
     resizeTextureFBO (_fbo3 rdata) xfull yfull
-
     resizeRBO (snd $ _fbos rdata) xfull yfull
     mapM_ (\p -> resizeFBOTO p xfull yfull) (fst $ _fbos rdata)
+    resizeRBO (_rboBaseBloom rdata) xfull yfull
+    resizeFBOTO (_fboBase rdata) xfull yfull
+    resizeFBOTO (_fboBloom rdata) xfull yfull
+    resizeRBO (_rboLighting rdata)   xsize ysize
+    resizeFBOTO (_fboLighting rdata) xsize ysize
     
     return pdata