types: introduce GLOutput into GLRenderer

1 files changed, 11 insertions, 0 deletions

diff --git a/src/LambdaCube/GL/Type.hs b/src/LambdaCube/GL/Type.hs
index 49491ed..bd3f827 100644
--- a/src/LambdaCube/GL/Type.hs
+++ b/src/LambdaCube/GL/Type.hs
@@ -152,6 +152,7 @@ data GLRenderer
     , glTextures        :: Vector GLTexture
     , glSamplers        :: Vector GLSampler
     , glTargets         :: Vector GLRenderTarget
+    , glOutputs         :: [GLOutput]
     , glCommands        :: [GLCommand]
     , glSlotPrograms    :: Vector [ProgramName] -- programs depend on a slot
     , glInput           :: IORef (Maybe InputConnection)
@@ -177,6 +178,16 @@ data GLRenderTarget
     , framebufferDrawbuffers    :: Maybe [GLenum]
     } deriving Eq
 
+data GLOutput
+    = GLOutputDrawBuffer
+      { glOutputFBO           :: GLuint
+      , glOutputDrawBuffer    :: GLenum
+      }
+    | GLOutputRenderTexture
+      { glOutputFBO           :: GLuint
+      , glOutputRenderTexture :: GLTexture
+      }
+
 type GLTextureUnit = Int
 type GLUniformBinding = GLint