FWGL.Geometry

Synopsis

• data AttrList is where
  • AttrListNil :: AttrList `[]`
  • AttrListCons :: (Hashable c, AttributeCPU c i, ShaderType i) => (a -> i) -> [c] -> AttrList is -> AttrList (i : is)
• data Geometry is = Geometry (AttrList is) [Word16] Int
• type Geometry2D = `[Position2, UV]`
• type Geometry3D = `[Position3, UV, Normal3]`
• data GPUBufferGeometry = GPUBufferGeometry {
  • attributeBuffers :: [(Buffer, GLUInt, GLUInt -> GL ())]
  • elementBuffer :: Buffer
  • elementCount :: Int
  • geometryHash :: Int
  }
• data GPUVAOGeometry = GPUVAOGeometry {
  • vaoBoundBuffers :: [Buffer]
  • vaoElementCount :: Int
  • vao :: VertexArrayObject
  }
• extend :: (AttributeCPU c i, Hashable c, ShaderType i, GLES) => (a -> i) -> [c] -> Geometry is -> Geometry (i : is)
• remove :: (RemoveAttr i is is', GLES) => (a -> i) -> Geometry is -> Geometry is'
• withGPUBufferGeometry :: GLES => GPUBufferGeometry -> (Int -> [Buffer] -> GL a) -> GL a
• mkGeometry :: GLES => AttrList is -> [Word16] -> Geometry is
• mkGeometry2D :: GLES => [Vec2] -> [Vec2] -> [Word16] -> Geometry Geometry2D
• mkGeometry3D :: GLES => [Vec3] -> [Vec2] -> [Vec3] -> [Word16] -> Geometry Geometry3D
• castGeometry :: Geometry is -> Geometry is'
• facesToArrays :: Vector Vec3 -> Vector Vec2 -> Vector Vec3 -> [[(Int, Int, Int)]] -> [(Vec3, Vec2, Vec3)]
• arraysToElements :: Foldable f => f (Vec3, Vec2, Vec3) -> ([Vec3], [Vec2], [Vec3], [Word16])
• triangulate :: [a] -> [(a, a, a)]

Documentation