Implement basic config file

src/Picture/Preload.hs

@@ -27,6 +27,7 @@ data RenderData = RenderData
     , _listShaders :: [FullShader RenderType]
     , _spareFBO :: FramebufferObject
     , _fboTexture :: TextureObject
+    , _fboRenderbufferObject :: RenderbufferObject
     }
 
 makeLenses ''RenderData
@@ -73,7 +74,7 @@ preloadRender = do
                 >>= addUniforms ["perpMat"]
 
 -- framebuffer for lighting
-    (fbo,fboTO) <- setupFramebuffer
+    (fbo,fboTO,fboRBO) <- setupFramebuffer
 
 -- reset to default framebuffer, ready for drawing direct to screen
     bindFramebuffer Framebuffer $= defaultFramebufferObject
@@ -86,14 +87,15 @@ preloadRender = do
         , _wallFaceShader    = wlShad
         , _backgroundShader  = bgShad
         , _fullscreenShader  = fsShad
-        , _spareFBO = fbo
-        , _fboTexture = fboTO
+        , _spareFBO              = fbo
+        , _fboTexture            = fboTO
+        , _fboRenderbufferObject = fboRBO
         }
 
 
 --------------------end preloadRender
 
-setupFramebuffer :: IO (FramebufferObject, TextureObject)
+setupFramebuffer :: IO (FramebufferObject, TextureObject,RenderbufferObject)
 setupFramebuffer = do
     fboName <- genObjectName
     bindFramebuffer Framebuffer $= fboName
@@ -113,8 +115,7 @@ setupFramebuffer = do
     fboStatus <- framebufferStatus Framebuffer
     putStrLn $ show fboStatus
 
-    return (fboName, fboTO)
-
+    return (fboName, fboTO, fboRBO)
 
 cleanUpRenderPreload :: RenderData -> IO ()
 cleanUpRenderPreload pd = do