{-# LANGUAGE PatternSynonyms #-}
-- For HasCallStack compatibility
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.WebGL2RenderingContext
       (bufferDataPtr, bufferData, bufferSubData, bufferDataView,
        bufferSubDataView, copyBufferSubData, getBufferSubData,
        blitFramebuffer, framebufferTextureLayer,
        getInternalformatParameter, getInternalformatParameter_,
        invalidateFramebuffer, invalidateSubFramebuffer, readBuffer,
        renderbufferStorageMultisample, texStorage2D, texStorage3D,
        texImage3D, texSubImage3DView, texSubImage3D, copyTexSubImage3D,
        compressedTexImage3D, compressedTexSubImage3D, getFragDataLocation,
        getFragDataLocation_, uniform1ui, uniform2ui, uniform3ui,
        uniform4ui, uniform1uiv, uniform2uiv, uniform3uiv, uniform4uiv,
        uniformMatrix2x3fv, uniformMatrix3x2fv, uniformMatrix2x4fv,
        uniformMatrix4x2fv, uniformMatrix3x4fv, uniformMatrix4x3fv,
        vertexAttribI4i, vertexAttribI4iv, vertexAttribI4ui,
        vertexAttribI4uiv, vertexAttribIPointer, vertexAttribDivisor,
        drawArraysInstanced, drawElementsInstanced, drawRangeElements,
        drawBuffers, clearBufferiv, clearBufferuiv, clearBufferfv,
        clearBufferfi, createQuery, createQuery_, deleteQuery, isQuery,
        isQuery_, beginQuery, endQuery, getQuery, getQuery_,
        getQueryParameter, getQueryParameter_, createSampler,
        createSampler_, deleteSampler, isSampler, isSampler_, bindSampler,
        samplerParameteri, samplerParameterf, getSamplerParameter,
        getSamplerParameter_, fenceSync, fenceSync_, isSync, isSync_,
        deleteSync, clientWaitSync, clientWaitSync_, waitSync,
        getSyncParameter, getSyncParameter_, createTransformFeedback,
        createTransformFeedback_, deleteTransformFeedback,
        isTransformFeedback, isTransformFeedback_, bindTransformFeedback,
        beginTransformFeedback, endTransformFeedback,
        transformFeedbackVaryings, getTransformFeedbackVarying,
        getTransformFeedbackVarying_, pauseTransformFeedback,
        resumeTransformFeedback, bindBufferBase, bindBufferRange,
        getIndexedParameter, getIndexedParameter_, getUniformIndices,
        getUniformIndices_, getActiveUniforms, getActiveUniforms_,
        getUniformBlockIndex, getUniformBlockIndex_,
        getActiveUniformBlockParameter, getActiveUniformBlockParameter_,
        getActiveUniformBlockName, getActiveUniformBlockName_,
        uniformBlockBinding, createVertexArray, createVertexArray_,
        deleteVertexArray, isVertexArray, isVertexArray_, bindVertexArray,
        pattern READ_BUFFER, pattern UNPACK_ROW_LENGTH,
        pattern UNPACK_SKIP_ROWS, pattern UNPACK_SKIP_PIXELS,
        pattern PACK_ROW_LENGTH, pattern PACK_SKIP_ROWS,
        pattern PACK_SKIP_PIXELS, pattern COLOR, pattern DEPTH,
        pattern STENCIL, pattern RED, pattern RGB8, pattern RGBA8,
        pattern RGB10_A2, pattern TEXTURE_BINDING_3D,
        pattern UNPACK_SKIP_IMAGES, pattern UNPACK_IMAGE_HEIGHT,
        pattern TEXTURE_3D, pattern TEXTURE_WRAP_R,
        pattern MAX_3D_TEXTURE_SIZE, pattern UNSIGNED_INT_2_10_10_10_REV,
        pattern MAX_ELEMENTS_VERTICES, pattern MAX_ELEMENTS_INDICES,
        pattern TEXTURE_MIN_LOD, pattern TEXTURE_MAX_LOD,
        pattern TEXTURE_BASE_LEVEL, pattern TEXTURE_MAX_LEVEL, pattern MIN,
        pattern MAX, pattern DEPTH_COMPONENT24,
        pattern MAX_TEXTURE_LOD_BIAS, pattern TEXTURE_COMPARE_MODE,
        pattern TEXTURE_COMPARE_FUNC, pattern CURRENT_QUERY,
        pattern QUERY_RESULT, pattern QUERY_RESULT_AVAILABLE,
        pattern STREAM_READ, pattern STREAM_COPY, pattern STATIC_READ,
        pattern STATIC_COPY, pattern DYNAMIC_READ, pattern DYNAMIC_COPY,
        pattern MAX_DRAW_BUFFERS, pattern DRAW_BUFFER0,
        pattern DRAW_BUFFER1, pattern DRAW_BUFFER2, pattern DRAW_BUFFER3,
        pattern DRAW_BUFFER4, pattern DRAW_BUFFER5, pattern DRAW_BUFFER6,
        pattern DRAW_BUFFER7, pattern DRAW_BUFFER8, pattern DRAW_BUFFER9,
        pattern DRAW_BUFFER10, pattern DRAW_BUFFER11,
        pattern DRAW_BUFFER12, pattern DRAW_BUFFER13,
        pattern DRAW_BUFFER14, pattern DRAW_BUFFER15,
        pattern MAX_FRAGMENT_UNIFORM_COMPONENTS,
        pattern MAX_VERTEX_UNIFORM_COMPONENTS, pattern SAMPLER_3D,
        pattern SAMPLER_2D_SHADOW, pattern FRAGMENT_SHADER_DERIVATIVE_HINT,
        pattern PIXEL_PACK_BUFFER, pattern PIXEL_UNPACK_BUFFER,
        pattern PIXEL_PACK_BUFFER_BINDING,
        pattern PIXEL_UNPACK_BUFFER_BINDING, pattern FLOAT_MAT2x3,
        pattern FLOAT_MAT2x4, pattern FLOAT_MAT3x2, pattern FLOAT_MAT3x4,
        pattern FLOAT_MAT4x2, pattern FLOAT_MAT4x3, pattern SRGB,
        pattern SRGB8, pattern SRGB8_ALPHA8,
        pattern COMPARE_REF_TO_TEXTURE, pattern RGBA32F, pattern RGB32F,
        pattern RGBA16F, pattern RGB16F,
        pattern VERTEX_ATTRIB_ARRAY_INTEGER,
        pattern MAX_ARRAY_TEXTURE_LAYERS, pattern MIN_PROGRAM_TEXEL_OFFSET,
        pattern MAX_PROGRAM_TEXEL_OFFSET, pattern MAX_VARYING_COMPONENTS,
        pattern TEXTURE_2D_ARRAY, pattern TEXTURE_BINDING_2D_ARRAY,
        pattern R11F_G11F_B10F, pattern UNSIGNED_INT_10F_11F_11F_REV,
        pattern RGB9_E5, pattern UNSIGNED_INT_5_9_9_9_REV,
        pattern TRANSFORM_FEEDBACK_BUFFER_MODE,
        pattern MAX_TRANSFORM_FEEDBACK_SEPARATE_COMPONENTS,
        pattern TRANSFORM_FEEDBACK_VARYINGS,
        pattern TRANSFORM_FEEDBACK_BUFFER_START,
        pattern TRANSFORM_FEEDBACK_BUFFER_SIZE,
        pattern TRANSFORM_FEEDBACK_PRIMITIVES_WRITTEN,
        pattern RASTERIZER_DISCARD,
        pattern MAX_TRANSFORM_FEEDBACK_INTERLEAVED_COMPONENTS,
        pattern MAX_TRANSFORM_FEEDBACK_SEPARATE_ATTRIBS,
        pattern INTERLEAVED_ATTRIBS, pattern SEPARATE_ATTRIBS,
        pattern TRANSFORM_FEEDBACK_BUFFER,
        pattern TRANSFORM_FEEDBACK_BUFFER_BINDING, pattern RGBA32UI,
        pattern RGB32UI, pattern RGBA16UI, pattern RGB16UI,
        pattern RGBA8UI, pattern RGB8UI, pattern RGBA32I, pattern RGB32I,
        pattern RGBA16I, pattern RGB16I, pattern RGBA8I, pattern RGB8I,
        pattern RED_INTEGER, pattern RGB_INTEGER, pattern RGBA_INTEGER,
        pattern SAMPLER_2D_ARRAY, pattern SAMPLER_2D_ARRAY_SHADOW,
        pattern SAMPLER_CUBE_SHADOW, pattern UNSIGNED_INT_VEC2,
        pattern UNSIGNED_INT_VEC3, pattern UNSIGNED_INT_VEC4,
        pattern INT_SAMPLER_2D, pattern INT_SAMPLER_3D,
        pattern INT_SAMPLER_CUBE, pattern INT_SAMPLER_2D_ARRAY,
        pattern UNSIGNED_INT_SAMPLER_2D, pattern UNSIGNED_INT_SAMPLER_3D,
        pattern UNSIGNED_INT_SAMPLER_CUBE,
        pattern UNSIGNED_INT_SAMPLER_2D_ARRAY, pattern DEPTH_COMPONENT32F,
        pattern DEPTH32F_STENCIL8, pattern FLOAT_32_UNSIGNED_INT_24_8_REV,
        pattern FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING,
        pattern FRAMEBUFFER_ATTACHMENT_COMPONENT_TYPE,
        pattern FRAMEBUFFER_ATTACHMENT_RED_SIZE,
        pattern FRAMEBUFFER_ATTACHMENT_GREEN_SIZE,
        pattern FRAMEBUFFER_ATTACHMENT_BLUE_SIZE,
        pattern FRAMEBUFFER_ATTACHMENT_ALPHA_SIZE,
        pattern FRAMEBUFFER_ATTACHMENT_DEPTH_SIZE,
        pattern FRAMEBUFFER_ATTACHMENT_STENCIL_SIZE,
        pattern FRAMEBUFFER_DEFAULT, pattern DEPTH_STENCIL_ATTACHMENT,
        pattern DEPTH_STENCIL, pattern UNSIGNED_INT_24_8,
        pattern DEPTH24_STENCIL8, pattern UNSIGNED_NORMALIZED,
        pattern DRAW_FRAMEBUFFER_BINDING, pattern READ_FRAMEBUFFER,
        pattern DRAW_FRAMEBUFFER, pattern READ_FRAMEBUFFER_BINDING,
        pattern RENDERBUFFER_SAMPLES,
        pattern FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER,
        pattern MAX_COLOR_ATTACHMENTS, pattern COLOR_ATTACHMENT1,
        pattern COLOR_ATTACHMENT2, pattern COLOR_ATTACHMENT3,
        pattern COLOR_ATTACHMENT4, pattern COLOR_ATTACHMENT5,
        pattern COLOR_ATTACHMENT6, pattern COLOR_ATTACHMENT7,
        pattern COLOR_ATTACHMENT8, pattern COLOR_ATTACHMENT9,
        pattern COLOR_ATTACHMENT10, pattern COLOR_ATTACHMENT11,
        pattern COLOR_ATTACHMENT12, pattern COLOR_ATTACHMENT13,
        pattern COLOR_ATTACHMENT14, pattern COLOR_ATTACHMENT15,
        pattern FRAMEBUFFER_INCOMPLETE_MULTISAMPLE, pattern MAX_SAMPLES,
        pattern HALF_FLOAT, pattern RG, pattern RG_INTEGER, pattern R8,
        pattern RG8, pattern R16F, pattern R32F, pattern RG16F,
        pattern RG32F, pattern R8I, pattern R8UI, pattern R16I,
        pattern R16UI, pattern R32I, pattern R32UI, pattern RG8I,
        pattern RG8UI, pattern RG16I, pattern RG16UI, pattern RG32I,
        pattern RG32UI, pattern VERTEX_ARRAY_BINDING, pattern R8_SNORM,
        pattern RG8_SNORM, pattern RGB8_SNORM, pattern RGBA8_SNORM,
        pattern SIGNED_NORMALIZED, pattern PRIMITIVE_RESTART_FIXED_INDEX,
        pattern COPY_READ_BUFFER, pattern COPY_WRITE_BUFFER,
        pattern COPY_READ_BUFFER_BINDING,
        pattern COPY_WRITE_BUFFER_BINDING, pattern UNIFORM_BUFFER,
        pattern UNIFORM_BUFFER_BINDING, pattern UNIFORM_BUFFER_START,
        pattern UNIFORM_BUFFER_SIZE, pattern MAX_VERTEX_UNIFORM_BLOCKS,
        pattern MAX_FRAGMENT_UNIFORM_BLOCKS,
        pattern MAX_COMBINED_UNIFORM_BLOCKS,
        pattern MAX_UNIFORM_BUFFER_BINDINGS,
        pattern MAX_UNIFORM_BLOCK_SIZE,
        pattern MAX_COMBINED_VERTEX_UNIFORM_COMPONENTS,
        pattern MAX_COMBINED_FRAGMENT_UNIFORM_COMPONENTS,
        pattern UNIFORM_BUFFER_OFFSET_ALIGNMENT,
        pattern ACTIVE_UNIFORM_BLOCKS, pattern UNIFORM_TYPE,
        pattern UNIFORM_SIZE, pattern UNIFORM_BLOCK_INDEX,
        pattern UNIFORM_OFFSET, pattern UNIFORM_ARRAY_STRIDE,
        pattern UNIFORM_MATRIX_STRIDE, pattern UNIFORM_IS_ROW_MAJOR,
        pattern UNIFORM_BLOCK_BINDING, pattern UNIFORM_BLOCK_DATA_SIZE,
        pattern UNIFORM_BLOCK_ACTIVE_UNIFORMS,
        pattern UNIFORM_BLOCK_ACTIVE_UNIFORM_INDICES,
        pattern UNIFORM_BLOCK_REFERENCED_BY_VERTEX_SHADER,
        pattern UNIFORM_BLOCK_REFERENCED_BY_FRAGMENT_SHADER,
        pattern INVALID_INDEX, pattern MAX_VERTEX_OUTPUT_COMPONENTS,
        pattern MAX_FRAGMENT_INPUT_COMPONENTS,
        pattern MAX_SERVER_WAIT_TIMEOUT, pattern OBJECT_TYPE,
        pattern SYNC_CONDITION, pattern SYNC_STATUS, pattern SYNC_FLAGS,
        pattern SYNC_FENCE, pattern SYNC_GPU_COMMANDS_COMPLETE,
        pattern UNSIGNALED, pattern SIGNALED, pattern ALREADY_SIGNALED,
        pattern TIMEOUT_EXPIRED, pattern CONDITION_SATISFIED,
        pattern WAIT_FAILED, pattern SYNC_FLUSH_COMMANDS_BIT,
        pattern VERTEX_ATTRIB_ARRAY_DIVISOR, pattern ANY_SAMPLES_PASSED,
        pattern ANY_SAMPLES_PASSED_CONSERVATIVE, pattern SAMPLER_BINDING,
        pattern RGB10_A2UI, pattern TEXTURE_SWIZZLE_R,
        pattern TEXTURE_SWIZZLE_G, pattern TEXTURE_SWIZZLE_B,
        pattern TEXTURE_SWIZZLE_A, pattern GREEN, pattern BLUE,
        pattern INT_2_10_10_10_REV, pattern TRANSFORM_FEEDBACK,
        pattern TRANSFORM_FEEDBACK_PAUSED,
        pattern TRANSFORM_FEEDBACK_ACTIVE,
        pattern TRANSFORM_FEEDBACK_BINDING, pattern COMPRESSED_R11_EAC,
        pattern COMPRESSED_SIGNED_R11_EAC, pattern COMPRESSED_RG11_EAC,
        pattern COMPRESSED_SIGNED_RG11_EAC, pattern COMPRESSED_RGB8_ETC2,
        pattern COMPRESSED_SRGB8_ETC2,
        pattern COMPRESSED_RGB8_PUNCHTHROUGH_ALPHA1_ETC2,
        pattern COMPRESSED_SRGB8_PUNCHTHROUGH_ALPHA1_ETC2,
        pattern COMPRESSED_RGBA8_ETC2_EAC,
        pattern COMPRESSED_SRGB8_ALPHA8_ETC2_EAC,
        pattern TEXTURE_IMMUTABLE_FORMAT, pattern MAX_ELEMENT_INDEX,
        pattern NUM_SAMPLE_COUNTS, pattern TEXTURE_IMMUTABLE_LEVELS,
        pattern VERTEX_ATTRIB_ARRAY_DIVISOR_ANGLE, pattern TIMEOUT_IGNORED,
        WebGL2RenderingContext(..), gTypeWebGL2RenderingContext)
       where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Data.Traversable (mapM)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Enums

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.bufferData Mozilla WebGL2RenderingContext.bufferData documentation> 
bufferDataPtr ::
              (MonadDOM m) =>
                WebGL2RenderingContext -> GLenum -> GLsizeiptr -> GLenum -> m ()
bufferDataPtr :: WebGL2RenderingContext -> GLenum -> GLsizeiptr -> GLenum -> m ()
bufferDataPtr WebGL2RenderingContext
self GLenum
target GLsizeiptr
size GLenum
usage
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"bufferData"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, GLsizeiptr -> JSM JSVal
forall a. Integral a => a -> JSM JSVal
integralToDoubleToJSVal GLsizeiptr
size, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
usage]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.bufferData Mozilla WebGL2RenderingContext.bufferData documentation> 
bufferData ::
           (MonadDOM m, IsBufferDataSource srcData) =>
             WebGL2RenderingContext -> GLenum -> Maybe srcData -> GLenum -> m ()
