Pas2JS-WebGL-demos/webgl2.pas

unit WebGL2;

{$mode objfpc}
{$modeswitch externalclass}

interface
uses
 WebGL, JS, Web;

type
  GLenumDynArray = array of GLenum;
  GLuintDynArray = array of GLuint;

type
  GLint64 = nativeint; // long long
  GLuint64 = longword; // unsigned long long
type
  TJSWebGLQuery = class external name 'WebGLQuery' (TJSWebGLObject);
  TJSWebGLSampler = class external name 'WebGLSampler' (TJSWebGLObject);
  TJSWebGLSync = class external name 'WebGLSync' (TJSWebGLObject);
  TJSWebGLTransformFeedback = class external name 'WebGLTransformFeedback' (TJSWebGLObject);
  TJSWebGLVertexArrayObject = class external name 'WebGLVertexArrayObject' (TJSWebGLObject);
type  
  TJSWebGL2RenderingContextBase = class external name 'WebGL2RenderingContextBase' (TJSWebGLRenderingContextBase)
  public
  const
    READ_BUFFER: nativeint;
    UNPACK_ROW_LENGTH: nativeint;
    UNPACK_SKIP_ROWS: nativeint;
    UNPACK_SKIP_PIXELS: nativeint;
    PACK_ROW_LENGTH: nativeint;
    PACK_SKIP_ROWS: nativeint;
    PACK_SKIP_PIXELS: nativeint;
    COLOR: nativeint;
    DEPTH: nativeint;
    STENCIL: nativeint;
    RED: nativeint;
    RGB8: nativeint;
    RGBA8: nativeint;
    RGB10_A2: nativeint;
    TEXTURE_BINDING_3D: nativeint;
    UNPACK_SKIP_IMAGES: nativeint;
    UNPACK_IMAGE_HEIGHT: nativeint;
    TEXTURE_3D: nativeint;
    TEXTURE_WRAP_R: nativeint;
    MAX_3D_TEXTURE_SIZE: nativeint;
    UNSIGNED_INT_2_10_10_10_REV: nativeint;
    MAX_ELEMENTS_VERTICES: nativeint;
    MAX_ELEMENTS_INDICES: nativeint;
    TEXTURE_MIN_LOD: nativeint;
    TEXTURE_MAX_LOD: nativeint;
    TEXTURE_BASE_LEVEL: nativeint;
    TEXTURE_MAX_LEVEL: nativeint;
    MIN: nativeint;
    MAX: nativeint;
    DEPTH_COMPONENT24: nativeint;
    MAX_TEXTURE_LOD_BIAS: nativeint;
    TEXTURE_COMPARE_MODE: nativeint;
    TEXTURE_COMPARE_FUNC: nativeint;
    CURRENT_QUERY: nativeint;
    QUERY_RESULT: nativeint;
    QUERY_RESULT_AVAILABLE: nativeint;
    STREAM_READ: nativeint;
    STREAM_COPY: nativeint;
    STATIC_READ: nativeint;
    STATIC_COPY: nativeint;
    DYNAMIC_READ: nativeint;
    DYNAMIC_COPY: nativeint;
    MAX_DRAW_BUFFERS: nativeint;
    DRAW_BUFFER0: nativeint;
    DRAW_BUFFER1: nativeint;
    DRAW_BUFFER2: nativeint;
    DRAW_BUFFER3: nativeint;
    DRAW_BUFFER4: nativeint;
    DRAW_BUFFER5: nativeint;
    DRAW_BUFFER6: nativeint;
    DRAW_BUFFER7: nativeint;
    DRAW_BUFFER8: nativeint;
    DRAW_BUFFER9: nativeint;
    DRAW_BUFFER10: nativeint;
    DRAW_BUFFER11: nativeint;
    DRAW_BUFFER12: nativeint;
    DRAW_BUFFER13: nativeint;
    DRAW_BUFFER14: nativeint;
    DRAW_BUFFER15: nativeint;
    MAX_FRAGMENT_UNIFORM_COMPONENTS: nativeint;
    MAX_VERTEX_UNIFORM_COMPONENTS: nativeint;
    SAMPLER_3D: nativeint;
    SAMPLER_2D_SHADOW: nativeint;
    FRAGMENT_SHADER_DERIVATIVE_HINT: nativeint;
    PIXEL_PACK_BUFFER: nativeint;
    PIXEL_UNPACK_BUFFER: nativeint;
    PIXEL_PACK_BUFFER_BINDING: nativeint;
    PIXEL_UNPACK_BUFFER_BINDING: nativeint;
    FLOAT_MAT2x3: nativeint;
    FLOAT_MAT2x4: nativeint;
    FLOAT_MAT3x2: nativeint;
    FLOAT_MAT3x4: nativeint;
    FLOAT_MAT4x2: nativeint;
    FLOAT_MAT4x3: nativeint;
    SRGB: nativeint;
    SRGB8: nativeint;
    SRGB8_ALPHA8: nativeint;
    COMPARE_REF_TO_TEXTURE: nativeint;
    RGBA32F: nativeint;
    RGB32F: nativeint;
    RGBA16F: nativeint;
    RGB16F: nativeint;
    VERTEX_ATTRIB_ARRAY_INTEGER: nativeint;
    MAX_ARRAY_TEXTURE_LAYERS: nativeint;
    MIN_PROGRAM_TEXEL_OFFSET: nativeint;
    MAX_PROGRAM_TEXEL_OFFSET: nativeint;
    MAX_VARYING_COMPONENTS: nativeint;
    TEXTURE_2D_ARRAY: nativeint;
    TEXTURE_BINDING_2D_ARRAY: nativeint;
    R11F_G11F_B10F: nativeint;
    UNSIGNED_INT_10F_11F_11F_REV: nativeint;
    RGB9_E5: nativeint;
    UNSIGNED_INT_5_9_9_9_REV: nativeint;
    TRANSFORM_FEEDBACK_BUFFER_MODE: nativeint;
    MAX_TRANSFORM_FEEDBACK_SEPARATE_COMPONENTS: nativeint;
    TRANSFORM_FEEDBACK_VARYINGS: nativeint;
    TRANSFORM_FEEDBACK_BUFFER_START: nativeint;
    TRANSFORM_FEEDBACK_BUFFER_SIZE: nativeint;
    TRANSFORM_FEEDBACK_PRIMITIVES_WRITTEN: nativeint;
    RASTERIZER_DISCARD: nativeint;
    MAX_TRANSFORM_FEEDBACK_INTERLEAVED_COMPONENTS: nativeint;
    MAX_TRANSFORM_FEEDBACK_SEPARATE_ATTRIBS: nativeint;
    INTERLEAVED_ATTRIBS: nativeint;
    SEPARATE_ATTRIBS: nativeint;
    TRANSFORM_FEEDBACK_BUFFER: nativeint;
    TRANSFORM_FEEDBACK_BUFFER_BINDING: nativeint;
    RGBA32UI: nativeint;
    RGB32UI: nativeint;
    RGBA16UI: nativeint;
    RGB16UI: nativeint;
    RGBA8UI: nativeint;
    RGB8UI: nativeint;
    RGBA32I: nativeint;
    RGB32I: nativeint;
    RGBA16I: nativeint;
    RGB16I: nativeint;
    RGBA8I: nativeint;
    RGB8I: nativeint;
    RED_INTEGER: nativeint;
    RGB_INTEGER: nativeint;
    RGBA_INTEGER: nativeint;
    SAMPLER_2D_ARRAY: nativeint;
    SAMPLER_2D_ARRAY_SHADOW: nativeint;
    SAMPLER_CUBE_SHADOW: nativeint;
    UNSIGNED_INT_VEC2: nativeint;
    UNSIGNED_INT_VEC3: nativeint;
    UNSIGNED_INT_VEC4: nativeint;
    INT_SAMPLER_2D: nativeint;
    INT_SAMPLER_3D: nativeint;
    INT_SAMPLER_CUBE: nativeint;
    INT_SAMPLER_2D_ARRAY: nativeint;
    UNSIGNED_INT_SAMPLER_2D: nativeint;
    UNSIGNED_INT_SAMPLER_3D: nativeint;
    UNSIGNED_INT_SAMPLER_CUBE: nativeint;
    UNSIGNED_INT_SAMPLER_2D_ARRAY: nativeint;
    DEPTH_COMPONENT32F: nativeint;
    DEPTH32F_STENCIL8: nativeint;
    FLOAT_32_UNSIGNED_INT_24_8_REV: nativeint;
    FRAMEBUFFER_ATTACHMENT_COLOR_ENCODING: nativeint;
    FRAMEBUFFER_ATTACHMENT_COMPONENT_TYPE: nativeint;
    FRAMEBUFFER_ATTACHMENT_RED_SIZE: nativeint;
    FRAMEBUFFER_ATTACHMENT_GREEN_SIZE: nativeint;
    FRAMEBUFFER_ATTACHMENT_BLUE_SIZE: nativeint;
    FRAMEBUFFER_ATTACHMENT_ALPHA_SIZE: nativeint;
    FRAMEBUFFER_ATTACHMENT_DEPTH_SIZE: nativeint;
    FRAMEBUFFER_ATTACHMENT_STENCIL_SIZE: nativeint;
    FRAMEBUFFER_DEFAULT: nativeint;
    //DEPTH_STENCIL_ATTACHMENT: nativeint;
    //DEPTH_STENCIL: nativeint;
    UNSIGNED_INT_24_8: nativeint;
    DEPTH24_STENCIL8: nativeint;
    UNSIGNED_NORMALIZED: nativeint;
    DRAW_FRAMEBUFFER_BINDING: nativeint;
    READ_FRAMEBUFFER: nativeint;
    DRAW_FRAMEBUFFER: nativeint;
    READ_FRAMEBUFFER_BINDING: nativeint;
    RENDERBUFFER_SAMPLES: nativeint;
    FRAMEBUFFER_ATTACHMENT_TEXTURE_LAYER: nativeint;
    MAX_COLOR_ATTACHMENTS: nativeint;
    COLOR_ATTACHMENT1: nativeint;
    COLOR_ATTACHMENT2: nativeint;
    COLOR_ATTACHMENT3: nativeint;
    COLOR_ATTACHMENT4: nativeint;
    COLOR_ATTACHMENT5: nativeint;
    COLOR_ATTACHMENT6: nativeint;
    COLOR_ATTACHMENT7: nativeint;
    COLOR_ATTACHMENT8: nativeint;
    COLOR_ATTACHMENT9: nativeint;
    COLOR_ATTACHMENT10: nativeint;
    COLOR_ATTACHMENT11: nativeint;
    COLOR_ATTACHMENT12: nativeint;
    COLOR_ATTACHMENT13: nativeint;
    COLOR_ATTACHMENT14: nativeint;
    COLOR_ATTACHMENT15: nativeint;
    FRAMEBUFFER_INCOMPLETE_MULTISAMPLE: nativeint;
    MAX_SAMPLES: nativeint;
    HALF_FLOAT: nativeint;
    RG: nativeint;
    RG_INTEGER: nativeint;
    R8: nativeint;
    RG8: nativeint;
    R16F: nativeint;
    R32F: nativeint;
    RG16F: nativeint;
    RG32F: nativeint;
    R8I: nativeint;
    R8UI: nativeint;
    R16I: nativeint;
    R16UI: nativeint;
    R32I: nativeint;
    R32UI: nativeint;
    RG8I: nativeint;
    RG8UI: nativeint;
    RG16I: nativeint;
    RG16UI: nativeint;
    RG32I: nativeint;
    RG32UI: nativeint;
    VERTEX_ARRAY_BINDING: nativeint;
    R8_SNORM: nativeint;
    RG8_SNORM: nativeint;
    RGB8_SNORM: nativeint;
    RGBA8_SNORM: nativeint;
    SIGNED_NORMALIZED: nativeint;
    COPY_READ_BUFFER: nativeint;
    COPY_WRITE_BUFFER: nativeint;
    COPY_READ_BUFFER_BINDING: nativeint;
    COPY_WRITE_BUFFER_BINDING: nativeint;
    UNIFORM_BUFFER: nativeint;
    UNIFORM_BUFFER_BINDING: nativeint;
    UNIFORM_BUFFER_START: nativeint;
    UNIFORM_BUFFER_SIZE: nativeint;
    MAX_VERTEX_UNIFORM_BLOCKS: nativeint;
    MAX_FRAGMENT_UNIFORM_BLOCKS: nativeint;
    MAX_COMBINED_UNIFORM_BLOCKS: nativeint;
    MAX_UNIFORM_BUFFER_BINDINGS: nativeint;
    MAX_UNIFORM_BLOCK_SIZE: nativeint;
    MAX_COMBINED_VERTEX_UNIFORM_COMPONENTS: nativeint;
    MAX_COMBINED_FRAGMENT_UNIFORM_COMPONENTS: nativeint;
    UNIFORM_BUFFER_OFFSET_ALIGNMENT: nativeint;
    ACTIVE_UNIFORM_BLOCKS: nativeint;
    UNIFORM_TYPE: nativeint;
    UNIFORM_SIZE: nativeint;
    UNIFORM_BLOCK_INDEX: nativeint;
    UNIFORM_OFFSET: nativeint;
    UNIFORM_ARRAY_STRIDE: nativeint;
    UNIFORM_MATRIX_STRIDE: nativeint;
    UNIFORM_IS_ROW_MAJOR: nativeint;
    UNIFORM_BLOCK_BINDING: nativeint;
    UNIFORM_BLOCK_DATA_SIZE: nativeint;
    UNIFORM_BLOCK_ACTIVE_UNIFORMS: nativeint;
    UNIFORM_BLOCK_ACTIVE_UNIFORM_INDICES: nativeint;
    UNIFORM_BLOCK_REFERENCED_BY_VERTEX_SHADER: nativeint;
    UNIFORM_BLOCK_REFERENCED_BY_FRAGMENT_SHADER: nativeint;
    INVALID_INDEX: nativeint;
    MAX_VERTEX_OUTPUT_COMPONENTS: nativeint;
    MAX_FRAGMENT_INPUT_COMPONENTS: nativeint;
    MAX_SERVER_WAIT_TIMEOUT: nativeint;
    OBJECT_TYPE: nativeint;
    SYNC_CONDITION: nativeint;
    SYNC_STATUS: nativeint;
    SYNC_FLAGS: nativeint;
    SYNC_FENCE: nativeint;
    SYNC_GPU_COMMANDS_COMPLETE: nativeint;
    UNSIGNALED: nativeint;
    SIGNALED: nativeint;
    ALREADY_SIGNALED: nativeint;
    TIMEOUT_EXPIRED: nativeint;
    CONDITION_SATISFIED: nativeint;
    WAIT_FAILED: nativeint;
    SYNC_FLUSH_COMMANDS_BIT: nativeint;
    VERTEX_ATTRIB_ARRAY_DIVISOR: nativeint;
    ANY_SAMPLES_PASSED: nativeint;
    ANY_SAMPLES_PASSED_CONSERVATIVE: nativeint;
    SAMPLER_BINDING: nativeint;
    RGB10_A2UI: nativeint;
    INT_2_10_10_10_REV: nativeint;
    TRANSFORM_FEEDBACK: nativeint;
    TRANSFORM_FEEDBACK_PAUSED: nativeint;
    TRANSFORM_FEEDBACK_ACTIVE: nativeint;
    TRANSFORM_FEEDBACK_BINDING: nativeint;
    TEXTURE_IMMUTABLE_FORMAT: nativeint;
    MAX_ELEMENT_INDEX: nativeint;
    TEXTURE_IMMUTABLE_LEVELS: nativeint;
    MAX_CLIENT_WAIT_TIMEOUT_WEBGL: nativeint;
  public

    // Buffer objects
    procedure bufferData (target: GLenum; size: GLsizeiptr; usage: GLenum);
    procedure bufferData (target: GLenum; srcData: TJSBufferSource; usage: GLenum);
    procedure bufferSubData (target: GLenum; dstByteOffset: GLintptr; srcData: TJSBufferSource);

    // WebGL2
    procedure bufferData (target: GLenum; srcData: TJSArrayBufferView; usage: GLenum; srcOffset: GLuint; length: GLuint);
    procedure bufferSubData (target: GLenum; dstByteOffset: GLintptr; srcData: TJSArrayBufferView; length: GLuint);
    procedure copyBufferSubData (readTarget: GLenum; writeTarget: GLenum; readOffset: GLintptr; size: GLsizeiptr);

    // MapBufferRange, in particular its read-only and write-only modes,
    // can not be exposed safely to JavaScript. GetBufferSubData
    // replaces it for the purpose of fetching data back from the GPU.
    procedure getBufferSubData (target: GLenum; srcByteOffset: GLintptr; dstBuffer: TJSArrayBufferView; dstOffset: GLuint; length: GLuint);
    
    // Framebuffer objects
    procedure blitFramebuffer (srcX0: GLint; srcY0: GLint; srcX1: GLint; srcY1: GLint; dstX0: GLint; dstY0: GLint; dstY1: GLint; mask: GLbitfield; filter: GLenum);
    procedure framebufferTextureLayer (target: GLenum; attachment: GLenum; texture: TJSWebGLTexture; level: GLint);
    procedure invalidateFramebuffer (target: GLenum; attachments: GLenumDynArray);
    procedure invalidateSubFramebuffer (target: GLenum; attachments: GLenumDynArray; y: GLint; width: GLsizei; height: GLsizei);
    procedure readBuffer (src: GLenum);

    // Renderbuffer objects
    function getInternalformatParameter (target: GLenum; internalformat: GLenum; pname: GLenum): JSValue;
    procedure renderbufferStorageMultisample (target: GLenum; samples: GLsizei; internalformat: GLenum; height: GLsizei);

    // Texture objects
    procedure texStorage2D (target: GLenum; levels: GLsizei; internalformat: GLenum; width: GLsizei);
    procedure texStorage3D (target: GLenum; levels: GLsizei; internalformat: GLenum; width: GLsizei; depth: GLsizei);

    // WebGL1 legacy entrypoints:
    procedure texImage2D (target: GLenum; level: GLint; internalformat: GLint; height: GLsizei; border: GLint; format: GLenum; pixels: TJSArrayBufferView);
    procedure texImage2D (target: GLenum; level: GLint; internalformat: GLint; _type: GLenum; source: TJSTexImageSource);
    procedure texSubImage2D (target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; height: GLsizei; _type: GLenum; pixels: TJSArrayBufferView);
    procedure texSubImage2D (target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; _type: GLenum; source: TJSTexImageSource);

    // WebGL2 entrypoints:
    procedure texImage2D (target: GLenum; level: GLint; internalformat: GLint; width: GLsizei; height: GLsizei; format: GLenum; _type: GLenum; pboOffset: GLintptr);
    procedure texImage2D (target: GLenum; level: GLint; internalformat: GLint; width: GLsizei; height: GLsizei; format: GLenum; _type: GLenum);
    procedure texImage2D (target: GLenum; level: GLint; internalformat: GLint; width: GLsizei; height: GLsizei; format: GLenum; _type: GLenum; srcData: TJSArrayBufferView);
    procedure texImage3D (target: GLenum; level: GLint; internalformat: GLint; width: GLsizei; height: GLsizei; border: GLint; format: GLenum; _type: GLenum; pboOffset: GLintptr);
    procedure texImage3D (target: GLenum; level: GLint; internalformat: GLint; width: GLsizei; height: GLsizei; border: GLint; format: GLenum; _type: GLenum);
    procedure texImage3D (target: GLenum; level: GLint; internalformat: GLint; width: GLsizei; height: GLsizei; border: GLint; format: GLenum; _type: GLenum; srcData: TJSArrayBufferView);
    //procedure texImage3D (target: GLenum; level: GLint; internalformat: GLint; width: GLsizei; height: GLsizei; border: GLint; format: GLenum; _type: GLenum; srcData: TJSArrayBufferView);
    procedure texSubImage2D (target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; width: GLsizei; format: GLenum; _type: GLenum; pboOffset: GLintptr);
    procedure texSubImage2D (target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; width: GLsizei; format: GLenum; _type: GLenum);
    procedure texSubImage2D (target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; width: GLsizei; format: GLenum; _type: GLenum; srcData: TJSArrayBufferView);
    procedure texSubImage3D (target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; zoffset: GLint; height: GLsizei; depth: GLsizei; format: GLenum; _type: GLenum);
    //procedure texSubImage3D (target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; zoffset: GLint; height: GLsizei; depth: GLsizei; format: GLenum; _type: GLenum);
    procedure texSubImage3D (target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; zoffset: GLint; height: GLsizei; depth: GLsizei; format: GLenum; _type: GLenum; srcOffset: GLuint);
    procedure copyTexSubImage3D (target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; zoffset: GLint; y: GLint; width: GLsizei; height: GLsizei);
    procedure compressedTexImage2D (target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; border: GLint; imageSize: GLsizei; offset: GLintptr);
    procedure compressedTexImage2D (target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; border: GLint; srcData: TJSArrayBufferView; srcOffset: GLuint; srcLengthOverride: GLuint);
    procedure compressedTexImage3D (target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; depth: GLsizei; border: GLint; imageSize: GLsizei; offset: GLintptr);
    procedure compressedTexImage3D (target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; depth: GLsizei; border: GLint; srcData: TJSArrayBufferView; srcOffset: GLuint; srcLengthOverride: GLuint);
    procedure compressedTexSubImage2D (target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; height: GLsizei; format: GLenum; imageSize: GLsizei; offset: GLintptr);
    procedure compressedTexSubImage2D (target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; height: GLsizei; format: GLenum; srcOffset: GLuint; srcLengthOverride: GLuint);
    procedure compressedTexSubImage3D (target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; width: GLsizei; height: GLsizei; depth: GLsizei; imageSize: GLsizei; offset: GLintptr);
    procedure compressedTexSubImage3D (target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; width: GLsizei; height: GLsizei; depth: GLsizei; srcData: TJSArrayBufferView; srcOffset: GLuint; srcLengthOverride: GLuint);

    // Programs and shaders
    function getFragDataLocation (_program: TJSWebGLProgram; name: TJSDOMString): GLint;

    // Uniforms
    procedure uniform1ui (location: TJSWebGLUniformLocation; v0: GLuint);
    procedure uniform2ui (location: TJSWebGLUniformLocation; v0: GLuint; v1: GLuint);
    procedure uniform3ui (location: TJSWebGLUniformLocation; v0: GLuint; v1: GLuint; v2: GLuint);
    procedure uniform4ui (location: TJSWebGLUniformLocation; v0: GLuint; v1: GLuint; v2: GLuint; v3: GLuint);
    procedure uniform1fv (location: TJSWebGLUniformLocation; data: TJSFloat32List; srcOffset: GLuint; srcLength: GLuint);
    procedure uniform2fv (location: TJSWebGLUniformLocation; data: TJSFloat32List; srcOffset: GLuint; srcLength: GLuint);
    procedure uniform3fv (location: TJSWebGLUniformLocation; data: TJSFloat32List; srcOffset: GLuint; srcLength: GLuint);
    procedure uniform4fv (location: TJSWebGLUniformLocation; data: TJSFloat32List; srcOffset: GLuint; srcLength: GLuint);
    procedure uniform1iv (location: TJSWebGLUniformLocation; data: TJSInt32List; srcOffset: GLuint; srcLength: GLuint);
    procedure uniform2iv (location: TJSWebGLUniformLocation; data: TJSInt32List; srcOffset: GLuint; srcLength: GLuint);
    procedure uniform3iv (location: TJSWebGLUniformLocation; data: TJSInt32List; srcOffset: GLuint; srcLength: GLuint);
    procedure uniform4iv (location: TJSWebGLUniformLocation; data: TJSInt32List; srcOffset: GLuint; srcLength: GLuint);
    procedure uniform1uiv (location: TJSWebGLUniformLocation; data: TJSUint32List; srcOffset: GLuint; srcLength: GLuint);
    procedure uniform2uiv (location: TJSWebGLUniformLocation; data: TJSUint32List; srcOffset: GLuint; srcLength: GLuint);
    procedure uniform3uiv (location: TJSWebGLUniformLocation; data: TJSUint32List; srcOffset: GLuint; srcLength: GLuint);
    procedure uniform4uiv (location: TJSWebGLUniformLocation; data: TJSUint32List; srcOffset: GLuint; srcLength: GLuint);
    procedure uniformMatrix2fv (location: TJSWebGLUniformLocation; transpose: GLboolean; data: TJSFloat32List; srcOffset: GLuint; srcLength: GLuint);
    procedure uniformMatrix3x2fv (location: TJSWebGLUniformLocation; transpose: GLboolean; data: TJSFloat32List; srcOffset: GLuint; srcLength: GLuint);
    procedure uniformMatrix4x2fv (location: TJSWebGLUniformLocation; transpose: GLboolean; data: TJSFloat32List; srcOffset: GLuint; srcLength: GLuint);
    procedure uniformMatrix2x3fv (location: TJSWebGLUniformLocation; transpose: GLboolean; data: TJSFloat32List; srcOffset: GLuint; srcLength: GLuint);
    procedure uniformMatrix3fv (location: TJSWebGLUniformLocation; transpose: GLboolean; data: TJSFloat32List; srcOffset: GLuint; srcLength: GLuint);
    procedure uniformMatrix4x3fv (location: TJSWebGLUniformLocation; transpose: GLboolean; data: TJSFloat32List; srcOffset: GLuint; srcLength: GLuint);
    procedure uniformMatrix2x4fv (location: TJSWebGLUniformLocation; transpose: GLboolean; data: TJSFloat32List; srcOffset: GLuint; srcLength: GLuint);
    procedure uniformMatrix3x4fv (location: TJSWebGLUniformLocation; transpose: GLboolean; data: TJSFloat32List; srcOffset: GLuint; srcLength: GLuint);
    procedure uniformMatrix4fv (location: TJSWebGLUniformLocation; transpose: GLboolean; data: TJSFloat32List; srcOffset: GLuint; srcLength: GLuint);

    // Vertex attribs
    procedure vertexAttribI4i (index: GLuint; x: GLint; y: GLint; z: GLint; w: GLint);
    procedure vertexAttribI4iv (index: GLuint; values: TJSInt32List);
    procedure vertexAttribI4ui (index: GLuint; x: GLuint; y: GLuint; z: GLuint; w: GLuint);
    procedure vertexAttribI4uiv (index: GLuint; values: TJSUint32List);
    procedure vertexAttribIPointer (index: GLuint; size: GLint; _type: GLenum; stride: GLsizei; offset: GLintptr);

    // Writing to the drawing buffer
    procedure vertexAttribDivisor (index: GLuint; divisor: GLuint);
    procedure drawArraysInstanced (mode: GLenum; first: GLint; count: GLsizei; instanceCount: GLsizei);
    procedure drawElementsInstanced (mode: GLenum; count: GLsizei; _type: GLenum; offset: GLintptr; instanceCount: GLsizei);
    procedure drawRangeElements (mode: GLenum; start: GLuint; _end: GLuint; count: GLsizei; _type: GLenum; offset: GLintptr);

    // Reading back pixels

    // WebGL1:
    procedure readPixels (x: GLint; y: GLint; width: GLsizei; height: GLsizei; format: GLenum; _type: GLenum);
    // WebGL2:
    //procedure readPixels (x: GLint; y: GLint; width: GLsizei; height: GLsizei; format: GLenum; _type: GLenum);
    procedure readPixels (x: GLint; y: GLint; width: GLsizei; height: GLsizei; format: GLenum; _type: GLenum; dstOffset: GLuint);

    // Multiple Render Targets */
    procedure drawBuffers (buffers: GLenumDynArray);
    procedure clearBufferfv (buffer: GLenum; drawbuffer: GLint; values: TJSFloat32List; srcOffset: GLuint);
    procedure clearBufferiv (buffer: GLenum; drawbuffer: GLint; values: TJSInt32List; srcOffset: GLuint);
    procedure clearBufferuiv (buffer: GLenum; drawbuffer: GLint; values: TJSUint32List; srcOffset: GLuint);
    procedure clearBufferfi (buffer: GLenum; drawbuffer: GLint; depth: GLfloat; stencil: GLint);

    // Query Objects
    function createQuery: TJSWebGLQuery;
    procedure deleteQuery (query: TJSWebGLQuery);
    function isQuery (query: TJSWebGLQuery): GLboolean;
    procedure beginQuery (target: GLenum; query: TJSWebGLQuery);
    procedure endQuery (target: GLenum);
    function getQuery (target: GLenum; pname: GLenum): TJSWebGLQuery;
    function getQueryParameter (query: TJSWebGLQuery; pname: GLenum): JSValue;

    // Sampler Objects
    function createSampler: TJSWebGLSampler;
    procedure deleteSampler (sampler: TJSWebGLSampler);
    function isSampler (sampler: TJSWebGLSampler): GLboolean;
    procedure bindSampler (_unit: GLuint; sampler: TJSWebGLSampler);
    procedure samplerParameteri (sampler: TJSWebGLSampler; pname: GLenum; param: GLint);
    procedure samplerParameterf (sampler: TJSWebGLSampler; pname: GLenum; param: GLfloat);
    function getSamplerParameter (sampler: TJSWebGLSampler; pname: GLenum): JSValue;

    // Sync objects
    function fenceSync (condition: GLenum; flags: GLbitfield): TJSWebGLSync;
    function isSync (sync: TJSWebGLSync): GLboolean;
    procedure deleteSync (sync: TJSWebGLSync);
    function clientWaitSync (sync: TJSWebGLSync; flags: GLbitfield; timeout: GLuint64): GLenum;
    procedure waitSync (sync: TJSWebGLSync; flags: GLbitfield; timeout: GLint64);
    function getSyncParameter (sync: TJSWebGLSync; pname: GLenum): JSValue;

    // Transform Feedback
    function createTransformFeedback: TJSWebGLTransformFeedback;
    procedure deleteTransformFeedback (tf: TJSWebGLTransformFeedback);
    function isTransformFeedback (tf: TJSWebGLTransformFeedback): GLboolean;
    procedure bindTransformFeedback (target: GLenum; tf: TJSWebGLTransformFeedback);
    procedure beginTransformFeedback (primitiveMode: GLenum);
    procedure endTransformFeedback;
    procedure transformFeedbackVaryings (_program: TJSWebGLProgram; varyings: array of TJSDOMString; bufferMode: GLenum);
    function getTransformFeedbackVarying (_program: TJSWebGLProgram; index: GLuint): TJSWebGLActiveInfo;
    procedure pauseTransformFeedback;
    procedure resumeTransformFeedback;

    // Uniform Buffer Objects and Transform Feedback Buffers
    procedure bindBufferBase (target: GLenum; index: GLuint; buffer: TJSWebGLBuffer);
    procedure bindBufferRange (target: GLenum; index: GLuint; buffer: TJSWebGLBuffer; offset: GLintptr; size: GLsizeiptr);
    function getIndexedParameter (target: GLenum; index: GLuint): JSValue;
    function getUniformIndices (_program: TJSWebGLProgram; uniformNames: array of TJSDOMString): GLuintDynArray;
    function getActiveUniforms (_program: TJSWebGLProgram; uniformIndices: GLuintDynArray; pname: GLenum): JSValue;
    function getUniformBlockIndex (_program: TJSWebGLProgram; uniformBlockName: TJSDOMString): GLuint;
    function getActiveUniformBlockParameter (_program: TJSWebGLProgram; uniformBlockIndex: GLuint; pname: GLenum): JSValue;
    function getActiveUniformBlockName (_program: TJSWebGLProgram; uniformBlockIndex: GLuint): TJSDOMString;
    procedure uniformBlockBinding (_program: TJSWebGLProgram; uniformBlockIndex: GLuint; uniformBlockBinding: GLuint);

    // Vertex Array Objects
    function createVertexArray: TJSWebGLVertexArrayObject;
    procedure deleteVertexArray (vertexArray: TJSWebGLVertexArrayObject);
    function isVertexArray (vertexArray: TJSWebGLVertexArrayObject): GLboolean;
    procedure bindVertexArray (_array: TJSWebGLVertexArrayObject);
end;

TJSWebGL2RenderingContext = class external name 'WebGL2RenderingContext' (TJSWebGL2RenderingContextBase);

implementation
end.