FWGL.Geometry

Documentation

data AttrList is where

Constructors

AttrListNil :: AttrList []

AttrListCons :: (Hashable c, AttributeCPU c g) => g -> [c] -> AttrList gs -> AttrList (g : gs)

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 Geometry2 = `[Position2, UV]`

A 2D geometry.

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

A 3D geometry.

data GPUGeometry

Constructors

GPUGeometry

Fields

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

elementBuffer :: Buffer

elementCount :: Int

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

Create a custom Geometry.

mkGeometry2

Arguments

:: GLES

=> [V2]

List of vertices.

-> [V2]

List of UV coordinates.

-> [Word16]

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

-> Geometry Geometry2

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

mkGeometry3

Arguments

:: GLES

=> [V3]

List of vertices.

-> [V2]

List of UV coordinates.

-> [V3]

List of normals.

-> [Word16]

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

-> Geometry Geometry3

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

castGeometry :: Geometry is -> Geometry is'

facesToArrays :: Vector V3 -> Vector V2 -> Vector V3 -> [[(Int, Int, Int)]] -> [(V3, V2, V3)]

arraysToElements :: Foldable f => f (V3, V2, V3) -> ([V3], [V2], [V3], [Word16])

triangulate :: [a] -> [(a, a, a)]