{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.WebGLRenderingContextBase (js_activeTexture, activeTexture, js_attachShader, attachShader, js_bindAttribLocation, bindAttribLocation, js_bindBuffer, bindBuffer, js_bindFramebuffer, bindFramebuffer, js_bindRenderbuffer, bindRenderbuffer, js_bindTexture, bindTexture, js_blendColor, blendColor, js_blendEquation, blendEquation, js_blendEquationSeparate, blendEquationSeparate, js_blendFunc, blendFunc, js_blendFuncSeparate, blendFuncSeparate, js_bufferData, bufferData, js_bufferDataView, bufferDataView, js_bufferDataPtr, bufferDataPtr, js_bufferSubData, bufferSubData, js_bufferSubDataView, bufferSubDataView, js_checkFramebufferStatus, checkFramebufferStatus, js_clear, clear, js_clearColor, clearColor, js_clearDepth, clearDepth, js_clearStencil, clearStencil, js_colorMask, colorMask, js_compileShader, compileShader, js_compressedTexImage2D, compressedTexImage2D, js_compressedTexSubImage2D, compressedTexSubImage2D, js_copyTexImage2D, copyTexImage2D, js_copyTexSubImage2D, copyTexSubImage2D, js_createBuffer, createBuffer, js_createFramebuffer, createFramebuffer, js_createProgram, createProgram, js_createRenderbuffer, createRenderbuffer, js_createShader, createShader, js_createTexture, createTexture, js_cullFace, cullFace, js_deleteBuffer, deleteBuffer, js_deleteFramebuffer, deleteFramebuffer, js_deleteProgram, deleteProgram, js_deleteRenderbuffer, deleteRenderbuffer, js_deleteShader, deleteShader, js_deleteTexture, deleteTexture, js_depthFunc, depthFunc, js_depthMask, depthMask, js_depthRange, depthRange, js_detachShader, detachShader, js_disable, disable, js_disableVertexAttribArray, disableVertexAttribArray, js_drawArrays, drawArrays, js_drawElements, drawElements, js_enable, enable, js_enableVertexAttribArray, enableVertexAttribArray, js_finish, finish, js_flush, flush, js_framebufferRenderbuffer, framebufferRenderbuffer, js_framebufferTexture2D, framebufferTexture2D, js_frontFace, frontFace, js_generateMipmap, generateMipmap, js_getActiveAttrib, getActiveAttrib, js_getActiveUniform, getActiveUniform, js_getAttachedShaders, getAttachedShaders, js_getAttribLocation, getAttribLocation, js_getBufferParameter, getBufferParameter, js_getContextAttributes, getContextAttributes, js_getError, getError, js_getExtension, getExtension, js_getFramebufferAttachmentParameter, getFramebufferAttachmentParameter, js_getParameter, getParameter, js_getProgramParameter, getProgramParameter, js_getProgramInfoLog, getProgramInfoLog, js_getRenderbufferParameter, getRenderbufferParameter, js_getShaderParameter, getShaderParameter, js_getShaderInfoLog, getShaderInfoLog, js_getShaderPrecisionFormat, getShaderPrecisionFormat, js_getShaderSource, getShaderSource, js_getSupportedExtensions, getSupportedExtensions, js_getTexParameter, getTexParameter, js_getUniform, getUniform, js_getUniformLocation, getUniformLocation, js_getVertexAttrib, getVertexAttrib, js_getVertexAttribOffset, getVertexAttribOffset, js_hint, hint, js_isBuffer, isBuffer, js_isContextLost, isContextLost, js_isEnabled, isEnabled, js_isFramebuffer, isFramebuffer, js_isProgram, isProgram, js_isRenderbuffer, isRenderbuffer, js_isShader, isShader, js_isTexture, isTexture, js_lineWidth, lineWidth, js_linkProgram, linkProgram, js_pixelStorei, pixelStorei, js_polygonOffset, polygonOffset, js_readPixels, readPixels, js_releaseShaderCompiler, releaseShaderCompiler, js_renderbufferStorage, renderbufferStorage, js_sampleCoverage, sampleCoverage, js_scissor, scissor, js_shaderSource, shaderSource, js_stencilFunc, stencilFunc, js_stencilFuncSeparate, stencilFuncSeparate, js_stencilMask, stencilMask, js_stencilMaskSeparate, stencilMaskSeparate, js_stencilOp, stencilOp, js_stencilOpSeparate, stencilOpSeparate, js_texParameterf, texParameterf, js_texParameteri, texParameteri, js_texImage2DView, texImage2DView, js_texImage2DData, texImage2DData, js_texImage2D, texImage2D, js_texImage2DCanvas, texImage2DCanvas, js_texImage2DVideo, texImage2DVideo, js_texSubImage2DView, texSubImage2DView, js_texSubImage2DData, texSubImage2DData, js_texSubImage2D, texSubImage2D, js_texSubImage2DCanvas, texSubImage2DCanvas, js_texSubImage2DVideo, texSubImage2DVideo, js_uniform1f, uniform1f, js_uniform1fv, uniform1fv, js_uniform1i, uniform1i, js_uniform1iv, uniform1iv, js_uniform2f, uniform2f, js_uniform2fv, uniform2fv, js_uniform2i, uniform2i, js_uniform2iv, uniform2iv, js_uniform3f, uniform3f, js_uniform3fv, uniform3fv, js_uniform3i, uniform3i, js_uniform3iv, uniform3iv, js_uniform4f, uniform4f, js_uniform4fv, uniform4fv, js_uniform4i, uniform4i, js_uniform4iv, uniform4iv, js_uniformMatrix2fv, uniformMatrix2fv, js_uniformMatrix3fv, uniformMatrix3fv, js_uniformMatrix4fv, uniformMatrix4fv, js_useProgram, useProgram, js_validateProgram, validateProgram, js_vertexAttrib1f, vertexAttrib1f, js_vertexAttrib1fv, vertexAttrib1fv, js_vertexAttrib2f, vertexAttrib2f, js_vertexAttrib2fv, vertexAttrib2fv, js_vertexAttrib3f, vertexAttrib3f, js_vertexAttrib3fv, vertexAttrib3fv, js_vertexAttrib4f, vertexAttrib4f, js_vertexAttrib4fv, vertexAttrib4fv, js_vertexAttribPointer, vertexAttribPointer, js_viewport, viewport, pattern DEPTH_BUFFER_BIT, pattern STENCIL_BUFFER_BIT, pattern COLOR_BUFFER_BIT, pattern POINTS, pattern LINES, pattern LINE_LOOP, pattern LINE_STRIP, pattern TRIANGLES, pattern TRIANGLE_STRIP, pattern TRIANGLE_FAN, pattern ZERO, pattern ONE, pattern SRC_COLOR, pattern ONE_MINUS_SRC_COLOR, pattern SRC_ALPHA, pattern ONE_MINUS_SRC_ALPHA, pattern DST_ALPHA, pattern ONE_MINUS_DST_ALPHA, pattern DST_COLOR, pattern ONE_MINUS_DST_COLOR, pattern SRC_ALPHA_SATURATE, pattern FUNC_ADD, pattern BLEND_EQUATION, pattern BLEND_EQUATION_RGB, pattern BLEND_EQUATION_ALPHA, pattern FUNC_SUBTRACT, pattern FUNC_REVERSE_SUBTRACT, pattern BLEND_DST_RGB, pattern BLEND_SRC_RGB, pattern BLEND_DST_ALPHA, pattern BLEND_SRC_ALPHA, pattern CONSTANT_COLOR, pattern ONE_MINUS_CONSTANT_COLOR, pattern CONSTANT_ALPHA, pattern ONE_MINUS_CONSTANT_ALPHA, pattern BLEND_COLOR, pattern ARRAY_BUFFER, pattern ELEMENT_ARRAY_BUFFER, pattern ARRAY_BUFFER_BINDING, pattern ELEMENT_ARRAY_BUFFER_BINDING, pattern STREAM_DRAW, pattern STATIC_DRAW, pattern DYNAMIC_DRAW, pattern BUFFER_SIZE, pattern BUFFER_USAGE, pattern CURRENT_VERTEX_ATTRIB, pattern FRONT, pattern BACK, pattern FRONT_AND_BACK, pattern TEXTURE_2D, pattern CULL_FACE, pattern BLEND, pattern DITHER, pattern STENCIL_TEST, pattern DEPTH_TEST, pattern SCISSOR_TEST, pattern POLYGON_OFFSET_FILL, pattern SAMPLE_ALPHA_TO_COVERAGE, pattern SAMPLE_COVERAGE, pattern NO_ERROR, pattern INVALID_ENUM, pattern INVALID_VALUE, pattern INVALID_OPERATION, pattern OUT_OF_MEMORY, pattern CW, pattern CCW, pattern LINE_WIDTH, pattern ALIASED_POINT_SIZE_RANGE, pattern ALIASED_LINE_WIDTH_RANGE, pattern CULL_FACE_MODE, pattern FRONT_FACE, pattern DEPTH_RANGE, pattern DEPTH_WRITEMASK, pattern DEPTH_CLEAR_VALUE, pattern DEPTH_FUNC, pattern STENCIL_CLEAR_VALUE, pattern STENCIL_FUNC, pattern STENCIL_FAIL, pattern STENCIL_PASS_DEPTH_FAIL, pattern STENCIL_PASS_DEPTH_PASS, pattern STENCIL_REF, pattern STENCIL_VALUE_MASK, pattern STENCIL_WRITEMASK, pattern STENCIL_BACK_FUNC, pattern STENCIL_BACK_FAIL, pattern STENCIL_BACK_PASS_DEPTH_FAIL, pattern STENCIL_BACK_PASS_DEPTH_PASS, pattern STENCIL_BACK_REF, pattern STENCIL_BACK_VALUE_MASK, pattern STENCIL_BACK_WRITEMASK, pattern VIEWPORT, pattern SCISSOR_BOX, pattern COLOR_CLEAR_VALUE, pattern COLOR_WRITEMASK, pattern UNPACK_ALIGNMENT, pattern PACK_ALIGNMENT, pattern MAX_TEXTURE_SIZE, pattern MAX_VIEWPORT_DIMS, pattern SUBPIXEL_BITS, pattern RED_BITS, pattern GREEN_BITS, pattern BLUE_BITS, pattern ALPHA_BITS, pattern DEPTH_BITS, pattern STENCIL_BITS, pattern POLYGON_OFFSET_UNITS, pattern POLYGON_OFFSET_FACTOR, pattern TEXTURE_BINDING_2D, pattern SAMPLE_BUFFERS, pattern SAMPLES, pattern SAMPLE_COVERAGE_VALUE, pattern SAMPLE_COVERAGE_INVERT, pattern COMPRESSED_TEXTURE_FORMATS, pattern DONT_CARE, pattern FASTEST, pattern NICEST, pattern GENERATE_MIPMAP_HINT, pattern BYTE, pattern UNSIGNED_BYTE, pattern SHORT, pattern UNSIGNED_SHORT, pattern INT, pattern UNSIGNED_INT, pattern FLOAT, pattern DEPTH_COMPONENT, pattern ALPHA, pattern RGB, pattern RGBA, pattern LUMINANCE, pattern LUMINANCE_ALPHA, pattern UNSIGNED_SHORT_4_4_4_4, pattern UNSIGNED_SHORT_5_5_5_1, pattern UNSIGNED_SHORT_5_6_5, pattern FRAGMENT_SHADER, pattern VERTEX_SHADER, pattern MAX_VERTEX_ATTRIBS, pattern MAX_VERTEX_UNIFORM_VECTORS, pattern MAX_VARYING_VECTORS, pattern MAX_COMBINED_TEXTURE_IMAGE_UNITS, pattern MAX_VERTEX_TEXTURE_IMAGE_UNITS, pattern MAX_TEXTURE_IMAGE_UNITS, pattern MAX_FRAGMENT_UNIFORM_VECTORS, pattern SHADER_TYPE, pattern DELETE_STATUS, pattern LINK_STATUS, pattern VALIDATE_STATUS, pattern ATTACHED_SHADERS, pattern ACTIVE_UNIFORMS, pattern ACTIVE_ATTRIBUTES, pattern SHADING_LANGUAGE_VERSION, pattern CURRENT_PROGRAM, pattern NEVER, pattern LESS, pattern EQUAL, pattern LEQUAL, pattern GREATER, pattern NOTEQUAL, pattern GEQUAL, pattern ALWAYS, pattern KEEP, pattern REPLACE, pattern INCR, pattern DECR, pattern INVERT, pattern INCR_WRAP, pattern DECR_WRAP, pattern VENDOR, pattern RENDERER, pattern VERSION, pattern NEAREST, pattern LINEAR, pattern NEAREST_MIPMAP_NEAREST, pattern LINEAR_MIPMAP_NEAREST, pattern NEAREST_MIPMAP_LINEAR, pattern LINEAR_MIPMAP_LINEAR, pattern TEXTURE_MAG_FILTER, pattern TEXTURE_MIN_FILTER, pattern TEXTURE_WRAP_S, pattern TEXTURE_WRAP_T, pattern TEXTURE, pattern TEXTURE_CUBE_MAP, pattern TEXTURE_BINDING_CUBE_MAP, pattern TEXTURE_CUBE_MAP_POSITIVE_X, pattern TEXTURE_CUBE_MAP_NEGATIVE_X, pattern TEXTURE_CUBE_MAP_POSITIVE_Y, pattern TEXTURE_CUBE_MAP_NEGATIVE_Y, pattern TEXTURE_CUBE_MAP_POSITIVE_Z, pattern TEXTURE_CUBE_MAP_NEGATIVE_Z, pattern MAX_CUBE_MAP_TEXTURE_SIZE, pattern TEXTURE0, pattern TEXTURE1, pattern TEXTURE2, pattern TEXTURE3, pattern TEXTURE4, pattern TEXTURE5, pattern TEXTURE6, pattern TEXTURE7, pattern TEXTURE8, pattern TEXTURE9, pattern TEXTURE10, pattern TEXTURE11, pattern TEXTURE12, pattern TEXTURE13, pattern TEXTURE14, pattern TEXTURE15, pattern TEXTURE16, pattern TEXTURE17, pattern TEXTURE18, pattern TEXTURE19, pattern TEXTURE20, pattern TEXTURE21, pattern TEXTURE22, pattern TEXTURE23, pattern TEXTURE24, pattern TEXTURE25, pattern TEXTURE26, pattern TEXTURE27, pattern TEXTURE28, pattern TEXTURE29, pattern TEXTURE30, pattern TEXTURE31, pattern ACTIVE_TEXTURE, pattern REPEAT, pattern CLAMP_TO_EDGE, pattern MIRRORED_REPEAT, pattern FLOAT_VEC2, pattern FLOAT_VEC3, pattern FLOAT_VEC4, pattern INT_VEC2, pattern INT_VEC3, pattern INT_VEC4, pattern BOOL, pattern BOOL_VEC2, pattern BOOL_VEC3, pattern BOOL_VEC4, pattern FLOAT_MAT2, pattern FLOAT_MAT3, pattern FLOAT_MAT4, pattern SAMPLER_2D, pattern SAMPLER_CUBE, pattern VERTEX_ATTRIB_ARRAY_ENABLED, pattern VERTEX_ATTRIB_ARRAY_SIZE, pattern VERTEX_ATTRIB_ARRAY_STRIDE, pattern VERTEX_ATTRIB_ARRAY_TYPE, pattern VERTEX_ATTRIB_ARRAY_NORMALIZED, pattern VERTEX_ATTRIB_ARRAY_POINTER, pattern VERTEX_ATTRIB_ARRAY_BUFFER_BINDING, pattern IMPLEMENTATION_COLOR_READ_TYPE, pattern IMPLEMENTATION_COLOR_READ_FORMAT, pattern COMPILE_STATUS, pattern LOW_FLOAT, pattern MEDIUM_FLOAT, pattern HIGH_FLOAT, pattern LOW_INT, pattern MEDIUM_INT, pattern HIGH_INT, pattern FRAMEBUFFER, pattern RENDERBUFFER, pattern RGBA4, pattern RGB5_A1, pattern RGB565, pattern DEPTH_COMPONENT16, pattern STENCIL_INDEX, pattern STENCIL_INDEX8, pattern DEPTH_STENCIL, pattern RENDERBUFFER_WIDTH, pattern RENDERBUFFER_HEIGHT, pattern RENDERBUFFER_INTERNAL_FORMAT, pattern RENDERBUFFER_RED_SIZE, pattern RENDERBUFFER_GREEN_SIZE, pattern RENDERBUFFER_BLUE_SIZE, pattern RENDERBUFFER_ALPHA_SIZE, pattern RENDERBUFFER_DEPTH_SIZE, pattern RENDERBUFFER_STENCIL_SIZE, pattern FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE, pattern FRAMEBUFFER_ATTACHMENT_OBJECT_NAME, pattern FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL, pattern FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE, pattern COLOR_ATTACHMENT0, pattern DEPTH_ATTACHMENT, pattern STENCIL_ATTACHMENT, pattern DEPTH_STENCIL_ATTACHMENT, pattern NONE, pattern FRAMEBUFFER_COMPLETE, pattern FRAMEBUFFER_INCOMPLETE_ATTACHMENT, pattern FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT, pattern FRAMEBUFFER_INCOMPLETE_DIMENSIONS, pattern FRAMEBUFFER_UNSUPPORTED, pattern FRAMEBUFFER_BINDING, pattern RENDERBUFFER_BINDING, pattern MAX_RENDERBUFFER_SIZE, pattern INVALID_FRAMEBUFFER_OPERATION, pattern UNPACK_FLIP_Y_WEBGL, pattern UNPACK_PREMULTIPLY_ALPHA_WEBGL, pattern CONTEXT_LOST_WEBGL, pattern UNPACK_COLORSPACE_CONVERSION_WEBGL, pattern BROWSER_DEFAULT_WEBGL, js_getDrawingBufferWidth, getDrawingBufferWidth, js_getDrawingBufferHeight, getDrawingBufferHeight, WebGLRenderingContextBase, castToWebGLRenderingContextBase, gTypeWebGLRenderingContextBase, IsWebGLRenderingContextBase, toWebGLRenderingContextBase) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..)) import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..)) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums foreign import javascript unsafe "$1[\"activeTexture\"]($2)" js_activeTexture :: WebGLRenderingContextBase -> GLenum -> IO () -- | activeTexture :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> m () activeTexture self texture = liftIO (js_activeTexture (toWebGLRenderingContextBase self) texture) foreign import javascript unsafe "$1[\"attachShader\"]($2, $3)" js_attachShader :: WebGLRenderingContextBase -> Nullable WebGLProgram -> Nullable WebGLShader -> IO () -- | attachShader :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLProgram -> Maybe WebGLShader -> m () attachShader self program shader = liftIO (js_attachShader (toWebGLRenderingContextBase self) (maybeToNullable program) (maybeToNullable shader)) foreign import javascript unsafe "$1[\"bindAttribLocation\"]($2, $3,\n$4)" js_bindAttribLocation :: WebGLRenderingContextBase -> Nullable WebGLProgram -> GLuint -> JSString -> IO () -- | bindAttribLocation :: (MonadIO m, IsWebGLRenderingContextBase self, ToJSString name) => self -> Maybe WebGLProgram -> GLuint -> name -> m () bindAttribLocation self program index name = liftIO (js_bindAttribLocation (toWebGLRenderingContextBase self) (maybeToNullable program) index (toJSString name)) foreign import javascript unsafe "$1[\"bindBuffer\"]($2, $3)" js_bindBuffer :: WebGLRenderingContextBase -> GLenum -> Nullable WebGLBuffer -> IO () -- | bindBuffer :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> Maybe WebGLBuffer -> m () bindBuffer self target buffer = liftIO (js_bindBuffer (toWebGLRenderingContextBase self) target (maybeToNullable buffer)) foreign import javascript unsafe "$1[\"bindFramebuffer\"]($2, $3)" js_bindFramebuffer :: WebGLRenderingContextBase -> GLenum -> Nullable WebGLFramebuffer -> IO () -- | bindFramebuffer :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> Maybe WebGLFramebuffer -> m () bindFramebuffer self target framebuffer = liftIO (js_bindFramebuffer (toWebGLRenderingContextBase self) target (maybeToNullable framebuffer)) foreign import javascript unsafe "$1[\"bindRenderbuffer\"]($2, $3)" js_bindRenderbuffer :: WebGLRenderingContextBase -> GLenum -> Nullable WebGLRenderbuffer -> IO () -- | bindRenderbuffer :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> Maybe WebGLRenderbuffer -> m () bindRenderbuffer self target renderbuffer = liftIO (js_bindRenderbuffer (toWebGLRenderingContextBase self) target (maybeToNullable renderbuffer)) foreign import javascript unsafe "$1[\"bindTexture\"]($2, $3)" js_bindTexture :: WebGLRenderingContextBase -> GLenum -> Nullable WebGLTexture -> IO () -- | bindTexture :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> Maybe WebGLTexture -> m () bindTexture self target texture = liftIO (js_bindTexture (toWebGLRenderingContextBase self) target (maybeToNullable texture)) foreign import javascript unsafe "$1[\"blendColor\"]($2, $3, $4, $5)" js_blendColor :: WebGLRenderingContextBase -> GLclampf -> GLclampf -> GLclampf -> GLclampf -> IO () -- | blendColor :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLclampf -> GLclampf -> GLclampf -> GLclampf -> m () blendColor self red green blue alpha = liftIO (js_blendColor (toWebGLRenderingContextBase self) red green blue alpha) foreign import javascript unsafe "$1[\"blendEquation\"]($2)" js_blendEquation :: WebGLRenderingContextBase -> GLenum -> IO () -- | blendEquation :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> m () blendEquation self mode = liftIO (js_blendEquation (toWebGLRenderingContextBase self) mode) foreign import javascript unsafe "$1[\"blendEquationSeparate\"]($2,\n$3)" js_blendEquationSeparate :: WebGLRenderingContextBase -> GLenum -> GLenum -> IO () -- | blendEquationSeparate :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLenum -> m () blendEquationSeparate self modeRGB modeAlpha = liftIO (js_blendEquationSeparate (toWebGLRenderingContextBase self) modeRGB modeAlpha) foreign import javascript unsafe "$1[\"blendFunc\"]($2, $3)" js_blendFunc :: WebGLRenderingContextBase -> GLenum -> GLenum -> IO () -- | blendFunc :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLenum -> m () blendFunc self sfactor dfactor = liftIO (js_blendFunc (toWebGLRenderingContextBase self) sfactor dfactor) foreign import javascript unsafe "$1[\"blendFuncSeparate\"]($2, $3,\n$4, $5)" js_blendFuncSeparate :: WebGLRenderingContextBase -> GLenum -> GLenum -> GLenum -> GLenum -> IO () -- | blendFuncSeparate :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLenum -> GLenum -> GLenum -> m () blendFuncSeparate self srcRGB dstRGB srcAlpha dstAlpha = liftIO (js_blendFuncSeparate (toWebGLRenderingContextBase self) srcRGB dstRGB srcAlpha dstAlpha) foreign import javascript unsafe "$1[\"bufferData\"]($2, $3, $4)" js_bufferData :: WebGLRenderingContextBase -> GLenum -> Nullable ArrayBuffer -> GLenum -> IO () -- | bufferData :: (MonadIO m, IsWebGLRenderingContextBase self, IsArrayBuffer data') => self -> GLenum -> Maybe data' -> GLenum -> m () bufferData self target data' usage = liftIO (js_bufferData (toWebGLRenderingContextBase self) target (maybeToNullable (fmap toArrayBuffer data')) usage) foreign import javascript unsafe "$1[\"bufferData\"]($2, $3, $4)" js_bufferDataView :: WebGLRenderingContextBase -> GLenum -> Nullable ArrayBufferView -> GLenum -> IO () -- | bufferDataView :: (MonadIO m, IsWebGLRenderingContextBase self, IsArrayBufferView data') => self -> GLenum -> Maybe data' -> GLenum -> m () bufferDataView self target data' usage = liftIO (js_bufferDataView (toWebGLRenderingContextBase self) target (maybeToNullable (fmap toArrayBufferView data')) usage) foreign import javascript unsafe "$1[\"bufferData\"]($2, $3, $4)" js_bufferDataPtr :: WebGLRenderingContextBase -> GLenum -> Double -> GLenum -> IO () -- | bufferDataPtr :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLsizeiptr -> GLenum -> m () bufferDataPtr self target size usage = liftIO (js_bufferDataPtr (toWebGLRenderingContextBase self) target (fromIntegral size) usage) foreign import javascript unsafe "$1[\"bufferSubData\"]($2, $3, $4)" js_bufferSubData :: WebGLRenderingContextBase -> GLenum -> Double -> Nullable ArrayBuffer -> IO () -- | bufferSubData :: (MonadIO m, IsWebGLRenderingContextBase self, IsArrayBuffer data') => self -> GLenum -> GLintptr -> Maybe data' -> m () bufferSubData self target offset data' = liftIO (js_bufferSubData (toWebGLRenderingContextBase self) target (fromIntegral offset) (maybeToNullable (fmap toArrayBuffer data'))) foreign import javascript unsafe "$1[\"bufferSubData\"]($2, $3, $4)" js_bufferSubDataView :: WebGLRenderingContextBase -> GLenum -> Double -> Nullable ArrayBufferView -> IO () -- | bufferSubDataView :: (MonadIO m, IsWebGLRenderingContextBase self, IsArrayBufferView data') => self -> GLenum -> GLintptr -> Maybe data' -> m () bufferSubDataView self target offset data' = liftIO (js_bufferSubDataView (toWebGLRenderingContextBase self) target (fromIntegral offset) (maybeToNullable (fmap toArrayBufferView data'))) foreign import javascript unsafe "$1[\"checkFramebufferStatus\"]($2)" js_checkFramebufferStatus :: WebGLRenderingContextBase -> GLenum -> IO GLenum -- | checkFramebufferStatus :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> m GLenum checkFramebufferStatus self target = liftIO (js_checkFramebufferStatus (toWebGLRenderingContextBase self) target) foreign import javascript unsafe "$1[\"clear\"]($2)" js_clear :: WebGLRenderingContextBase -> GLbitfield -> IO () -- | clear :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLbitfield -> m () clear self mask = liftIO (js_clear (toWebGLRenderingContextBase self) mask) foreign import javascript unsafe "$1[\"clearColor\"]($2, $3, $4, $5)" js_clearColor :: WebGLRenderingContextBase -> GLclampf -> GLclampf -> GLclampf -> GLclampf -> IO () -- | clearColor :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLclampf -> GLclampf -> GLclampf -> GLclampf -> m () clearColor self red green blue alpha = liftIO (js_clearColor (toWebGLRenderingContextBase self) red green blue alpha) foreign import javascript unsafe "$1[\"clearDepth\"]($2)" js_clearDepth :: WebGLRenderingContextBase -> GLclampf -> IO () -- | clearDepth :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLclampf -> m () clearDepth self depth = liftIO (js_clearDepth (toWebGLRenderingContextBase self) depth) foreign import javascript unsafe "$1[\"clearStencil\"]($2)" js_clearStencil :: WebGLRenderingContextBase -> GLint -> IO () -- | clearStencil :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLint -> m () clearStencil self s = liftIO (js_clearStencil (toWebGLRenderingContextBase self) s) foreign import javascript unsafe "$1[\"colorMask\"]($2, $3, $4, $5)" js_colorMask :: WebGLRenderingContextBase -> GLboolean -> GLboolean -> GLboolean -> GLboolean -> IO () -- | colorMask :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLboolean -> GLboolean -> GLboolean -> GLboolean -> m () colorMask self red green blue alpha = liftIO (js_colorMask (toWebGLRenderingContextBase self) red green blue alpha) foreign import javascript unsafe "$1[\"compileShader\"]($2)" js_compileShader :: WebGLRenderingContextBase -> Nullable WebGLShader -> IO () -- | compileShader :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLShader -> m () compileShader self shader = liftIO (js_compileShader (toWebGLRenderingContextBase self) (maybeToNullable shader)) foreign import javascript unsafe "$1[\"compressedTexImage2D\"]($2,\n$3, $4, $5, $6, $7, $8)" js_compressedTexImage2D :: WebGLRenderingContextBase -> GLenum -> GLint -> GLenum -> GLsizei -> GLsizei -> GLint -> Nullable ArrayBufferView -> IO () -- | compressedTexImage2D :: (MonadIO m, IsWebGLRenderingContextBase self, IsArrayBufferView data') => self -> GLenum -> GLint -> GLenum -> GLsizei -> GLsizei -> GLint -> Maybe data' -> m () compressedTexImage2D self target level internalformat width height border data' = liftIO (js_compressedTexImage2D (toWebGLRenderingContextBase self) target level internalformat width height border (maybeToNullable (fmap toArrayBufferView data'))) foreign import javascript unsafe "$1[\"compressedTexSubImage2D\"]($2,\n$3, $4, $5, $6, $7, $8, $9)" js_compressedTexSubImage2D :: WebGLRenderingContextBase -> GLenum -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GLenum -> Nullable ArrayBufferView -> IO () -- | compressedTexSubImage2D :: (MonadIO m, IsWebGLRenderingContextBase self, IsArrayBufferView data') => self -> GLenum -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GLenum -> Maybe data' -> m () compressedTexSubImage2D self target level xoffset yoffset width height format data' = liftIO (js_compressedTexSubImage2D (toWebGLRenderingContextBase self) target level xoffset yoffset width height format (maybeToNullable (fmap toArrayBufferView data'))) foreign import javascript unsafe "$1[\"copyTexImage2D\"]($2, $3, $4,\n$5, $6, $7, $8, $9)" js_copyTexImage2D :: WebGLRenderingContextBase -> GLenum -> GLint -> GLenum -> GLint -> GLint -> GLsizei -> GLsizei -> GLint -> IO () -- | copyTexImage2D :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLint -> GLenum -> GLint -> GLint -> GLsizei -> GLsizei -> GLint -> m () copyTexImage2D self target level internalformat x y width height border = liftIO (js_copyTexImage2D (toWebGLRenderingContextBase self) target level internalformat x y width height border) foreign import javascript unsafe "$1[\"copyTexSubImage2D\"]($2, $3,\n$4, $5, $6, $7, $8, $9)" js_copyTexSubImage2D :: WebGLRenderingContextBase -> GLenum -> GLint -> GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> IO () -- | copyTexSubImage2D :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLint -> GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> m () copyTexSubImage2D self target level xoffset yoffset x y width height = liftIO (js_copyTexSubImage2D (toWebGLRenderingContextBase self) target level xoffset yoffset x y width height) foreign import javascript unsafe "$1[\"createBuffer\"]()" js_createBuffer :: WebGLRenderingContextBase -> IO (Nullable WebGLBuffer) -- | createBuffer :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> m (Maybe WebGLBuffer) createBuffer self = liftIO (nullableToMaybe <$> (js_createBuffer (toWebGLRenderingContextBase self))) foreign import javascript unsafe "$1[\"createFramebuffer\"]()" js_createFramebuffer :: WebGLRenderingContextBase -> IO (Nullable WebGLFramebuffer) -- | createFramebuffer :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> m (Maybe WebGLFramebuffer) createFramebuffer self = liftIO (nullableToMaybe <$> (js_createFramebuffer (toWebGLRenderingContextBase self))) foreign import javascript unsafe "$1[\"createProgram\"]()" js_createProgram :: WebGLRenderingContextBase -> IO (Nullable WebGLProgram) -- | createProgram :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> m (Maybe WebGLProgram) createProgram self = liftIO (nullableToMaybe <$> (js_createProgram (toWebGLRenderingContextBase self))) foreign import javascript unsafe "$1[\"createRenderbuffer\"]()" js_createRenderbuffer :: WebGLRenderingContextBase -> IO (Nullable WebGLRenderbuffer) -- | createRenderbuffer :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> m (Maybe WebGLRenderbuffer) createRenderbuffer self = liftIO (nullableToMaybe <$> (js_createRenderbuffer (toWebGLRenderingContextBase self))) foreign import javascript unsafe "$1[\"createShader\"]($2)" js_createShader :: WebGLRenderingContextBase -> GLenum -> IO (Nullable WebGLShader) -- | createShader :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> m (Maybe WebGLShader) createShader self type' = liftIO (nullableToMaybe <$> (js_createShader (toWebGLRenderingContextBase self) type')) foreign import javascript unsafe "$1[\"createTexture\"]()" js_createTexture :: WebGLRenderingContextBase -> IO (Nullable WebGLTexture) -- | createTexture :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> m (Maybe WebGLTexture) createTexture self = liftIO (nullableToMaybe <$> (js_createTexture (toWebGLRenderingContextBase self))) foreign import javascript unsafe "$1[\"cullFace\"]($2)" js_cullFace :: WebGLRenderingContextBase -> GLenum -> IO () -- | cullFace :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> m () cullFace self mode = liftIO (js_cullFace (toWebGLRenderingContextBase self) mode) foreign import javascript unsafe "$1[\"deleteBuffer\"]($2)" js_deleteBuffer :: WebGLRenderingContextBase -> Nullable WebGLBuffer -> IO () -- | deleteBuffer :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLBuffer -> m () deleteBuffer self buffer = liftIO (js_deleteBuffer (toWebGLRenderingContextBase self) (maybeToNullable buffer)) foreign import javascript unsafe "$1[\"deleteFramebuffer\"]($2)" js_deleteFramebuffer :: WebGLRenderingContextBase -> Nullable WebGLFramebuffer -> IO () -- | deleteFramebuffer :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLFramebuffer -> m () deleteFramebuffer self framebuffer = liftIO (js_deleteFramebuffer (toWebGLRenderingContextBase self) (maybeToNullable framebuffer)) foreign import javascript unsafe "$1[\"deleteProgram\"]($2)" js_deleteProgram :: WebGLRenderingContextBase -> Nullable WebGLProgram -> IO () -- | deleteProgram :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLProgram -> m () deleteProgram self program = liftIO (js_deleteProgram (toWebGLRenderingContextBase self) (maybeToNullable program)) foreign import javascript unsafe "$1[\"deleteRenderbuffer\"]($2)" js_deleteRenderbuffer :: WebGLRenderingContextBase -> Nullable WebGLRenderbuffer -> IO () -- | deleteRenderbuffer :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLRenderbuffer -> m () deleteRenderbuffer self renderbuffer = liftIO (js_deleteRenderbuffer (toWebGLRenderingContextBase self) (maybeToNullable renderbuffer)) foreign import javascript unsafe "$1[\"deleteShader\"]($2)" js_deleteShader :: WebGLRenderingContextBase -> Nullable WebGLShader -> IO () -- | deleteShader :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLShader -> m () deleteShader self shader = liftIO (js_deleteShader (toWebGLRenderingContextBase self) (maybeToNullable shader)) foreign import javascript unsafe "$1[\"deleteTexture\"]($2)" js_deleteTexture :: WebGLRenderingContextBase -> Nullable WebGLTexture -> IO () -- | deleteTexture :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLTexture -> m () deleteTexture self texture = liftIO (js_deleteTexture (toWebGLRenderingContextBase self) (maybeToNullable texture)) foreign import javascript unsafe "$1[\"depthFunc\"]($2)" js_depthFunc :: WebGLRenderingContextBase -> GLenum -> IO () -- | depthFunc :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> m () depthFunc self func = liftIO (js_depthFunc (toWebGLRenderingContextBase self) func) foreign import javascript unsafe "$1[\"depthMask\"]($2)" js_depthMask :: WebGLRenderingContextBase -> GLboolean -> IO () -- | depthMask :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLboolean -> m () depthMask self flag = liftIO (js_depthMask (toWebGLRenderingContextBase self) flag) foreign import javascript unsafe "$1[\"depthRange\"]($2, $3)" js_depthRange :: WebGLRenderingContextBase -> GLclampf -> GLclampf -> IO () -- | depthRange :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLclampf -> GLclampf -> m () depthRange self zNear zFar = liftIO (js_depthRange (toWebGLRenderingContextBase self) zNear zFar) foreign import javascript unsafe "$1[\"detachShader\"]($2, $3)" js_detachShader :: WebGLRenderingContextBase -> Nullable WebGLProgram -> Nullable WebGLShader -> IO () -- | detachShader :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLProgram -> Maybe WebGLShader -> m () detachShader self program shader = liftIO (js_detachShader (toWebGLRenderingContextBase self) (maybeToNullable program) (maybeToNullable shader)) foreign import javascript unsafe "$1[\"disable\"]($2)" js_disable :: WebGLRenderingContextBase -> GLenum -> IO () -- | disable :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> m () disable self cap = liftIO (js_disable (toWebGLRenderingContextBase self) cap) foreign import javascript unsafe "$1[\"disableVertexAttribArray\"]($2)" js_disableVertexAttribArray :: WebGLRenderingContextBase -> GLuint -> IO () -- | disableVertexAttribArray :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLuint -> m () disableVertexAttribArray self index = liftIO (js_disableVertexAttribArray (toWebGLRenderingContextBase self) index) foreign import javascript unsafe "$1[\"drawArrays\"]($2, $3, $4)" js_drawArrays :: WebGLRenderingContextBase -> GLenum -> GLint -> GLsizei -> IO () -- | drawArrays :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLint -> GLsizei -> m () drawArrays self mode first count = liftIO (js_drawArrays (toWebGLRenderingContextBase self) mode first count) foreign import javascript unsafe "$1[\"drawElements\"]($2, $3, $4,\n$5)" js_drawElements :: WebGLRenderingContextBase -> GLenum -> GLsizei -> GLenum -> Double -> IO () -- | drawElements :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLsizei -> GLenum -> GLintptr -> m () drawElements self mode count type' offset = liftIO (js_drawElements (toWebGLRenderingContextBase self) mode count type' (fromIntegral offset)) foreign import javascript unsafe "$1[\"enable\"]($2)" js_enable :: WebGLRenderingContextBase -> GLenum -> IO () -- | enable :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> m () enable self cap = liftIO (js_enable (toWebGLRenderingContextBase self) cap) foreign import javascript unsafe "$1[\"enableVertexAttribArray\"]($2)" js_enableVertexAttribArray :: WebGLRenderingContextBase -> GLuint -> IO () -- | enableVertexAttribArray :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLuint -> m () enableVertexAttribArray self index = liftIO (js_enableVertexAttribArray (toWebGLRenderingContextBase self) index) foreign import javascript unsafe "$1[\"finish\"]()" js_finish :: WebGLRenderingContextBase -> IO () -- | finish :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> m () finish self = liftIO (js_finish (toWebGLRenderingContextBase self)) foreign import javascript unsafe "$1[\"flush\"]()" js_flush :: WebGLRenderingContextBase -> IO () -- | flush :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> m () flush self = liftIO (js_flush (toWebGLRenderingContextBase self)) foreign import javascript unsafe "$1[\"framebufferRenderbuffer\"]($2,\n$3, $4, $5)" js_framebufferRenderbuffer :: WebGLRenderingContextBase -> GLenum -> GLenum -> GLenum -> Nullable WebGLRenderbuffer -> IO () -- | framebufferRenderbuffer :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLenum -> GLenum -> Maybe WebGLRenderbuffer -> m () framebufferRenderbuffer self target attachment renderbuffertarget renderbuffer = liftIO (js_framebufferRenderbuffer (toWebGLRenderingContextBase self) target attachment renderbuffertarget (maybeToNullable renderbuffer)) foreign import javascript unsafe "$1[\"framebufferTexture2D\"]($2,\n$3, $4, $5, $6)" js_framebufferTexture2D :: WebGLRenderingContextBase -> GLenum -> GLenum -> GLenum -> Nullable WebGLTexture -> GLint -> IO () -- | framebufferTexture2D :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLenum -> GLenum -> Maybe WebGLTexture -> GLint -> m () framebufferTexture2D self target attachment textarget texture level = liftIO (js_framebufferTexture2D (toWebGLRenderingContextBase self) target attachment textarget (maybeToNullable texture) level) foreign import javascript unsafe "$1[\"frontFace\"]($2)" js_frontFace :: WebGLRenderingContextBase -> GLenum -> IO () -- | frontFace :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> m () frontFace self mode = liftIO (js_frontFace (toWebGLRenderingContextBase self) mode) foreign import javascript unsafe "$1[\"generateMipmap\"]($2)" js_generateMipmap :: WebGLRenderingContextBase -> GLenum -> IO () -- | generateMipmap :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> m () generateMipmap self target = liftIO (js_generateMipmap (toWebGLRenderingContextBase self) target) foreign import javascript unsafe "$1[\"getActiveAttrib\"]($2, $3)" js_getActiveAttrib :: WebGLRenderingContextBase -> Nullable WebGLProgram -> GLuint -> IO (Nullable WebGLActiveInfo) -- | getActiveAttrib :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLProgram -> GLuint -> m (Maybe WebGLActiveInfo) getActiveAttrib self program index = liftIO (nullableToMaybe <$> (js_getActiveAttrib (toWebGLRenderingContextBase self) (maybeToNullable program) index)) foreign import javascript unsafe "$1[\"getActiveUniform\"]($2, $3)" js_getActiveUniform :: WebGLRenderingContextBase -> Nullable WebGLProgram -> GLuint -> IO (Nullable WebGLActiveInfo) -- | getActiveUniform :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLProgram -> GLuint -> m (Maybe WebGLActiveInfo) getActiveUniform self program index = liftIO (nullableToMaybe <$> (js_getActiveUniform (toWebGLRenderingContextBase self) (maybeToNullable program) index)) foreign import javascript unsafe "$1[\"getAttachedShaders\"]($2)" js_getAttachedShaders :: WebGLRenderingContextBase -> Nullable WebGLProgram -> IO () -- | getAttachedShaders :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLProgram -> m () getAttachedShaders self program = liftIO (js_getAttachedShaders (toWebGLRenderingContextBase self) (maybeToNullable program)) foreign import javascript unsafe "$1[\"getAttribLocation\"]($2, $3)" js_getAttribLocation :: WebGLRenderingContextBase -> Nullable WebGLProgram -> JSString -> IO GLint -- | getAttribLocation :: (MonadIO m, IsWebGLRenderingContextBase self, ToJSString name) => self -> Maybe WebGLProgram -> name -> m GLint getAttribLocation self program name = liftIO (js_getAttribLocation (toWebGLRenderingContextBase self) (maybeToNullable program) (toJSString name)) foreign import javascript unsafe "$1[\"getBufferParameter\"]($2, $3)" js_getBufferParameter :: WebGLRenderingContextBase -> GLenum -> GLenum -> IO JSRef -- | getBufferParameter :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLenum -> m JSRef getBufferParameter self target pname = liftIO (js_getBufferParameter (toWebGLRenderingContextBase self) target pname) foreign import javascript unsafe "$1[\"getContextAttributes\"]()" js_getContextAttributes :: WebGLRenderingContextBase -> IO (Nullable WebGLContextAttributes) -- | getContextAttributes :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> m (Maybe WebGLContextAttributes) getContextAttributes self = liftIO (nullableToMaybe <$> (js_getContextAttributes (toWebGLRenderingContextBase self))) foreign import javascript unsafe "$1[\"getError\"]()" js_getError :: WebGLRenderingContextBase -> IO GLenum -- | getError :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> m GLenum getError self = liftIO (js_getError (toWebGLRenderingContextBase self)) foreign import javascript unsafe "$1[\"getExtension\"]($2)" js_getExtension :: WebGLRenderingContextBase -> JSString -> IO JSRef -- | getExtension :: (MonadIO m, IsWebGLRenderingContextBase self, ToJSString name) => self -> name -> m JSRef getExtension self name = liftIO (js_getExtension (toWebGLRenderingContextBase self) (toJSString name)) foreign import javascript unsafe "$1[\"getFramebufferAttachmentParameter\"]($2,\n$3, $4)" js_getFramebufferAttachmentParameter :: WebGLRenderingContextBase -> GLenum -> GLenum -> GLenum -> IO JSRef -- | getFramebufferAttachmentParameter :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLenum -> GLenum -> m JSRef getFramebufferAttachmentParameter self target attachment pname = liftIO (js_getFramebufferAttachmentParameter (toWebGLRenderingContextBase self) target attachment pname) foreign import javascript unsafe "$1[\"getParameter\"]($2)" js_getParameter :: WebGLRenderingContextBase -> GLenum -> IO JSRef -- | getParameter :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> m JSRef getParameter self pname = liftIO (js_getParameter (toWebGLRenderingContextBase self) pname) foreign import javascript unsafe "$1[\"getProgramParameter\"]($2,\n$3)" js_getProgramParameter :: WebGLRenderingContextBase -> Nullable WebGLProgram -> GLenum -> IO JSRef -- | getProgramParameter :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLProgram -> GLenum -> m JSRef getProgramParameter self program pname = liftIO (js_getProgramParameter (toWebGLRenderingContextBase self) (maybeToNullable program) pname) foreign import javascript unsafe "$1[\"getProgramInfoLog\"]($2)" js_getProgramInfoLog :: WebGLRenderingContextBase -> Nullable WebGLProgram -> IO (Nullable JSString) -- | getProgramInfoLog :: (MonadIO m, IsWebGLRenderingContextBase self, FromJSString result) => self -> Maybe WebGLProgram -> m (Maybe result) getProgramInfoLog self program = liftIO (fromMaybeJSString <$> (js_getProgramInfoLog (toWebGLRenderingContextBase self) (maybeToNullable program))) foreign import javascript unsafe "$1[\"getRenderbufferParameter\"]($2,\n$3)" js_getRenderbufferParameter :: WebGLRenderingContextBase -> GLenum -> GLenum -> IO JSRef -- | getRenderbufferParameter :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLenum -> m JSRef getRenderbufferParameter self target pname = liftIO (js_getRenderbufferParameter (toWebGLRenderingContextBase self) target pname) foreign import javascript unsafe "$1[\"getShaderParameter\"]($2, $3)" js_getShaderParameter :: WebGLRenderingContextBase -> Nullable WebGLShader -> GLenum -> IO JSRef -- | getShaderParameter :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLShader -> GLenum -> m JSRef getShaderParameter self shader pname = liftIO (js_getShaderParameter (toWebGLRenderingContextBase self) (maybeToNullable shader) pname) foreign import javascript unsafe "$1[\"getShaderInfoLog\"]($2)" js_getShaderInfoLog :: WebGLRenderingContextBase -> Nullable WebGLShader -> IO (Nullable JSString) -- | getShaderInfoLog :: (MonadIO m, IsWebGLRenderingContextBase self, FromJSString result) => self -> Maybe WebGLShader -> m (Maybe result) getShaderInfoLog self shader = liftIO (fromMaybeJSString <$> (js_getShaderInfoLog (toWebGLRenderingContextBase self) (maybeToNullable shader))) foreign import javascript unsafe "$1[\"getShaderPrecisionFormat\"]($2,\n$3)" js_getShaderPrecisionFormat :: WebGLRenderingContextBase -> GLenum -> GLenum -> IO (Nullable WebGLShaderPrecisionFormat) -- | getShaderPrecisionFormat :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLenum -> m (Maybe WebGLShaderPrecisionFormat) getShaderPrecisionFormat self shadertype precisiontype = liftIO (nullableToMaybe <$> (js_getShaderPrecisionFormat (toWebGLRenderingContextBase self) shadertype precisiontype)) foreign import javascript unsafe "$1[\"getShaderSource\"]($2)" js_getShaderSource :: WebGLRenderingContextBase -> Nullable WebGLShader -> IO (Nullable JSString) -- | getShaderSource :: (MonadIO m, IsWebGLRenderingContextBase self, FromJSString result) => self -> Maybe WebGLShader -> m (Maybe result) getShaderSource self shader = liftIO (fromMaybeJSString <$> (js_getShaderSource (toWebGLRenderingContextBase self) (maybeToNullable shader))) foreign import javascript unsafe "$1[\"getSupportedExtensions\"]()" js_getSupportedExtensions :: WebGLRenderingContextBase -> IO JSRef -- | getSupportedExtensions :: (MonadIO m, IsWebGLRenderingContextBase self, FromJSString result) => self -> m [result] getSupportedExtensions self = liftIO ((js_getSupportedExtensions (toWebGLRenderingContextBase self)) >>= fromJSRefUnchecked) foreign import javascript unsafe "$1[\"getTexParameter\"]($2, $3)" js_getTexParameter :: WebGLRenderingContextBase -> GLenum -> GLenum -> IO JSRef -- | getTexParameter :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLenum -> m JSRef getTexParameter self target pname = liftIO (js_getTexParameter (toWebGLRenderingContextBase self) target pname) foreign import javascript unsafe "$1[\"getUniform\"]($2, $3)" js_getUniform :: WebGLRenderingContextBase -> Nullable WebGLProgram -> Nullable WebGLUniformLocation -> IO JSRef -- | getUniform :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLProgram -> Maybe WebGLUniformLocation -> m JSRef getUniform self program location = liftIO (js_getUniform (toWebGLRenderingContextBase self) (maybeToNullable program) (maybeToNullable location)) foreign import javascript unsafe "$1[\"getUniformLocation\"]($2, $3)" js_getUniformLocation :: WebGLRenderingContextBase -> Nullable WebGLProgram -> JSString -> IO (Nullable WebGLUniformLocation) -- | getUniformLocation :: (MonadIO m, IsWebGLRenderingContextBase self, ToJSString name) => self -> Maybe WebGLProgram -> name -> m (Maybe WebGLUniformLocation) getUniformLocation self program name = liftIO (nullableToMaybe <$> (js_getUniformLocation (toWebGLRenderingContextBase self) (maybeToNullable program) (toJSString name))) foreign import javascript unsafe "$1[\"getVertexAttrib\"]($2, $3)" js_getVertexAttrib :: WebGLRenderingContextBase -> GLuint -> GLenum -> IO JSRef -- | getVertexAttrib :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLuint -> GLenum -> m JSRef getVertexAttrib self index pname = liftIO (js_getVertexAttrib (toWebGLRenderingContextBase self) index pname) foreign import javascript unsafe "$1[\"getVertexAttribOffset\"]($2,\n$3)" js_getVertexAttribOffset :: WebGLRenderingContextBase -> GLuint -> GLenum -> IO Double -- | getVertexAttribOffset :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLuint -> GLenum -> m GLsizeiptr getVertexAttribOffset self index pname = liftIO (round <$> (js_getVertexAttribOffset (toWebGLRenderingContextBase self) index pname)) foreign import javascript unsafe "$1[\"hint\"]($2, $3)" js_hint :: WebGLRenderingContextBase -> GLenum -> GLenum -> IO () -- | hint :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLenum -> m () hint self target mode = liftIO (js_hint (toWebGLRenderingContextBase self) target mode) foreign import javascript unsafe "$1[\"isBuffer\"]($2)" js_isBuffer :: WebGLRenderingContextBase -> Nullable WebGLBuffer -> IO GLboolean -- | isBuffer :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLBuffer -> m GLboolean isBuffer self buffer = liftIO (js_isBuffer (toWebGLRenderingContextBase self) (maybeToNullable buffer)) foreign import javascript unsafe "$1[\"isContextLost\"]()" js_isContextLost :: WebGLRenderingContextBase -> IO GLboolean -- | isContextLost :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> m GLboolean isContextLost self = liftIO (js_isContextLost (toWebGLRenderingContextBase self)) foreign import javascript unsafe "$1[\"isEnabled\"]($2)" js_isEnabled :: WebGLRenderingContextBase -> GLenum -> IO GLboolean -- | isEnabled :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> m GLboolean isEnabled self cap = liftIO (js_isEnabled (toWebGLRenderingContextBase self) cap) foreign import javascript unsafe "$1[\"isFramebuffer\"]($2)" js_isFramebuffer :: WebGLRenderingContextBase -> Nullable WebGLFramebuffer -> IO GLboolean -- | isFramebuffer :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLFramebuffer -> m GLboolean isFramebuffer self framebuffer = liftIO (js_isFramebuffer (toWebGLRenderingContextBase self) (maybeToNullable framebuffer)) foreign import javascript unsafe "$1[\"isProgram\"]($2)" js_isProgram :: WebGLRenderingContextBase -> Nullable WebGLProgram -> IO GLboolean -- | isProgram :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLProgram -> m GLboolean isProgram self program = liftIO (js_isProgram (toWebGLRenderingContextBase self) (maybeToNullable program)) foreign import javascript unsafe "$1[\"isRenderbuffer\"]($2)" js_isRenderbuffer :: WebGLRenderingContextBase -> Nullable WebGLRenderbuffer -> IO GLboolean -- | isRenderbuffer :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLRenderbuffer -> m GLboolean isRenderbuffer self renderbuffer = liftIO (js_isRenderbuffer (toWebGLRenderingContextBase self) (maybeToNullable renderbuffer)) foreign import javascript unsafe "$1[\"isShader\"]($2)" js_isShader :: WebGLRenderingContextBase -> Nullable WebGLShader -> IO GLboolean -- | isShader :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLShader -> m GLboolean isShader self shader = liftIO (js_isShader (toWebGLRenderingContextBase self) (maybeToNullable shader)) foreign import javascript unsafe "$1[\"isTexture\"]($2)" js_isTexture :: WebGLRenderingContextBase -> Nullable WebGLTexture -> IO GLboolean -- | isTexture :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLTexture -> m GLboolean isTexture self texture = liftIO (js_isTexture (toWebGLRenderingContextBase self) (maybeToNullable texture)) foreign import javascript unsafe "$1[\"lineWidth\"]($2)" js_lineWidth :: WebGLRenderingContextBase -> GLfloat -> IO () -- | lineWidth :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLfloat -> m () lineWidth self width = liftIO (js_lineWidth (toWebGLRenderingContextBase self) width) foreign import javascript unsafe "$1[\"linkProgram\"]($2)" js_linkProgram :: WebGLRenderingContextBase -> Nullable WebGLProgram -> IO () -- | linkProgram :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLProgram -> m () linkProgram self program = liftIO (js_linkProgram (toWebGLRenderingContextBase self) (maybeToNullable program)) foreign import javascript unsafe "$1[\"pixelStorei\"]($2, $3)" js_pixelStorei :: WebGLRenderingContextBase -> GLenum -> GLint -> IO () -- | pixelStorei :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLint -> m () pixelStorei self pname param = liftIO (js_pixelStorei (toWebGLRenderingContextBase self) pname param) foreign import javascript unsafe "$1[\"polygonOffset\"]($2, $3)" js_polygonOffset :: WebGLRenderingContextBase -> GLfloat -> GLfloat -> IO () -- | polygonOffset :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLfloat -> GLfloat -> m () polygonOffset self factor units = liftIO (js_polygonOffset (toWebGLRenderingContextBase self) factor units) foreign import javascript unsafe "$1[\"readPixels\"]($2, $3, $4, $5,\n$6, $7, $8)" js_readPixels :: WebGLRenderingContextBase -> GLint -> GLint -> GLsizei -> GLsizei -> GLenum -> GLenum -> Nullable ArrayBufferView -> IO () -- | readPixels :: (MonadIO m, IsWebGLRenderingContextBase self, IsArrayBufferView pixels) => self -> GLint -> GLint -> GLsizei -> GLsizei -> GLenum -> GLenum -> Maybe pixels -> m () readPixels self x y width height format type' pixels = liftIO (js_readPixels (toWebGLRenderingContextBase self) x y width height format type' (maybeToNullable (fmap toArrayBufferView pixels))) foreign import javascript unsafe "$1[\"releaseShaderCompiler\"]()" js_releaseShaderCompiler :: WebGLRenderingContextBase -> IO () -- | releaseShaderCompiler :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> m () releaseShaderCompiler self = liftIO (js_releaseShaderCompiler (toWebGLRenderingContextBase self)) foreign import javascript unsafe "$1[\"renderbufferStorage\"]($2,\n$3, $4, $5)" js_renderbufferStorage :: WebGLRenderingContextBase -> GLenum -> GLenum -> GLsizei -> GLsizei -> IO () -- | renderbufferStorage :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLenum -> GLsizei -> GLsizei -> m () renderbufferStorage self target internalformat width height = liftIO (js_renderbufferStorage (toWebGLRenderingContextBase self) target internalformat width height) foreign import javascript unsafe "$1[\"sampleCoverage\"]($2, $3)" js_sampleCoverage :: WebGLRenderingContextBase -> GLclampf -> GLboolean -> IO () -- | sampleCoverage :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLclampf -> GLboolean -> m () sampleCoverage self value invert = liftIO (js_sampleCoverage (toWebGLRenderingContextBase self) value invert) foreign import javascript unsafe "$1[\"scissor\"]($2, $3, $4, $5)" js_scissor :: WebGLRenderingContextBase -> GLint -> GLint -> GLsizei -> GLsizei -> IO () -- | scissor :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLint -> GLint -> GLsizei -> GLsizei -> m () scissor self x y width height = liftIO (js_scissor (toWebGLRenderingContextBase self) x y width height) foreign import javascript unsafe "$1[\"shaderSource\"]($2, $3)" js_shaderSource :: WebGLRenderingContextBase -> Nullable WebGLShader -> JSString -> IO () -- | shaderSource :: (MonadIO m, IsWebGLRenderingContextBase self, ToJSString string) => self -> Maybe WebGLShader -> string -> m () shaderSource self shader string = liftIO (js_shaderSource (toWebGLRenderingContextBase self) (maybeToNullable shader) (toJSString string)) foreign import javascript unsafe "$1[\"stencilFunc\"]($2, $3, $4)" js_stencilFunc :: WebGLRenderingContextBase -> GLenum -> GLint -> GLuint -> IO () -- | stencilFunc :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLint -> GLuint -> m () stencilFunc self func ref mask = liftIO (js_stencilFunc (toWebGLRenderingContextBase self) func ref mask) foreign import javascript unsafe "$1[\"stencilFuncSeparate\"]($2,\n$3, $4, $5)" js_stencilFuncSeparate :: WebGLRenderingContextBase -> GLenum -> GLenum -> GLint -> GLuint -> IO () -- | stencilFuncSeparate :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLenum -> GLint -> GLuint -> m () stencilFuncSeparate self face func ref mask = liftIO (js_stencilFuncSeparate (toWebGLRenderingContextBase self) face func ref mask) foreign import javascript unsafe "$1[\"stencilMask\"]($2)" js_stencilMask :: WebGLRenderingContextBase -> GLuint -> IO () -- | stencilMask :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLuint -> m () stencilMask self mask = liftIO (js_stencilMask (toWebGLRenderingContextBase self) mask) foreign import javascript unsafe "$1[\"stencilMaskSeparate\"]($2,\n$3)" js_stencilMaskSeparate :: WebGLRenderingContextBase -> GLenum -> GLuint -> IO () -- | stencilMaskSeparate :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLuint -> m () stencilMaskSeparate self face mask = liftIO (js_stencilMaskSeparate (toWebGLRenderingContextBase self) face mask) foreign import javascript unsafe "$1[\"stencilOp\"]($2, $3, $4)" js_stencilOp :: WebGLRenderingContextBase -> GLenum -> GLenum -> GLenum -> IO () -- | stencilOp :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLenum -> GLenum -> m () stencilOp self fail zfail zpass = liftIO (js_stencilOp (toWebGLRenderingContextBase self) fail zfail zpass) foreign import javascript unsafe "$1[\"stencilOpSeparate\"]($2, $3,\n$4, $5)" js_stencilOpSeparate :: WebGLRenderingContextBase -> GLenum -> GLenum -> GLenum -> GLenum -> IO () -- | stencilOpSeparate :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLenum -> GLenum -> GLenum -> m () stencilOpSeparate self face fail zfail zpass = liftIO (js_stencilOpSeparate (toWebGLRenderingContextBase self) face fail zfail zpass) foreign import javascript unsafe "$1[\"texParameterf\"]($2, $3, $4)" js_texParameterf :: WebGLRenderingContextBase -> GLenum -> GLenum -> GLfloat -> IO () -- | texParameterf :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLenum -> GLfloat -> m () texParameterf self target pname param = liftIO (js_texParameterf (toWebGLRenderingContextBase self) target pname param) foreign import javascript unsafe "$1[\"texParameteri\"]($2, $3, $4)" js_texParameteri :: WebGLRenderingContextBase -> GLenum -> GLenum -> GLint -> IO () -- | texParameteri :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLenum -> GLint -> m () texParameteri self target pname param = liftIO (js_texParameteri (toWebGLRenderingContextBase self) target pname param) foreign import javascript unsafe "$1[\"texImage2D\"]($2, $3, $4, $5,\n$6, $7, $8, $9, $10)" js_texImage2DView :: WebGLRenderingContextBase -> GLenum -> GLint -> GLenum -> GLsizei -> GLsizei -> GLint -> GLenum -> GLenum -> Nullable ArrayBufferView -> IO () -- | texImage2DView :: (MonadIO m, IsWebGLRenderingContextBase self, IsArrayBufferView pixels) => self -> GLenum -> GLint -> GLenum -> GLsizei -> GLsizei -> GLint -> GLenum -> GLenum -> Maybe pixels -> m () texImage2DView self target level internalformat width height border format type' pixels = liftIO (js_texImage2DView (toWebGLRenderingContextBase self) target level internalformat width height border format type' (maybeToNullable (fmap toArrayBufferView pixels))) foreign import javascript unsafe "$1[\"texImage2D\"]($2, $3, $4, $5,\n$6, $7)" js_texImage2DData :: WebGLRenderingContextBase -> GLenum -> GLint -> GLenum -> GLenum -> GLenum -> Nullable ImageData -> IO () -- | texImage2DData :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLint -> GLenum -> GLenum -> GLenum -> Maybe ImageData -> m () texImage2DData self target level internalformat format type' pixels = liftIO (js_texImage2DData (toWebGLRenderingContextBase self) target level internalformat format type' (maybeToNullable pixels)) foreign import javascript unsafe "$1[\"texImage2D\"]($2, $3, $4, $5,\n$6, $7)" js_texImage2D :: WebGLRenderingContextBase -> GLenum -> GLint -> GLenum -> GLenum -> GLenum -> Nullable HTMLImageElement -> IO () -- | texImage2D :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLint -> GLenum -> GLenum -> GLenum -> Maybe HTMLImageElement -> m () texImage2D self target level internalformat format type' image = liftIO (js_texImage2D (toWebGLRenderingContextBase self) target level internalformat format type' (maybeToNullable image)) foreign import javascript unsafe "$1[\"texImage2D\"]($2, $3, $4, $5,\n$6, $7)" js_texImage2DCanvas :: WebGLRenderingContextBase -> GLenum -> GLint -> GLenum -> GLenum -> GLenum -> Nullable HTMLCanvasElement -> IO () -- | texImage2DCanvas :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLint -> GLenum -> GLenum -> GLenum -> Maybe HTMLCanvasElement -> m () texImage2DCanvas self target level internalformat format type' canvas = liftIO (js_texImage2DCanvas (toWebGLRenderingContextBase self) target level internalformat format type' (maybeToNullable canvas)) foreign import javascript unsafe "$1[\"texImage2D\"]($2, $3, $4, $5,\n$6, $7)" js_texImage2DVideo :: WebGLRenderingContextBase -> GLenum -> GLint -> GLenum -> GLenum -> GLenum -> Nullable HTMLVideoElement -> IO () -- | texImage2DVideo :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLint -> GLenum -> GLenum -> GLenum -> Maybe HTMLVideoElement -> m () texImage2DVideo self target level internalformat format type' video = liftIO (js_texImage2DVideo (toWebGLRenderingContextBase self) target level internalformat format type' (maybeToNullable video)) foreign import javascript unsafe "$1[\"texSubImage2D\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10)" js_texSubImage2DView :: WebGLRenderingContextBase -> GLenum -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GLenum -> GLenum -> Nullable ArrayBufferView -> IO () -- | texSubImage2DView :: (MonadIO m, IsWebGLRenderingContextBase self, IsArrayBufferView pixels) => self -> GLenum -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> GLenum -> GLenum -> Maybe pixels -> m () texSubImage2DView self target level xoffset yoffset width height format type' pixels = liftIO (js_texSubImage2DView (toWebGLRenderingContextBase self) target level xoffset yoffset width height format type' (maybeToNullable (fmap toArrayBufferView pixels))) foreign import javascript unsafe "$1[\"texSubImage2D\"]($2, $3, $4,\n$5, $6, $7, $8)" js_texSubImage2DData :: WebGLRenderingContextBase -> GLenum -> GLint -> GLint -> GLint -> GLenum -> GLenum -> Nullable ImageData -> IO () -- | texSubImage2DData :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLint -> GLint -> GLint -> GLenum -> GLenum -> Maybe ImageData -> m () texSubImage2DData self target level xoffset yoffset format type' pixels = liftIO (js_texSubImage2DData (toWebGLRenderingContextBase self) target level xoffset yoffset format type' (maybeToNullable pixels)) foreign import javascript unsafe "$1[\"texSubImage2D\"]($2, $3, $4,\n$5, $6, $7, $8)" js_texSubImage2D :: WebGLRenderingContextBase -> GLenum -> GLint -> GLint -> GLint -> GLenum -> GLenum -> Nullable HTMLImageElement -> IO () -- | texSubImage2D :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLint -> GLint -> GLint -> GLenum -> GLenum -> Maybe HTMLImageElement -> m () texSubImage2D self target level xoffset yoffset format type' image = liftIO (js_texSubImage2D (toWebGLRenderingContextBase self) target level xoffset yoffset format type' (maybeToNullable image)) foreign import javascript unsafe "$1[\"texSubImage2D\"]($2, $3, $4,\n$5, $6, $7, $8)" js_texSubImage2DCanvas :: WebGLRenderingContextBase -> GLenum -> GLint -> GLint -> GLint -> GLenum -> GLenum -> Nullable HTMLCanvasElement -> IO () -- | texSubImage2DCanvas :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLint -> GLint -> GLint -> GLenum -> GLenum -> Maybe HTMLCanvasElement -> m () texSubImage2DCanvas self target level xoffset yoffset format type' canvas = liftIO (js_texSubImage2DCanvas (toWebGLRenderingContextBase self) target level xoffset yoffset format type' (maybeToNullable canvas)) foreign import javascript unsafe "$1[\"texSubImage2D\"]($2, $3, $4,\n$5, $6, $7, $8)" js_texSubImage2DVideo :: WebGLRenderingContextBase -> GLenum -> GLint -> GLint -> GLint -> GLenum -> GLenum -> Nullable HTMLVideoElement -> IO () -- | texSubImage2DVideo :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLenum -> GLint -> GLint -> GLint -> GLenum -> GLenum -> Maybe HTMLVideoElement -> m () texSubImage2DVideo self target level xoffset yoffset format type' video = liftIO (js_texSubImage2DVideo (toWebGLRenderingContextBase self) target level xoffset yoffset format type' (maybeToNullable video)) foreign import javascript unsafe "$1[\"uniform1f\"]($2, $3)" js_uniform1f :: WebGLRenderingContextBase -> Nullable WebGLUniformLocation -> GLfloat -> IO () -- | uniform1f :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLUniformLocation -> GLfloat -> m () uniform1f self location x = liftIO (js_uniform1f (toWebGLRenderingContextBase self) (maybeToNullable location) x) foreign import javascript unsafe "$1[\"uniform1fv\"]($2, $3)" js_uniform1fv :: WebGLRenderingContextBase -> Nullable WebGLUniformLocation -> Nullable Float32Array -> IO () -- | uniform1fv :: (MonadIO m, IsWebGLRenderingContextBase self, IsFloat32Array v) => self -> Maybe WebGLUniformLocation -> Maybe v -> m () uniform1fv self location v = liftIO (js_uniform1fv (toWebGLRenderingContextBase self) (maybeToNullable location) (maybeToNullable (fmap toFloat32Array v))) foreign import javascript unsafe "$1[\"uniform1i\"]($2, $3)" js_uniform1i :: WebGLRenderingContextBase -> Nullable WebGLUniformLocation -> GLint -> IO () -- | uniform1i :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLUniformLocation -> GLint -> m () uniform1i self location x = liftIO (js_uniform1i (toWebGLRenderingContextBase self) (maybeToNullable location) x) foreign import javascript unsafe "$1[\"uniform1iv\"]($2, $3)" js_uniform1iv :: WebGLRenderingContextBase -> Nullable WebGLUniformLocation -> Nullable Int32Array -> IO () -- | uniform1iv :: (MonadIO m, IsWebGLRenderingContextBase self, IsInt32Array v) => self -> Maybe WebGLUniformLocation -> Maybe v -> m () uniform1iv self location v = liftIO (js_uniform1iv (toWebGLRenderingContextBase self) (maybeToNullable location) (maybeToNullable (fmap toInt32Array v))) foreign import javascript unsafe "$1[\"uniform2f\"]($2, $3, $4)" js_uniform2f :: WebGLRenderingContextBase -> Nullable WebGLUniformLocation -> GLfloat -> GLfloat -> IO () -- | uniform2f :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLUniformLocation -> GLfloat -> GLfloat -> m () uniform2f self location x y = liftIO (js_uniform2f (toWebGLRenderingContextBase self) (maybeToNullable location) x y) foreign import javascript unsafe "$1[\"uniform2fv\"]($2, $3)" js_uniform2fv :: WebGLRenderingContextBase -> Nullable WebGLUniformLocation -> Nullable Float32Array -> IO () -- | uniform2fv :: (MonadIO m, IsWebGLRenderingContextBase self, IsFloat32Array v) => self -> Maybe WebGLUniformLocation -> Maybe v -> m () uniform2fv self location v = liftIO (js_uniform2fv (toWebGLRenderingContextBase self) (maybeToNullable location) (maybeToNullable (fmap toFloat32Array v))) foreign import javascript unsafe "$1[\"uniform2i\"]($2, $3, $4)" js_uniform2i :: WebGLRenderingContextBase -> Nullable WebGLUniformLocation -> GLint -> GLint -> IO () -- | uniform2i :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLUniformLocation -> GLint -> GLint -> m () uniform2i self location x y = liftIO (js_uniform2i (toWebGLRenderingContextBase self) (maybeToNullable location) x y) foreign import javascript unsafe "$1[\"uniform2iv\"]($2, $3)" js_uniform2iv :: WebGLRenderingContextBase -> Nullable WebGLUniformLocation -> Nullable Int32Array -> IO () -- | uniform2iv :: (MonadIO m, IsWebGLRenderingContextBase self, IsInt32Array v) => self -> Maybe WebGLUniformLocation -> Maybe v -> m () uniform2iv self location v = liftIO (js_uniform2iv (toWebGLRenderingContextBase self) (maybeToNullable location) (maybeToNullable (fmap toInt32Array v))) foreign import javascript unsafe "$1[\"uniform3f\"]($2, $3, $4, $5)" js_uniform3f :: WebGLRenderingContextBase -> Nullable WebGLUniformLocation -> GLfloat -> GLfloat -> GLfloat -> IO () -- | uniform3f :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLUniformLocation -> GLfloat -> GLfloat -> GLfloat -> m () uniform3f self location x y z = liftIO (js_uniform3f (toWebGLRenderingContextBase self) (maybeToNullable location) x y z) foreign import javascript unsafe "$1[\"uniform3fv\"]($2, $3)" js_uniform3fv :: WebGLRenderingContextBase -> Nullable WebGLUniformLocation -> Nullable Float32Array -> IO () -- | uniform3fv :: (MonadIO m, IsWebGLRenderingContextBase self, IsFloat32Array v) => self -> Maybe WebGLUniformLocation -> Maybe v -> m () uniform3fv self location v = liftIO (js_uniform3fv (toWebGLRenderingContextBase self) (maybeToNullable location) (maybeToNullable (fmap toFloat32Array v))) foreign import javascript unsafe "$1[\"uniform3i\"]($2, $3, $4, $5)" js_uniform3i :: WebGLRenderingContextBase -> Nullable WebGLUniformLocation -> GLint -> GLint -> GLint -> IO () -- | uniform3i :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLUniformLocation -> GLint -> GLint -> GLint -> m () uniform3i self location x y z = liftIO (js_uniform3i (toWebGLRenderingContextBase self) (maybeToNullable location) x y z) foreign import javascript unsafe "$1[\"uniform3iv\"]($2, $3)" js_uniform3iv :: WebGLRenderingContextBase -> Nullable WebGLUniformLocation -> Nullable Int32Array -> IO () -- | uniform3iv :: (MonadIO m, IsWebGLRenderingContextBase self, IsInt32Array v) => self -> Maybe WebGLUniformLocation -> Maybe v -> m () uniform3iv self location v = liftIO (js_uniform3iv (toWebGLRenderingContextBase self) (maybeToNullable location) (maybeToNullable (fmap toInt32Array v))) foreign import javascript unsafe "$1[\"uniform4f\"]($2, $3, $4, $5,\n$6)" js_uniform4f :: WebGLRenderingContextBase -> Nullable WebGLUniformLocation -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> IO () -- | uniform4f :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLUniformLocation -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> m () uniform4f self location x y z w = liftIO (js_uniform4f (toWebGLRenderingContextBase self) (maybeToNullable location) x y z w) foreign import javascript unsafe "$1[\"uniform4fv\"]($2, $3)" js_uniform4fv :: WebGLRenderingContextBase -> Nullable WebGLUniformLocation -> Nullable Float32Array -> IO () -- | uniform4fv :: (MonadIO m, IsWebGLRenderingContextBase self, IsFloat32Array v) => self -> Maybe WebGLUniformLocation -> Maybe v -> m () uniform4fv self location v = liftIO (js_uniform4fv (toWebGLRenderingContextBase self) (maybeToNullable location) (maybeToNullable (fmap toFloat32Array v))) foreign import javascript unsafe "$1[\"uniform4i\"]($2, $3, $4, $5,\n$6)" js_uniform4i :: WebGLRenderingContextBase -> Nullable WebGLUniformLocation -> GLint -> GLint -> GLint -> GLint -> IO () -- | uniform4i :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLUniformLocation -> GLint -> GLint -> GLint -> GLint -> m () uniform4i self location x y z w = liftIO (js_uniform4i (toWebGLRenderingContextBase self) (maybeToNullable location) x y z w) foreign import javascript unsafe "$1[\"uniform4iv\"]($2, $3)" js_uniform4iv :: WebGLRenderingContextBase -> Nullable WebGLUniformLocation -> Nullable Int32Array -> IO () -- | uniform4iv :: (MonadIO m, IsWebGLRenderingContextBase self, IsInt32Array v) => self -> Maybe WebGLUniformLocation -> Maybe v -> m () uniform4iv self location v = liftIO (js_uniform4iv (toWebGLRenderingContextBase self) (maybeToNullable location) (maybeToNullable (fmap toInt32Array v))) foreign import javascript unsafe "$1[\"uniformMatrix2fv\"]($2, $3,\n$4)" js_uniformMatrix2fv :: WebGLRenderingContextBase -> Nullable WebGLUniformLocation -> GLboolean -> Nullable Float32Array -> IO () -- | uniformMatrix2fv :: (MonadIO m, IsWebGLRenderingContextBase self, IsFloat32Array array) => self -> Maybe WebGLUniformLocation -> GLboolean -> Maybe array -> m () uniformMatrix2fv self location transpose array = liftIO (js_uniformMatrix2fv (toWebGLRenderingContextBase self) (maybeToNullable location) transpose (maybeToNullable (fmap toFloat32Array array))) foreign import javascript unsafe "$1[\"uniformMatrix3fv\"]($2, $3,\n$4)" js_uniformMatrix3fv :: WebGLRenderingContextBase -> Nullable WebGLUniformLocation -> GLboolean -> Nullable Float32Array -> IO () -- | uniformMatrix3fv :: (MonadIO m, IsWebGLRenderingContextBase self, IsFloat32Array array) => self -> Maybe WebGLUniformLocation -> GLboolean -> Maybe array -> m () uniformMatrix3fv self location transpose array = liftIO (js_uniformMatrix3fv (toWebGLRenderingContextBase self) (maybeToNullable location) transpose (maybeToNullable (fmap toFloat32Array array))) foreign import javascript unsafe "$1[\"uniformMatrix4fv\"]($2, $3,\n$4)" js_uniformMatrix4fv :: WebGLRenderingContextBase -> Nullable WebGLUniformLocation -> GLboolean -> Nullable Float32Array -> IO () -- | uniformMatrix4fv :: (MonadIO m, IsWebGLRenderingContextBase self, IsFloat32Array array) => self -> Maybe WebGLUniformLocation -> GLboolean -> Maybe array -> m () uniformMatrix4fv self location transpose array = liftIO (js_uniformMatrix4fv (toWebGLRenderingContextBase self) (maybeToNullable location) transpose (maybeToNullable (fmap toFloat32Array array))) foreign import javascript unsafe "$1[\"useProgram\"]($2)" js_useProgram :: WebGLRenderingContextBase -> Nullable WebGLProgram -> IO () -- | useProgram :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLProgram -> m () useProgram self program = liftIO (js_useProgram (toWebGLRenderingContextBase self) (maybeToNullable program)) foreign import javascript unsafe "$1[\"validateProgram\"]($2)" js_validateProgram :: WebGLRenderingContextBase -> Nullable WebGLProgram -> IO () -- | validateProgram :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> Maybe WebGLProgram -> m () validateProgram self program = liftIO (js_validateProgram (toWebGLRenderingContextBase self) (maybeToNullable program)) foreign import javascript unsafe "$1[\"vertexAttrib1f\"]($2, $3)" js_vertexAttrib1f :: WebGLRenderingContextBase -> GLuint -> GLfloat -> IO () -- | vertexAttrib1f :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLuint -> GLfloat -> m () vertexAttrib1f self indx x = liftIO (js_vertexAttrib1f (toWebGLRenderingContextBase self) indx x) foreign import javascript unsafe "$1[\"vertexAttrib1fv\"]($2, $3)" js_vertexAttrib1fv :: WebGLRenderingContextBase -> GLuint -> Nullable Float32Array -> IO () -- | vertexAttrib1fv :: (MonadIO m, IsWebGLRenderingContextBase self, IsFloat32Array values) => self -> GLuint -> Maybe values -> m () vertexAttrib1fv self indx values = liftIO (js_vertexAttrib1fv (toWebGLRenderingContextBase self) indx (maybeToNullable (fmap toFloat32Array values))) foreign import javascript unsafe "$1[\"vertexAttrib2f\"]($2, $3, $4)" js_vertexAttrib2f :: WebGLRenderingContextBase -> GLuint -> GLfloat -> GLfloat -> IO () -- | vertexAttrib2f :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLuint -> GLfloat -> GLfloat -> m () vertexAttrib2f self indx x y = liftIO (js_vertexAttrib2f (toWebGLRenderingContextBase self) indx x y) foreign import javascript unsafe "$1[\"vertexAttrib2fv\"]($2, $3)" js_vertexAttrib2fv :: WebGLRenderingContextBase -> GLuint -> Nullable Float32Array -> IO () -- | vertexAttrib2fv :: (MonadIO m, IsWebGLRenderingContextBase self, IsFloat32Array values) => self -> GLuint -> Maybe values -> m () vertexAttrib2fv self indx values = liftIO (js_vertexAttrib2fv (toWebGLRenderingContextBase self) indx (maybeToNullable (fmap toFloat32Array values))) foreign import javascript unsafe "$1[\"vertexAttrib3f\"]($2, $3, $4,\n$5)" js_vertexAttrib3f :: WebGLRenderingContextBase -> GLuint -> GLfloat -> GLfloat -> GLfloat -> IO () -- | vertexAttrib3f :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLuint -> GLfloat -> GLfloat -> GLfloat -> m () vertexAttrib3f self indx x y z = liftIO (js_vertexAttrib3f (toWebGLRenderingContextBase self) indx x y z) foreign import javascript unsafe "$1[\"vertexAttrib3fv\"]($2, $3)" js_vertexAttrib3fv :: WebGLRenderingContextBase -> GLuint -> Nullable Float32Array -> IO () -- | vertexAttrib3fv :: (MonadIO m, IsWebGLRenderingContextBase self, IsFloat32Array values) => self -> GLuint -> Maybe values -> m () vertexAttrib3fv self indx values = liftIO (js_vertexAttrib3fv (toWebGLRenderingContextBase self) indx (maybeToNullable (fmap toFloat32Array values))) foreign import javascript unsafe "$1[\"vertexAttrib4f\"]($2, $3, $4,\n$5, $6)" js_vertexAttrib4f :: WebGLRenderingContextBase -> GLuint -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> IO () -- | vertexAttrib4f :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLuint -> GLfloat -> GLfloat -> GLfloat -> GLfloat -> m () vertexAttrib4f self indx x y z w = liftIO (js_vertexAttrib4f (toWebGLRenderingContextBase self) indx x y z w) foreign import javascript unsafe "$1[\"vertexAttrib4fv\"]($2, $3)" js_vertexAttrib4fv :: WebGLRenderingContextBase -> GLuint -> Nullable Float32Array -> IO () -- | vertexAttrib4fv :: (MonadIO m, IsWebGLRenderingContextBase self, IsFloat32Array values) => self -> GLuint -> Maybe values -> m () vertexAttrib4fv self indx values = liftIO (js_vertexAttrib4fv (toWebGLRenderingContextBase self) indx (maybeToNullable (fmap toFloat32Array values))) foreign import javascript unsafe "$1[\"vertexAttribPointer\"]($2,\n$3, $4, $5, $6, $7)" js_vertexAttribPointer :: WebGLRenderingContextBase -> GLuint -> GLint -> GLenum -> GLboolean -> GLsizei -> Double -> IO () -- | vertexAttribPointer :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLuint -> GLint -> GLenum -> GLboolean -> GLsizei -> GLintptr -> m () vertexAttribPointer self indx size type' normalized stride offset = liftIO (js_vertexAttribPointer (toWebGLRenderingContextBase self) indx size type' normalized stride (fromIntegral offset)) foreign import javascript unsafe "$1[\"viewport\"]($2, $3, $4, $5)" js_viewport :: WebGLRenderingContextBase -> GLint -> GLint -> GLsizei -> GLsizei -> IO () -- | viewport :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> GLint -> GLint -> GLsizei -> GLsizei -> m () viewport self x y width height = liftIO (js_viewport (toWebGLRenderingContextBase self) x y width height) pattern DEPTH_BUFFER_BIT = 256 pattern STENCIL_BUFFER_BIT = 1024 pattern COLOR_BUFFER_BIT = 16384 pattern POINTS = 0 pattern LINES = 1 pattern LINE_LOOP = 2 pattern LINE_STRIP = 3 pattern TRIANGLES = 4 pattern TRIANGLE_STRIP = 5 pattern TRIANGLE_FAN = 6 pattern ZERO = 0 pattern ONE = 1 pattern SRC_COLOR = 768 pattern ONE_MINUS_SRC_COLOR = 769 pattern SRC_ALPHA = 770 pattern ONE_MINUS_SRC_ALPHA = 771 pattern DST_ALPHA = 772 pattern ONE_MINUS_DST_ALPHA = 773 pattern DST_COLOR = 774 pattern ONE_MINUS_DST_COLOR = 775 pattern SRC_ALPHA_SATURATE = 776 pattern FUNC_ADD = 32774 pattern BLEND_EQUATION = 32777 pattern BLEND_EQUATION_RGB = 32777 pattern BLEND_EQUATION_ALPHA = 34877 pattern FUNC_SUBTRACT = 32778 pattern FUNC_REVERSE_SUBTRACT = 32779 pattern BLEND_DST_RGB = 32968 pattern BLEND_SRC_RGB = 32969 pattern BLEND_DST_ALPHA = 32970 pattern BLEND_SRC_ALPHA = 32971 pattern CONSTANT_COLOR = 32769 pattern ONE_MINUS_CONSTANT_COLOR = 32770 pattern CONSTANT_ALPHA = 32771 pattern ONE_MINUS_CONSTANT_ALPHA = 32772 pattern BLEND_COLOR = 32773 pattern ARRAY_BUFFER = 34962 pattern ELEMENT_ARRAY_BUFFER = 34963 pattern ARRAY_BUFFER_BINDING = 34964 pattern ELEMENT_ARRAY_BUFFER_BINDING = 34965 pattern STREAM_DRAW = 35040 pattern STATIC_DRAW = 35044 pattern DYNAMIC_DRAW = 35048 pattern BUFFER_SIZE = 34660 pattern BUFFER_USAGE = 34661 pattern CURRENT_VERTEX_ATTRIB = 34342 pattern FRONT = 1028 pattern BACK = 1029 pattern FRONT_AND_BACK = 1032 pattern TEXTURE_2D = 3553 pattern CULL_FACE = 2884 pattern BLEND = 3042 pattern DITHER = 3024 pattern STENCIL_TEST = 2960 pattern DEPTH_TEST = 2929 pattern SCISSOR_TEST = 3089 pattern POLYGON_OFFSET_FILL = 32823 pattern SAMPLE_ALPHA_TO_COVERAGE = 32926 pattern SAMPLE_COVERAGE = 32928 pattern NO_ERROR = 0 pattern INVALID_ENUM = 1280 pattern INVALID_VALUE = 1281 pattern INVALID_OPERATION = 1282 pattern OUT_OF_MEMORY = 1285 pattern CW = 2304 pattern CCW = 2305 pattern LINE_WIDTH = 2849 pattern ALIASED_POINT_SIZE_RANGE = 33901 pattern ALIASED_LINE_WIDTH_RANGE = 33902 pattern CULL_FACE_MODE = 2885 pattern FRONT_FACE = 2886 pattern DEPTH_RANGE = 2928 pattern DEPTH_WRITEMASK = 2930 pattern DEPTH_CLEAR_VALUE = 2931 pattern DEPTH_FUNC = 2932 pattern STENCIL_CLEAR_VALUE = 2961 pattern STENCIL_FUNC = 2962 pattern STENCIL_FAIL = 2964 pattern STENCIL_PASS_DEPTH_FAIL = 2965 pattern STENCIL_PASS_DEPTH_PASS = 2966 pattern STENCIL_REF = 2967 pattern STENCIL_VALUE_MASK = 2963 pattern STENCIL_WRITEMASK = 2968 pattern STENCIL_BACK_FUNC = 34816 pattern STENCIL_BACK_FAIL = 34817 pattern STENCIL_BACK_PASS_DEPTH_FAIL = 34818 pattern STENCIL_BACK_PASS_DEPTH_PASS = 34819 pattern STENCIL_BACK_REF = 36003 pattern STENCIL_BACK_VALUE_MASK = 36004 pattern STENCIL_BACK_WRITEMASK = 36005 pattern VIEWPORT = 2978 pattern SCISSOR_BOX = 3088 pattern COLOR_CLEAR_VALUE = 3106 pattern COLOR_WRITEMASK = 3107 pattern UNPACK_ALIGNMENT = 3317 pattern PACK_ALIGNMENT = 3333 pattern MAX_TEXTURE_SIZE = 3379 pattern MAX_VIEWPORT_DIMS = 3386 pattern SUBPIXEL_BITS = 3408 pattern RED_BITS = 3410 pattern GREEN_BITS = 3411 pattern BLUE_BITS = 3412 pattern ALPHA_BITS = 3413 pattern DEPTH_BITS = 3414 pattern STENCIL_BITS = 3415 pattern POLYGON_OFFSET_UNITS = 10752 pattern POLYGON_OFFSET_FACTOR = 32824 pattern TEXTURE_BINDING_2D = 32873 pattern SAMPLE_BUFFERS = 32936 pattern SAMPLES = 32937 pattern SAMPLE_COVERAGE_VALUE = 32938 pattern SAMPLE_COVERAGE_INVERT = 32939 pattern COMPRESSED_TEXTURE_FORMATS = 34467 pattern DONT_CARE = 4352 pattern FASTEST = 4353 pattern NICEST = 4354 pattern GENERATE_MIPMAP_HINT = 33170 pattern BYTE = 5120 pattern UNSIGNED_BYTE = 5121 pattern SHORT = 5122 pattern UNSIGNED_SHORT = 5123 pattern INT = 5124 pattern UNSIGNED_INT = 5125 pattern FLOAT = 5126 pattern DEPTH_COMPONENT = 6402 pattern ALPHA = 6406 pattern RGB = 6407 pattern RGBA = 6408 pattern LUMINANCE = 6409 pattern LUMINANCE_ALPHA = 6410 pattern UNSIGNED_SHORT_4_4_4_4 = 32819 pattern UNSIGNED_SHORT_5_5_5_1 = 32820 pattern UNSIGNED_SHORT_5_6_5 = 33635 pattern FRAGMENT_SHADER = 35632 pattern VERTEX_SHADER = 35633 pattern MAX_VERTEX_ATTRIBS = 34921 pattern MAX_VERTEX_UNIFORM_VECTORS = 36347 pattern MAX_VARYING_VECTORS = 36348 pattern MAX_COMBINED_TEXTURE_IMAGE_UNITS = 35661 pattern MAX_VERTEX_TEXTURE_IMAGE_UNITS = 35660 pattern MAX_TEXTURE_IMAGE_UNITS = 34930 pattern MAX_FRAGMENT_UNIFORM_VECTORS = 36349 pattern SHADER_TYPE = 35663 pattern DELETE_STATUS = 35712 pattern LINK_STATUS = 35714 pattern VALIDATE_STATUS = 35715 pattern ATTACHED_SHADERS = 35717 pattern ACTIVE_UNIFORMS = 35718 pattern ACTIVE_ATTRIBUTES = 35721 pattern SHADING_LANGUAGE_VERSION = 35724 pattern CURRENT_PROGRAM = 35725 pattern NEVER = 512 pattern LESS = 513 pattern EQUAL = 514 pattern LEQUAL = 515 pattern GREATER = 516 pattern NOTEQUAL = 517 pattern GEQUAL = 518 pattern ALWAYS = 519 pattern KEEP = 7680 pattern REPLACE = 7681 pattern INCR = 7682 pattern DECR = 7683 pattern INVERT = 5386 pattern INCR_WRAP = 34055 pattern DECR_WRAP = 34056 pattern VENDOR = 7936 pattern RENDERER = 7937 pattern VERSION = 7938 pattern NEAREST = 9728 pattern LINEAR = 9729 pattern NEAREST_MIPMAP_NEAREST = 9984 pattern LINEAR_MIPMAP_NEAREST = 9985 pattern NEAREST_MIPMAP_LINEAR = 9986 pattern LINEAR_MIPMAP_LINEAR = 9987 pattern TEXTURE_MAG_FILTER = 10240 pattern TEXTURE_MIN_FILTER = 10241 pattern TEXTURE_WRAP_S = 10242 pattern TEXTURE_WRAP_T = 10243 pattern TEXTURE = 5890 pattern TEXTURE_CUBE_MAP = 34067 pattern TEXTURE_BINDING_CUBE_MAP = 34068 pattern TEXTURE_CUBE_MAP_POSITIVE_X = 34069 pattern TEXTURE_CUBE_MAP_NEGATIVE_X = 34070 pattern TEXTURE_CUBE_MAP_POSITIVE_Y = 34071 pattern TEXTURE_CUBE_MAP_NEGATIVE_Y = 34072 pattern TEXTURE_CUBE_MAP_POSITIVE_Z = 34073 pattern TEXTURE_CUBE_MAP_NEGATIVE_Z = 34074 pattern MAX_CUBE_MAP_TEXTURE_SIZE = 34076 pattern TEXTURE0 = 33984 pattern TEXTURE1 = 33985 pattern TEXTURE2 = 33986 pattern TEXTURE3 = 33987 pattern TEXTURE4 = 33988 pattern TEXTURE5 = 33989 pattern TEXTURE6 = 33990 pattern TEXTURE7 = 33991 pattern TEXTURE8 = 33992 pattern TEXTURE9 = 33993 pattern TEXTURE10 = 33994 pattern TEXTURE11 = 33995 pattern TEXTURE12 = 33996 pattern TEXTURE13 = 33997 pattern TEXTURE14 = 33998 pattern TEXTURE15 = 33999 pattern TEXTURE16 = 34000 pattern TEXTURE17 = 34001 pattern TEXTURE18 = 34002 pattern TEXTURE19 = 34003 pattern TEXTURE20 = 34004 pattern TEXTURE21 = 34005 pattern TEXTURE22 = 34006 pattern TEXTURE23 = 34007 pattern TEXTURE24 = 34008 pattern TEXTURE25 = 34009 pattern TEXTURE26 = 34010 pattern TEXTURE27 = 34011 pattern TEXTURE28 = 34012 pattern TEXTURE29 = 34013 pattern TEXTURE30 = 34014 pattern TEXTURE31 = 34015 pattern ACTIVE_TEXTURE = 34016 pattern REPEAT = 10497 pattern CLAMP_TO_EDGE = 33071 pattern MIRRORED_REPEAT = 33648 pattern FLOAT_VEC2 = 35664 pattern FLOAT_VEC3 = 35665 pattern FLOAT_VEC4 = 35666 pattern INT_VEC2 = 35667 pattern INT_VEC3 = 35668 pattern INT_VEC4 = 35669 pattern BOOL = 35670 pattern BOOL_VEC2 = 35671 pattern BOOL_VEC3 = 35672 pattern BOOL_VEC4 = 35673 pattern FLOAT_MAT2 = 35674 pattern FLOAT_MAT3 = 35675 pattern FLOAT_MAT4 = 35676 pattern SAMPLER_2D = 35678 pattern SAMPLER_CUBE = 35680 pattern VERTEX_ATTRIB_ARRAY_ENABLED = 34338 pattern VERTEX_ATTRIB_ARRAY_SIZE = 34339 pattern VERTEX_ATTRIB_ARRAY_STRIDE = 34340 pattern VERTEX_ATTRIB_ARRAY_TYPE = 34341 pattern VERTEX_ATTRIB_ARRAY_NORMALIZED = 34922 pattern VERTEX_ATTRIB_ARRAY_POINTER = 34373 pattern VERTEX_ATTRIB_ARRAY_BUFFER_BINDING = 34975 pattern IMPLEMENTATION_COLOR_READ_TYPE = 35738 pattern IMPLEMENTATION_COLOR_READ_FORMAT = 35739 pattern COMPILE_STATUS = 35713 pattern LOW_FLOAT = 36336 pattern MEDIUM_FLOAT = 36337 pattern HIGH_FLOAT = 36338 pattern LOW_INT = 36339 pattern MEDIUM_INT = 36340 pattern HIGH_INT = 36341 pattern FRAMEBUFFER = 36160 pattern RENDERBUFFER = 36161 pattern RGBA4 = 32854 pattern RGB5_A1 = 32855 pattern RGB565 = 36194 pattern DEPTH_COMPONENT16 = 33189 pattern STENCIL_INDEX = 6401 pattern STENCIL_INDEX8 = 36168 pattern DEPTH_STENCIL = 34041 pattern RENDERBUFFER_WIDTH = 36162 pattern RENDERBUFFER_HEIGHT = 36163 pattern RENDERBUFFER_INTERNAL_FORMAT = 36164 pattern RENDERBUFFER_RED_SIZE = 36176 pattern RENDERBUFFER_GREEN_SIZE = 36177 pattern RENDERBUFFER_BLUE_SIZE = 36178 pattern RENDERBUFFER_ALPHA_SIZE = 36179 pattern RENDERBUFFER_DEPTH_SIZE = 36180 pattern RENDERBUFFER_STENCIL_SIZE = 36181 pattern FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE = 36048 pattern FRAMEBUFFER_ATTACHMENT_OBJECT_NAME = 36049 pattern FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL = 36050 pattern FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE = 36051 pattern COLOR_ATTACHMENT0 = 36064 pattern DEPTH_ATTACHMENT = 36096 pattern STENCIL_ATTACHMENT = 36128 pattern DEPTH_STENCIL_ATTACHMENT = 33306 pattern NONE = 0 pattern FRAMEBUFFER_COMPLETE = 36053 pattern FRAMEBUFFER_INCOMPLETE_ATTACHMENT = 36054 pattern FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT = 36055 pattern FRAMEBUFFER_INCOMPLETE_DIMENSIONS = 36057 pattern FRAMEBUFFER_UNSUPPORTED = 36061 pattern FRAMEBUFFER_BINDING = 36006 pattern RENDERBUFFER_BINDING = 36007 pattern MAX_RENDERBUFFER_SIZE = 34024 pattern INVALID_FRAMEBUFFER_OPERATION = 1286 pattern UNPACK_FLIP_Y_WEBGL = 37440 pattern UNPACK_PREMULTIPLY_ALPHA_WEBGL = 37441 pattern CONTEXT_LOST_WEBGL = 37442 pattern UNPACK_COLORSPACE_CONVERSION_WEBGL = 37443 pattern BROWSER_DEFAULT_WEBGL = 37444 foreign import javascript unsafe "$1[\"drawingBufferWidth\"]" js_getDrawingBufferWidth :: WebGLRenderingContextBase -> IO GLsizei -- | getDrawingBufferWidth :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> m GLsizei getDrawingBufferWidth self = liftIO (js_getDrawingBufferWidth (toWebGLRenderingContextBase self)) foreign import javascript unsafe "$1[\"drawingBufferHeight\"]" js_getDrawingBufferHeight :: WebGLRenderingContextBase -> IO GLsizei -- | getDrawingBufferHeight :: (MonadIO m, IsWebGLRenderingContextBase self) => self -> m GLsizei getDrawingBufferHeight self = liftIO (js_getDrawingBufferHeight (toWebGLRenderingContextBase self))