bufferData :: WebGL2RenderingContext -> GLenum -> Maybe srcData -> GLenum -> m ()
bufferData WebGL2RenderingContext
self GLenum
target Maybe srcData
srcData GLenum
usage
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"bufferData"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, Maybe srcData -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe srcData
srcData, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
usage]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.bufferSubData Mozilla WebGL2RenderingContext.bufferSubData documentation> 
bufferSubData ::
              (MonadDOM m, IsBufferDataSource srcData) =>
                WebGL2RenderingContext ->
                  GLenum -> GLintptr -> Maybe srcData -> m ()
bufferSubData :: WebGL2RenderingContext
-> GLenum -> GLsizeiptr -> Maybe srcData -> m ()
bufferSubData WebGL2RenderingContext
self GLenum
target GLsizeiptr
dstByteOffset Maybe srcData
srcData
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"bufferSubData"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, GLsizeiptr -> JSM JSVal
forall a. Integral a => a -> JSM JSVal
integralToDoubleToJSVal GLsizeiptr
dstByteOffset,
             Maybe srcData -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe srcData
srcData]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.bufferData Mozilla WebGL2RenderingContext.bufferData documentation> 
bufferDataView ::
               (MonadDOM m, IsArrayBufferView data') =>
                 WebGL2RenderingContext ->
                   GLenum -> data' -> GLenum -> GLuint -> Maybe GLuint -> m ()
bufferDataView :: WebGL2RenderingContext
-> GLenum -> data' -> GLenum -> GLenum -> Maybe GLenum -> m ()
bufferDataView WebGL2RenderingContext
self GLenum
target data'
data' GLenum
usage GLenum
srcOffset Maybe GLenum
length
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"bufferData"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, data' -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal data'
data', GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
usage, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
srcOffset,
             Maybe GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe GLenum
length]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.bufferSubData Mozilla WebGL2RenderingContext.bufferSubData documentation> 
bufferSubDataView ::
                  (MonadDOM m, IsArrayBufferView srcData) =>
                    WebGL2RenderingContext ->
                      GLenum -> GLintptr -> srcData -> GLuint -> Maybe GLuint -> m ()
bufferSubDataView :: WebGL2RenderingContext
-> GLenum
-> GLsizeiptr
-> srcData
-> GLenum
-> Maybe GLenum
-> m ()
bufferSubDataView WebGL2RenderingContext
self GLenum
target GLsizeiptr
dstByteOffset srcData
srcData GLenum
srcOffset
  Maybe GLenum
length
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"bufferSubData"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, GLsizeiptr -> JSM JSVal
forall a. Integral a => a -> JSM JSVal
integralToDoubleToJSVal GLsizeiptr
dstByteOffset,
             srcData -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal srcData
srcData, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
srcOffset, Maybe GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe GLenum
length]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.copyBufferSubData Mozilla WebGL2RenderingContext.copyBufferSubData documentation> 
copyBufferSubData ::
                  (MonadDOM m) =>
                    WebGL2RenderingContext ->
                      GLenum -> GLenum -> GLintptr -> GLintptr -> GLsizeiptr -> m ()
copyBufferSubData :: WebGL2RenderingContext
-> GLenum
-> GLenum
-> GLsizeiptr
-> GLsizeiptr
-> GLsizeiptr
-> m ()
copyBufferSubData WebGL2RenderingContext
self GLenum
readTarget GLenum
writeTarget GLsizeiptr
readOffset
  GLsizeiptr
writeOffset GLsizeiptr
size
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"copyBufferSubData"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
readTarget, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
writeTarget,
             GLsizeiptr -> JSM JSVal
forall a. Integral a => a -> JSM JSVal
integralToDoubleToJSVal GLsizeiptr
readOffset,
             GLsizeiptr -> JSM JSVal
forall a. Integral a => a -> JSM JSVal
integralToDoubleToJSVal GLsizeiptr
writeOffset,
             GLsizeiptr -> JSM JSVal
forall a. Integral a => a -> JSM JSVal
integralToDoubleToJSVal GLsizeiptr
size]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getBufferSubData Mozilla WebGL2RenderingContext.getBufferSubData documentation> 
getBufferSubData ::
                 (MonadDOM m, IsArrayBufferView dstData) =>
                   WebGL2RenderingContext ->
                     GLenum ->
                       GLintptr -> dstData -> Maybe GLuint -> Maybe GLuint -> m ()
getBufferSubData :: WebGL2RenderingContext
-> GLenum
-> GLsizeiptr
-> dstData
-> Maybe GLenum
-> Maybe GLenum
-> m ()
getBufferSubData WebGL2RenderingContext
self GLenum
target GLsizeiptr
srcByteOffset dstData
dstData Maybe GLenum
dstOffset Maybe GLenum
length
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getBufferSubData"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, GLsizeiptr -> JSM JSVal
forall a. Integral a => a -> JSM JSVal
integralToDoubleToJSVal GLsizeiptr
srcByteOffset,
             dstData -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal dstData
dstData, Maybe GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe GLenum
dstOffset, Maybe GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe GLenum
length]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.blitFramebuffer Mozilla WebGL2RenderingContext.blitFramebuffer documentation> 
blitFramebuffer ::
                (MonadDOM m) =>
                  WebGL2RenderingContext ->
                    GLint ->
                      GLint ->
                        GLint ->
                          GLint ->
                            GLint -> GLint -> GLint -> GLint -> GLbitfield -> GLenum -> m ()
blitFramebuffer :: WebGL2RenderingContext
-> GLint
-> GLint
-> GLint
-> GLint
-> GLint
-> GLint
-> GLint
-> GLint
-> GLenum
-> GLenum
-> m ()
blitFramebuffer WebGL2RenderingContext
self GLint
srcX0 GLint
srcY0 GLint
srcX1 GLint
srcY1 GLint
dstX0 GLint
dstY0 GLint
dstX1
  GLint
dstY1 GLenum
mask GLenum
filter
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"blitFramebuffer"
            [GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
srcX0, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
srcY0, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
srcX1, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
srcY1,
             GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
dstX0, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
dstY0, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
dstX1, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
dstY1,
             GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
mask, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
filter]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.framebufferTextureLayer Mozilla WebGL2RenderingContext.framebufferTextureLayer documentation> 
framebufferTextureLayer ::
                        (MonadDOM m) =>
                          WebGL2RenderingContext ->
                            GLenum -> GLenum -> GLuint -> GLint -> GLint -> m ()
framebufferTextureLayer :: WebGL2RenderingContext
-> GLenum -> GLenum -> GLenum -> GLint -> GLint -> m ()
framebufferTextureLayer WebGL2RenderingContext
self GLenum
target GLenum
attachment GLenum
texture GLint
level GLint
layer
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"framebufferTextureLayer"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
attachment, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
texture,
             GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
level, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
layer]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getInternalformatParameter Mozilla WebGL2RenderingContext.getInternalformatParameter documentation> 
getInternalformatParameter ::
                           (MonadDOM m) =>
                             WebGL2RenderingContext -> GLenum -> GLenum -> GLenum -> m JSVal
getInternalformatParameter :: WebGL2RenderingContext -> GLenum -> GLenum -> GLenum -> m JSVal
getInternalformatParameter WebGL2RenderingContext
self GLenum
target GLenum
internalformat GLenum
pname
  = JSM JSVal -> m JSVal
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      ((WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getInternalformatParameter"
          [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
internalformat, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
pname])
         JSM JSVal -> (JSVal -> JSM JSVal) -> JSM JSVal
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getInternalformatParameter Mozilla WebGL2RenderingContext.getInternalformatParameter documentation> 
getInternalformatParameter_ ::
                            (MonadDOM m) =>
                              WebGL2RenderingContext -> GLenum -> GLenum -> GLenum -> m ()
getInternalformatParameter_ :: WebGL2RenderingContext -> GLenum -> GLenum -> GLenum -> m ()
getInternalformatParameter_ WebGL2RenderingContext
self GLenum
target GLenum
internalformat GLenum
pname
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getInternalformatParameter"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
internalformat, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
pname]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.invalidateFramebuffer Mozilla WebGL2RenderingContext.invalidateFramebuffer documentation> 
invalidateFramebuffer ::
                      (MonadDOM m) =>
                        WebGL2RenderingContext -> GLenum -> [GLenum] -> m ()
invalidateFramebuffer :: WebGL2RenderingContext -> GLenum -> [GLenum] -> m ()
invalidateFramebuffer WebGL2RenderingContext
self GLenum
target [GLenum]
attachments
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"invalidateFramebuffer"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, JSM Object -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal ([GLenum] -> JSM Object
forall args. MakeArgs args => args -> JSM Object
array [GLenum]
attachments)]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.invalidateSubFramebuffer Mozilla WebGL2RenderingContext.invalidateSubFramebuffer documentation> 
invalidateSubFramebuffer ::
                         (MonadDOM m) =>
                           WebGL2RenderingContext ->
                             GLenum -> [GLenum] -> GLint -> GLint -> GLsizei -> GLsizei -> m ()
invalidateSubFramebuffer :: WebGL2RenderingContext
-> GLenum -> [GLenum] -> GLint -> GLint -> GLint -> GLint -> m ()
invalidateSubFramebuffer WebGL2RenderingContext
self GLenum
target [GLenum]
attachments GLint
x GLint
y GLint
width GLint
height
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"invalidateSubFramebuffer"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, JSM Object -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal ([GLenum] -> JSM Object
forall args. MakeArgs args => args -> JSM Object
array [GLenum]
attachments), GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
x, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
y,
             GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
width, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
height]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.readBuffer Mozilla WebGL2RenderingContext.readBuffer documentation> 
readBuffer ::
           (MonadDOM m) => WebGL2RenderingContext -> GLenum -> m ()
readBuffer :: WebGL2RenderingContext -> GLenum -> m ()
readBuffer WebGL2RenderingContext
self GLenum
src
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"readBuffer" [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
src]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.renderbufferStorageMultisample Mozilla WebGL2RenderingContext.renderbufferStorageMultisample documentation> 
renderbufferStorageMultisample ::
                               (MonadDOM m) =>
                                 WebGL2RenderingContext ->
                                   GLenum -> GLsizei -> GLenum -> GLsizei -> GLsizei -> m ()
renderbufferStorageMultisample :: WebGL2RenderingContext
-> GLenum -> GLint -> GLenum -> GLint -> GLint -> m ()
renderbufferStorageMultisample WebGL2RenderingContext
self GLenum
target GLint
samples GLenum
internalformat
  GLint
width GLint
height
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"renderbufferStorageMultisample"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
samples, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
internalformat,
             GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
width, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
height]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.texStorage2D Mozilla WebGL2RenderingContext.texStorage2D documentation> 
texStorage2D ::
             (MonadDOM m) =>
               WebGL2RenderingContext ->
                 GLenum -> GLsizei -> GLenum -> GLsizei -> GLsizei -> m ()
texStorage2D :: WebGL2RenderingContext
-> GLenum -> GLint -> GLenum -> GLint -> GLint -> m ()
texStorage2D WebGL2RenderingContext
self GLenum
target GLint
levels GLenum
internalformat GLint
width GLint
height
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"texStorage2D"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
levels, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
internalformat,
             GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
width, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
height]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.texStorage3D Mozilla WebGL2RenderingContext.texStorage3D documentation> 
texStorage3D ::
             (MonadDOM m) =>
               WebGL2RenderingContext ->
                 GLenum ->
                   GLsizei -> GLenum -> GLsizei -> GLsizei -> GLsizei -> m ()
texStorage3D :: WebGL2RenderingContext
-> GLenum -> GLint -> GLenum -> GLint -> GLint -> GLint -> m ()
texStorage3D WebGL2RenderingContext
self GLenum
target GLint
levels GLenum
internalformat GLint
width GLint
height GLint
depth
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"texStorage3D"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
levels, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
internalformat,
             GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
width, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
height, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
depth]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.texImage3D Mozilla WebGL2RenderingContext.texImage3D documentation> 
texImage3D ::
           (MonadDOM m, IsArrayBufferView pixels) =>
             WebGL2RenderingContext ->
               GLenum ->
                 GLint ->
                   GLint ->
                     GLsizei ->
                       GLsizei ->
                         GLsizei -> GLint -> GLenum -> GLenum -> Maybe pixels -> m ()
texImage3D :: WebGL2RenderingContext
-> GLenum
-> GLint
-> GLint
-> GLint
-> GLint
-> GLint
-> GLint
-> GLenum
-> GLenum
-> Maybe pixels
-> m ()
texImage3D WebGL2RenderingContext
self GLenum
target GLint
level GLint
internalformat GLint
width GLint
height GLint
depth
  GLint
border GLenum
format GLenum
type' Maybe pixels
pixels
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"texImage3D"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
level, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
internalformat,
             GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
width, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
height, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
depth, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
border,
             GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
format, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
type', Maybe pixels -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe pixels
pixels]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.texSubImage3D Mozilla WebGL2RenderingContext.texSubImage3D documentation> 
texSubImage3DView ::
                  (MonadDOM m, IsArrayBufferView pixels) =>
                    WebGL2RenderingContext ->
                      GLenum ->
                        GLint ->
                          GLint ->
                            GLint ->
                              GLint ->
                                GLsizei ->
                                  GLsizei -> GLsizei -> GLenum -> GLenum -> Maybe pixels -> m ()
texSubImage3DView :: WebGL2RenderingContext
-> GLenum
-> GLint
-> GLint
-> GLint
-> GLint
-> GLint
-> GLint
-> GLint
-> GLenum
-> GLenum
-> Maybe pixels
-> m ()
texSubImage3DView WebGL2RenderingContext
self GLenum
target GLint
level GLint
xoffset GLint
yoffset GLint
zoffset GLint
width
  GLint
height GLint
depth GLenum
format GLenum
type' Maybe pixels
pixels
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"texSubImage3D"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
level, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
xoffset, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
yoffset,
             GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
zoffset, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
width, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
height, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
depth,
             GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
format, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
type', Maybe pixels -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe pixels
pixels]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.texSubImage3D Mozilla WebGL2RenderingContext.texSubImage3D documentation> 
texSubImage3D ::
              (MonadDOM m, IsTexImageSource source) =>
                WebGL2RenderingContext ->
                  GLenum ->
                    GLint ->
                      GLint -> GLint -> GLint -> GLenum -> GLenum -> source -> m ()
texSubImage3D :: WebGL2RenderingContext
-> GLenum
-> GLint
-> GLint
-> GLint
-> GLint
-> GLenum
-> GLenum
-> source
-> m ()
texSubImage3D WebGL2RenderingContext
self GLenum
target GLint
level GLint
xoffset GLint
yoffset GLint
zoffset GLenum
format
  GLenum
type' source
source
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"texSubImage3D"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
level, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
xoffset, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
yoffset,
             GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
zoffset, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
format, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
type', source -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal source
source]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.copyTexSubImage3D Mozilla WebGL2RenderingContext.copyTexSubImage3D documentation> 
copyTexSubImage3D ::
                  (MonadDOM m) =>
                    WebGL2RenderingContext ->
                      GLenum ->
                        GLint ->
                          GLint ->
                            GLint -> GLint -> GLint -> GLint -> GLsizei -> GLsizei -> m ()
copyTexSubImage3D :: WebGL2RenderingContext
-> GLenum
-> GLint
-> GLint
-> GLint
-> GLint
-> GLint
-> GLint
-> GLint
-> GLint
-> m ()
copyTexSubImage3D WebGL2RenderingContext
self GLenum
target GLint
level GLint
xoffset GLint
yoffset GLint
zoffset GLint
x GLint
y
  GLint
width GLint
height
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"copyTexSubImage3D"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
level, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
xoffset, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
yoffset,
             GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
zoffset, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
x, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
y, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
width,
             GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
