Move towards attaching a position texture to base framebuffer

src/Framebuffer/Setup.hs

@@ -3,6 +3,7 @@
 module Framebuffer.Setup
     ( setupTextureFramebuffer
     , setupFramebufferGivenStencil
+    , setupFramebuffer2GivenStencil 
     ) where
 import Graphics.Rendering.OpenGL hiding (Point,translate,scale,imageHeight)
 import Graphics.GL.Core43
@@ -37,6 +38,18 @@ setupFramebufferGivenStencil rboName = do
     fboStatus <- framebufferStatus Framebuffer
     print fboStatus
     return (fboName,toName)
+setupFramebuffer2GivenStencil 
+    :: RenderbufferObject 
+    -> IO (FramebufferObject, (TextureObject,TextureObject))
+setupFramebuffer2GivenStencil rboName = do
+    fboName <- genObjectName
+    bindFramebuffer Framebuffer $= fboName
+    toName <- genObjectName
+    toName2 <- genObjectName
+    framebufferRenderbuffer Framebuffer DepthStencilAttachment Renderbuffer rboName
+    fboStatus <- framebufferStatus Framebuffer
+    print fboStatus
+    return (fboName,(toName,toName2))
 
 minMagFilter :: ((TextureFilter, Maybe TextureFilter),TextureFilter)
 minMagFilter = ((Nearest,Nothing),Nearest)