20 lines
572 B
Haskell
20 lines
572 B
Haskell
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))
|
|
]
|
|
|