module Shape.Parameters (shapeVerxSize) where

import Foreign.Storable

shapeVerxSize :: Int
{-# INLINE shapeVerxSize #-}
shapeVerxSize = sizeOf (0 :: Float) * 8

--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 (8 :: Int) * fromIntegral (floatSize))
--        ]