module Shader.Parameters
    ( floatSize
    , numDrawableElements
    , numSubElements
    , glushortSize
    ) where
import Graphics.GL.Core45
import Foreign

floatSize :: Int
floatSize = sizeOf (0.5 :: GLfloat)
{-# INLINE floatSize #-}

--intSize :: Int
--intSize = sizeOf (1 :: GLuint)
--{-# INLINE intSize #-}

glushortSize :: Int
glushortSize = sizeOf (0 :: GLushort)
{-# INLINE glushortSize #-}

numDrawableElements :: Int
{-# INLINE numDrawableElements #-}
numDrawableElements = 6 * numSubElements

numSubElements :: Int
{-# INLINE numSubElements #-}
numSubElements = 100000