module Shape.Parameters
    where

import Shader.Parameters
import Shader.Data
import Data.Word
import Foreign.Storable
import Graphics.GL.Core45

shapeVerxSize :: Int
shapeVerxSize = sizeOf (0 :: Float) * 8 + 4 * sizeOf (0 :: Word8)

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))
        ]