(* Js_of_ocaml library
 * http://www.ocsigen.org/js_of_ocaml/
 * Copyright (C) 2012 Jérôme Vouillon
 * Laboratoire PPS - CNRS Université Paris Diderot
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU Lesser General Public License as published by
 * the Free Software Foundation, with linking exception;
 * either version 2.1 of the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 *)

(** WebGL binding *)

open Js

(** 5.1 Types *)
type sizei = int
type sizeiptr = int
type intptr = int
type uint = int
type clampf = float
type void

type clearBufferMask = int
type beginMode
type blendingFactor
type blendMode
type bufferTarget
type bufferUsage
type cullFaceMode
type depthFunction
type enableCap
type errorCode
type frontFaceDir
type hintTarget
type hintMode
type textureUnit = int
type 'a pixelStoreParam
type stencilOp
type fbTarget
type attachmentPoint
type rbTarget
type texTarget
type 'a parameter
type 'a bufferParameter
type 'a vertexAttribParam
type vertexAttribPointerParam
type 'a attachParam
type framebufferStatus
type 'a renderbufferParam
type format
type pixelFormat
type pixelType
type 'a texParam
type dataType
type shaderType
type 'a programParam
type 'a shaderParam
type textureFilter
type wrapMode
type texFilter
type uniformType
type colorspaceConversion
type shaderPrecisionType
type objectType

(** 5.2 WebGLContextAttributes *)
class type contextAttributes = object
  method alpha : bool t prop
  method depth : bool t prop
  method stencil : bool t prop
  method antialias : bool t prop
  method premultipliedAlpha : bool t prop
  method preserveDrawingBuffer : bool t prop
  method preferLowPowerToHighPerformance : bool t prop
  method failIfMajorPerformanceCaveat : bool t prop
end

val defaultContextAttributes : contextAttributes t

type buffer
type framebuffer
type program
type renderbuffer
type shader
type texture
type 'a uniformLocation

class type activeInfo = object
  method size : int readonly_prop
  method _type : uniformType readonly_prop
  method name : js_string t readonly_prop
end

class type shaderPrecisionFormat = object
  method rangeMin : int readonly_prop
  method rangeMax : int readonly_prop
  method precision : int readonly_prop
end

