Continue shader refactor

src/Shader/Parameters.hs

@@ -3,6 +3,7 @@ module Shader.Parameters
     , numDrawableElements
     , numSubElements
     , glushortSize
+    , numGLushort
     ) where
 import Graphics.GL.Core45
 import Foreign
@@ -19,10 +20,14 @@ glushortSize :: Int
 glushortSize = sizeOf (0 :: GLushort)
 {-# INLINE glushortSize #-}
 
+numGLushort :: Int
+numGLushort = fromIntegral (maxBound :: GLushort) + 1
+{-# INLINE numGLushort #-}
+
 numDrawableElements :: Int
 {-# INLINE numDrawableElements #-}
 numDrawableElements = 6 * numSubElements
 
 numSubElements :: Int
 {-# INLINE numSubElements #-}
-numSubElements = 100000
+numSubElements = 65536