FWGL.Graphics.Types

Synopsis

• newtype Draw a = Draw {
  • unDraw :: StateT DrawState GL a
  }
• data DrawState = DrawState {
  • currentProgram :: Maybe (Program [] [])
  • loadedProgram :: Maybe LoadedProgram
  • programs :: ResMap (Program [] []) LoadedProgram
  • uniforms :: ResMap (LoadedProgram, String) UniformLocation
  • gpuBuffers :: ResMap (Geometry []) GPUBufferGeometry
  • gpuVAOs :: ResMap (Geometry []) GPUVAOGeometry
  • textureImages :: ResMap TextureImage LoadedTexture
  • activeTextures :: Vector (Maybe Texture)
  • viewportSize :: (Int, Int)
  }
• newtype UniformLocation = UniformLocation UniformLocation
• data Texture
  • = TextureImage TextureImage
  • | TextureLoaded LoadedTexture
• data TextureImage
  • = TexturePixels [Color] GLSize GLSize Int
  • | TextureURL String Int
• data LoadedTexture = LoadedTexture GLSize GLSize Texture
• data Geometry is = Geometry (AttrList is) [Word16] Int
• data Group gs is where
  • Empty :: Group gs is
  • Object :: Object gs is -> Group gs is
  • Global :: Global g -> Group gs is -> Group (g : gs) is
  • Append :: Group gs is -> Group gs' is' -> Group gs'' is''
• data Object gs is where
  • (:~>) :: Global g -> Object gs is -> Object (g : gs) is
  • Mesh :: Geometry is -> Object [] is
  • NoMesh :: Object [] []
• data Global g where
  • (:=) :: (Typeable g, UniformCPU c g) => (a -> g) -> Draw c -> Global g
• data Layer
  • = forall oi pi og pg . (Subset pi oi, Subset pg og) => Layer (Program pg pi) (Group og oi)
  • | SubLayer (RenderLayer [Layer])
  • | MultiLayer [Layer]
• data RenderLayer a = RenderLayer [LayerType] Int Int Int Int Int Int Bool Bool Layer ([Texture] -> Maybe [Color] -> Maybe [Word8] -> a)
• data LayerType
  • = ColorLayer
  • | DepthLayer

Documentation