class type renderingContext = object
  (** 5.13.1 Attributes *)
  method canvas : Dom_html.canvasElement t readonly_prop
  method drawingBufferWidth : sizei readonly_prop
  method drawingBufferHeight : sizei readonly_prop

  (** 5.13.2 Getting information about the context *)
  method getContextAttributes : contextAttributes t meth

  (** 5.13.3 Setting and getting state *)
  method activeTexture : textureUnit -> unit meth
  method blendColor : clampf -> clampf -> clampf -> clampf -> unit meth
  method blendEquation : blendMode -> unit meth
  method blendEquationSeparate : blendMode -> blendMode -> unit meth
  method blendFunc : blendingFactor -> blendingFactor -> unit meth
  method blendFuncSeparate :
    blendingFactor -> blendingFactor -> blendingFactor -> blendingFactor ->
    unit meth
  method clearColor : clampf -> clampf -> clampf -> clampf -> unit meth
  method clearDepth : clampf -> unit meth
  method clearStencil : int -> unit meth
  method colorMask : bool t -> bool t -> bool t -> bool t -> unit meth
  method cullFace : cullFaceMode -> unit meth
  method depthFunc : depthFunction -> unit meth
  method depthMask : bool t -> unit meth
  method depthRange : clampf -> clampf -> unit meth
  method disable : enableCap -> unit meth
  method enable : enableCap -> unit meth
  method frontFace : frontFaceDir -> unit meth
  method getParameter : 'a. 'a parameter -> 'a meth
  method getError : errorCode meth
  method hint : hintTarget -> hintMode -> unit meth
  method isEnabled : enableCap -> bool t meth
  method lineWidth : float -> unit meth
  method pixelStorei : 'a. 'a pixelStoreParam -> 'a -> unit meth
  method polygonOffset : float -> float -> unit meth
  method sampleCoverage : clampf -> bool t -> unit meth
  method stencilFunc : depthFunction -> int -> uint -> unit meth
  method stencilFuncSeparate :
    cullFaceMode -> depthFunction -> int -> uint -> unit meth
  method stencilMask : uint -> unit meth
  method stencilMaskSeparate : cullFaceMode -> uint -> unit meth
  method stencilOp : stencilOp -> stencilOp -> stencilOp -> unit meth
  method stencilOpSeparate :
    cullFaceMode -> stencilOp -> stencilOp -> stencilOp -> unit meth

  (** 5.13.4 Viewing and clipping *)
  method scissor : int -> int -> sizei -> sizei -> unit meth
  method viewport : int -> int -> sizei -> sizei -> unit meth

  (** 5.13.5 Buffer objects *)
  method bindBuffer : bufferTarget -> buffer t -> unit meth
  method bindBuffer_ : bufferTarget -> buffer t opt -> unit meth
  method bufferData_create :
    bufferTarget -> sizeiptr -> bufferUsage -> unit meth
  method bufferData :
    bufferTarget -> #Typed_array.arrayBufferView t -> bufferUsage -> unit meth
  method bufferData_raw :
    bufferTarget -> Typed_array.arrayBuffer t -> bufferUsage -> unit meth
  method bufferSubData :
    bufferTarget -> intptr -> #Typed_array.arrayBufferView t -> unit meth
  method bufferSubData_raw :
    bufferTarget -> intptr -> Typed_array.arrayBuffer t -> unit meth
  method createBuffer : buffer t meth
  method deleteBuffer : buffer t -> unit meth
  method getBufferParameter : 'a. bufferTarget -> 'a bufferParameter -> 'a meth
  method isBuffer : buffer t -> bool t meth

  (** 5.13.6 Framebuffer objects *)
  method bindFramebuffer : fbTarget -> framebuffer t -> unit meth
  method bindFramebuffer_ : fbTarget -> framebuffer t opt -> unit meth
  method checkFramebufferStatus : fbTarget -> framebufferStatus meth
  method createFramebuffer : framebuffer t meth
  method deleteFramebuffer : framebuffer t -> unit meth
  method framebufferRenderbuffer :
    fbTarget -> attachmentPoint -> rbTarget -> renderbuffer t -> unit meth
  method framebufferTexture2D :
    fbTarget -> attachmentPoint -> texTarget -> texture -> int -> unit meth
  method getFramebufferAttachmentParameter :
    'a . fbTarget -> attachmentPoint -> 'a attachParam -> 'a meth
  method isFramebuffer : framebuffer t -> bool t meth

  (** 5.13.7 Renderbuffer objects *)
  method bindRenderbuffer : rbTarget -> renderbuffer t -> unit meth
  method bindRenderbuffer_ : rbTarget -> renderbuffer t opt -> unit meth
  method createRenderbuffer : renderbuffer t meth
  method deleteRenderbuffer : renderbuffer t -> unit meth
  method getRenderbufferParameter :
    'a. rbTarget -> 'a renderbufferParam -> 'a meth
  method isRenderbuffer : renderbuffer t -> bool t meth
  method renderbufferStorage :
    rbTarget -> format -> sizei -> sizei -> unit meth

  (** 5.13.8 Texture objects *)
  method bindTexture : texTarget -> texture t -> unit meth
  method bindTexture_ : texTarget -> texture t opt -> unit meth
  method compressedTexImage2D :
    texTarget -> int -> pixelFormat -> sizei -> sizei -> int ->
    #Typed_array.arrayBufferView t -> unit meth
  method compressedTexSubImage2D :
    texTarget -> int -> int -> int -> sizei -> sizei -> pixelFormat ->
    #Typed_array.arrayBufferView t -> unit meth
  method copyTexImage2D :
    texTarget -> int -> pixelFormat -> int -> int -> sizei -> sizei ->
    int -> unit meth
  method copyTexSubImage2D :
    texTarget -> int -> int -> int -> int -> int -> sizei -> sizei -> unit meth
  method createTexture : texture t meth
  method deleteTexture : texture t -> unit meth
  method generateMipmap : texTarget -> unit meth
  method getTexParameter : texTarget -> 'a texParam -> 'a meth
  method isTexture : texture t -> bool t meth
  method texImage2D_new :
    texTarget -> int -> pixelFormat -> sizei -> sizei -> int ->
    pixelFormat -> pixelType -> void opt -> unit meth
  method texImage2D_fromView :
    texTarget -> int -> pixelFormat -> sizei -> sizei -> int ->
    pixelFormat -> pixelType -> #Typed_array.arrayBufferView t -> unit meth
  method texImage2D_fromImageData :
    texTarget -> int -> pixelFormat -> pixelFormat -> pixelType ->
    Dom_html.imageData t -> unit meth
  method texImage2D_fromImage :
    texTarget -> int -> pixelFormat -> pixelFormat -> pixelType ->
    Dom_html.imageElement t -> unit meth
  method texImage2D_fromCanvas :
    texTarget -> int -> pixelFormat -> pixelFormat -> pixelType ->
    Dom_html.canvasElement t -> unit meth
  method texImage2D_fromVideo :
    texTarget -> int -> pixelFormat -> pixelFormat -> pixelType ->
    Dom_html.videoElement t -> unit meth
