Start migration to openGLraw, add target parameter to texture params

src/Framebuffer/Setup.hs

@@ -4,6 +4,7 @@ module Framebuffer.Setup
     ( setupTextureFramebuffer
     , setupFramebufferGivenStencil
     , setupFramebuffer2GivenStencil 
+    , setupShadowFramebuffer
     ) where
 import Graphics.Rendering.OpenGL hiding (Point,translate,scale,imageHeight)
 import Graphics.GL.Core43
@@ -28,6 +29,16 @@ setupTextureFramebuffer x y = do
         _ -> putStrLn $ "Texture framebuffer status: " ++ show fboStatus
     return (fboName, fboTO)
 
+setupShadowFramebuffer :: IO (FramebufferObject,(TextureObject,TextureObject))
+setupShadowFramebuffer = do
+    fboName <- genObjectName
+    bindFramebuffer Framebuffer $= fboName
+    toName <- genObjectName
+    toName2 <- genObjectName
+    --textureBinding Texture2DArray $= Just toName
+    --framebufferRenderbuffer Framebuffer DepthStencilAttachment Renderbuffer rboName
+    return (fboName,(toName,toName2))
+
 setupFramebufferGivenStencil 
     :: RenderbufferObject 
     -> IO (FramebufferObject, TextureObject)