From 4efa8405bd9eeec3c16bd8dd92cc5e7b66f8a3ae Mon Sep 17 00:00:00 2001
From: Csaba Hruska <csaba.hruska@gmail.com>
Date: Tue, 9 Jun 2015 11:34:57 +0100
Subject: support for immediate stream data

---
 Backend/GL/Type.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'Backend/GL/Type.hs')

diff --git a/Backend/GL/Type.hs b/Backend/GL/Type.hs
index 80cba6d..db2ad1e 100644
--- a/Backend/GL/Type.hs
+++ b/Backend/GL/Type.hs
@@ -149,6 +149,14 @@ data InputConnection
     , icSlotMapInputToPipeline  :: Vector (Maybe SlotName)  -- GLPipelineInput to GLPipeline slot name mapping
     }
 
+data GLStream
+    = GLStream
+    { glStreamCommands    :: IORef [GLObjectCommand]
+    , glStreamPrimitive   :: Primitive
+    , glStreamAttributes  :: Trie (Stream Buffer)
+    , glStreamProgram     :: ProgramName
+    }
+
 data GLPipeline
     = GLPipeline
     { glPrograms        :: Vector GLProgram
@@ -161,6 +169,7 @@ data GLPipeline
     , glSlotNames       :: Vector ByteString
     , glVAO             :: GLuint
     , glTexUnitMapping  :: Trie (IORef GLint)   -- maps texture uniforms to texture units
+    , glStreams         :: Vector GLStream
     }
 
 data GLSampler
@@ -183,6 +192,7 @@ data GLCommand
     | GLSetTexture              !GLenum !GLuint !GLuint
     | GLSetSampler              !GLuint !GLuint
     | GLRenderSlot              !SlotName !ProgramName
+    | GLRenderStream            !StreamName !ProgramName
     | GLClearRenderTarget       [(ImageSemantic,Value)]
     | GLGenerateMipMap          !GLenum !GLenum
     | GLSaveImage               FrameBufferComponent ImageRef                   -- from framebuffer component to texture (image)
-- 
cgit v1.2.3