Work towards using vertex pulling for lighting caps, alignment issues

src/Shape/Parameters.hs

@@ -1,19 +1,20 @@
-module Shape.Parameters
+module Shape.Parameters 
+    (shapeVerxSize,shapeVerxAttributes)
     where
 
 import Shader.Parameters
 import Shader.Data
-import Data.Word
+--import Data.Word
 import Foreign.Storable
 import Graphics.GL.Core45
 
 shapeVerxSize :: Int
-shapeVerxSize = sizeOf (0 :: Float) * 8 + 4 * sizeOf (0 :: Word8)
+shapeVerxSize = sizeOf (0 :: Float) * 12
 
 shapeVerxAttributes :: [VertexAttribute]
 shapeVerxAttributes = 
         [VertexAttribute 4 GL_FLOAT GL_FALSE 0 
         ,VertexAttribute 4 GL_UNSIGNED_BYTE GL_TRUE (fromIntegral (4 :: Int) * fromIntegral floatSize) 
-        ,VertexAttribute 4 GL_FLOAT GL_FALSE (fromIntegral (4 :: Int) * fromIntegral (floatSize + ubyteSize))
+        ,VertexAttribute 4 GL_FLOAT GL_FALSE (fromIntegral (8 :: Int) * fromIntegral (floatSize))
         ]