Working element buffer object

src/Shader/Parameters.hs

@@ -2,6 +2,7 @@ module Shader.Parameters
     ( floatSize
     , numDrawableElements
     , numSubElements
+    , glushortSize
     ) where
 import Graphics.Rendering.OpenGL hiding (Point,translate,scale,imageHeight)
 import Foreign
@@ -10,6 +11,14 @@ floatSize :: Int
 floatSize = sizeOf (0.5 :: GLfloat)
 {-# INLINE floatSize #-}
 
+--intSize :: Int
+--intSize = sizeOf (1 :: GLuint)
+--{-# INLINE intSize #-}
+
+glushortSize :: Int
+glushortSize = sizeOf (0 :: GLushort)
+{-# INLINE glushortSize #-}
+
 numDrawableElements :: Int
 {-# INLINE numDrawableElements #-}
 numDrawableElements = 60000