height]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.compressedTexImage3D Mozilla WebGL2RenderingContext.compressedTexImage3D documentation> 
compressedTexImage3D ::
                     (MonadDOM m, IsArrayBufferView data') =>
                       WebGL2RenderingContext ->
                         GLenum ->
                           GLint ->
                             GLenum ->
                               GLsizei ->
                                 GLsizei -> GLsizei -> GLint -> GLsizei -> Maybe data' -> m ()
compressedTexImage3D :: WebGL2RenderingContext
-> GLenum
-> GLint
-> GLenum
-> GLint
-> GLint
-> GLint
-> GLint
-> GLint
-> Maybe data'
-> m ()
compressedTexImage3D WebGL2RenderingContext
self GLenum
target GLint
level GLenum
internalformat GLint
width GLint
height
  GLint
depth GLint
border GLint
imageSize Maybe data'
data'
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"compressedTexImage3D"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
level, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
internalformat,
             GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
width, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
height, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
depth, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
border,
             GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
imageSize, Maybe data' -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe data'
data']))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.compressedTexSubImage3D Mozilla WebGL2RenderingContext.compressedTexSubImage3D documentation> 
compressedTexSubImage3D ::
                        (MonadDOM m, IsArrayBufferView data') =>
                          WebGL2RenderingContext ->
                            GLenum ->
                              GLint ->
                                GLint ->
                                  GLint ->
                                    GLint ->
                                      GLsizei ->
                                        GLsizei ->
                                          GLsizei -> GLenum -> GLsizei -> Maybe data' -> m ()
compressedTexSubImage3D :: WebGL2RenderingContext
-> GLenum
-> GLint
-> GLint
-> GLint
-> GLint
-> GLint
-> GLint
-> GLint
-> GLenum
-> GLint
-> Maybe data'
-> m ()
compressedTexSubImage3D WebGL2RenderingContext
self GLenum
target GLint
level GLint
xoffset GLint
yoffset GLint
zoffset
  GLint
width GLint
height GLint
depth GLenum
format GLint
imageSize Maybe data'
data'
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"compressedTexSubImage3D"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
level, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
xoffset, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
yoffset,
             GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
zoffset, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
width, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
height, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
depth,
             GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
format, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
imageSize, Maybe data' -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe data'
data']))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getFragDataLocation Mozilla WebGL2RenderingContext.getFragDataLocation documentation> 
getFragDataLocation ::
                    (MonadDOM m, ToJSString name) =>
                      WebGL2RenderingContext -> Maybe WebGLProgram -> name -> m GLint
getFragDataLocation :: WebGL2RenderingContext -> Maybe WebGLProgram -> name -> m GLint
getFragDataLocation WebGL2RenderingContext
self Maybe WebGLProgram
program name
name
  = DOM GLint -> m GLint
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      ((WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getFragDataLocation"
          [Maybe WebGLProgram -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLProgram
program, name -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal name
name])
         JSM JSVal -> (JSVal -> DOM GLint) -> DOM GLint
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM GLint
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getFragDataLocation Mozilla WebGL2RenderingContext.getFragDataLocation documentation> 
getFragDataLocation_ ::
                     (MonadDOM m, ToJSString name) =>
                       WebGL2RenderingContext -> Maybe WebGLProgram -> name -> m ()
getFragDataLocation_ :: WebGL2RenderingContext -> Maybe WebGLProgram -> name -> m ()
getFragDataLocation_ WebGL2RenderingContext
self Maybe WebGLProgram
program name
name
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getFragDataLocation"
            [Maybe WebGLProgram -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLProgram
program, name -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal name
name]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniform1ui Mozilla WebGL2RenderingContext.uniform1ui documentation> 
uniform1ui ::
           (MonadDOM m) =>
             WebGL2RenderingContext ->
               Maybe WebGLUniformLocation -> GLuint -> m ()
uniform1ui :: WebGL2RenderingContext
-> Maybe WebGLUniformLocation -> GLenum -> m ()
uniform1ui WebGL2RenderingContext
self Maybe WebGLUniformLocation
location GLenum
v0
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"uniform1ui" [Maybe WebGLUniformLocation -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLUniformLocation
location, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
v0]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniform2ui Mozilla WebGL2RenderingContext.uniform2ui documentation> 
uniform2ui ::
           (MonadDOM m) =>
             WebGL2RenderingContext ->
               Maybe WebGLUniformLocation -> GLuint -> GLuint -> m ()
uniform2ui :: WebGL2RenderingContext
-> Maybe WebGLUniformLocation -> GLenum -> GLenum -> m ()
uniform2ui WebGL2RenderingContext
self Maybe WebGLUniformLocation
location GLenum
v0 GLenum
v1
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"uniform2ui"
            [Maybe WebGLUniformLocation -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLUniformLocation
location, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
v0, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
v1]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniform3ui Mozilla WebGL2RenderingContext.uniform3ui documentation> 
uniform3ui ::
           (MonadDOM m) =>
             WebGL2RenderingContext ->
               Maybe WebGLUniformLocation -> GLuint -> GLuint -> GLuint -> m ()
uniform3ui :: WebGL2RenderingContext
-> Maybe WebGLUniformLocation -> GLenum -> GLenum -> GLenum -> m ()
uniform3ui WebGL2RenderingContext
self Maybe WebGLUniformLocation
location GLenum
v0 GLenum
v1 GLenum
v2
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"uniform3ui"
            [Maybe WebGLUniformLocation -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLUniformLocation
location, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
v0, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
v1, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
v2]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniform4ui Mozilla WebGL2RenderingContext.uniform4ui documentation> 
uniform4ui ::
           (MonadDOM m) =>
             WebGL2RenderingContext ->
               Maybe WebGLUniformLocation ->
                 GLuint -> GLuint -> GLuint -> GLuint -> m ()
uniform4ui :: WebGL2RenderingContext
-> Maybe WebGLUniformLocation
-> GLenum
-> GLenum
-> GLenum
-> GLenum
-> m ()
uniform4ui WebGL2RenderingContext
self Maybe WebGLUniformLocation
location GLenum
v0 GLenum
v1 GLenum
v2 GLenum
v3
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"uniform4ui"
            [Maybe WebGLUniformLocation -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLUniformLocation
location, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
v0, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
v1, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
v2,
             GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
v3]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniform1uiv Mozilla WebGL2RenderingContext.uniform1uiv documentation> 
uniform1uiv ::
            (MonadDOM m, IsUint32Array value) =>
              WebGL2RenderingContext ->
                Maybe WebGLUniformLocation -> Maybe value -> m ()
uniform1uiv :: WebGL2RenderingContext
-> Maybe WebGLUniformLocation -> Maybe value -> m ()
uniform1uiv WebGL2RenderingContext
self Maybe WebGLUniformLocation
location Maybe value
value
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"uniform1uiv" [Maybe WebGLUniformLocation -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLUniformLocation
location, Maybe value -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe value
value]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniform2uiv Mozilla WebGL2RenderingContext.uniform2uiv documentation> 
uniform2uiv ::
            (MonadDOM m, IsUint32Array value) =>
              WebGL2RenderingContext ->
                Maybe WebGLUniformLocation -> Maybe value -> m ()
uniform2uiv :: WebGL2RenderingContext
-> Maybe WebGLUniformLocation -> Maybe value -> m ()
uniform2uiv WebGL2RenderingContext
self Maybe WebGLUniformLocation
location Maybe value
value
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"uniform2uiv" [Maybe WebGLUniformLocation -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLUniformLocation
location, Maybe value -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe value
value]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniform3uiv Mozilla WebGL2RenderingContext.uniform3uiv documentation> 
uniform3uiv ::
            (MonadDOM m, IsUint32Array value) =>
              WebGL2RenderingContext ->
                Maybe WebGLUniformLocation -> Maybe value -> m ()
uniform3uiv :: WebGL2RenderingContext
-> Maybe WebGLUniformLocation -> Maybe value -> m ()
uniform3uiv WebGL2RenderingContext
self Maybe WebGLUniformLocation
location Maybe value
value
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"uniform3uiv" [Maybe WebGLUniformLocation -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLUniformLocation
location, Maybe value -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe value
value]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniform4uiv Mozilla WebGL2RenderingContext.uniform4uiv documentation> 
uniform4uiv ::
            (MonadDOM m, IsUint32Array value) =>
              WebGL2RenderingContext ->
                Maybe WebGLUniformLocation -> Maybe value -> m ()
uniform4uiv :: WebGL2RenderingContext
-> Maybe WebGLUniformLocation -> Maybe value -> m ()
uniform4uiv WebGL2RenderingContext
self Maybe WebGLUniformLocation
location Maybe value
value
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"uniform4uiv" [Maybe WebGLUniformLocation -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLUniformLocation
location, Maybe value -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe value
value]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniformMatrix2x3fv Mozilla WebGL2RenderingContext.uniformMatrix2x3fv documentation> 
uniformMatrix2x3fv ::
                   (MonadDOM m, IsFloat32Array value) =>
                     WebGL2RenderingContext ->
                       Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m ()
uniformMatrix2x3fv :: WebGL2RenderingContext
-> Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m ()
uniformMatrix2x3fv WebGL2RenderingContext
self Maybe WebGLUniformLocation
location GLboolean
transpose Maybe value
value
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"uniformMatrix2x3fv"
            [Maybe WebGLUniformLocation -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLUniformLocation
location, GLboolean -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLboolean
transpose, Maybe value -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe value
value]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniformMatrix3x2fv Mozilla WebGL2RenderingContext.uniformMatrix3x2fv documentation> 
uniformMatrix3x2fv ::
                   (MonadDOM m, IsFloat32Array value) =>
                     WebGL2RenderingContext ->
                       Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m ()
uniformMatrix3x2fv :: WebGL2RenderingContext
-> Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m ()
uniformMatrix3x2fv WebGL2RenderingContext
self Maybe WebGLUniformLocation
location GLboolean
transpose Maybe value
value
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"uniformMatrix3x2fv"
            [Maybe WebGLUniformLocation -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLUniformLocation
location, GLboolean -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLboolean
transpose, Maybe value -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe value
value]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniformMatrix2x4fv Mozilla WebGL2RenderingContext.uniformMatrix2x4fv documentation> 
uniformMatrix2x4fv ::
                   (MonadDOM m, IsFloat32Array value) =>
                     WebGL2RenderingContext ->
                       Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m ()
uniformMatrix2x4fv :: WebGL2RenderingContext
-> Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m ()
uniformMatrix2x4fv WebGL2RenderingContext
self Maybe WebGLUniformLocation
location GLboolean
transpose Maybe value
value
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"uniformMatrix2x4fv"
            [Maybe WebGLUniformLocation -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLUniformLocation
location, GLboolean -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLboolean
transpose, Maybe value -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe value
value]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniformMatrix4x2fv Mozilla WebGL2RenderingContext.uniformMatrix4x2fv documentation> 
uniformMatrix4x2fv ::
                   (MonadDOM m, IsFloat32Array value) =>
                     WebGL2RenderingContext ->
                       Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m ()
uniformMatrix4x2fv :: WebGL2RenderingContext
-> Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m ()
uniformMatrix4x2fv WebGL2RenderingContext
self Maybe WebGLUniformLocation
location GLboolean
transpose Maybe value
value
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"uniformMatrix4x2fv"
            [Maybe WebGLUniformLocation -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLUniformLocation
location, GLboolean -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLboolean
transpose, Maybe value -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe value
value]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniformMatrix3x4fv Mozilla WebGL2RenderingContext.uniformMatrix3x4fv documentation> 
uniformMatrix3x4fv ::
                   (MonadDOM m, IsFloat32Array value) =>
                     WebGL2RenderingContext ->
                       Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m ()
uniformMatrix3x4fv :: WebGL2RenderingContext
-> Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m ()
uniformMatrix3x4fv WebGL2RenderingContext
self Maybe WebGLUniformLocation
location GLboolean
transpose Maybe value
value
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"uniformMatrix3x4fv"
            [Maybe WebGLUniformLocation -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLUniformLocation
location, GLboolean -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLboolean
transpose, Maybe value -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe value
value]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniformMatrix4x3fv Mozilla WebGL2RenderingContext.uniformMatrix4x3fv documentation> 
uniformMatrix4x3fv ::
                   (MonadDOM m, IsFloat32Array value) =>
                     WebGL2RenderingContext ->
                       Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m ()
uniformMatrix4x3fv :: WebGL2RenderingContext
-> Maybe WebGLUniformLocation -> GLboolean -> Maybe value -> m ()
uniformMatrix4x3fv WebGL2RenderingContext
self Maybe WebGLUniformLocation
location GLboolean
transpose Maybe value
value
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"uniformMatrix4x3fv"
            [Maybe WebGLUniformLocation -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLUniformLocation
location, GLboolean -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLboolean
transpose, Maybe value -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe value
value]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.vertexAttribI4i Mozilla WebGL2RenderingContext.vertexAttribI4i documentation> 
vertexAttribI4i ::
                (MonadDOM m) =>
                  WebGL2RenderingContext ->
                    GLuint -> GLint -> GLint -> GLint -> GLint -> m ()
vertexAttribI4i :: WebGL2RenderingContext
-> GLenum -> GLint -> GLint -> GLint -> GLint -> m ()
vertexAttribI4i WebGL2RenderingContext
self GLenum
index GLint
x GLint
y GLint
z GLint
w
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"vertexAttribI4i"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
index, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
x, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
y, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
z, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
w]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.vertexAttribI4iv Mozilla WebGL2RenderingContext.vertexAttribI4iv documentation> 
vertexAttribI4iv ::
                 (MonadDOM m, IsInt32Array v) =>
                   WebGL2RenderingContext -> GLuint -> Maybe v -> m ()
vertexAttribI4iv :: WebGL2RenderingContext -> GLenum -> Maybe v -> m ()
vertexAttribI4iv WebGL2RenderingContext
self GLenum
index Maybe v
v
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"vertexAttribI4iv" [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
index, Maybe v -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe v
v]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.vertexAttribI4ui Mozilla WebGL2RenderingContext.vertexAttribI4ui documentation> 
vertexAttribI4ui ::
                 (MonadDOM m) =>
                   WebGL2RenderingContext ->
                     GLuint -> GLuint -> GLuint -> GLuint -> GLuint -> m ()
vertexAttribI4ui :: WebGL2RenderingContext
-> GLenum -> GLenum -> GLenum -> GLenum -> GLenum -> m ()
vertexAttribI4ui WebGL2RenderingContext
self GLenum
index GLenum
x GLenum
y GLenum
z GLenum
w
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"vertexAttribI4ui"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
index, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
x, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
y, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
z, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
w]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.vertexAttribI4uiv Mozilla WebGL2RenderingContext.vertexAttribI4uiv documentation> 
vertexAttribI4uiv ::
                  (MonadDOM m, IsUint32Array v) =>
                    WebGL2RenderingContext -> GLuint -> Maybe v -> m ()
vertexAttribI4uiv :: WebGL2RenderingContext -> GLenum -> Maybe v -> m ()
vertexAttribI4uiv WebGL2RenderingContext
self GLenum
index Maybe v
v
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"vertexAttribI4uiv" [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
index, Maybe v -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe v
v]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.vertexAttribIPointer Mozilla WebGL2RenderingContext.vertexAttribIPointer documentation> 
vertexAttribIPointer ::
                     (MonadDOM m) =>
                       WebGL2RenderingContext ->
                         GLuint -> GLint -> GLenum -> GLsizei -> GLintptr -> m ()
vertexAttribIPointer :: WebGL2RenderingContext
-> GLenum -> GLint -> GLenum -> GLint -> GLsizeiptr -> m ()
vertexAttribIPointer WebGL2RenderingContext
self GLenum
index GLint
size GLenum
type' GLint
stride GLsizeiptr
offset
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"vertexAttribIPointer"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
index, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
size, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
type', GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
stride,
             GLsizeiptr -> JSM JSVal
forall a. Integral a => a -> JSM JSVal
integralToDoubleToJSVal GLsizeiptr
offset]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.vertexAttribDivisor Mozilla WebGL2RenderingContext.vertexAttribDivisor documentation> 
vertexAttribDivisor ::
                    (MonadDOM m) => WebGL2RenderingContext -> GLuint -> GLuint -> m ()
vertexAttribDivisor :: WebGL2RenderingContext -> GLenum -> GLenum -> m ()
vertexAttribDivisor WebGL2RenderingContext
self GLenum
index GLenum
divisor
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"vertexAttribDivisor"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
index, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
divisor]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.drawArraysInstanced Mozilla WebGL2RenderingContext.drawArraysInstanced documentation> 
drawArraysInstanced ::
                    (MonadDOM m) =>
                      WebGL2RenderingContext ->
                        GLenum -> GLint -> GLsizei -> GLsizei -> m ()
drawArraysInstanced :: WebGL2RenderingContext -> GLenum -> GLint -> GLint -> GLint -> m ()
drawArraysInstanced WebGL2RenderingContext
self GLenum
mode GLint
first GLint
count GLint
instanceCount
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"drawArraysInstanced"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
mode, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
first, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
count,
             GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
instanceCount]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.drawElementsInstanced Mozilla WebGL2RenderingContext.drawElementsInstanced documentation> 
drawElementsInstanced ::
                      (MonadDOM m) =>
                        WebGL2RenderingContext ->
                          GLenum -> GLsizei -> GLenum -> GLintptr -> GLsizei -> m ()
drawElementsInstanced :: WebGL2RenderingContext
-> GLenum -> GLint -> GLenum -> GLsizeiptr -> GLint -> m ()
drawElementsInstanced WebGL2RenderingContext
self GLenum
mode GLint
count GLenum
type' GLsizeiptr
offset GLint
instanceCount
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"drawElementsInstanced"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
mode, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
count, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
type',
             GLsizeiptr -> JSM JSVal
forall a. Integral a => a -> JSM JSVal
integralToDoubleToJSVal GLsizeiptr
offset, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
instanceCount]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.drawRangeElements Mozilla WebGL2RenderingContext.drawRangeElements documentation> 
drawRangeElements ::
                  (MonadDOM m) =>
                    WebGL2RenderingContext ->
                      GLenum -> GLuint -> GLuint -> GLsizei -> GLenum -> GLintptr -> m ()
drawRangeElements :: WebGL2RenderingContext
-> GLenum
-> GLenum
-> GLenum
-> GLint
-> GLenum
-> GLsizeiptr
-> m ()
drawRangeElements WebGL2RenderingContext
self GLenum
mode GLenum
start GLenum
end GLint
count GLenum
type' GLsizeiptr
offset
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"drawRangeElements"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
mode, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
start, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
end, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
count,
             GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
