Edit
Reprocessing_Common
This module does not have a toplevel documentation block.
type glState = Reasongl.Gl.Window.t
type glCamera = {projectionMatrix: Reasongl.Gl.Mat4.t}
type colorT = {r: float, g: float, b: float, a: float}
type mouseT = {
mut pos: (int, int),
mut prevPos: (int, int),
mut pressed: bool
}
type frameT = {count: int, rate: int, deltaTime: float}
type sizeT = {
mut height: int,
mut width: int,
mut resizeable: bool
}
type _imageT = {
framebuffer: option(Reasongl.Gl.framebufferT),
texture: Reasongl.Gl.textureT,
height: int,
width: int
}
type soundLoadStatusT =
| Loading
| ShouldPlay(float, bool)
| Loaded(Reasongl.Gl.Audio.t)
type batchT = {
vertexArray: Reasongl.Gl.Bigarray.t(
float,
Reasongl.Gl.Bigarray.float32_elt
),
elementArray: Reasongl.Gl.Bigarray.t(
int,
Reasongl.Gl.Bigarray.int16_unsigned_elt
),
mut vertexPtr: int,
mut elementPtr: int,
mut currTex: option(Reasongl.Gl.textureT),
nullTex: Reasongl.Gl.textureT
}
type glEnv = {
camera: glCamera,
window: Reasongl.Gl.Window.t,
gl: Reasongl.Gl.contextT,
vertexBuffer: Reasongl.Gl.bufferT,
elementBuffer: Reasongl.Gl.bufferT,
aVertexColor: Reasongl.Gl.attributeT,
aTextureCoord: Reasongl.Gl.attributeT,
aVertexPosition: Reasongl.Gl.attributeT,
pMatrixUniform: Reasongl.Gl.uniformT,
uSampler: Reasongl.Gl.uniformT,
batch: batchT,
keyboard: keyboardT,
mouse: mouseT,
mut style: styleT,
mut styleStack: list(styleT),
mut frame: frameT,
mut matrix: array(float),
mut matrixStack: list(array(float)),
size: sizeT
}
This module does not have a toplevel documentation block.
let peekn = ((string, int), int) => option(string)
let popn = (('a, int), int) => ('a, int)
let match_ = ((string, int), string) => (string, int)
let read = string => string
let split = (string, ~sep: char) => list(string)