Commit AFTER playing around with poking/vector sizing a little

src/Shader/Parameters.hs

@@ -1,11 +1,12 @@
 module Shader.Parameters
     ( floatSize
     , ubyteSize
-    , numDrawableElements
+    , numDrawableVertices
     , numSubElements
     , glushortSize
     , numGLushort
     ) where
+import Picture.Data
 import Graphics.GL.Core45
 import Foreign
 
@@ -29,9 +30,9 @@ numGLushort :: Int
 numGLushort = fromIntegral (maxBound :: GLushort) + 1
 {-# INLINE numGLushort #-}
 
-numDrawableElements :: Int
-{-# INLINE numDrawableElements #-}
-numDrawableElements = 6 * numSubElements
+numDrawableVertices :: Int
+{-# INLINE numDrawableVertices #-}
+numDrawableVertices = 6 * numSubElements
 
 numSubElements :: Int
 {-# INLINE numSubElements #-}