type', GLsizeiptr -> JSM JSVal
forall a. Integral a => a -> JSM JSVal
integralToDoubleToJSVal GLsizeiptr
offset]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.drawBuffers Mozilla WebGL2RenderingContext.drawBuffers documentation> 
drawBuffers ::
            (MonadDOM m) => WebGL2RenderingContext -> [GLenum] -> m ()
drawBuffers :: WebGL2RenderingContext -> [GLenum] -> m ()
drawBuffers WebGL2RenderingContext
self [GLenum]
buffers
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"drawBuffers" [JSM Object -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal ([GLenum] -> JSM Object
forall args. MakeArgs args => args -> JSM Object
array [GLenum]
buffers)]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.clearBufferiv Mozilla WebGL2RenderingContext.clearBufferiv documentation> 
clearBufferiv ::
              (MonadDOM m, IsInt32Array value) =>
                WebGL2RenderingContext -> GLenum -> GLint -> Maybe value -> m ()
clearBufferiv :: WebGL2RenderingContext -> GLenum -> GLint -> Maybe value -> m ()
clearBufferiv WebGL2RenderingContext
self GLenum
buffer GLint
drawbuffer Maybe value
value
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"clearBufferiv"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
buffer, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
drawbuffer, Maybe value -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe value
value]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.clearBufferuiv Mozilla WebGL2RenderingContext.clearBufferuiv documentation> 
clearBufferuiv ::
               (MonadDOM m, IsUint32Array value) =>
                 WebGL2RenderingContext -> GLenum -> GLint -> Maybe value -> m ()
clearBufferuiv :: WebGL2RenderingContext -> GLenum -> GLint -> Maybe value -> m ()
clearBufferuiv WebGL2RenderingContext
self GLenum
buffer GLint
drawbuffer Maybe value
value
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"clearBufferuiv"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
buffer, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
drawbuffer, Maybe value -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe value
value]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.clearBufferfv Mozilla WebGL2RenderingContext.clearBufferfv documentation> 
clearBufferfv ::
              (MonadDOM m, IsFloat32Array value) =>
                WebGL2RenderingContext -> GLenum -> GLint -> Maybe value -> m ()
clearBufferfv :: WebGL2RenderingContext -> GLenum -> GLint -> Maybe value -> m ()
clearBufferfv WebGL2RenderingContext
self GLenum
buffer GLint
drawbuffer Maybe value
value
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"clearBufferfv"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
buffer, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
drawbuffer, Maybe value -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe value
value]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.clearBufferfi Mozilla WebGL2RenderingContext.clearBufferfi documentation> 
clearBufferfi ::
              (MonadDOM m) =>
                WebGL2RenderingContext ->
                  GLenum -> GLint -> GLfloat -> GLint -> m ()
clearBufferfi :: WebGL2RenderingContext
-> GLenum -> GLint -> GLfloat -> GLint -> m ()
clearBufferfi WebGL2RenderingContext
self GLenum
buffer GLint
drawbuffer GLfloat
depth GLint
stencil
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"clearBufferfi"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
buffer, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
drawbuffer, GLfloat -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLfloat
depth,
             GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
stencil]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.createQuery Mozilla WebGL2RenderingContext.createQuery documentation> 
createQuery ::
            (MonadDOM m) => WebGL2RenderingContext -> m WebGLQuery
createQuery :: WebGL2RenderingContext -> m WebGLQuery
createQuery WebGL2RenderingContext
self
  = DOM WebGLQuery -> m WebGLQuery
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createQuery" ()) JSM JSVal -> (JSVal -> DOM WebGLQuery) -> DOM WebGLQuery
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM WebGLQuery
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.createQuery Mozilla WebGL2RenderingContext.createQuery documentation> 
createQuery_ :: (MonadDOM m) => WebGL2RenderingContext -> m ()
createQuery_ :: WebGL2RenderingContext -> m ()
createQuery_ WebGL2RenderingContext
self = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createQuery" ()))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.deleteQuery Mozilla WebGL2RenderingContext.deleteQuery documentation> 
deleteQuery ::
            (MonadDOM m) => WebGL2RenderingContext -> Maybe WebGLQuery -> m ()
deleteQuery :: WebGL2RenderingContext -> Maybe WebGLQuery -> m ()
deleteQuery WebGL2RenderingContext
self Maybe WebGLQuery
query
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"deleteQuery" [Maybe WebGLQuery -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLQuery
query]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.isQuery Mozilla WebGL2RenderingContext.isQuery documentation> 
isQuery ::
        (MonadDOM m) =>
          WebGL2RenderingContext -> Maybe WebGLQuery -> m GLboolean
isQuery :: WebGL2RenderingContext -> Maybe WebGLQuery -> m GLboolean
isQuery WebGL2RenderingContext
self Maybe WebGLQuery
query
  = DOM GLboolean -> m GLboolean
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      ((WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"isQuery" [Maybe WebGLQuery -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLQuery
query]) JSM JSVal -> (JSVal -> DOM GLboolean) -> DOM GLboolean
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM GLboolean
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.isQuery Mozilla WebGL2RenderingContext.isQuery documentation> 
isQuery_ ::
         (MonadDOM m) => WebGL2RenderingContext -> Maybe WebGLQuery -> m ()
isQuery_ :: WebGL2RenderingContext -> Maybe WebGLQuery -> m ()
isQuery_ WebGL2RenderingContext
self Maybe WebGLQuery
query
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"isQuery" [Maybe WebGLQuery -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLQuery
query]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.beginQuery Mozilla WebGL2RenderingContext.beginQuery documentation> 
beginQuery ::
           (MonadDOM m) =>
             WebGL2RenderingContext -> GLenum -> Maybe WebGLQuery -> m ()
beginQuery :: WebGL2RenderingContext -> GLenum -> Maybe WebGLQuery -> m ()
beginQuery WebGL2RenderingContext
self GLenum
target Maybe WebGLQuery
query
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"beginQuery" [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, Maybe WebGLQuery -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLQuery
query]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.endQuery Mozilla WebGL2RenderingContext.endQuery documentation> 
endQuery ::
         (MonadDOM m) => WebGL2RenderingContext -> GLenum -> m ()
endQuery :: WebGL2RenderingContext -> GLenum -> m ()
endQuery WebGL2RenderingContext
self GLenum
target
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"endQuery" [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getQuery Mozilla WebGL2RenderingContext.getQuery documentation> 
getQuery ::
         (MonadDOM m) =>
           WebGL2RenderingContext -> GLenum -> GLenum -> m WebGLQuery
getQuery :: WebGL2RenderingContext -> GLenum -> GLenum -> m WebGLQuery
getQuery WebGL2RenderingContext
self GLenum
target GLenum
pname
  = DOM WebGLQuery -> m WebGLQuery
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      ((WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getQuery" [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
pname]) JSM JSVal -> (JSVal -> DOM WebGLQuery) -> DOM WebGLQuery
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
         JSVal -> DOM WebGLQuery
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getQuery Mozilla WebGL2RenderingContext.getQuery documentation> 
getQuery_ ::
          (MonadDOM m) => WebGL2RenderingContext -> GLenum -> GLenum -> m ()
getQuery_ :: WebGL2RenderingContext -> GLenum -> GLenum -> m ()
getQuery_ WebGL2RenderingContext
self GLenum
target GLenum
pname
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getQuery" [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
pname]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getQueryParameter Mozilla WebGL2RenderingContext.getQueryParameter documentation> 
getQueryParameter ::
                  (MonadDOM m) =>
                    WebGL2RenderingContext -> Maybe WebGLQuery -> GLenum -> m JSVal
getQueryParameter :: WebGL2RenderingContext -> Maybe WebGLQuery -> GLenum -> m JSVal
getQueryParameter WebGL2RenderingContext
self Maybe WebGLQuery
query GLenum
pname
  = JSM JSVal -> m JSVal
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      ((WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getQueryParameter" [Maybe WebGLQuery -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLQuery
query, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
pname])
         JSM JSVal -> (JSVal -> JSM JSVal) -> JSM JSVal
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getQueryParameter Mozilla WebGL2RenderingContext.getQueryParameter documentation> 
getQueryParameter_ ::
                   (MonadDOM m) =>
                     WebGL2RenderingContext -> Maybe WebGLQuery -> GLenum -> m ()
getQueryParameter_ :: WebGL2RenderingContext -> Maybe WebGLQuery -> GLenum -> m ()
getQueryParameter_ WebGL2RenderingContext
self Maybe WebGLQuery
query GLenum
pname
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getQueryParameter" [Maybe WebGLQuery -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLQuery
query, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
pname]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.createSampler Mozilla WebGL2RenderingContext.createSampler documentation> 
createSampler ::
              (MonadDOM m) => WebGL2RenderingContext -> m WebGLSampler
createSampler :: WebGL2RenderingContext -> m WebGLSampler
createSampler WebGL2RenderingContext
self
  = DOM WebGLSampler -> m WebGLSampler
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSampler" ()) JSM JSVal -> (JSVal -> DOM WebGLSampler) -> DOM WebGLSampler
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM WebGLSampler
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.createSampler Mozilla WebGL2RenderingContext.createSampler documentation> 
createSampler_ :: (MonadDOM m) => WebGL2RenderingContext -> m ()
createSampler_ :: WebGL2RenderingContext -> m ()
createSampler_ WebGL2RenderingContext
self
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createSampler" ()))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.deleteSampler Mozilla WebGL2RenderingContext.deleteSampler documentation> 
deleteSampler ::
              (MonadDOM m) =>
                WebGL2RenderingContext -> Maybe WebGLSampler -> m ()
deleteSampler :: WebGL2RenderingContext -> Maybe WebGLSampler -> m ()
deleteSampler WebGL2RenderingContext
self Maybe WebGLSampler
sampler
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"deleteSampler" [Maybe WebGLSampler -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLSampler
sampler]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.isSampler Mozilla WebGL2RenderingContext.isSampler documentation> 
isSampler ::
          (MonadDOM m) =>
            WebGL2RenderingContext -> Maybe WebGLSampler -> m GLboolean
