FWGL.Geometry

Documentation

data AttrList is where

A heterogeneous list of attributes.

Constructors

AttrListNil :: AttrList `[]`

AttrListCons :: (Hashable c, AttributeCPU c i, ShaderType i) => (a -> i) -> [c] -> AttrList is -> AttrList (i : is)

Instances

Hashable (AttrList is)

data Geometry is

A set of attributes and indices.

Constructors

Geometry (AttrList is) [Word16] Int

Instances

Eq (Geometry is)

Hashable (Geometry is)

type Geometry2D = `[Position2, UV]`

A 2D geometry.

type Geometry3D = `[Position3, UV, Normal3]`

A 3D geometry.

data GPUBufferGeometry

Constructors

GPUBufferGeometry

Fields

attributeBuffers :: [(Buffer, GLUInt, GLUInt -> GL ())]

elementBuffer :: Buffer

elementCount :: Int

geometryHash :: Int

Instances

Eq GPUBufferGeometry

Hashable GPUBufferGeometry

data GPUVAOGeometry

Constructors

GPUVAOGeometry

Fields

vaoBoundBuffers :: [Buffer]

vaoElementCount :: Int

vao :: VertexArrayObject

extend

Arguments

:: (AttributeCPU c i, Hashable c, ShaderType i, GLES)

=> (a -> i)

Attribute constructor (or any other function with that type).

-> [c]

List of values

-> Geometry is

-> Geometry (i : is)

Add an attribute to a geometry.

remove

Arguments

:: (RemoveAttr i is is', GLES)

=> (a -> i)

Attribute constructor (or any other function with that type).

-> Geometry is

-> Geometry is'

Remove an attribute from a geometry.

withGPUBufferGeometry :: GLES => GPUBufferGeometry -> (Int -> [Buffer] -> GL a) -> GL a

mkGeometry :: GLES => AttrList is -> [Word16] -> Geometry is

Create a custom Geometry.

mkGeometry2D

Arguments

:: GLES

=> [Vec2]

List of vertices.

-> [Vec2]

List of UV coordinates.

-> [Word16]

Triangles expressed as triples of indices to the two lists above.

-> Geometry Geometry2D

Create a 2D Geometry. The first two lists should have the same length.

mkGeometry3D

Arguments

:: GLES

=> [Vec3]

List of vertices.

-> [Vec2]

List of UV coordinates.

-> [Vec3]

List of normals.

-> [Word16]

Triangles expressed as triples of indices to the three lists above.

-> Geometry Geometry3D

Create a 3D Geometry. The first three lists should have the same length.

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)]