20 lines
437 B
Haskell
20 lines
437 B
Haskell
module Shader.Parameters
|
|
( floatSize
|
|
, numDrawableElements
|
|
, numSubElements
|
|
) where
|
|
import Graphics.Rendering.OpenGL hiding (Point,translate,scale,imageHeight)
|
|
import Foreign
|
|
|
|
floatSize :: Int
|
|
floatSize = sizeOf (0.5 :: GLfloat)
|
|
{-# INLINE floatSize #-}
|
|
|
|
numDrawableElements :: Int
|
|
{-# INLINE numDrawableElements #-}
|
|
numDrawableElements = 70000
|
|
|
|
numSubElements :: Int
|
|
{-# INLINE numSubElements #-}
|
|
numSubElements = 10000
|