isSampler :: WebGL2RenderingContext -> Maybe WebGLSampler -> m GLboolean
isSampler WebGL2RenderingContext
self Maybe WebGLSampler
sampler
  = DOM GLboolean -> m GLboolean
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      ((WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"isSampler" [Maybe WebGLSampler -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLSampler
sampler]) JSM JSVal -> (JSVal -> DOM GLboolean) -> DOM GLboolean
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
         JSVal -> DOM GLboolean
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.isSampler Mozilla WebGL2RenderingContext.isSampler documentation> 
isSampler_ ::
           (MonadDOM m) =>
             WebGL2RenderingContext -> Maybe WebGLSampler -> m ()
isSampler_ :: WebGL2RenderingContext -> Maybe WebGLSampler -> m ()
isSampler_ WebGL2RenderingContext
self Maybe WebGLSampler
sampler
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"isSampler" [Maybe WebGLSampler -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLSampler
sampler]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.bindSampler Mozilla WebGL2RenderingContext.bindSampler documentation> 
bindSampler ::
            (MonadDOM m) =>
              WebGL2RenderingContext -> GLuint -> Maybe WebGLSampler -> m ()
bindSampler :: WebGL2RenderingContext -> GLenum -> Maybe WebGLSampler -> m ()
bindSampler WebGL2RenderingContext
self GLenum
unit Maybe WebGLSampler
sampler
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"bindSampler" [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
unit, Maybe WebGLSampler -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLSampler
sampler]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.samplerParameteri Mozilla WebGL2RenderingContext.samplerParameteri documentation> 
samplerParameteri ::
                  (MonadDOM m) =>
                    WebGL2RenderingContext ->
                      Maybe WebGLSampler -> GLenum -> GLint -> m ()
samplerParameteri :: WebGL2RenderingContext
-> Maybe WebGLSampler -> GLenum -> GLint -> m ()
samplerParameteri WebGL2RenderingContext
self Maybe WebGLSampler
sampler GLenum
pname GLint
param
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"samplerParameteri"
            [Maybe WebGLSampler -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLSampler
sampler, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
pname, GLint -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLint
param]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.samplerParameterf Mozilla WebGL2RenderingContext.samplerParameterf documentation> 
samplerParameterf ::
                  (MonadDOM m) =>
                    WebGL2RenderingContext ->
                      Maybe WebGLSampler -> GLenum -> GLfloat -> m ()
samplerParameterf :: WebGL2RenderingContext
-> Maybe WebGLSampler -> GLenum -> GLfloat -> m ()
samplerParameterf WebGL2RenderingContext
self Maybe WebGLSampler
sampler GLenum
pname GLfloat
param
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"samplerParameterf"
            [Maybe WebGLSampler -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLSampler
sampler, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
pname, GLfloat -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLfloat
param]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getSamplerParameter Mozilla WebGL2RenderingContext.getSamplerParameter documentation> 
getSamplerParameter ::
                    (MonadDOM m) =>
                      WebGL2RenderingContext -> Maybe WebGLSampler -> GLenum -> m JSVal
getSamplerParameter :: WebGL2RenderingContext -> Maybe WebGLSampler -> GLenum -> m JSVal
getSamplerParameter WebGL2RenderingContext
self Maybe WebGLSampler
sampler GLenum
pname
  = JSM JSVal -> m JSVal
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      ((WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getSamplerParameter"
          [Maybe WebGLSampler -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLSampler
sampler, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
pname])
         JSM JSVal -> (JSVal -> JSM JSVal) -> JSM JSVal
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getSamplerParameter Mozilla WebGL2RenderingContext.getSamplerParameter documentation> 
getSamplerParameter_ ::
                     (MonadDOM m) =>
                       WebGL2RenderingContext -> Maybe WebGLSampler -> GLenum -> m ()
getSamplerParameter_ :: WebGL2RenderingContext -> Maybe WebGLSampler -> GLenum -> m ()
getSamplerParameter_ WebGL2RenderingContext
self Maybe WebGLSampler
sampler GLenum
pname
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getSamplerParameter"
            [Maybe WebGLSampler -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLSampler
sampler, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
pname]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.fenceSync Mozilla WebGL2RenderingContext.fenceSync documentation> 
fenceSync ::
          (MonadDOM m) =>
            WebGL2RenderingContext -> GLenum -> GLbitfield -> m WebGLSync
fenceSync :: WebGL2RenderingContext -> GLenum -> GLenum -> m WebGLSync
fenceSync WebGL2RenderingContext
self GLenum
condition GLenum
flags
  = DOM WebGLSync -> m WebGLSync
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      ((WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"fenceSync" [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
condition, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
flags]) JSM JSVal -> (JSVal -> DOM WebGLSync) -> DOM WebGLSync
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
         JSVal -> DOM WebGLSync
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.fenceSync Mozilla WebGL2RenderingContext.fenceSync documentation> 
fenceSync_ ::
           (MonadDOM m) =>
             WebGL2RenderingContext -> GLenum -> GLbitfield -> m ()
fenceSync_ :: WebGL2RenderingContext -> GLenum -> GLenum -> m ()
fenceSync_ WebGL2RenderingContext
self GLenum
condition GLenum
flags
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"fenceSync" [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
condition, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
flags]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.isSync Mozilla WebGL2RenderingContext.isSync documentation> 
isSync ::
       (MonadDOM m) =>
         WebGL2RenderingContext -> Maybe WebGLSync -> m GLboolean
isSync :: WebGL2RenderingContext -> Maybe WebGLSync -> m GLboolean
isSync WebGL2RenderingContext
self Maybe WebGLSync
sync
  = DOM GLboolean -> m GLboolean
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      ((WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"isSync" [Maybe WebGLSync -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLSync
sync]) JSM JSVal -> (JSVal -> DOM GLboolean) -> DOM GLboolean
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM GLboolean
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.isSync Mozilla WebGL2RenderingContext.isSync documentation> 
isSync_ ::
        (MonadDOM m) => WebGL2RenderingContext -> Maybe WebGLSync -> m ()
isSync_ :: WebGL2RenderingContext -> Maybe WebGLSync -> m ()
isSync_ WebGL2RenderingContext
self Maybe WebGLSync
sync
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"isSync" [Maybe WebGLSync -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLSync
sync]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.deleteSync Mozilla WebGL2RenderingContext.deleteSync documentation> 
deleteSync ::
           (MonadDOM m) => WebGL2RenderingContext -> Maybe WebGLSync -> m ()
deleteSync :: WebGL2RenderingContext -> Maybe WebGLSync -> m ()
deleteSync WebGL2RenderingContext
self Maybe WebGLSync
sync
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"deleteSync" [Maybe WebGLSync -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLSync
sync]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.clientWaitSync Mozilla WebGL2RenderingContext.clientWaitSync documentation> 
clientWaitSync ::
               (MonadDOM m) =>
                 WebGL2RenderingContext ->
                   Maybe WebGLSync -> GLbitfield -> GLuint64 -> m GLenum
clientWaitSync :: WebGL2RenderingContext
-> Maybe WebGLSync -> GLenum -> GLuint64 -> m GLenum
clientWaitSync WebGL2RenderingContext
self Maybe WebGLSync
sync GLenum
flags GLuint64
timeout
  = DOM GLenum -> m GLenum
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      ((WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"clientWaitSync"
          [Maybe WebGLSync -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLSync
sync, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
flags, GLuint64 -> JSM JSVal
forall a. Integral a => a -> JSM JSVal
integralToDoubleToJSVal GLuint64
timeout])
         JSM JSVal -> (JSVal -> DOM GLenum) -> DOM GLenum
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM GLenum
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.clientWaitSync Mozilla WebGL2RenderingContext.clientWaitSync documentation> 
clientWaitSync_ ::
                (MonadDOM m) =>
                  WebGL2RenderingContext ->
                    Maybe WebGLSync -> GLbitfield -> GLuint64 -> m ()
clientWaitSync_ :: WebGL2RenderingContext
-> Maybe WebGLSync -> GLenum -> GLuint64 -> m ()
clientWaitSync_ WebGL2RenderingContext
self Maybe WebGLSync
sync GLenum
flags GLuint64
timeout
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"clientWaitSync"
            [Maybe WebGLSync -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLSync
sync, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
flags, GLuint64 -> JSM JSVal
forall a. Integral a => a -> JSM JSVal
integralToDoubleToJSVal GLuint64
timeout]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.waitSync Mozilla WebGL2RenderingContext.waitSync documentation> 
waitSync ::
         (MonadDOM m) =>
           WebGL2RenderingContext ->
             Maybe WebGLSync -> GLbitfield -> GLuint64 -> m ()
waitSync :: WebGL2RenderingContext
-> Maybe WebGLSync -> GLenum -> GLuint64 -> m ()
waitSync WebGL2RenderingContext
self Maybe WebGLSync
sync GLenum
flags GLuint64
timeout
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"waitSync"
            [Maybe WebGLSync -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLSync
sync, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
flags, GLuint64 -> JSM JSVal
forall a. Integral a => a -> JSM JSVal
integralToDoubleToJSVal GLuint64
timeout]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getSyncParameter Mozilla WebGL2RenderingContext.getSyncParameter documentation> 
getSyncParameter ::
                 (MonadDOM m) =>
                   WebGL2RenderingContext -> Maybe WebGLSync -> GLenum -> m JSVal
getSyncParameter :: WebGL2RenderingContext -> Maybe WebGLSync -> GLenum -> m JSVal
getSyncParameter WebGL2RenderingContext
self Maybe WebGLSync
sync GLenum
pname
  = JSM JSVal -> m JSVal
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      ((WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getSyncParameter" [Maybe WebGLSync -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLSync
sync, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
pname]) JSM JSVal -> (JSVal -> JSM JSVal) -> JSM JSVal
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
         JSVal -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getSyncParameter Mozilla WebGL2RenderingContext.getSyncParameter documentation> 
getSyncParameter_ ::
                  (MonadDOM m) =>
                    WebGL2RenderingContext -> Maybe WebGLSync -> GLenum -> m ()
getSyncParameter_ :: WebGL2RenderingContext -> Maybe WebGLSync -> GLenum -> m ()
getSyncParameter_ WebGL2RenderingContext
self Maybe WebGLSync
sync GLenum
pname
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getSyncParameter" [Maybe WebGLSync -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLSync
sync, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
pname]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.createTransformFeedback Mozilla WebGL2RenderingContext.createTransformFeedback documentation> 
createTransformFeedback ::
                        (MonadDOM m) => WebGL2RenderingContext -> m WebGLTransformFeedback
createTransformFeedback :: WebGL2RenderingContext -> m WebGLTransformFeedback
createTransformFeedback WebGL2RenderingContext
self
  = DOM WebGLTransformFeedback -> m WebGLTransformFeedback
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      ((WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createTransformFeedback" ()) JSM JSVal
-> (JSVal -> DOM WebGLTransformFeedback)
-> DOM WebGLTransformFeedback
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM WebGLTransformFeedback
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.createTransformFeedback Mozilla WebGL2RenderingContext.createTransformFeedback documentation> 
createTransformFeedback_ ::
                         (MonadDOM m) => WebGL2RenderingContext -> m ()
createTransformFeedback_ :: WebGL2RenderingContext -> m ()
createTransformFeedback_ WebGL2RenderingContext
self
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createTransformFeedback" ()))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.deleteTransformFeedback Mozilla WebGL2RenderingContext.deleteTransformFeedback documentation> 
deleteTransformFeedback ::
                        (MonadDOM m) =>
                          WebGL2RenderingContext -> Maybe WebGLTransformFeedback -> m ()
deleteTransformFeedback :: WebGL2RenderingContext -> Maybe WebGLTransformFeedback -> m ()
deleteTransformFeedback WebGL2RenderingContext
self Maybe WebGLTransformFeedback
id
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"deleteTransformFeedback" [Maybe WebGLTransformFeedback -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLTransformFeedback
id]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.isTransformFeedback Mozilla WebGL2RenderingContext.isTransformFeedback documentation> 
isTransformFeedback ::
                    (MonadDOM m) =>
                      WebGL2RenderingContext ->
                        Maybe WebGLTransformFeedback -> m GLboolean
isTransformFeedback :: WebGL2RenderingContext
-> Maybe WebGLTransformFeedback -> m GLboolean
isTransformFeedback WebGL2RenderingContext
self Maybe WebGLTransformFeedback
id
  = DOM GLboolean -> m GLboolean
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      ((WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"isTransformFeedback" [Maybe WebGLTransformFeedback -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLTransformFeedback
id]) JSM JSVal -> (JSVal -> DOM GLboolean) -> DOM GLboolean
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
         JSVal -> DOM GLboolean
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.isTransformFeedback Mozilla WebGL2RenderingContext.isTransformFeedback documentation> 
isTransformFeedback_ ::
                     (MonadDOM m) =>
                       WebGL2RenderingContext -> Maybe WebGLTransformFeedback -> m ()
isTransformFeedback_ :: WebGL2RenderingContext -> Maybe WebGLTransformFeedback -> m ()
isTransformFeedback_ WebGL2RenderingContext
self Maybe WebGLTransformFeedback
id
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"isTransformFeedback" [Maybe WebGLTransformFeedback -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLTransformFeedback
id]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.bindTransformFeedback Mozilla WebGL2RenderingContext.bindTransformFeedback documentation> 
bindTransformFeedback ::
                      (MonadDOM m) =>
                        WebGL2RenderingContext ->
                          GLenum -> Maybe WebGLTransformFeedback -> m ()
bindTransformFeedback :: WebGL2RenderingContext
-> GLenum -> Maybe WebGLTransformFeedback -> m ()
bindTransformFeedback WebGL2RenderingContext
self GLenum
target Maybe WebGLTransformFeedback
id
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"bindTransformFeedback" [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, Maybe WebGLTransformFeedback -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLTransformFeedback
id]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.beginTransformFeedback Mozilla WebGL2RenderingContext.beginTransformFeedback documentation> 
beginTransformFeedback ::
                       (MonadDOM m) => WebGL2RenderingContext -> GLenum -> m ()
beginTransformFeedback :: WebGL2RenderingContext -> GLenum -> m ()
beginTransformFeedback WebGL2RenderingContext
self GLenum
primitiveMode
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"beginTransformFeedback" [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
primitiveMode]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.endTransformFeedback Mozilla WebGL2RenderingContext.endTransformFeedback documentation> 
endTransformFeedback ::
                     (MonadDOM m) => WebGL2RenderingContext -> m ()
endTransformFeedback :: WebGL2RenderingContext -> m ()
endTransformFeedback WebGL2RenderingContext
self
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"endTransformFeedback" ()))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.transformFeedbackVaryings Mozilla WebGL2RenderingContext.transformFeedbackVaryings documentation> 
transformFeedbackVaryings ::
                          (MonadDOM m, ToJSString varyings) =>
                            WebGL2RenderingContext ->
                              Maybe WebGLProgram -> [varyings] -> GLenum -> m ()
transformFeedbackVaryings :: WebGL2RenderingContext
-> Maybe WebGLProgram -> [varyings] -> GLenum -> m ()
transformFeedbackVaryings WebGL2RenderingContext
self Maybe WebGLProgram
program [varyings]
varyings GLenum
bufferMode
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"transformFeedbackVaryings"
            [Maybe WebGLProgram -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLProgram
program, JSM Object -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal ([varyings] -> JSM Object
forall args. MakeArgs args => args -> JSM Object
array [varyings]
varyings), GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
bufferMode]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getTransformFeedbackVarying Mozilla WebGL2RenderingContext.getTransformFeedbackVarying documentation> 
getTransformFeedbackVarying ::
                            (MonadDOM m) =>
                              WebGL2RenderingContext ->
                                Maybe WebGLProgram -> GLuint -> m WebGLActiveInfo
getTransformFeedbackVarying :: WebGL2RenderingContext
-> Maybe WebGLProgram -> GLenum -> m WebGLActiveInfo
getTransformFeedbackVarying WebGL2RenderingContext
self Maybe WebGLProgram
program GLenum
index
  = DOM WebGLActiveInfo -> m WebGLActiveInfo
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      ((WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getTransformFeedbackVarying"
          [Maybe WebGLProgram -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLProgram
program, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
index])
         JSM JSVal -> (JSVal -> DOM WebGLActiveInfo) -> DOM WebGLActiveInfo
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM WebGLActiveInfo
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getTransformFeedbackVarying Mozilla WebGL2RenderingContext.getTransformFeedbackVarying documentation> 
getTransformFeedbackVarying_ ::
                             (MonadDOM m) =>
                               WebGL2RenderingContext -> Maybe WebGLProgram -> GLuint -> m ()
getTransformFeedbackVarying_ :: WebGL2RenderingContext -> Maybe WebGLProgram -> GLenum -> m ()
getTransformFeedbackVarying_ WebGL2RenderingContext
self Maybe WebGLProgram
program GLenum
index
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getTransformFeedbackVarying"
            [Maybe WebGLProgram -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLProgram
program, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
index]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.pauseTransformFeedback Mozilla WebGL2RenderingContext.pauseTransformFeedback documentation> 
pauseTransformFeedback ::
                       (MonadDOM m) => WebGL2RenderingContext -> m ()
pauseTransformFeedback :: WebGL2RenderingContext -> m ()
pauseTransformFeedback WebGL2RenderingContext
self
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"pauseTransformFeedback" ()))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.resumeTransformFeedback Mozilla WebGL2RenderingContext.resumeTransformFeedback documentation> 
resumeTransformFeedback ::
                        (MonadDOM m) => WebGL2RenderingContext -> m ()
resumeTransformFeedback :: WebGL2RenderingContext -> m ()
resumeTransformFeedback WebGL2RenderingContext
self
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"resumeTransformFeedback" ()))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.bindBufferBase Mozilla WebGL2RenderingContext.bindBufferBase documentation> 
bindBufferBase ::
               (MonadDOM m) =>
                 WebGL2RenderingContext ->
                   GLenum -> GLuint -> Maybe WebGLBuffer -> m ()
bindBufferBase :: WebGL2RenderingContext
-> GLenum -> GLenum -> Maybe WebGLBuffer -> m ()
bindBufferBase WebGL2RenderingContext
self GLenum
target GLenum
index Maybe WebGLBuffer
buffer
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"bindBufferBase"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
index, Maybe WebGLBuffer -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLBuffer
buffer]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.bindBufferRange Mozilla WebGL2RenderingContext.bindBufferRange documentation> 
bindBufferRange ::
                (MonadDOM m) =>
                  WebGL2RenderingContext ->
                    GLenum ->
                      GLuint -> Maybe WebGLBuffer -> GLintptr -> GLsizeiptr -> m ()
bindBufferRange :: WebGL2RenderingContext
-> GLenum
-> GLenum
-> Maybe WebGLBuffer
-> GLsizeiptr
-> GLsizeiptr
-> m ()
bindBufferRange WebGL2RenderingContext
self GLenum
target GLenum
index Maybe WebGLBuffer
buffer GLsizeiptr
offset GLsizeiptr
size
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"bindBufferRange"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
index, Maybe WebGLBuffer -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLBuffer
buffer,
             GLsizeiptr -> JSM JSVal
forall a. Integral a => a -> JSM JSVal
integralToDoubleToJSVal GLsizeiptr
offset, GLsizeiptr -> JSM JSVal
forall a. Integral a => a -> JSM JSVal
integralToDoubleToJSVal GLsizeiptr
size]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getIndexedParameter Mozilla WebGL2RenderingContext.getIndexedParameter documentation> 
getIndexedParameter ::
                    (MonadDOM m) =>
                      WebGL2RenderingContext -> GLenum -> GLuint -> m JSVal