(*
  method texParameterf : texTarget -> texParam -> float -> unit meth
*)
  method texParameteri : texTarget -> 'a texParam -> 'a -> unit meth
  method texSubImage2D_fromView :
    texTarget -> int -> int -> int -> sizei -> sizei ->
    pixelFormat -> pixelType -> #Typed_array.arrayBufferView t -> unit meth
  method texSubImage2D_fromImageData :
    texTarget -> int -> int -> int -> pixelFormat -> pixelType ->
    Dom_html.imageData t -> unit meth
  method texSubImage2D_fromImage :
    texTarget -> int -> int -> int -> pixelFormat -> pixelType ->
    Dom_html.imageElement t -> unit meth
  method texSubImage2D_fromCanvas :
    texTarget -> int -> int -> int -> pixelFormat -> pixelType ->
    Dom_html.canvasElement t -> unit meth
  method texSubImage2D_fromVideo :
    texTarget -> int -> int -> int -> pixelFormat -> pixelType ->
    Dom_html.videoElement t -> unit meth

  (** 5.13.9 Programs and Shaders *)
  method attachShader : program t -> shader t -> unit meth
  method bindAttribLocation : program t -> uint -> js_string t -> unit meth
  method compileShader : shader t -> unit meth
  method createProgram : program t meth
  method createShader : shaderType -> shader t meth
  method deleteProgram : program t -> unit meth
  method deleteShader : shader t -> unit meth
  method detachShader : program t -> shader t -> unit meth
  method getAttachedShaders : program t -> shader t js_array t meth
  method getProgramParameter : 'a . program t -> 'a programParam -> 'a meth
  method getProgramInfoLog : program t -> js_string t meth
  method getShaderParameter : 'a . shader t -> 'a shaderParam -> 'a meth
  method getShaderPrecisionFormat :
    shaderType -> shaderPrecisionType -> shaderPrecisionFormat t meth
  method getShaderInfoLog : shader t -> js_string t meth
  method getShaderSource : shader t -> js_string t meth
  method isProgram : program t -> bool t meth
  method isShader : shader t -> bool t meth
  method linkProgram : program t -> unit meth
  method shaderSource : shader t -> js_string t -> unit meth
  method useProgram : program t -> unit meth
  method validateProgram : program t -> unit meth

  (** 5.13.10 Uniforms and attributes *)
  method disableVertexAttribArray : uint -> unit meth
  method enableVertexAttribArray : uint -> unit meth
  method getActiveAttrib : program t -> uint -> activeInfo t meth
  method getActiveUniform : program t -> uint -> activeInfo t meth
  method getAttribLocation : program t -> js_string t -> int meth
  method getUniform : 'a 'b . program t -> 'a uniformLocation t -> 'b meth
  method getUniformLocation :
    'a . program t -> js_string t -> 'a uniformLocation t meth
  method getVertexAttrib : 'a. uint -> 'a vertexAttribParam -> 'a meth
  method getVertexAttribOffset :
    uint -> vertexAttribPointerParam  -> sizeiptr meth
  method uniform1f : float uniformLocation t -> float -> unit meth
  method uniform1fv_typed :
    float uniformLocation t -> Typed_array.float32Array t -> unit meth
  method uniform1fv : float uniformLocation t -> float js_array t -> unit meth
  method uniform1i : int uniformLocation t -> int -> unit meth
  method uniform1iv_typed :
    int uniformLocation t -> Typed_array.int32Array t -> unit meth
  method uniform1iv : int uniformLocation t -> int js_array t -> unit meth
  method uniform2f :
    [`vec2] uniformLocation t -> float -> float -> unit meth
  method uniform2fv_typed :
    [`vec2] uniformLocation t -> Typed_array.float32Array t -> unit meth
  method uniform2fv :
    [`vec2] uniformLocation t -> float js_array t -> unit meth
  method uniform2i : [`ivec2] uniformLocation t -> int -> int -> unit meth
  method uniform2iv : [`ivec2] uniformLocation t -> int js_array t -> unit meth
  method uniform2iv_typed :
    [`ivec2] uniformLocation t -> Typed_array.int32Array t -> unit meth
  method uniform3f :
    [`vec3] uniformLocation t -> float -> float -> float -> unit meth
  method uniform3fv_typed :
    [`vec3] uniformLocation t -> Typed_array.float32Array t -> unit meth
  method uniform3fv :
    [`vec3] uniformLocation t -> float js_array t -> unit meth
  method uniform3i :
    [`ivec3] uniformLocation t -> int -> int -> int -> unit meth
  method uniform3iv : [`ivec3] uniformLocation t -> int js_array t -> unit meth
  method uniform3iv_typed :
    [`ivec3] uniformLocation t -> Typed_array.int32Array t -> unit meth
  method uniform4f :
    [`vec4] uniformLocation t -> float -> float -> float -> float -> unit meth
  method uniform4fv_typed :
    [`vec4] uniformLocation t -> Typed_array.float32Array t -> unit meth
  method uniform4fv :
    [`vec4] uniformLocation t -> float js_array t -> unit meth
  method uniform4i :
    [`ivec4] uniformLocation t -> int -> int -> int -> int -> unit meth
  method uniform4iv : [`ivec4] uniformLocation t -> int js_array t -> unit meth
  method uniform4iv_typed :
    [`ivec4] uniformLocation t -> Typed_array.int32Array t -> unit meth
  method uniformMatrix2fv :
    [`mat2] uniformLocation t -> bool t -> float js_array t -> unit meth
  method uniformMatrix2fv_typed :
    [`mat2] uniformLocation t -> bool t -> Typed_array.float32Array t -> unit meth
  method uniformMatrix3fv :
    [`mat3] uniformLocation t -> bool t -> float js_array t -> unit meth
  method uniformMatrix3fv_typed :
    [`mat3] uniformLocation t -> bool t -> Typed_array.float32Array t -> unit meth
  method uniformMatrix4fv :
    [`mat4] uniformLocation t -> bool t -> float js_array t -> unit meth
  method uniformMatrix4fv_typed :
    [`mat4] uniformLocation t -> bool t -> Typed_array.float32Array t -> unit meth
  method vertexAttrib1f : uint -> float -> unit meth
  method vertexAttrib1fv : uint -> float js_array t -> unit meth
  method vertexAttrib1fv_typed :
    uint -> Typed_array.float32Array t -> unit meth
  method vertexAttrib2f : uint -> float -> float -> unit meth
  method vertexAttrib2fv : uint -> float js_array t -> unit meth
  method vertexAttrib2fv_typed :
    uint -> Typed_array.float32Array t -> unit meth
  method vertexAttrib3f : uint -> float -> float -> float -> unit meth
  method vertexAttrib3fv : uint -> float js_array t -> unit meth
  method vertexAttrib3fv_typed :
    uint -> Typed_array.float32Array t -> unit meth
  method vertexAttrib4f : uint -> float -> float -> float -> float -> unit meth
  method vertexAttrib4fv : uint -> float js_array t -> unit meth
  method vertexAttrib4fv_typed :
    uint -> Typed_array.float32Array t -> unit meth
  method vertexAttribPointer :
    uint -> int -> dataType -> bool t -> sizei -> intptr -> unit meth

  (** 5.13.11 Writing to the drawing buffer *)
  method clear : clearBufferMask -> unit meth
  method drawArrays : beginMode -> int -> sizei -> unit meth
  method drawElements : beginMode -> sizei -> dataType -> intptr -> unit meth
  method finish : unit meth
  method flush : unit meth

  (** 5.13.12 Reading back pixels *)
  method readPixels :
    int -> int -> sizei -> sizei -> pixelFormat -> pixelType ->
    #Typed_array.arrayBufferView t -> unit meth

  (** 5.13.13 Detecting context lost events *)
  method isContextLost : bool t meth

  (** 5.13.14 Detecting and enabling extensions *)
  method getSupportedExtensions : js_string t js_array t meth
  method getExtension : 'a. js_string t -> 'a t opt meth (* Untyped! *)

  (** Constants *)

  method _DEPTH_BUFFER_BIT_ : clearBufferMask readonly_prop
  method _STENCIL_BUFFER_BIT_ : clearBufferMask readonly_prop
  method _COLOR_BUFFER_BIT_ : clearBufferMask readonly_prop

  method _POINTS : beginMode readonly_prop
  method _LINES : beginMode readonly_prop
  method _LINE_LOOP_ : beginMode readonly_prop
  method _LINE_STRIP_ : beginMode readonly_prop
  method _TRIANGLES : beginMode readonly_prop
  method _TRIANGLE_STRIP_ : beginMode readonly_prop
  method _TRIANGLE_FAN_ : beginMode readonly_prop

  method _ZERO : blendingFactor readonly_prop
  method _ONE : blendingFactor readonly_prop
  method _SRC_COLOR_ : blendingFactor readonly_prop
  method _ONE_MINUS_SRC_COLOR_ : blendingFactor readonly_prop
  method _SRC_ALPHA_ : blendingFactor readonly_prop
  method _ONE_MINUS_SRC_ALPHA_ : blendingFactor readonly_prop
  method _DST_ALPHA_ : blendingFactor readonly_prop
  method _ONE_MINUS_DST_ALPHA_ : blendingFactor readonly_prop
  method _DST_COLOR_ : blendingFactor readonly_prop
  method _ONE_MINUS_DST_COLOR_ : blendingFactor readonly_prop
  method _SRC_ALPHA_SATURATE_ : blendingFactor readonly_prop

  method _FUNC_ADD_ : blendMode readonly_prop
  method _FUNC_SUBTRACT_ : blendMode readonly_prop
  method _FUNC_REVERSE_SUBTRACT_ : blendMode readonly_prop
  method _CONSTANT_COLOR_ : blendMode readonly_prop
  method _ONE_MINUS_CONSTANT_COLOR_ : blendMode readonly_prop
  method _CONSTANT_ALPHA_ : blendMode readonly_prop
  method _ONE_MINUS_CONSTANT_ALPHA_ : blendMode readonly_prop

  method _ARRAY_BUFFER_ : bufferTarget readonly_prop
  method _ELEMENT_ARRAY_BUFFER_ : bufferTarget readonly_prop

  method _STREAM_DRAW_ : bufferUsage readonly_prop
  method _STATIC_DRAW_ : bufferUsage readonly_prop
  method _DYNAMIC_DRAW_ : bufferUsage readonly_prop

  method _FRONT : cullFaceMode readonly_prop
  method _BACK : cullFaceMode readonly_prop
  method _FRONT_AND_BACK_ : cullFaceMode readonly_prop

  method _CULL_FACE_ : enableCap readonly_prop
  method _BLEND : enableCap readonly_prop
  method _DITHER : enableCap readonly_prop
  method _STENCIL_TEST_ : enableCap readonly_prop
  method _DEPTH_TEST_ : enableCap readonly_prop
  method _SCISSOR_TEST_ : enableCap readonly_prop
  method _POLYGON_OFFSET_FILL_ : enableCap readonly_prop
  method _SAMPLE_ALPHA_TO_COVERAGE_ : enableCap readonly_prop
  method _SAMPLE_COVERAGE_ : enableCap readonly_prop

  method _NO_ERROR_ : errorCode readonly_prop
  method _INVALID_ENUM_ : errorCode readonly_prop
  method _INVALID_VALUE_ : errorCode readonly_prop
  method _INVALID_OPERATION_ : errorCode readonly_prop
  method _OUT_OF_MEMORY_ : errorCode readonly_prop
  method _CONTEXT_LOST_WEBGL_ : errorCode readonly_prop
  method _INVALID_FRAMEBUFFER_OPERATION_ : errorCode readonly_prop

  method _CW : frontFaceDir readonly_prop
  method _CCW : frontFaceDir readonly_prop

  method _DONT_CARE_ : hintMode readonly_prop
  method _FASTEST : hintMode readonly_prop
  method _NICEST : hintMode readonly_prop
  method _GENERATE_MIPMAP_HINT_ : hintTarget readonly_prop

  method _BLEND_EQUATION_ : blendMode parameter readonly_prop
  method _BLEND_EQUATION_RGB_ : blendMode parameter readonly_prop
  method _BLEND_EQUATION_ALPHA_ : blendMode parameter readonly_prop
  method _BLEND_DST_RGB_ : blendingFactor parameter readonly_prop
  method _BLEND_SRC_RGB_ : blendingFactor parameter readonly_prop
  method _BLEND_DST_ALPHA_ : blendingFactor parameter readonly_prop
  method _BLEND_SRC_ALPHA_ : blendingFactor parameter readonly_prop
  method _BLEND_COLOR_ : Typed_array.float32Array t parameter readonly_prop
  method _ARRAY_BUFFER_BINDING_ : buffer t opt parameter readonly_prop
  method _ELEMENT_ARRAY_BUFFER_BINDING_ : buffer t opt parameter readonly_prop
  method _CULL_FACE_PARAM : bool t parameter readonly_prop
  method _BLEND_PARAM : bool t parameter readonly_prop
  method _DITHER_PARAM : bool t parameter readonly_prop
  method _STENCIL_TEST_PARAM : bool t parameter readonly_prop
  method _DEPTH_TEST_PARAM : bool t parameter readonly_prop
  method _SCISSOR_TEST_PARAM : bool t parameter readonly_prop
  method _POLYGON_OFFSET_FILL_PARAM : bool t parameter readonly_prop
  method _LINE_WIDTH_ : float parameter readonly_prop
  method _ALIASED_POINT_SIZE_RANGE_ :
    Typed_array.float32Array t parameter readonly_prop
  method _ALIASED_LINE_WIDTH_RANGE_ :
    Typed_array.float32Array t parameter readonly_prop
  method _CULL_FACE_MODE_ : cullFaceMode parameter readonly_prop
  method _FRONT_FACE_ : frontFaceDir parameter readonly_prop
  method _DEPTH_RANGE_ : Typed_array.float32Array t parameter readonly_prop
  method _DEPTH_WRITEMASK_ : bool t parameter readonly_prop
  method _DEPTH_CLEAR_VALUE_ : float parameter readonly_prop
  method _DEPTH_FUNC_ : depthFunction parameter readonly_prop
  method _STENCIL_CLEAR_VALUE_ : int parameter readonly_prop
  method _STENCIL_FUNC_ : int parameter readonly_prop
  method _STENCIL_FAIL_ : int parameter readonly_prop
  method _STENCIL_PASS_DEPTH_FAIL_ : int parameter readonly_prop
  method _STENCIL_PASS_DEPTH_PASS_ : int parameter readonly_prop
  method _STENCIL_REF_ : int parameter readonly_prop
  method _STENCIL_VALUE_MASK_ : int parameter readonly_prop
  method _STENCIL_WRITEMASK_ : int parameter readonly_prop
  method _STENCIL_BACK_FUNC_ : int parameter readonly_prop
  method _STENCIL_BACK_FAIL_ : int parameter readonly_prop
  method _STENCIL_BACK_PASS_DEPTH_FAIL_ : int parameter readonly_prop
  method _STENCIL_BACK_PASS_DEPTH_PASS_ : int parameter readonly_prop
  method _STENCIL_BACK_REF_ : int parameter readonly_prop
  method _STENCIL_BACK_VALUE_MASK_ : int parameter readonly_prop
  method _STENCIL_BACK_WRITEMASK_ : int parameter readonly_prop
  method _VIEWPORT : Typed_array.int32Array t parameter readonly_prop
  method _SCISSOR_BOX_ : Typed_array.int32Array t parameter readonly_prop
  method _COLOR_CLEAR_VALUE_ :
    Typed_array.float32Array t parameter readonly_prop
  method _COLOR_WRITEMASK_ : bool t js_array t parameter readonly_prop
  method _UNPACK_ALIGNMENT_PARAM : int parameter readonly_prop
  method _PACK_ALIGNMENT_ : int parameter readonly_prop
  method _MAX_TEXTURE_SIZE_ : int parameter readonly_prop
  method _MAX_VIEWPORT_DIMS_ : Typed_array.int32Array t parameter readonly_prop
  method _SUBPIXEL_BITS_ : int parameter readonly_prop
  method _RED_BITS_ : int parameter readonly_prop
  method _GREEN_BITS_ : int parameter readonly_prop
  method _BLUE_BITS_ : int parameter readonly_prop
  method _ALPHA_BITS_ : int parameter readonly_prop
  method _DEPTH_BITS_ : int parameter readonly_prop
  method _STENCIL_BITS_ : int parameter readonly_prop
  method _POLYGON_OFFSET_UNITS_ : float parameter readonly_prop
  method _POLYGON_OFFSET_FACTOR_ : float parameter readonly_prop
  method _TEXTURE_BINDING_2D_ : texture t opt parameter readonly_prop
  method _TEXTURE_BINDING_CUBE_MAP_ : texture t opt parameter readonly_prop
  method _SAMPLE_BUFFERS_ : int parameter readonly_prop
  method _SAMPLES_ : int parameter readonly_prop
  method _SAMPLE_COVERAGE_VALUE_ : float parameter readonly_prop
  method _SAMPLE_COVERAGE_INVERT_ : bool t parameter readonly_prop
  method _NUM_COMPRESSED_TEXTURE_FORMATS_ : int parameter readonly_prop
  method _COMPRESSED_TEXTURE_FORMATS_ :
    Typed_array.uint32Array t parameter readonly_prop
  method _GENERATE_MIPMAP_HINT_PARAM_ : hintMode parameter readonly_prop

  method _BUFFER_SIZE_ : int bufferParameter readonly_prop
  method _BUFFER_USAGE_ : bufferUsage bufferParameter readonly_prop

  method _BYTE : dataType readonly_prop
  method _UNSIGNED_BYTE_DT : dataType readonly_prop
  method _SHORT : dataType readonly_prop
  method _UNSIGNED_SHORT_ : dataType readonly_prop
  method _INT : dataType readonly_prop
  method _UNSIGNED_INT_ : dataType readonly_prop
  method _FLOAT : dataType readonly_prop

  method _UNSIGNED_BYTE_ : pixelType readonly_prop
  method _UNSIGNED_SHORT_4_4_4_4_ : pixelType readonly_prop
  method _UNSIGNED_SHORT_5_5_5_1_ : pixelType readonly_prop
  method _UNSIGNED_SHORT_5_6_5_ : pixelType readonly_prop

  method _ALPHA : pixelFormat readonly_prop
  method _RGB : pixelFormat readonly_prop
  method _RGBA : pixelFormat readonly_prop
  method _LUMINANCE : pixelFormat readonly_prop
  method _LUMINANCE_ALPHA_ : pixelFormat readonly_prop
  method _STENCIL_INDEX_ : pixelFormat readonly_prop
  method _DEPTH_STENCIL_ : pixelFormat readonly_prop
  method _DEPTH_COMPONENT_ : pixelFormat readonly_prop

  method _FRAGMENT_SHADER_ : shaderType readonly_prop
  method _VERTEX_SHADER_ : shaderType readonly_prop
  method _MAX_VERTEX_ATTRIBS_ : int parameter readonly_prop
  method _MAX_VERTEX_UNIFORM_VECTORS_ : int parameter readonly_prop
  method _MAX_VARYING_VECTORS_ : int parameter readonly_prop
  method _MAX_COMBINED_TEXTURE_IMAGE_UNITS_ : int parameter readonly_prop
  method _MAX_VERTEX_TEXTURE_IMAGE_UNITS_ : int parameter readonly_prop
  method _MAX_TEXTURE_IMAGE_UNITS_ : int parameter readonly_prop
  method _MAX_FRAGMENT_UNIFORM_VECTORS_ : int parameter readonly_prop

  method _SHADER_TYPE_ : shaderType shaderParam readonly_prop
  method _DELETE_STATUS_ : bool t shaderParam readonly_prop
  method _COMPILE_STATUS_ : bool t shaderParam readonly_prop

  method _DELETE_STATUS_PROG : bool t programParam readonly_prop
  method _LINK_STATUS_ : bool t programParam readonly_prop
  method _VALIDATE_STATUS_ : bool t programParam readonly_prop
  method _ATTACHED_SHADERS_ : int programParam readonly_prop
  method _ACTIVE_UNIFORMS_ : int programParam readonly_prop
  method _ACTIVE_ATTRIBUTES_ : int programParam readonly_prop

  method _SHADING_LANGUAGE_VERSION_ : js_string t parameter readonly_prop
  method _CURRENT_PROGRAM_ : program t opt parameter readonly_prop
  method _VENDOR : js_string t parameter readonly_prop
  method _RENDERER : js_string t parameter readonly_prop
  method _VERSION : js_string t parameter readonly_prop
  method _MAX_CUBE_MAP_TEXTURE_SIZE_ : int parameter readonly_prop
  method _ACTIVE_TEXTURE_ : textureUnit parameter readonly_prop
  method _FRAMEBUFFER_BINDING_ : framebuffer t opt parameter readonly_prop
  method _RENDERBUFFER_BINDING_ : renderbuffer t opt parameter readonly_prop
  method _MAX_RENDERBUFFER_SIZE : int parameter readonly_prop

  method _NEVER : depthFunction readonly_prop
  method _LESS : depthFunction readonly_prop
  method _EQUAL : depthFunction readonly_prop
  method _LEQUAL : depthFunction readonly_prop
  method _GREATER : depthFunction readonly_prop
  method _NOTEQUAL : depthFunction readonly_prop
  method _GEQUAL : depthFunction readonly_prop
  method _ALWAYS : depthFunction readonly_prop

  method _KEEP : stencilOp readonly_prop
  method _REPLACE : stencilOp readonly_prop
  method _INCR : stencilOp readonly_prop
  method _DECR : stencilOp readonly_prop
  method _INVERT : stencilOp readonly_prop
  method _INCR_WRAP_ : stencilOp readonly_prop
  method _DECR_WRAP_ : stencilOp readonly_prop
  method _ZERO_ : stencilOp readonly_prop

  method _NEAREST : texFilter readonly_prop
  method _LINEAR : texFilter readonly_prop
  method _NEAREST_MIPMAP_NEAREST_ : texFilter readonly_prop
  method _LINEAR_MIPMAP_NEAREST_ : texFilter readonly_prop
  method _NEAREST_MIPMAP_LINEAR_ : texFilter readonly_prop
  method _LINEAR_MIPMAP_LINEAR_ : texFilter readonly_prop

  method _TEXTURE_MAG_FILTER_ : texFilter texParam readonly_prop
  method _TEXTURE_MIN_FILTER_ : texFilter texParam readonly_prop
  method _TEXTURE_WRAP_S_ : wrapMode texParam readonly_prop
  method _TEXTURE_WRAP_T_ : wrapMode texParam readonly_prop

  method _NONE_OT : objectType readonly_prop
  method _TEXTURE_OT : objectType readonly_prop
  method _RENDERBUFFER_OT : objectType readonly_prop

  method _TEXTURE_2D_ : texTarget readonly_prop
  method _TEXTURE_CUBE_MAP_ : texTarget readonly_prop
  method _TEXTURE_CUBE_MAP_POSITIVE_X_ : texTarget readonly_prop
  method _TEXTURE_CUBE_MAP_NEGATIVE_X_ : texTarget readonly_prop
  method _TEXTURE_CUBE_MAP_POSITIVE_Y_ : texTarget readonly_prop
  method _TEXTURE_CUBE_MAP_NEGATIVE_Y_ : texTarget readonly_prop
  method _TEXTURE_CUBE_MAP_POSITIVE_Z_ : texTarget readonly_prop
  method _TEXTURE_CUBE_MAP_NEGATIVE_Z_ : texTarget readonly_prop

  method _TEXTURE0 : textureUnit readonly_prop
  method _TEXTURE1 : textureUnit readonly_prop
  method _TEXTURE2 : textureUnit readonly_prop
  method _TEXTURE3 : textureUnit readonly_prop
  method _TEXTURE4 : textureUnit readonly_prop
  method _TEXTURE5 : textureUnit readonly_prop
  method _TEXTURE6 : textureUnit readonly_prop
  method _TEXTURE7 : textureUnit readonly_prop
  method _TEXTURE8 : textureUnit readonly_prop
  method _TEXTURE9 : textureUnit readonly_prop
  method _TEXTURE10 : textureUnit readonly_prop
  method _TEXTURE11 : textureUnit readonly_prop
  method _TEXTURE12 : textureUnit readonly_prop
  method _TEXTURE13 : textureUnit readonly_prop
  method _TEXTURE14 : textureUnit readonly_prop
  method _TEXTURE15 : textureUnit readonly_prop
  method _TEXTURE16 : textureUnit readonly_prop
  method _TEXTURE17 : textureUnit readonly_prop
  method _TEXTURE18 : textureUnit readonly_prop
  method _TEXTURE19 : textureUnit readonly_prop
  method _TEXTURE20 : textureUnit readonly_prop
  method _TEXTURE21 : textureUnit readonly_prop
  method _TEXTURE22 : textureUnit readonly_prop
  method _TEXTURE23 : textureUnit readonly_prop
  method _TEXTURE24 : textureUnit readonly_prop
  method _TEXTURE25 : textureUnit readonly_prop
  method _TEXTURE26 : textureUnit readonly_prop
  method _TEXTURE27 : textureUnit readonly_prop
  method _TEXTURE28 : textureUnit readonly_prop
  method _TEXTURE29 : textureUnit readonly_prop
  method _TEXTURE30 : textureUnit readonly_prop
  method _TEXTURE31 : textureUnit readonly_prop

  method _REPEAT : wrapMode readonly_prop
  method _CLAMP_TO_EDGE_ : wrapMode readonly_prop
  method _MIRRORED_REPEAT_ : wrapMode readonly_prop

  method _FLOAT_ : uniformType readonly_prop
  method _FLOAT_VEC2_ : uniformType readonly_prop
  method _FLOAT_VEC3_ : uniformType readonly_prop
  method _FLOAT_VEC4_ : uniformType readonly_prop
  method _INT_ : uniformType readonly_prop
  method _INT_VEC2_ : uniformType readonly_prop
  method _INT_VEC3_ : uniformType readonly_prop
  method _INT_VEC4_ : uniformType readonly_prop
  method _BOOL_ : uniformType readonly_prop
  method _BOOL_VEC2_ : uniformType readonly_prop
  method _BOOL_VEC3_ : uniformType readonly_prop
  method _BOOL_VEC4_ : uniformType readonly_prop
  method _FLOAT_MAT2_ : uniformType readonly_prop
  method _FLOAT_MAT3_ : uniformType readonly_prop
  method _FLOAT_MAT4_ : uniformType readonly_prop
  method _SAMPLER_2D_ : uniformType readonly_prop
  method _SAMPLER_CUBE_ : uniformType readonly_prop

  method _VERTEX_ATTRIB_ARRAY_ENABLED_ : bool t vertexAttribParam readonly_prop
  method _VERTEX_ATTRIB_ARRAY_SIZE_ : int vertexAttribParam readonly_prop
  method _VERTEX_ATTRIB_ARRAY_STRIDE_ : int vertexAttribParam readonly_prop
  method _VERTEX_ATTRIB_ARRAY_TYPE_ : int vertexAttribParam readonly_prop
  method _VERTEX_ATTRIB_ARRAY_NORMALIZED_ :
    bool t vertexAttribParam readonly_prop
  method _VERTEX_ATTRIB_ARRAY_POINTER_ : vertexAttribPointerParam readonly_prop
  method _VERTEX_ATTRIB_ARRAY_BUFFER_BINDING_ :
    buffer t opt vertexAttribParam readonly_prop
  method _CURRENT_VERTEX_ATTRIB_ :
    Typed_array.float32Array t vertexAttribParam readonly_prop

  method _LOW_FLOAT_ : shaderPrecisionType readonly_prop
  method _MEDIUM_FLOAT_ : shaderPrecisionType readonly_prop
  method _HIGH_FLOAT_ : shaderPrecisionType readonly_prop
  method _LOW_INT_ : shaderPrecisionType readonly_prop
  method _MEDIUM_INT_ : shaderPrecisionType readonly_prop
  method _HIGH_INT_ : shaderPrecisionType readonly_prop

  method _FRAMEBUFFER : fbTarget readonly_prop
  method _RENDERBUFFER : rbTarget readonly_prop

  method _RGBA4 : format readonly_prop
  method _RGB5_A1_ : format readonly_prop
  method _RGB565 : format readonly_prop
  method _DEPTH_COMPONENT16_ : format readonly_prop
  method _STENCIL_INDEX8_ : format readonly_prop

  method _RENDERBUFFER_WIDTH_ : int renderbufferParam readonly_prop
  method _RENDERBUFFER_HEIGHT_ : int renderbufferParam readonly_prop
  method _RENDERBUFFER_INTERNAL_FORMAT_ :
    format renderbufferParam readonly_prop
  method _RENDERBUFFER_RED_SIZE_ : int renderbufferParam readonly_prop
  method _RENDERBUFFER_GREEN_SIZE_ : int renderbufferParam readonly_prop
  method _RENDERBUFFER_BLUE_SIZE_ : int renderbufferParam readonly_prop
  method _RENDERBUFFER_ALPHA_SIZE_ : int renderbufferParam readonly_prop
  method _RENDERBUFFER_DEPTH_SIZE_ : int renderbufferParam readonly_prop
  method _RENDERBUFFER_STENCIL_SIZE_ : int renderbufferParam readonly_prop

  method _FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE_ :
    objectType attachParam readonly_prop
  method _FRAMEBUFFER_ATTACHMENT_OBJECT_NAME_RENDERBUFFER :
    renderbuffer t attachParam readonly_prop
  method _FRAMEBUFFER_ATTACHMENT_OBJECT_NAME_TEXTURE :
    texture t attachParam readonly_prop
  method _FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL_ : int attachParam readonly_prop
  method _FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE_ :
    int attachParam readonly_prop

  method _COLOR_ATTACHMENT0_ : attachmentPoint readonly_prop
  method _DEPTH_ATTACHMENT_ : attachmentPoint readonly_prop
  method _STENCIL_ATTACHMENT_ : attachmentPoint readonly_prop
  method _DEPTH_STENCIL_ATTACHMENT_ : attachmentPoint readonly_prop

  method _FRAMEBUFFER_COMPLETE_ : framebufferStatus readonly_prop
  method _FRAMEBUFFER_INCOMPLETE_ATTACHMENT_ : framebufferStatus readonly_prop
  method _FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT_ :
    framebufferStatus readonly_prop
  method _FRAMEBUFFER_INCOMPLETE_DIMENSIONS_ : framebufferStatus readonly_prop
  method _FRAMEBUFFER_UNSUPPORTED_ : framebufferStatus readonly_prop

  method _UNPACK_FLIP_Y_WEBGL_PARAM : bool t parameter readonly_prop
  method _UNPACK_PREMULTIPLY_ALPHA_WEBGL_PARAM : bool t parameter readonly_prop
  method _UNPACK_COLORSPACE_CONVERSION_WEBGL_PARAM :
    colorspaceConversion parameter readonly_prop

  method _NONE : colorspaceConversion readonly_prop
  method _BROWSER_DEFAULT_WEBGL_ : colorspaceConversion readonly_prop

  method _UNPACK_ALIGNMENT_ : int pixelStoreParam readonly_prop
  method _UNPACK_FLIP_Y_WEBGL_ : bool t pixelStoreParam readonly_prop
  method _UNPACK_PREMULTIPLY_ALPHA_WEBGL_ :
    bool t pixelStoreParam readonly_prop
  method _UNPACK_COLORSPACE_CONVERSION_WEBGL_ :
    int pixelStoreParam readonly_prop
end

(** 5.14 WebGLContextEvent *)

class type contextEvent = object
  inherit Dom_html.event
  method statusMessage : js_string t readonly_prop
end

module Event : sig
  val webglcontextlost : contextEvent t Dom_html.Event.typ
  val webglcontextrestored : contextEvent t Dom_html.Event.typ
  val webglcontextcreationerror : contextEvent t Dom_html.Event.typ
end

(** Get a context *)

val getContext : Dom_html.canvasElement t -> renderingContext t opt
val getContextWithAttributes :
  Dom_html.canvasElement t -> contextAttributes t -> renderingContext t opt