17 lines
534 B
Haskell
17 lines
534 B
Haskell
module Shape.Parameters (shapeVerxSize) where
|
|
-- ,shapeVerxAttributes) where
|
|
|
|
import Foreign.Storable
|
|
|
|
shapeVerxSize :: Int
|
|
{-# INLINE shapeVerxSize #-}
|
|
shapeVerxSize = sizeOf (0 :: Float) * 8
|
|
|
|
--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 (8 :: Int) * fromIntegral (floatSize))
|
|
-- ]
|
|
|