getIndexedParameter :: WebGL2RenderingContext -> GLenum -> GLenum -> m JSVal
getIndexedParameter WebGL2RenderingContext
self GLenum
target GLenum
index
  = JSM JSVal -> m JSVal
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      ((WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getIndexedParameter"
          [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
index])
         JSM JSVal -> (JSVal -> JSM JSVal) -> JSM JSVal
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getIndexedParameter Mozilla WebGL2RenderingContext.getIndexedParameter documentation> 
getIndexedParameter_ ::
                     (MonadDOM m) => WebGL2RenderingContext -> GLenum -> GLuint -> m ()
getIndexedParameter_ :: WebGL2RenderingContext -> GLenum -> GLenum -> m ()
getIndexedParameter_ WebGL2RenderingContext
self GLenum
target GLenum
index
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getIndexedParameter"
            [GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
target, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
index]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getUniformIndices Mozilla WebGL2RenderingContext.getUniformIndices documentation> 
getUniformIndices ::
                  (MonadDOM m, ToJSString uniformNames) =>
                    WebGL2RenderingContext ->
                      Maybe WebGLProgram -> [uniformNames] -> m Uint32Array
getUniformIndices :: WebGL2RenderingContext
-> Maybe WebGLProgram -> [uniformNames] -> m Uint32Array
getUniformIndices WebGL2RenderingContext
self Maybe WebGLProgram
program [uniformNames]
uniformNames
  = DOM Uint32Array -> m Uint32Array
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      ((WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getUniformIndices"
          [Maybe WebGLProgram -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLProgram
program, JSM Object -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal ([uniformNames] -> JSM Object
forall args. MakeArgs args => args -> JSM Object
array [uniformNames]
uniformNames)])
         JSM JSVal -> (JSVal -> DOM Uint32Array) -> DOM Uint32Array
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Uint32Array
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getUniformIndices Mozilla WebGL2RenderingContext.getUniformIndices documentation> 
getUniformIndices_ ::
                   (MonadDOM m, ToJSString uniformNames) =>
                     WebGL2RenderingContext ->
                       Maybe WebGLProgram -> [uniformNames] -> m ()
getUniformIndices_ :: WebGL2RenderingContext
-> Maybe WebGLProgram -> [uniformNames] -> m ()
getUniformIndices_ WebGL2RenderingContext
self Maybe WebGLProgram
program [uniformNames]
uniformNames
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getUniformIndices"
            [Maybe WebGLProgram -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLProgram
program, JSM Object -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal ([uniformNames] -> JSM Object
forall args. MakeArgs args => args -> JSM Object
array [uniformNames]
uniformNames)]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getActiveUniforms Mozilla WebGL2RenderingContext.getActiveUniforms documentation> 
getActiveUniforms ::
                  (MonadDOM m, IsUint32Array uniformIndices) =>
                    WebGL2RenderingContext ->
                      Maybe WebGLProgram ->
                        Maybe uniformIndices -> GLenum -> m Int32Array
getActiveUniforms :: WebGL2RenderingContext
-> Maybe WebGLProgram
-> Maybe uniformIndices
-> GLenum
-> m Int32Array
getActiveUniforms WebGL2RenderingContext
self Maybe WebGLProgram
program Maybe uniformIndices
uniformIndices GLenum
pname
  = DOM Int32Array -> m Int32Array
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      ((WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getActiveUniforms"
          [Maybe WebGLProgram -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLProgram
program, Maybe uniformIndices -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe uniformIndices
uniformIndices, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
pname])
         JSM JSVal -> (JSVal -> DOM Int32Array) -> DOM Int32Array
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Int32Array
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getActiveUniforms Mozilla WebGL2RenderingContext.getActiveUniforms documentation> 
getActiveUniforms_ ::
                   (MonadDOM m, IsUint32Array uniformIndices) =>
                     WebGL2RenderingContext ->
                       Maybe WebGLProgram -> Maybe uniformIndices -> GLenum -> m ()
getActiveUniforms_ :: WebGL2RenderingContext
-> Maybe WebGLProgram -> Maybe uniformIndices -> GLenum -> m ()
getActiveUniforms_ WebGL2RenderingContext
self Maybe WebGLProgram
program Maybe uniformIndices
uniformIndices GLenum
pname
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getActiveUniforms"
            [Maybe WebGLProgram -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLProgram
program, Maybe uniformIndices -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe uniformIndices
uniformIndices, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
pname]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getUniformBlockIndex Mozilla WebGL2RenderingContext.getUniformBlockIndex documentation> 
getUniformBlockIndex ::
                     (MonadDOM m, ToJSString uniformBlockName) =>
                       WebGL2RenderingContext ->
                         Maybe WebGLProgram -> uniformBlockName -> m GLuint
getUniformBlockIndex :: WebGL2RenderingContext
-> Maybe WebGLProgram -> uniformBlockName -> m GLenum
getUniformBlockIndex WebGL2RenderingContext
self Maybe WebGLProgram
program uniformBlockName
uniformBlockName
  = DOM GLenum -> m GLenum
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      ((WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getUniformBlockIndex"
          [Maybe WebGLProgram -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLProgram
program, uniformBlockName -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal uniformBlockName
uniformBlockName])
         JSM JSVal -> (JSVal -> DOM GLenum) -> DOM GLenum
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM GLenum
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getUniformBlockIndex Mozilla WebGL2RenderingContext.getUniformBlockIndex documentation> 
getUniformBlockIndex_ ::
                      (MonadDOM m, ToJSString uniformBlockName) =>
                        WebGL2RenderingContext ->
                          Maybe WebGLProgram -> uniformBlockName -> m ()
getUniformBlockIndex_ :: WebGL2RenderingContext
-> Maybe WebGLProgram -> uniformBlockName -> m ()
getUniformBlockIndex_ WebGL2RenderingContext
self Maybe WebGLProgram
program uniformBlockName
uniformBlockName
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getUniformBlockIndex"
            [Maybe WebGLProgram -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLProgram
program, uniformBlockName -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal uniformBlockName
uniformBlockName]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getActiveUniformBlockParameter Mozilla WebGL2RenderingContext.getActiveUniformBlockParameter documentation> 
getActiveUniformBlockParameter ::
                               (MonadDOM m) =>
                                 WebGL2RenderingContext ->
                                   Maybe WebGLProgram -> GLuint -> GLenum -> m JSVal
getActiveUniformBlockParameter :: WebGL2RenderingContext
-> Maybe WebGLProgram -> GLenum -> GLenum -> m JSVal
getActiveUniformBlockParameter WebGL2RenderingContext
self Maybe WebGLProgram
program GLenum
uniformBlockIndex GLenum
pname
  = JSM JSVal -> m JSVal
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      ((WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getActiveUniformBlockParameter"
          [Maybe WebGLProgram -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLProgram
program, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
uniformBlockIndex, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
pname])
         JSM JSVal -> (JSVal -> JSM JSVal) -> JSM JSVal
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getActiveUniformBlockParameter Mozilla WebGL2RenderingContext.getActiveUniformBlockParameter documentation> 
getActiveUniformBlockParameter_ ::
                                (MonadDOM m) =>
                                  WebGL2RenderingContext ->
                                    Maybe WebGLProgram -> GLuint -> GLenum -> m ()
getActiveUniformBlockParameter_ :: WebGL2RenderingContext
-> Maybe WebGLProgram -> GLenum -> GLenum -> m ()
getActiveUniformBlockParameter_ WebGL2RenderingContext
self Maybe WebGLProgram
program GLenum
uniformBlockIndex
  GLenum
pname
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getActiveUniformBlockParameter"
            [Maybe WebGLProgram -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLProgram
program, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
uniformBlockIndex, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
pname]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getActiveUniformBlockName Mozilla WebGL2RenderingContext.getActiveUniformBlockName documentation> 
getActiveUniformBlockName ::
                          (MonadDOM m) =>
                            WebGL2RenderingContext -> Maybe WebGLProgram -> GLuint -> m JSVal
getActiveUniformBlockName :: WebGL2RenderingContext -> Maybe WebGLProgram -> GLenum -> m JSVal
getActiveUniformBlockName WebGL2RenderingContext
self Maybe WebGLProgram
program GLenum
uniformBlockIndex
  = JSM JSVal -> m JSVal
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      ((WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getActiveUniformBlockName"
          [Maybe WebGLProgram -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLProgram
program, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
uniformBlockIndex])
         JSM JSVal -> (JSVal -> JSM JSVal) -> JSM JSVal
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.getActiveUniformBlockName Mozilla WebGL2RenderingContext.getActiveUniformBlockName documentation> 
getActiveUniformBlockName_ ::
                           (MonadDOM m) =>
                             WebGL2RenderingContext -> Maybe WebGLProgram -> GLuint -> m ()
getActiveUniformBlockName_ :: WebGL2RenderingContext -> Maybe WebGLProgram -> GLenum -> m ()
getActiveUniformBlockName_ WebGL2RenderingContext
self Maybe WebGLProgram
program GLenum
uniformBlockIndex
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"getActiveUniformBlockName"
            [Maybe WebGLProgram -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLProgram
program, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
uniformBlockIndex]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.uniformBlockBinding Mozilla WebGL2RenderingContext.uniformBlockBinding documentation> 
uniformBlockBinding ::
                    (MonadDOM m) =>
                      WebGL2RenderingContext ->
                        Maybe WebGLProgram -> GLuint -> GLuint -> m ()
uniformBlockBinding :: WebGL2RenderingContext
-> Maybe WebGLProgram -> GLenum -> GLenum -> m ()
uniformBlockBinding WebGL2RenderingContext
self Maybe WebGLProgram
program GLenum
uniformBlockIndex
  GLenum
uniformBlockBinding
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
         (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"uniformBlockBinding"
            [Maybe WebGLProgram -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLProgram
program, GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
uniformBlockIndex,
             GLenum -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal GLenum
uniformBlockBinding]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.createVertexArray Mozilla WebGL2RenderingContext.createVertexArray documentation> 
createVertexArray ::
                  (MonadDOM m) => WebGL2RenderingContext -> m WebGLVertexArrayObject
createVertexArray :: WebGL2RenderingContext -> m WebGLVertexArrayObject
createVertexArray WebGL2RenderingContext
self
  = DOM WebGLVertexArrayObject -> m WebGLVertexArrayObject
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      ((WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createVertexArray" ()) JSM JSVal
-> (JSVal -> DOM WebGLVertexArrayObject)
-> DOM WebGLVertexArrayObject
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM WebGLVertexArrayObject
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.createVertexArray Mozilla WebGL2RenderingContext.createVertexArray documentation> 
createVertexArray_ ::
                   (MonadDOM m) => WebGL2RenderingContext -> m ()
createVertexArray_ :: WebGL2RenderingContext -> m ()
createVertexArray_ WebGL2RenderingContext
self
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"createVertexArray" ()))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.deleteVertexArray Mozilla WebGL2RenderingContext.deleteVertexArray documentation> 
deleteVertexArray ::
                  (MonadDOM m) =>
                    WebGL2RenderingContext -> Maybe WebGLVertexArrayObject -> m ()
deleteVertexArray :: WebGL2RenderingContext -> Maybe WebGLVertexArrayObject -> m ()
deleteVertexArray WebGL2RenderingContext
self Maybe WebGLVertexArrayObject
vertexArray
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"deleteVertexArray" [Maybe WebGLVertexArrayObject -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLVertexArrayObject
vertexArray]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.isVertexArray Mozilla WebGL2RenderingContext.isVertexArray documentation> 
isVertexArray ::
              (MonadDOM m) =>
                WebGL2RenderingContext ->
                  Maybe WebGLVertexArrayObject -> m GLboolean
isVertexArray :: WebGL2RenderingContext
-> Maybe WebGLVertexArrayObject -> m GLboolean
isVertexArray WebGL2RenderingContext
self Maybe WebGLVertexArrayObject
vertexArray
  = DOM GLboolean -> m GLboolean
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      ((WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"isVertexArray" [Maybe WebGLVertexArrayObject -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLVertexArrayObject
vertexArray]) JSM JSVal -> (JSVal -> DOM GLboolean) -> DOM GLboolean
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
         JSVal -> DOM GLboolean
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.isVertexArray Mozilla WebGL2RenderingContext.isVertexArray documentation> 
isVertexArray_ ::
               (MonadDOM m) =>
                 WebGL2RenderingContext -> Maybe WebGLVertexArrayObject -> m ()
isVertexArray_ :: WebGL2RenderingContext -> Maybe WebGLVertexArrayObject -> m ()
isVertexArray_ WebGL2RenderingContext
self Maybe WebGLVertexArrayObject
vertexArray
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"isVertexArray" [Maybe WebGLVertexArrayObject -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLVertexArrayObject
vertexArray]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebGL2RenderingContext.bindVertexArray Mozilla WebGL2RenderingContext.bindVertexArray documentation> 
bindVertexArray ::
                (MonadDOM m) =>
                  WebGL2RenderingContext -> Maybe WebGLVertexArrayObject -> m ()
bindVertexArray :: WebGL2RenderingContext -> Maybe WebGLVertexArrayObject -> m ()
bindVertexArray WebGL2RenderingContext
self Maybe WebGLVertexArrayObject
vertexArray
  = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (WebGL2RenderingContext
self WebGL2RenderingContext
-> Getting (JSM JSVal) WebGL2RenderingContext (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"bindVertexArray" [Maybe WebGLVertexArrayObject -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebGLVertexArrayObject
vertexArray]))
pattern $bREAD_BUFFER :: a
$mREAD_BUFFER :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
READ_BUFFER = 3074
pattern $bUNPACK_ROW_LENGTH :: a
$mUNPACK_ROW_LENGTH :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNPACK_ROW_LENGTH = 3314
pattern $bUNPACK_SKIP_ROWS :: a
$mUNPACK_SKIP_ROWS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNPACK_SKIP_ROWS = 3315
pattern $bUNPACK_SKIP_PIXELS :: a
$mUNPACK_SKIP_PIXELS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNPACK_SKIP_PIXELS = 3316
pattern $bPACK_ROW_LENGTH :: a
$mPACK_ROW_LENGTH :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
PACK_ROW_LENGTH = 3330
pattern $bPACK_SKIP_ROWS :: a
$mPACK_SKIP_ROWS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
PACK_SKIP_ROWS = 3331
pattern $bPACK_SKIP_PIXELS :: a
$mPACK_SKIP_PIXELS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
PACK_SKIP_PIXELS = 3332
pattern $bCOLOR :: a
$mCOLOR :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COLOR = 6144
pattern $bDEPTH :: a
$mDEPTH :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DEPTH = 6145
pattern $bSTENCIL :: a
$mSTENCIL :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
STENCIL = 6146
pattern $bRED :: a
$mRED :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RED = 6403
pattern $bRGB8 :: a
$mRGB8 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RGB8 = 32849
pattern $bRGBA8 :: a
$mRGBA8 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RGBA8 = 32856
pattern $bRGB10_A2 :: a
$mRGB10_A2 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RGB10_A2 = 32857
pattern $bTEXTURE_BINDING_3D :: a
$mTEXTURE_BINDING_3D :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TEXTURE_BINDING_3D = 32874
pattern $bUNPACK_SKIP_IMAGES :: a
$mUNPACK_SKIP_IMAGES :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNPACK_SKIP_IMAGES = 32877
pattern $bUNPACK_IMAGE_HEIGHT :: a
$mUNPACK_IMAGE_HEIGHT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNPACK_IMAGE_HEIGHT = 32878
pattern $bTEXTURE_3D :: a
$mTEXTURE_3D :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TEXTURE_3D = 32879
pattern $bTEXTURE_WRAP_R :: a
$mTEXTURE_WRAP_R :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TEXTURE_WRAP_R = 32882
pattern $bMAX_3D_TEXTURE_SIZE :: a
$mMAX_3D_TEXTURE_SIZE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX_3D_TEXTURE_SIZE = 32883
pattern $bUNSIGNED_INT_2_10_10_10_REV :: a
$mUNSIGNED_INT_2_10_10_10_REV :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNSIGNED_INT_2_10_10_10_REV = 33640
pattern $bMAX_ELEMENTS_VERTICES :: a
$mMAX_ELEMENTS_VERTICES :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX_ELEMENTS_VERTICES = 33000
pattern $bMAX_ELEMENTS_INDICES :: a
$mMAX_ELEMENTS_INDICES :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX_ELEMENTS_INDICES = 33001
pattern $bTEXTURE_MIN_LOD :: a
$mTEXTURE_MIN_LOD :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TEXTURE_MIN_LOD = 33082
pattern $bTEXTURE_MAX_LOD :: a
$mTEXTURE_MAX_LOD :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TEXTURE_MAX_LOD = 33083
pattern $bTEXTURE_BASE_LEVEL :: a
$mTEXTURE_BASE_LEVEL :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TEXTURE_BASE_LEVEL = 33084
pattern $bTEXTURE_MAX_LEVEL :: a
$mTEXTURE_MAX_LEVEL :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TEXTURE_MAX_LEVEL = 33085
pattern $bMIN :: a
$mMIN :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MIN = 32775
pattern $bMAX :: a
$mMAX :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX = 32776
pattern $bDEPTH_COMPONENT24 :: a
$mDEPTH_COMPONENT24 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DEPTH_COMPONENT24 = 33190
pattern $bMAX_TEXTURE_LOD_BIAS :: a
$mMAX_TEXTURE_LOD_BIAS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX_TEXTURE_LOD_BIAS = 34045
pattern $bTEXTURE_COMPARE_MODE :: a
$mTEXTURE_COMPARE_MODE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TEXTURE_COMPARE_MODE = 34892
pattern $bTEXTURE_COMPARE_FUNC :: a
$mTEXTURE_COMPARE_FUNC :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TEXTURE_COMPARE_FUNC = 34893
pattern $bCURRENT_QUERY :: a
$mCURRENT_QUERY :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
CURRENT_QUERY = 34917
pattern $bQUERY_RESULT :: a
$mQUERY_RESULT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
QUERY_RESULT = 34918
pattern $bQUERY_RESULT_AVAILABLE :: a
$mQUERY_RESULT_AVAILABLE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
QUERY_RESULT_AVAILABLE = 34919
pattern $bSTREAM_READ :: a
$mSTREAM_READ :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
STREAM_READ = 35041
pattern $bSTREAM_COPY :: a
$mSTREAM_COPY :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
STREAM_COPY = 35042
pattern $bSTATIC_READ :: a
$mSTATIC_READ :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
STATIC_READ = 35045
pattern $bSTATIC_COPY :: a
$mSTATIC_COPY :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
STATIC_COPY = 35046
pattern $bDYNAMIC_READ :: a
$mDYNAMIC_READ :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DYNAMIC_READ = 35049
pattern $bDYNAMIC_COPY :: a
$mDYNAMIC_COPY :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DYNAMIC_COPY = 35050
pattern $bMAX_DRAW_BUFFERS :: a
$mMAX_DRAW_BUFFERS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX_DRAW_BUFFERS = 34852
pattern $bDRAW_BUFFER0 :: a
$mDRAW_BUFFER0 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DRAW_BUFFER0 = 34853
pattern $bDRAW_BUFFER1 :: a
$mDRAW_BUFFER1 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DRAW_BUFFER1 = 34854
pattern $bDRAW_BUFFER2 :: a
$mDRAW_BUFFER2 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DRAW_BUFFER2 = 34855
pattern $bDRAW_BUFFER3 :: a
$mDRAW_BUFFER3 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DRAW_BUFFER3 = 34856
pattern $bDRAW_BUFFER4 :: a
$mDRAW_BUFFER4 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DRAW_BUFFER4 = 34857
pattern $bDRAW_BUFFER5 :: a
$mDRAW_BUFFER5 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DRAW_BUFFER5 = 34858
pattern $bDRAW_BUFFER6 :: a
$mDRAW_BUFFER6 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DRAW_BUFFER6 = 34859
pattern $bDRAW_BUFFER7 :: a
$mDRAW_BUFFER7 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DRAW_BUFFER7 = 34860
pattern $bDRAW_BUFFER8 :: a
$mDRAW_BUFFER8 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DRAW_BUFFER8 = 34861
pattern $bDRAW_BUFFER9 :: a
$mDRAW_BUFFER9 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DRAW_BUFFER9 = 34862
pattern $bDRAW_BUFFER10 :: a
$mDRAW_BUFFER10 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DRAW_BUFFER10 = 34863
pattern $bDRAW_BUFFER11 :: a
$mDRAW_BUFFER11 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DRAW_BUFFER11 = 34864
pattern $bDRAW_BUFFER12 :: a
$mDRAW_BUFFER12 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DRAW_BUFFER12 = 34865
pattern $bDRAW_BUFFER13 :: a
$mDRAW_BUFFER13 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DRAW_BUFFER13 = 34866
pattern $bDRAW_BUFFER14 :: a
$mDRAW_BUFFER14 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DRAW_BUFFER14 = 34867
pattern $bDRAW_BUFFER15 :: a
$mDRAW_BUFFER15 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DRAW_BUFFER15 = 34868
pattern $bMAX_FRAGMENT_UNIFORM_COMPONENTS :: a
$mMAX_FRAGMENT_UNIFORM_COMPONENTS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX_FRAGMENT_UNIFORM_COMPONENTS = 35657
pattern $bMAX_VERTEX_UNIFORM_COMPONENTS :: a
$mMAX_VERTEX_UNIFORM_COMPONENTS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX_VERTEX_UNIFORM_COMPONENTS = 35658
pattern $bSAMPLER_3D :: a
$mSAMPLER_3D :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SAMPLER_3D = 35679
pattern $bSAMPLER_2D_SHADOW :: a
$mSAMPLER_2D_SHADOW :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SAMPLER_2D_SHADOW = 35682
pattern $bFRAGMENT_SHADER_DERIVATIVE_HINT :: a
$mFRAGMENT_SHADER_DERIVATIVE_HINT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
FRAGMENT_SHADER_DERIVATIVE_HINT = 35723
pattern $bPIXEL_PACK_BUFFER :: a
$mPIXEL_PACK_BUFFER :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
PIXEL_PACK_BUFFER = 35051
pattern $bPIXEL_UNPACK_BUFFER :: a
$mPIXEL_UNPACK_BUFFER :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
PIXEL_UNPACK_BUFFER = 35052
pattern $bPIXEL_PACK_BUFFER_BINDING :: a
$mPIXEL_PACK_BUFFER_BINDING :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
PIXEL_PACK_BUFFER_BINDING = 35053
pattern $bPIXEL_UNPACK_BUFFER_BINDING :: a
$mPIXEL_UNPACK_BUFFER_BINDING :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
PIXEL_UNPACK_BUFFER_BINDING = 35055
pattern $bFLOAT_MAT2x3 :: a
$mFLOAT_MAT2x3 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
FLOAT_MAT2x3 = 35685
pattern $bFLOAT_MAT2x4 :: a
$mFLOAT_MAT2x4 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
FLOAT_MAT2x4 = 35686
pattern $bFLOAT_MAT3x2 :: a
$mFLOAT_MAT3x2 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
FLOAT_MAT3x2 = 35687
pattern $bFLOAT_MAT3x4 :: a
$mFLOAT_MAT3x4 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
FLOAT_MAT3x4 = 35688
pattern $bFLOAT_MAT4x2 :: a
$mFLOAT_MAT4x2 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
FLOAT_MAT4x2 = 35689
pattern $bFLOAT_MAT4x3 :: a
$mFLOAT_MAT4x3 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
FLOAT_MAT4x3 = 35690
pattern $bSRGB :: a
$mSRGB :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SRGB = 35904
pattern $bSRGB8 :: a
$mSRGB8 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SRGB8 = 35905
pattern $bSRGB8_ALPHA8 :: a
$mSRGB8_ALPHA8 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SRGB8_ALPHA8 = 35907
pattern $bCOMPARE_REF_TO_TEXTURE :: a
$mCOMPARE_REF_TO_TEXTURE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COMPARE_REF_TO_TEXTURE = 34894
pattern $bRGBA32F :: a
$mRGBA32F :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RGBA32F = 34836
pattern $bRGB32F :: a
$mRGB32F :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RGB32F = 34837
pattern $bRGBA16F :: a
$mRGBA16F :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RGBA16F = 34842
pattern $bRGB16F :: a
$mRGB16F :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RGB16F = 34843
pattern $bVERTEX_ATTRIB_ARRAY_INTEGER :: a
$mVERTEX_ATTRIB_ARRAY_INTEGER :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
VERTEX_ATTRIB_ARRAY_INTEGER = 35069
pattern $bMAX_ARRAY_TEXTURE_LAYERS :: a
$mMAX_ARRAY_TEXTURE_LAYERS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX_ARRAY_TEXTURE_LAYERS = 35071
pattern $bMIN_PROGRAM_TEXEL_OFFSET :: a
$mMIN_PROGRAM_TEXEL_OFFSET :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MIN_PROGRAM_TEXEL_OFFSET = 35076
pattern $bMAX_PROGRAM_TEXEL_OFFSET :: a
$mMAX_PROGRAM_TEXEL_OFFSET :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX_PROGRAM_TEXEL_OFFSET = 35077
pattern $bMAX_VARYING_COMPONENTS :: a
$mMAX_VARYING_COMPONENTS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX_VARYING_COMPONENTS = 35659
pattern $bTEXTURE_2D_ARRAY :: a
$mTEXTURE_2D_ARRAY :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TEXTURE_2D_ARRAY = 35866
pattern $bTEXTURE_BINDING_2D_ARRAY :: a
$mTEXTURE_BINDING_2D_ARRAY :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TEXTURE_BINDING_2D_ARRAY = 35869
pattern $bR11F_G11F_B10F :: a
$mR11F_G11F_B10F :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
R11F_G11F_B10F = 35898
pattern $bUNSIGNED_INT_10F_11F_11F_REV :: a
$mUNSIGNED_INT_10F_11F_11F_REV :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNSIGNED_INT_10F_11F_11F_REV = 35899
pattern $bRGB9_E5 :: a
$mRGB9_E5 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RGB9_E5 = 35901
pattern $bUNSIGNED_INT_5_9_9_9_REV :: a
$mUNSIGNED_INT_5_9_9_9_REV :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNSIGNED_INT_5_9_9_9_REV = 35902
pattern $bTRANSFORM_FEEDBACK_BUFFER_MODE :: a
$mTRANSFORM_FEEDBACK_BUFFER_MODE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TRANSFORM_FEEDBACK_BUFFER_MODE = 35967
pattern $bMAX_TRANSFORM_FEEDBACK_SEPARATE_COMPONENTS :: a
$mMAX_TRANSFORM_FEEDBACK_SEPARATE_COMPONENTS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX_TRANSFORM_FEEDBACK_SEPARATE_COMPONENTS = 35968
pattern $bTRANSFORM_FEEDBACK_VARYINGS :: a
$mTRANSFORM_FEEDBACK_VARYINGS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TRANSFORM_FEEDBACK_VARYINGS = 35971
pattern $bTRANSFORM_FEEDBACK_BUFFER_START :: a
$mTRANSFORM_FEEDBACK_BUFFER_START :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TRANSFORM_FEEDBACK_BUFFER_START = 35972
pattern $bTRANSFORM_FEEDBACK_BUFFER_SIZE :: a
$mTRANSFORM_FEEDBACK_BUFFER_SIZE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TRANSFORM_FEEDBACK_BUFFER_SIZE = 35973
pattern $bTRANSFORM_FEEDBACK_PRIMITIVES_WRITTEN :: a
$mTRANSFORM_FEEDBACK_PRIMITIVES_WRITTEN :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TRANSFORM_FEEDBACK_PRIMITIVES_WRITTEN = 35976
pattern $bRASTERIZER_DISCARD :: a
$mRASTERIZER_DISCARD :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RASTERIZER_DISCARD = 35977
pattern $bMAX_TRANSFORM_FEEDBACK_INTERLEAVED_COMPONENTS :: a
$mMAX_TRANSFORM_FEEDBACK_INTERLEAVED_COMPONENTS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX_TRANSFORM_FEEDBACK_INTERLEAVED_COMPONENTS = 35978
pattern $bMAX_TRANSFORM_FEEDBACK_SEPARATE_ATTRIBS :: a
$mMAX_TRANSFORM_FEEDBACK_SEPARATE_ATTRIBS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX_TRANSFORM_FEEDBACK_SEPARATE_ATTRIBS = 35979
pattern $bINTERLEAVED_ATTRIBS :: a
$mINTERLEAVED_ATTRIBS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
INTERLEAVED_ATTRIBS = 35980
pattern $bSEPARATE_ATTRIBS :: a
$mSEPARATE_ATTRIBS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SEPARATE_ATTRIBS = 35981
pattern $bTRANSFORM_FEEDBACK_BUFFER :: a
$mTRANSFORM_FEEDBACK_BUFFER :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TRANSFORM_FEEDBACK_BUFFER = 35982
pattern $bTRANSFORM_FEEDBACK_BUFFER_BINDING :: a
$mTRANSFORM_FEEDBACK_BUFFER_BINDING :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TRANSFORM_FEEDBACK_BUFFER_BINDING = 35983
pattern $bRGBA32UI :: a
$mRGBA32UI :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RGBA32UI = 36208
pattern $bRGB32UI :: a
$mRGB32UI :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RGB32UI = 36209
pattern $bRGBA16UI :: a
$mRGBA16UI :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RGBA16UI = 36214
pattern $bRGB16UI :: a
$mRGB16UI :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RGB16UI = 36215
pattern $bRGBA8UI :: a
$mRGBA8UI :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RGBA8UI = 36220
pattern $bRGB8UI :: a
$mRGB8UI :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RGB8UI = 36221
pattern $bRGBA32I :: a
$mRGBA32I :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RGBA32I = 36226
pattern $bRGB32I :: a
$mRGB32I :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RGB32I = 36227
pattern $bRGBA16I :: a
$mRGBA16I :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RGBA16I = 36232
pattern $bRGB16I :: a
$mRGB16I :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RGB16I = 36233
pattern $bRGBA8I :: a
$mRGBA8I :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RGBA8I = 36238
pattern $bRGB8I :: a
$mRGB8I :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RGB8I = 36239
pattern $bRED_INTEGER :: a
$mRED_INTEGER :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RED_INTEGER = 36244
pattern $bRGB_INTEGER :: a
$mRGB_INTEGER :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RGB_INTEGER = 36248
pattern $bRGBA_INTEGER :: a
$mRGBA_INTEGER :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RGBA_INTEGER = 36249
pattern $bSAMPLER_2D_ARRAY :: a
$mSAMPLER_2D_ARRAY :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SAMPLER_2D_ARRAY = 36289
pattern $bSAMPLER_2D_ARRAY_SHADOW :: a
$mSAMPLER_2D_ARRAY_SHADOW :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SAMPLER_2D_ARRAY_SHADOW = 36292
pattern $bSAMPLER_CUBE_SHADOW :: a
$mSAMPLER_CUBE_SHADOW :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SAMPLER_CUBE_SHADOW = 36293
pattern $bUNSIGNED_INT_VEC2 :: a
$mUNSIGNED_INT_VEC2 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNSIGNED_INT_VEC2 = 36294
pattern $bUNSIGNED_INT_VEC3 :: a
$mUNSIGNED_INT_VEC3 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNSIGNED_INT_VEC3 = 36295
pattern $bUNSIGNED_INT_VEC4 :: a
$mUNSIGNED_INT_VEC4 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNSIGNED_INT_VEC4 = 36296
pattern $bINT_SAMPLER_2D :: a
$mINT_SAMPLER_2D :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
INT_SAMPLER_2D = 36298
pattern $bINT_SAMPLER_3D :: a
$mINT_SAMPLER_3D :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
INT_SAMPLER_3D = 36299
pattern $bINT_SAMPLER_CUBE :: a
$mINT_SAMPLER_CUBE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
INT_SAMPLER_CUBE = 36300
pattern $bINT_SAMPLER_2D_ARRAY :: a
$mINT_SAMPLER_2D_ARRAY :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
INT_SAMPLER_2D_ARRAY = 36303
pattern $bUNSIGNED_INT_SAMPLER_2D :: a
$mUNSIGNED_INT_SAMPLER_2D :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNSIGNED_INT_SAMPLER_2D = 36306
pattern $bUNSIGNED_INT_SAMPLER_3D :: a
$mUNSIGNED_INT_SAMPLER_3D :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNSIGNED_INT_SAMPLER_3D = 36307
pattern $bUNSIGNED_INT_SAMPLER_CUBE :: a
$mUNSIGNED_INT_SAMPLER_CUBE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNSIGNED_INT_SAMPLER_CUBE = 36308
pattern $bUNSIGNED_INT_SAMPLER_2D_ARRAY :: a
$mUNSIGNED_INT_SAMPLER_2D_ARRAY :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNSIGNED_INT_SAMPLER_2D_ARRAY = 36311
pattern $bDEPTH_COMPONENT32F :: a
$mDEPTH_COMPONENT32F :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DEPTH_COMPONENT32F = 36012
pattern $bDEPTH32F_STENCIL8 :: a
$mDEPTH32F_STENCIL8 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DEPTH32F_STENCIL8 = 36013
pattern $bFLOAT_32_UNSIGNED_INT_24_8_REV :: a
$mFLOAT_32_UNSIGNED_INT_24_8_REV :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
FLOAT_32_UNSIGNED_INT_24_8_REV = 36269
pattern $bFRAMEBUFFER_ATTACHMENT_COLOR_ENCODING :: a
$mFRAMEBUFFER_ATTACHMENT_COLOR_ENCODING :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING = 33296
pattern $bFRAMEBUFFER_ATTACHMENT_COMPONENT_TYPE :: a
$mFRAMEBUFFER_ATTACHMENT_COMPONENT_TYPE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
FRAMEBUFFER_ATTACHMENT_COMPONENT_TYPE = 33297
pattern $bFRAMEBUFFER_ATTACHMENT_RED_SIZE :: a
$mFRAMEBUFFER_ATTACHMENT_RED_SIZE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
FRAMEBUFFER_ATTACHMENT_RED_SIZE = 33298
pattern $bFRAMEBUFFER_ATTACHMENT_GREEN_SIZE :: a
$mFRAMEBUFFER_ATTACHMENT_GREEN_SIZE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
FRAMEBUFFER_ATTACHMENT_GREEN_SIZE = 33299
pattern $bFRAMEBUFFER_ATTACHMENT_BLUE_SIZE :: a
$mFRAMEBUFFER_ATTACHMENT_BLUE_SIZE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
FRAMEBUFFER_ATTACHMENT_BLUE_SIZE = 33300
pattern $bFRAMEBUFFER_ATTACHMENT_ALPHA_SIZE :: a
$mFRAMEBUFFER_ATTACHMENT_ALPHA_SIZE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
FRAMEBUFFER_ATTACHMENT_ALPHA_SIZE = 33301
pattern $bFRAMEBUFFER_ATTACHMENT_DEPTH_SIZE :: a
$mFRAMEBUFFER_ATTACHMENT_DEPTH_SIZE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
FRAMEBUFFER_ATTACHMENT_DEPTH_SIZE = 33302
pattern $bFRAMEBUFFER_ATTACHMENT_STENCIL_SIZE :: a
$mFRAMEBUFFER_ATTACHMENT_STENCIL_SIZE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
FRAMEBUFFER_ATTACHMENT_STENCIL_SIZE = 33303
pattern $bFRAMEBUFFER_DEFAULT :: a
$mFRAMEBUFFER_DEFAULT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
FRAMEBUFFER_DEFAULT = 33304
pattern $bDEPTH_STENCIL_ATTACHMENT :: a
$mDEPTH_STENCIL_ATTACHMENT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DEPTH_STENCIL_ATTACHMENT = 33306
pattern $bDEPTH_STENCIL :: a
$mDEPTH_STENCIL :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DEPTH_STENCIL = 34041
pattern $bUNSIGNED_INT_24_8 :: a
$mUNSIGNED_INT_24_8 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNSIGNED_INT_24_8 = 34042
pattern $bDEPTH24_STENCIL8 :: a
$mDEPTH24_STENCIL8 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DEPTH24_STENCIL8 = 35056
pattern $bUNSIGNED_NORMALIZED :: a
$mUNSIGNED_NORMALIZED :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNSIGNED_NORMALIZED = 35863
pattern $bDRAW_FRAMEBUFFER_BINDING :: a
$mDRAW_FRAMEBUFFER_BINDING :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DRAW_FRAMEBUFFER_BINDING = 36006
pattern $bREAD_FRAMEBUFFER :: a
$mREAD_FRAMEBUFFER :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
READ_FRAMEBUFFER = 36008
pattern $bDRAW_FRAMEBUFFER :: a
$mDRAW_FRAMEBUFFER :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
DRAW_FRAMEBUFFER = 36009
pattern $bREAD_FRAMEBUFFER_BINDING :: a
$mREAD_FRAMEBUFFER_BINDING :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
READ_FRAMEBUFFER_BINDING = 36010
pattern $bRENDERBUFFER_SAMPLES :: a
$mRENDERBUFFER_SAMPLES :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RENDERBUFFER_SAMPLES = 36011
pattern $bFRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER :: a
$mFRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER = 36052
pattern $bMAX_COLOR_ATTACHMENTS :: a
$mMAX_COLOR_ATTACHMENTS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX_COLOR_ATTACHMENTS = 36063
pattern $bCOLOR_ATTACHMENT1 :: a
$mCOLOR_ATTACHMENT1 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COLOR_ATTACHMENT1 = 36065
pattern $bCOLOR_ATTACHMENT2 :: a
$mCOLOR_ATTACHMENT2 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COLOR_ATTACHMENT2 = 36066
pattern $bCOLOR_ATTACHMENT3 :: a
$mCOLOR_ATTACHMENT3 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COLOR_ATTACHMENT3 = 36067
pattern $bCOLOR_ATTACHMENT4 :: a
$mCOLOR_ATTACHMENT4 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COLOR_ATTACHMENT4 = 36068
pattern $bCOLOR_ATTACHMENT5 :: a
$mCOLOR_ATTACHMENT5 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COLOR_ATTACHMENT5 = 36069
pattern $bCOLOR_ATTACHMENT6 :: a
$mCOLOR_ATTACHMENT6 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COLOR_ATTACHMENT6 = 36070
pattern $bCOLOR_ATTACHMENT7 :: a
$mCOLOR_ATTACHMENT7 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COLOR_ATTACHMENT7 = 36071
pattern $bCOLOR_ATTACHMENT8 :: a
$mCOLOR_ATTACHMENT8 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COLOR_ATTACHMENT8 = 36072
pattern $bCOLOR_ATTACHMENT9 :: a
$mCOLOR_ATTACHMENT9 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COLOR_ATTACHMENT9 = 36073
pattern $bCOLOR_ATTACHMENT10 :: a
$mCOLOR_ATTACHMENT10 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COLOR_ATTACHMENT10 = 36074
pattern $bCOLOR_ATTACHMENT11 :: a
$mCOLOR_ATTACHMENT11 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COLOR_ATTACHMENT11 = 36075
pattern $bCOLOR_ATTACHMENT12 :: a
$mCOLOR_ATTACHMENT12 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COLOR_ATTACHMENT12 = 36076
pattern $bCOLOR_ATTACHMENT13 :: a
$mCOLOR_ATTACHMENT13 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COLOR_ATTACHMENT13 = 36077
pattern $bCOLOR_ATTACHMENT14 :: a
$mCOLOR_ATTACHMENT14 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COLOR_ATTACHMENT14 = 36078
pattern $bCOLOR_ATTACHMENT15 :: a
$mCOLOR_ATTACHMENT15 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COLOR_ATTACHMENT15 = 36079
pattern $bFRAMEBUFFER_INCOMPLETE_MULTISAMPLE :: a
$mFRAMEBUFFER_INCOMPLETE_MULTISAMPLE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
FRAMEBUFFER_INCOMPLETE_MULTISAMPLE = 36182
pattern $bMAX_SAMPLES :: a
$mMAX_SAMPLES :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX_SAMPLES = 36183
pattern $bHALF_FLOAT :: a
$mHALF_FLOAT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
HALF_FLOAT = 5131
pattern $bRG :: a
$mRG :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RG = 33319
pattern $bRG_INTEGER :: a
$mRG_INTEGER :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RG_INTEGER = 33320
pattern $bR8 :: a
$mR8 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
R8 = 33321
pattern $bRG8 :: a
$mRG8 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RG8 = 33323
pattern $bR16F :: a
$mR16F :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
R16F = 33325
pattern $bR32F :: a
$mR32F :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
R32F = 33326
pattern $bRG16F :: a
$mRG16F :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RG16F = 33327
pattern $bRG32F :: a
$mRG32F :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RG32F = 33328
pattern $bR8I :: a
$mR8I :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
R8I = 33329
pattern $bR8UI :: a
$mR8UI :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
R8UI = 33330
pattern $bR16I :: a
$mR16I :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
R16I = 33331
pattern $bR16UI :: a
$mR16UI :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
R16UI = 33332
pattern $bR32I :: a
$mR32I :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
R32I = 33333
pattern $bR32UI :: a
$mR32UI :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
R32UI = 33334
pattern $bRG8I :: a
$mRG8I :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RG8I = 33335
pattern $bRG8UI :: a
$mRG8UI :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RG8UI = 33336
pattern $bRG16I :: a
$mRG16I :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RG16I = 33337
pattern $bRG16UI :: a
$mRG16UI :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RG16UI = 33338
pattern $bRG32I :: a
$mRG32I :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RG32I = 33339
pattern $bRG32UI :: a
$mRG32UI :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RG32UI = 33340
pattern $bVERTEX_ARRAY_BINDING :: a
$mVERTEX_ARRAY_BINDING :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
VERTEX_ARRAY_BINDING = 34229
pattern $bR8_SNORM :: a
$mR8_SNORM :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
R8_SNORM = 36756
pattern $bRG8_SNORM :: a
$mRG8_SNORM :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RG8_SNORM = 36757
pattern $bRGB8_SNORM :: a
$mRGB8_SNORM :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RGB8_SNORM = 36758
pattern $bRGBA8_SNORM :: a
$mRGBA8_SNORM :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RGBA8_SNORM = 36759
pattern $bSIGNED_NORMALIZED :: a
$mSIGNED_NORMALIZED :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SIGNED_NORMALIZED = 36764
pattern $bPRIMITIVE_RESTART_FIXED_INDEX :: a
$mPRIMITIVE_RESTART_FIXED_INDEX :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
PRIMITIVE_RESTART_FIXED_INDEX = 36201
pattern $bCOPY_READ_BUFFER :: a
$mCOPY_READ_BUFFER :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COPY_READ_BUFFER = 36662
pattern $bCOPY_WRITE_BUFFER :: a
$mCOPY_WRITE_BUFFER :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COPY_WRITE_BUFFER = 36663
pattern $bCOPY_READ_BUFFER_BINDING :: a
$mCOPY_READ_BUFFER_BINDING :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COPY_READ_BUFFER_BINDING = 36662
pattern $bCOPY_WRITE_BUFFER_BINDING :: a
$mCOPY_WRITE_BUFFER_BINDING :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COPY_WRITE_BUFFER_BINDING = 36663
pattern $bUNIFORM_BUFFER :: a
$mUNIFORM_BUFFER :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNIFORM_BUFFER = 35345
pattern $bUNIFORM_BUFFER_BINDING :: a
$mUNIFORM_BUFFER_BINDING :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNIFORM_BUFFER_BINDING = 35368
pattern $bUNIFORM_BUFFER_START :: a
$mUNIFORM_BUFFER_START :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNIFORM_BUFFER_START = 35369
pattern $bUNIFORM_BUFFER_SIZE :: a
$mUNIFORM_BUFFER_SIZE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNIFORM_BUFFER_SIZE = 35370
pattern $bMAX_VERTEX_UNIFORM_BLOCKS :: a
$mMAX_VERTEX_UNIFORM_BLOCKS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX_VERTEX_UNIFORM_BLOCKS = 35371
pattern $bMAX_FRAGMENT_UNIFORM_BLOCKS :: a
$mMAX_FRAGMENT_UNIFORM_BLOCKS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX_FRAGMENT_UNIFORM_BLOCKS = 35373
pattern $bMAX_COMBINED_UNIFORM_BLOCKS :: a
$mMAX_COMBINED_UNIFORM_BLOCKS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX_COMBINED_UNIFORM_BLOCKS = 35374
pattern $bMAX_UNIFORM_BUFFER_BINDINGS :: a
$mMAX_UNIFORM_BUFFER_BINDINGS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX_UNIFORM_BUFFER_BINDINGS = 35375
pattern $bMAX_UNIFORM_BLOCK_SIZE :: a
$mMAX_UNIFORM_BLOCK_SIZE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX_UNIFORM_BLOCK_SIZE = 35376
pattern $bMAX_COMBINED_VERTEX_UNIFORM_COMPONENTS :: a
$mMAX_COMBINED_VERTEX_UNIFORM_COMPONENTS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX_COMBINED_VERTEX_UNIFORM_COMPONENTS = 35377
pattern $bMAX_COMBINED_FRAGMENT_UNIFORM_COMPONENTS :: a
$mMAX_COMBINED_FRAGMENT_UNIFORM_COMPONENTS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX_COMBINED_FRAGMENT_UNIFORM_COMPONENTS = 35379
pattern $bUNIFORM_BUFFER_OFFSET_ALIGNMENT :: a
$mUNIFORM_BUFFER_OFFSET_ALIGNMENT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNIFORM_BUFFER_OFFSET_ALIGNMENT = 35380
pattern $bACTIVE_UNIFORM_BLOCKS :: a
$mACTIVE_UNIFORM_BLOCKS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
ACTIVE_UNIFORM_BLOCKS = 35382
pattern $bUNIFORM_TYPE :: a
$mUNIFORM_TYPE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNIFORM_TYPE = 35383
pattern $bUNIFORM_SIZE :: a
$mUNIFORM_SIZE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNIFORM_SIZE = 35384
pattern $bUNIFORM_BLOCK_INDEX :: a
$mUNIFORM_BLOCK_INDEX :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNIFORM_BLOCK_INDEX = 35386
pattern $bUNIFORM_OFFSET :: a
$mUNIFORM_OFFSET :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNIFORM_OFFSET = 35387
pattern $bUNIFORM_ARRAY_STRIDE :: a
$mUNIFORM_ARRAY_STRIDE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNIFORM_ARRAY_STRIDE = 35388
pattern $bUNIFORM_MATRIX_STRIDE :: a
$mUNIFORM_MATRIX_STRIDE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNIFORM_MATRIX_STRIDE = 35389
pattern $bUNIFORM_IS_ROW_MAJOR :: a
$mUNIFORM_IS_ROW_MAJOR :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNIFORM_IS_ROW_MAJOR = 35390
pattern $bUNIFORM_BLOCK_BINDING :: a
$mUNIFORM_BLOCK_BINDING :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNIFORM_BLOCK_BINDING = 35391
pattern $bUNIFORM_BLOCK_DATA_SIZE :: a
$mUNIFORM_BLOCK_DATA_SIZE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNIFORM_BLOCK_DATA_SIZE = 35392
pattern $bUNIFORM_BLOCK_ACTIVE_UNIFORMS :: a
$mUNIFORM_BLOCK_ACTIVE_UNIFORMS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNIFORM_BLOCK_ACTIVE_UNIFORMS = 35394
pattern $bUNIFORM_BLOCK_ACTIVE_UNIFORM_INDICES :: a
$mUNIFORM_BLOCK_ACTIVE_UNIFORM_INDICES :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNIFORM_BLOCK_ACTIVE_UNIFORM_INDICES = 35395
pattern $bUNIFORM_BLOCK_REFERENCED_BY_VERTEX_SHADER :: a
$mUNIFORM_BLOCK_REFERENCED_BY_VERTEX_SHADER :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNIFORM_BLOCK_REFERENCED_BY_VERTEX_SHADER = 35396
pattern $bUNIFORM_BLOCK_REFERENCED_BY_FRAGMENT_SHADER :: a
$mUNIFORM_BLOCK_REFERENCED_BY_FRAGMENT_SHADER :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNIFORM_BLOCK_REFERENCED_BY_FRAGMENT_SHADER = 35398
pattern $bINVALID_INDEX :: a
$mINVALID_INDEX :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
INVALID_INDEX = 4294967295
pattern $bMAX_VERTEX_OUTPUT_COMPONENTS :: a
$mMAX_VERTEX_OUTPUT_COMPONENTS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX_VERTEX_OUTPUT_COMPONENTS = 37154
pattern $bMAX_FRAGMENT_INPUT_COMPONENTS :: a
$mMAX_FRAGMENT_INPUT_COMPONENTS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX_FRAGMENT_INPUT_COMPONENTS = 37157
pattern $bMAX_SERVER_WAIT_TIMEOUT :: a
$mMAX_SERVER_WAIT_TIMEOUT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX_SERVER_WAIT_TIMEOUT = 37137
pattern $bOBJECT_TYPE :: a
$mOBJECT_TYPE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
OBJECT_TYPE = 37138
pattern $bSYNC_CONDITION :: a
$mSYNC_CONDITION :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SYNC_CONDITION = 37139
pattern $bSYNC_STATUS :: a
$mSYNC_STATUS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SYNC_STATUS = 37140
pattern $bSYNC_FLAGS :: a
$mSYNC_FLAGS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SYNC_FLAGS = 37141
pattern $bSYNC_FENCE :: a
$mSYNC_FENCE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SYNC_FENCE = 37142
pattern $bSYNC_GPU_COMMANDS_COMPLETE :: a
$mSYNC_GPU_COMMANDS_COMPLETE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SYNC_GPU_COMMANDS_COMPLETE = 37143
pattern $bUNSIGNALED :: a
$mUNSIGNALED :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
UNSIGNALED = 37144
pattern $bSIGNALED :: a
$mSIGNALED :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SIGNALED = 37145
pattern $bALREADY_SIGNALED :: a
$mALREADY_SIGNALED :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
ALREADY_SIGNALED = 37146
pattern $bTIMEOUT_EXPIRED :: a
$mTIMEOUT_EXPIRED :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TIMEOUT_EXPIRED = 37147
pattern $bCONDITION_SATISFIED :: a
$mCONDITION_SATISFIED :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
CONDITION_SATISFIED = 37148
pattern $bWAIT_FAILED :: a
$mWAIT_FAILED :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
WAIT_FAILED = 37149
pattern $bSYNC_FLUSH_COMMANDS_BIT :: a
$mSYNC_FLUSH_COMMANDS_BIT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SYNC_FLUSH_COMMANDS_BIT = 1
pattern $bVERTEX_ATTRIB_ARRAY_DIVISOR :: a
$mVERTEX_ATTRIB_ARRAY_DIVISOR :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
VERTEX_ATTRIB_ARRAY_DIVISOR = 35070
pattern $bANY_SAMPLES_PASSED :: a
$mANY_SAMPLES_PASSED :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
ANY_SAMPLES_PASSED = 35887
pattern $bANY_SAMPLES_PASSED_CONSERVATIVE :: a
$mANY_SAMPLES_PASSED_CONSERVATIVE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
ANY_SAMPLES_PASSED_CONSERVATIVE = 36202
pattern $bSAMPLER_BINDING :: a
$mSAMPLER_BINDING :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
SAMPLER_BINDING = 35097
pattern $bRGB10_A2UI :: a
$mRGB10_A2UI :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
RGB10_A2UI = 36975
pattern $bTEXTURE_SWIZZLE_R :: a
$mTEXTURE_SWIZZLE_R :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TEXTURE_SWIZZLE_R = 36418
pattern $bTEXTURE_SWIZZLE_G :: a
$mTEXTURE_SWIZZLE_G :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TEXTURE_SWIZZLE_G = 36419
pattern $bTEXTURE_SWIZZLE_B :: a
$mTEXTURE_SWIZZLE_B :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TEXTURE_SWIZZLE_B = 36420
pattern $bTEXTURE_SWIZZLE_A :: a
$mTEXTURE_SWIZZLE_A :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TEXTURE_SWIZZLE_A = 36421
pattern $bGREEN :: a
$mGREEN :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
GREEN = 6404
pattern $bBLUE :: a
$mBLUE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
BLUE = 6405
pattern $bINT_2_10_10_10_REV :: a
$mINT_2_10_10_10_REV :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
INT_2_10_10_10_REV = 36255
pattern $bTRANSFORM_FEEDBACK :: a
$mTRANSFORM_FEEDBACK :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TRANSFORM_FEEDBACK = 36386
pattern $bTRANSFORM_FEEDBACK_PAUSED :: a
$mTRANSFORM_FEEDBACK_PAUSED :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TRANSFORM_FEEDBACK_PAUSED = 36387
pattern $bTRANSFORM_FEEDBACK_ACTIVE :: a
$mTRANSFORM_FEEDBACK_ACTIVE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TRANSFORM_FEEDBACK_ACTIVE = 36388
pattern $bTRANSFORM_FEEDBACK_BINDING :: a
$mTRANSFORM_FEEDBACK_BINDING :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TRANSFORM_FEEDBACK_BINDING = 36389
pattern $bCOMPRESSED_R11_EAC :: a
$mCOMPRESSED_R11_EAC :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COMPRESSED_R11_EAC = 37488
pattern $bCOMPRESSED_SIGNED_R11_EAC :: a
$mCOMPRESSED_SIGNED_R11_EAC :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COMPRESSED_SIGNED_R11_EAC = 37489
pattern $bCOMPRESSED_RG11_EAC :: a
$mCOMPRESSED_RG11_EAC :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COMPRESSED_RG11_EAC = 37490
pattern $bCOMPRESSED_SIGNED_RG11_EAC :: a
$mCOMPRESSED_SIGNED_RG11_EAC :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COMPRESSED_SIGNED_RG11_EAC = 37491
pattern $bCOMPRESSED_RGB8_ETC2 :: a
$mCOMPRESSED_RGB8_ETC2 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COMPRESSED_RGB8_ETC2 = 37492
pattern $bCOMPRESSED_SRGB8_ETC2 :: a
$mCOMPRESSED_SRGB8_ETC2 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COMPRESSED_SRGB8_ETC2 = 37493
pattern $bCOMPRESSED_RGB8_PUNCHTHROUGH_ALPHA1_ETC2 :: a
$mCOMPRESSED_RGB8_PUNCHTHROUGH_ALPHA1_ETC2 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COMPRESSED_RGB8_PUNCHTHROUGH_ALPHA1_ETC2 = 37494
pattern $bCOMPRESSED_SRGB8_PUNCHTHROUGH_ALPHA1_ETC2 :: a
$mCOMPRESSED_SRGB8_PUNCHTHROUGH_ALPHA1_ETC2 :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COMPRESSED_SRGB8_PUNCHTHROUGH_ALPHA1_ETC2 = 37495
pattern $bCOMPRESSED_RGBA8_ETC2_EAC :: a
$mCOMPRESSED_RGBA8_ETC2_EAC :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COMPRESSED_RGBA8_ETC2_EAC = 37496
pattern $bCOMPRESSED_SRGB8_ALPHA8_ETC2_EAC :: a
$mCOMPRESSED_SRGB8_ALPHA8_ETC2_EAC :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
COMPRESSED_SRGB8_ALPHA8_ETC2_EAC = 37497
pattern $bTEXTURE_IMMUTABLE_FORMAT :: a
$mTEXTURE_IMMUTABLE_FORMAT :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TEXTURE_IMMUTABLE_FORMAT = 37167
pattern $bMAX_ELEMENT_INDEX :: a
$mMAX_ELEMENT_INDEX :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
MAX_ELEMENT_INDEX = 36203
pattern $bNUM_SAMPLE_COUNTS :: a
$mNUM_SAMPLE_COUNTS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
NUM_SAMPLE_COUNTS = 37760
pattern $bTEXTURE_IMMUTABLE_LEVELS :: a
$mTEXTURE_IMMUTABLE_LEVELS :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TEXTURE_IMMUTABLE_LEVELS = 33503
pattern $bVERTEX_ATTRIB_ARRAY_DIVISOR_ANGLE :: a
$mVERTEX_ATTRIB_ARRAY_DIVISOR_ANGLE :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
VERTEX_ATTRIB_ARRAY_DIVISOR_ANGLE = 35070
pattern $bTIMEOUT_IGNORED :: a
$mTIMEOUT_IGNORED :: forall r a. (Eq a, Num a) => a -> (Void# -> r) -> (Void# -> r) -> r
TIMEOUT_IGNORED = 18446744073709551615