Commit before implementing downscaled resolution

src/Preload/Render.hs

@@ -11,10 +11,11 @@ import Shader.Compile
 import Shader.AuxAddition
 import Shader.Parameters
 import Shader.Bind
+import Framebuffer.Setup
 import Data.Preload.Render
 
 import Graphics.Rendering.OpenGL hiding (Point,translate,scale,imageHeight)
-import Graphics.GL.Core43
+--import Graphics.GL.Core43
 --import Control.Lens
 import Control.Monad
 import Foreign
@@ -100,7 +101,7 @@ preloadRender = do
     rboLightingName <- genObjectName
     bindRenderbuffer Renderbuffer $= rboLightingName
     renderbufferStorage Renderbuffer Depth24Stencil8 (RenderbufferSize 800 600)
-    fboLightingName <- newFramebufferGivenStencilAlpha rboLightingName
+    fboLightingName <- newFramebufferGivenStencil rboLightingName
 
     rboBaseBloomName <- genObjectName
     bindRenderbuffer Renderbuffer $= rboBaseBloomName
@@ -156,6 +157,7 @@ preloadRender = do
         , _rboBaseBloom = rboBaseBloomName
         , _matUBO = theUBO
         }
+--------------------end preloadRender
 cornerList :: [[Float]]
 cornerList =
         [[-1, 1,0,1]
@@ -170,51 +172,7 @@ cornerListNoCoord =
         ,[-1,-1]
         ,[ 1,-1]
         ]
---------------------end preloadRender
-
-newFramebufferGivenStencil 
-    :: RenderbufferObject 
-    -> IO (FramebufferObject, TextureObject)
-newFramebufferGivenStencil rboName = do
-    fboName <- genObjectName
-    bindFramebuffer Framebuffer $= fboName
-    toName <- genObjectName
-    framebufferRenderbuffer Framebuffer DepthStencilAttachment Renderbuffer rboName
-    fboStatus <- framebufferStatus Framebuffer
-    print fboStatus
-    return (fboName,toName)
-
-newFramebufferGivenStencilAlpha
-    :: RenderbufferObject 
-    -> IO (FramebufferObject, TextureObject)
-newFramebufferGivenStencilAlpha rboName = do
-    fboName <- genObjectName
-    bindFramebuffer Framebuffer $= fboName
-    toName <- genObjectName
-    framebufferRenderbuffer Framebuffer DepthStencilAttachment Renderbuffer rboName
-    fboStatus <- framebufferStatus Framebuffer
-    print fboStatus
-    return (fboName,toName)
     
-setupTextureFramebuffer 
-    :: GLsizei
-    -> GLsizei
-    -> IO (FramebufferObject, TextureObject)
-setupTextureFramebuffer x y = do
-    fboName <- genObjectName
-    bindFramebuffer Framebuffer $= fboName
-
-    fboTO <- genObjectName
-    textureBinding Texture2D $= Just fboTO
-    glTexStorage2D GL_TEXTURE_2D 1 GL_RGBA8 x y
-    textureFilter Texture2D $= minMagFilter
-    framebufferTexture2D Framebuffer (ColorAttachment 0) Texture2D fboTO 0
-    fboStatus <- framebufferStatus Framebuffer
-    print fboStatus
-    return (fboName, fboTO)
-
-minMagFilter :: ((TextureFilter, Maybe TextureFilter),TextureFilter)
-minMagFilter = ((Nearest,Nothing),Nearest)
 
 cleanUpRenderPreload :: RenderData -> IO ()
 cleanUpRenderPreload pd = do