Add new files

src/Shader/Bind.hs

@@ -0,0 +1,53 @@
+module Shader.Bind
+    ( bindShaderLayers
+    , bindShaderBuffers
+    , bindShader
+    ) where
+import Shader.Data
+import Shader.Parameters
+--import Shader.ExtraPrimitive
+
+import Graphics.Rendering.OpenGL hiding (Line,translate,scale,imageHeight,Polygon,Color,T)
+import Foreign hiding (rotate)
+import qualified Data.Vector.Unboxed.Mutable as UMV
+import qualified Data.Vector.Mutable as MV
+import Control.Monad.Primitive
+import Control.Monad
+
+bindArrayBuffers :: Int -> VBO -> IO ()
+bindArrayBuffers numVs theVBO = do
+    bindBuffer ArrayBuffer $= Just (_vbo theVBO)
+    bufferSubData 
+        ArrayBuffer 
+        WriteToBuffer 
+        0 
+        (fromIntegral $ floatSize * numVs * sum (_vboAttribSizes theVBO)) 
+        (_vboPtr theVBO)
+
+bindShaderLayers :: MV.MVector (PrimState IO) FullShader -> UMV.MVector (PrimState IO) Int -> IO ()
+bindShaderLayers shads counts = MV.imapM_ f shads
+  where
+    f i shad = do
+        let theVBO = _vaoVBO $ _shaderVAO shad
+            stride = sum $ _vboAttribSizes theVBO
+        bindBuffer ArrayBuffer $= (Just . _vbo $ theVBO)
+        mapM_ (g stride theVBO) [0..5]
+      where
+        g stride theVBO lay = do
+            numVs <- UMV.unsafeRead counts $ lay * 6 + i
+            bufferSubData
+                ArrayBuffer 
+                WriteToBuffer 
+                (fromIntegral $ floatSize * stride * numSubElements * lay)
+                (fromIntegral $ floatSize * numVs * stride)
+                (_vboPtr theVBO `plusPtr` (floatSize * stride * numSubElements * lay))
+
+bindShader :: MV.MVector (PrimState IO) FullShader -> UMV.MVector (PrimState IO) Int -> IO ()
+bindShader shads counts = MV.imapM_ f shads
+  where
+    f i shad = UMV.read counts i >>= flip bindArrayBuffers (_vaoVBO . _shaderVAO $ shad)
+
+bindShaderBuffers :: [FullShader] -> [Int] -> IO ()
+bindShaderBuffers = zipWithM_ f
+  where 
+    f fs i = bindArrayBuffers i $ _vaoVBO $ _shaderVAO fs