29 lines
583 B
Haskell
29 lines
583 B
Haskell
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
|