paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-22 12:09:22 +02:00
Code Issues Packages Projects Releases Wiki Activity
release_2_0_0
pas2js/packages/rtl/webgl.pas
mattias 6c0a7e59d1 rtl: clean up
2019-02-26 17:45:43 +00:00

699 lines
27 KiB
ObjectPascal
Raw Permalink Blame History

Unit webgl;
{$MODE ObjFPC}
{$H+}
{$modeswitch externalclass}
interface
uses JS, Web;
{
Automatically generated file by TWebIDLToPas on 2018-06-23 15:31:57
Used command-line options :
-i
webgl.idl
-v
v2
-t
EventTarget=TJSEventTarget,DOMHighResTimeStamp=TJSDOMHighResTimeStamp,HTMLMediaElement=TJSElement,MediaStream=JSValue,MediaStreamTrack=JSValue,EventHandler=TJSEVentHandler,Promise=TJSPromise,Event=TJSEvent,Worklet=TJSOBject,WorkletGlobalScope=TJSObject,VoidFunction=TProcedure,MessagePort=TJSMessagePort,HTMLCanvasElement=TJSHTMLCanvasElement,BufferSource=TJSBufferSource,ArrayBufferView=TJSTypedArray
-x
web,types
-d
-p
Command-line options translate to:
Options : [coDictionaryAsClass,coaddOptionsToheader]
Keyword prefix :
Keyword suffix : _
Class prefix : TJS
Class suffix :
Field prefix : F
WEBIDLversion : v2
Type aliases:
EventTarget=TJSEventTarget
DOMHighResTimeStamp=TJSDOMHighResTimeStamp
HTMLMediaElement=TJSElement
MediaStream=JSValue
MediaStreamTrack=JSValue
EventHandler=TJSEVentHandler
Promise=TJSPromise
Event=TJSEvent
Worklet=TJSOBject
WorkletGlobalScope=TJSObject
VoidFunction=TProcedure
MessagePort=TJSMessagePort
HTMLCanvasElement=TJSHTMLCanvasElement
BufferSource=TJSBufferSource
ArrayBufferView=TJSTypedArray
}
Type
// Forward class definitions
TJSWebGLObject = Class;
TJSWebGLBuffer = Class;
TJSWebGLFramebuffer = Class;
TJSWebGLProgram = Class;
TJSWebGLRenderbuffer = Class;
TJSWebGLShader = Class;
TJSWebGLTexture = Class;
TJSWebGLUniformLocation = Class;
TJSWebGLActiveInfo = Class;
TJSWebGLShaderPrecisionFormat = Class;
TJSWebGLRenderingContextBase = Class;
TJSWebGLRenderingContext = Class;
TJSWebGLContextEvent = Class;
TJSWebGLContextAttributes = Class;
TJSWebGLContextEventInit = Class;
WebGLPowerPreference = String;
GLenum = NativeInt;
GLboolean = boolean;
GLbitfield = NativeInt;
GLbyte = byte;
GLshort = Integer;
GLint = Integer;
GLsizei = Integer;
GLintptr = NativeInt;
GLsizeiptr = NativeInt;
GLubyte = Byte;
GLushort = Cardinal;
GLuint = NativeInt;
GLfloat = Double;
GLclampf = Double;
// Union of ImageBitmap, ImageData, HTMLImageElement, HTMLCanvasElement, HTMLVideoElement
TexImageSource = JSValue;
// Union of Float32Array, sequence
Float32List = JSValue;
// Union of Int32Array, sequence
Int32List = JSValue;
{ --------------------------------------------------------------------
TJSWebGLContextAttributes
--------------------------------------------------------------------}
TJSWebGLContextAttributes = class(TJSObject)
alpha : GLboolean;
depth : GLboolean;
stencil : GLboolean;
antialias : GLboolean;
premultipliedAlpha : GLboolean;
preserveDrawingBuffer : GLboolean;
powerPreference : WebGLPowerPreference;
failIfMajorPerformanceCaveat : GLboolean;
end;
{ --------------------------------------------------------------------
TJSWebGLContextEventInit
--------------------------------------------------------------------}
TJSWebGLContextEventInit = class(TJSObject)
statusMessage : String;
end;
{ --------------------------------------------------------------------
TJSWebGLObject
--------------------------------------------------------------------}
TJSWebGLObject = class external name 'WebGLObject'
Private
Public
end;
{ --------------------------------------------------------------------
TJSWebGLBuffer
--------------------------------------------------------------------}
TJSWebGLBuffer = class external name 'WebGLBuffer' (TJSWebGLObject)
Private
Public
end;
{ --------------------------------------------------------------------
TJSWebGLFramebuffer
--------------------------------------------------------------------}
TJSWebGLFramebuffer = class external name 'WebGLFramebuffer' (TJSWebGLObject)
Private
Public
end;
{ --------------------------------------------------------------------
TJSWebGLProgram
--------------------------------------------------------------------}
TJSWebGLProgram = class external name 'WebGLProgram' (TJSWebGLObject)
Private
Public
end;
{ --------------------------------------------------------------------
TJSWebGLRenderbuffer
--------------------------------------------------------------------}
TJSWebGLRenderbuffer = class external name 'WebGLRenderbuffer' (TJSWebGLObject)
Private
Public
end;
{ --------------------------------------------------------------------
TJSWebGLShader
--------------------------------------------------------------------}
TJSWebGLShader = class external name 'WebGLShader' (TJSWebGLObject)
Private
Public
end;
{ --------------------------------------------------------------------
TJSWebGLTexture
--------------------------------------------------------------------}
TJSWebGLTexture = class external name 'WebGLTexture' (TJSWebGLObject)
Private
Public
end;
{ --------------------------------------------------------------------
TJSWebGLUniformLocation
--------------------------------------------------------------------}
TJSWebGLUniformLocation = class external name 'WebGLUniformLocation'
Private
Public
end;
{ --------------------------------------------------------------------
TJSWebGLActiveInfo
--------------------------------------------------------------------}
TJSWebGLActiveInfo = class external name 'WebGLActiveInfo'
Private
Fsize : GLint; external name 'size';
Ftype_ : GLenum; external name 'type';
Fname : String; external name 'name';
Public
Property size : GLint Read Fsize;
Property type_ : GLenum Read Ftype_;
Property name : String Read Fname;
end;
{ --------------------------------------------------------------------
TJSWebGLShaderPrecisionFormat
--------------------------------------------------------------------}
TJSWebGLShaderPrecisionFormat = class external name 'WebGLShaderPrecisionFormat'
Private
FrangeMin : GLint; external name 'rangeMin';
FrangeMax : GLint; external name 'rangeMax';
Fprecision : GLint; external name 'precision';
Public
Property rangeMin : GLint Read FrangeMin;
Property rangeMax : GLint Read FrangeMax;
Property precision : GLint Read Fprecision;
end;
{ --------------------------------------------------------------------
TJSWebGLRenderingContextBase
--------------------------------------------------------------------}
TStringDynArray = Array of String;
TTJSWebGLShaderDynArray = Array of TJSWebGLShader;
TGLfloatDynArray = Array of GLfloat;
TGLintDynArray = Array of GLint;
// MG: added ancestor (TJSObject), issue 34745
TJSWebGLRenderingContextBase = class external name 'WebGLRenderingContextBase' (TJSObject)
Private
Fcanvas : TJSHTMLCanvasElement; external name 'canvas';
FdrawingBufferWidth : GLsizei; external name 'drawingBufferWidth';
FdrawingBufferHeight : GLsizei; external name 'drawingBufferHeight';
Public
Const
DEPTH_BUFFER_BIT = $00000100;
STENCIL_BUFFER_BIT = $00000400;
COLOR_BUFFER_BIT = $00004000;
POINTS = $0000;
LINES = $0001;
LINE_LOOP = $0002;
LINE_STRIP = $0003;
TRIANGLES = $0004;
TRIANGLE_STRIP = $0005;
TRIANGLE_FAN = $0006;
ZERO = 0;
ONE = 1;
SRC_COLOR = $0300;
ONE_MINUS_SRC_COLOR = $0301;
SRC_ALPHA = $0302;
ONE_MINUS_SRC_ALPHA = $0303;
DST_ALPHA = $0304;
ONE_MINUS_DST_ALPHA = $0305;
DST_COLOR = $0306;
ONE_MINUS_DST_COLOR = $0307;
SRC_ALPHA_SATURATE = $0308;
FUNC_ADD = $8006;
BLEND_EQUATION = $8009;
BLEND_EQUATION_RGB = $8009;
BLEND_EQUATION_ALPHA = $883D;
FUNC_SUBTRACT = $800A;
FUNC_REVERSE_SUBTRACT = $800B;
BLEND_DST_RGB = $80C8;
BLEND_SRC_RGB = $80C9;
BLEND_DST_ALPHA = $80CA;
BLEND_SRC_ALPHA = $80CB;
CONSTANT_COLOR = $8001;
ONE_MINUS_CONSTANT_COLOR = $8002;
CONSTANT_ALPHA = $8003;
ONE_MINUS_CONSTANT_ALPHA = $8004;
BLEND_COLOR = $8005;
ARRAY_BUFFER = $8892;
ELEMENT_ARRAY_BUFFER = $8893;
ARRAY_BUFFER_BINDING = $8894;
ELEMENT_ARRAY_BUFFER_BINDING = $8895;
STREAM_DRAW = $88E0;
STATIC_DRAW = $88E4;
DYNAMIC_DRAW = $88E8;
BUFFER_SIZE = $8764;
BUFFER_USAGE = $8765;
CURRENT_VERTEX_ATTRIB = $8626;
FRONT = $0404;
BACK = $0405;
FRONT_AND_BACK = $0408;
CULL_FACE = $0B44;
BLEND = $0BE2;
DITHER = $0BD0;
STENCIL_TEST = $0B90;
DEPTH_TEST = $0B71;
SCISSOR_TEST = $0C11;
POLYGON_OFFSET_FILL = $8037;
SAMPLE_ALPHA_TO_COVERAGE = $809E;
SAMPLE_COVERAGE = $80A0;
NO_ERROR = 0;
INVALID_ENUM = $0500;
INVALID_VALUE = $0501;
INVALID_OPERATION = $0502;
OUT_OF_MEMORY = $0505;
CW = $0900;
CCW = $0901;
LINE_WIDTH = $0B21;
ALIASED_POINT_SIZE_RANGE = $846D;
ALIASED_LINE_WIDTH_RANGE = $846E;
CULL_FACE_MODE = $0B45;
FRONT_FACE = $0B46;
DEPTH_RANGE = $0B70;
DEPTH_WRITEMASK = $0B72;
DEPTH_CLEAR_VALUE = $0B73;
DEPTH_FUNC = $0B74;
STENCIL_CLEAR_VALUE = $0B91;
STENCIL_FUNC = $0B92;
STENCIL_FAIL = $0B94;
STENCIL_PASS_DEPTH_FAIL = $0B95;
STENCIL_PASS_DEPTH_PASS = $0B96;
STENCIL_REF = $0B97;
STENCIL_VALUE_MASK = $0B93;
STENCIL_WRITEMASK = $0B98;
STENCIL_BACK_FUNC = $8800;
STENCIL_BACK_FAIL = $8801;
STENCIL_BACK_PASS_DEPTH_FAIL = $8802;
STENCIL_BACK_PASS_DEPTH_PASS = $8803;
STENCIL_BACK_REF = $8CA3;
STENCIL_BACK_VALUE_MASK = $8CA4;
STENCIL_BACK_WRITEMASK = $8CA5;
VIEWPORT_ = $0BA2;
SCISSOR_BOX = $0C10;
COLOR_CLEAR_VALUE = $0C22;
COLOR_WRITEMASK = $0C23;
UNPACK_ALIGNMENT = $0CF5;
PACK_ALIGNMENT = $0D05;
MAX_TEXTURE_SIZE = $0D33;
MAX_VIEWPORT_DIMS = $0D3A;
SUBPIXEL_BITS = $0D50;
RED_BITS = $0D52;
GREEN_BITS = $0D53;
BLUE_BITS = $0D54;
ALPHA_BITS = $0D55;
DEPTH_BITS = $0D56;
STENCIL_BITS = $0D57;
POLYGON_OFFSET_UNITS = $2A00;
POLYGON_OFFSET_FACTOR = $8038;
TEXTURE_BINDING_2D = $8069;
SAMPLE_BUFFERS = $80A8;
SAMPLES = $80A9;
SAMPLE_COVERAGE_VALUE = $80AA;
SAMPLE_COVERAGE_INVERT = $80AB;
COMPRESSED_TEXTURE_FORMATS = $86A3;
DONT_CARE = $1100;
FASTEST = $1101;
NICEST = $1102;
GENERATE_MIPMAP_HINT = $8192;
BYTE = $1400;
UNSIGNED_BYTE = $1401;
SHORT = $1402;
UNSIGNED_SHORT = $1403;
INT = $1404;
UNSIGNED_INT = $1405;
FLOAT = $1406;
DEPTH_COMPONENT = $1902;
ALPHA = $1906;
RGB = $1907;
RGBA = $1908;
LUMINANCE = $1909;
LUMINANCE_ALPHA = $190A;
UNSIGNED_SHORT_4_4_4_4 = $8033;
UNSIGNED_SHORT_5_5_5_1 = $8034;
UNSIGNED_SHORT_5_6_5 = $8363;
FRAGMENT_SHADER = $8B30;
VERTEX_SHADER = $8B31;
MAX_VERTEX_ATTRIBS = $8869;
MAX_VERTEX_UNIFORM_VECTORS = $8DFB;
MAX_VARYING_VECTORS = $8DFC;
MAX_COMBINED_TEXTURE_IMAGE_UNITS = $8B4D;
MAX_VERTEX_TEXTURE_IMAGE_UNITS = $8B4C;
MAX_TEXTURE_IMAGE_UNITS = $8872;
MAX_FRAGMENT_UNIFORM_VECTORS = $8DFD;
SHADER_TYPE = $8B4F;
DELETE_STATUS = $8B80;
LINK_STATUS = $8B82;
VALIDATE_STATUS = $8B83;
ATTACHED_SHADERS = $8B85;
ACTIVE_UNIFORMS = $8B86;
ACTIVE_ATTRIBUTES = $8B89;
SHADING_LANGUAGE_VERSION = $8B8C;
CURRENT_PROGRAM = $8B8D;
NEVER = $0200;
LESS = $0201;
EQUAL = $0202;
LEQUAL = $0203;
GREATER = $0204;
NOTEQUAL = $0205;
GEQUAL = $0206;
ALWAYS = $0207;
KEEP = $1E00;
REPLACE = $1E01;
INCR = $1E02;
DECR = $1E03;
INVERT = $150A;
INCR_WRAP = $8507;
DECR_WRAP = $8508;
VENDOR = $1F00;
RENDERER = $1F01;
VERSION = $1F02;
NEAREST = $2600;
LINEAR = $2601;
NEAREST_MIPMAP_NEAREST = $2700;
LINEAR_MIPMAP_NEAREST = $2701;
NEAREST_MIPMAP_LINEAR = $2702;
LINEAR_MIPMAP_LINEAR = $2703;
TEXTURE_MAG_FILTER = $2800;
TEXTURE_MIN_FILTER = $2801;
TEXTURE_WRAP_S = $2802;
TEXTURE_WRAP_T = $2803;
TEXTURE_2D = $0DE1;
TEXTURE = $1702;
TEXTURE_CUBE_MAP = $8513;
TEXTURE_BINDING_CUBE_MAP = $8514;
TEXTURE_CUBE_MAP_POSITIVE_X = $8515;
TEXTURE_CUBE_MAP_NEGATIVE_X = $8516;
TEXTURE_CUBE_MAP_POSITIVE_Y = $8517;
TEXTURE_CUBE_MAP_NEGATIVE_Y = $8518;
TEXTURE_CUBE_MAP_POSITIVE_Z = $8519;
TEXTURE_CUBE_MAP_NEGATIVE_Z = $851A;
MAX_CUBE_MAP_TEXTURE_SIZE = $851C;
TEXTURE0 = $84C0;
TEXTURE1 = $84C1;
TEXTURE2 = $84C2;
TEXTURE3 = $84C3;
TEXTURE4 = $84C4;
TEXTURE5 = $84C5;
TEXTURE6 = $84C6;
TEXTURE7 = $84C7;
TEXTURE8 = $84C8;
TEXTURE9 = $84C9;
TEXTURE10 = $84CA;
TEXTURE11 = $84CB;
TEXTURE12 = $84CC;
TEXTURE13 = $84CD;
TEXTURE14 = $84CE;
TEXTURE15 = $84CF;
TEXTURE16 = $84D0;
TEXTURE17 = $84D1;
TEXTURE18 = $84D2;
TEXTURE19 = $84D3;
TEXTURE20 = $84D4;
TEXTURE21 = $84D5;
TEXTURE22 = $84D6;
TEXTURE23 = $84D7;
TEXTURE24 = $84D8;
TEXTURE25 = $84D9;
TEXTURE26 = $84DA;
TEXTURE27 = $84DB;
TEXTURE28 = $84DC;
TEXTURE29 = $84DD;
TEXTURE30 = $84DE;
TEXTURE31 = $84DF;
ACTIVE_TEXTURE = $84E0;
REPEAT_ = $2901;
CLAMP_TO_EDGE = $812F;
MIRRORED_REPEAT = $8370;
FLOAT_VEC2 = $8B50;
FLOAT_VEC3 = $8B51;
FLOAT_VEC4 = $8B52;
INT_VEC2 = $8B53;
INT_VEC3 = $8B54;
INT_VEC4 = $8B55;
BOOL = $8B56;
BOOL_VEC2 = $8B57;
BOOL_VEC3 = $8B58;
BOOL_VEC4 = $8B59;
FLOAT_MAT2 = $8B5A;
FLOAT_MAT3 = $8B5B;
FLOAT_MAT4 = $8B5C;
SAMPLER_2D = $8B5E;
SAMPLER_CUBE = $8B60;
VERTEX_ATTRIB_ARRAY_ENABLED = $8622;
VERTEX_ATTRIB_ARRAY_SIZE = $8623;
VERTEX_ATTRIB_ARRAY_STRIDE = $8624;
VERTEX_ATTRIB_ARRAY_TYPE = $8625;
VERTEX_ATTRIB_ARRAY_NORMALIZED = $886A;
VERTEX_ATTRIB_ARRAY_POINTER = $8645;
VERTEX_ATTRIB_ARRAY_BUFFER_BINDING = $889F;
IMPLEMENTATION_COLOR_READ_TYPE = $8B9A;
IMPLEMENTATION_COLOR_READ_FORMAT = $8B9B;
COMPILE_STATUS = $8B81;
LOW_FLOAT = $8DF0;
MEDIUM_FLOAT = $8DF1;
HIGH_FLOAT = $8DF2;
LOW_INT = $8DF3;
MEDIUM_INT = $8DF4;
HIGH_INT = $8DF5;
FRAMEBUFFER = $8D40;
RENDERBUFFER = $8D41;
RGBA4 = $8056;
RGB5_A1 = $8057;
RGB565 = $8D62;
DEPTH_COMPONENT16 = $81A5;
STENCIL_INDEX8 = $8D48;
DEPTH_STENCIL = $84F9;
RENDERBUFFER_WIDTH = $8D42;
RENDERBUFFER_HEIGHT = $8D43;
RENDERBUFFER_INTERNAL_FORMAT = $8D44;
RENDERBUFFER_RED_SIZE = $8D50;
RENDERBUFFER_GREEN_SIZE = $8D51;
RENDERBUFFER_BLUE_SIZE = $8D52;
RENDERBUFFER_ALPHA_SIZE = $8D53;
RENDERBUFFER_DEPTH_SIZE = $8D54;
RENDERBUFFER_STENCIL_SIZE = $8D55;
FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE = $8CD0;
FRAMEBUFFER_ATTACHMENT_OBJECT_NAME = $8CD1;
FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL = $8CD2;
FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE = $8CD3;
COLOR_ATTACHMENT0 = $8CE0;
DEPTH_ATTACHMENT = $8D00;
STENCIL_ATTACHMENT = $8D20;
DEPTH_STENCIL_ATTACHMENT = $821A;
NONE = 0;
FRAMEBUFFER_COMPLETE = $8CD5;
FRAMEBUFFER_INCOMPLETE_ATTACHMENT = $8CD6;
FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT = $8CD7;
FRAMEBUFFER_INCOMPLETE_DIMENSIONS = $8CD9;
FRAMEBUFFER_UNSUPPORTED = $8CDD;
FRAMEBUFFER_BINDING = $8CA6;
RENDERBUFFER_BINDING = $8CA7;
MAX_RENDERBUFFER_SIZE = $84E8;
INVALID_FRAMEBUFFER_OPERATION = $0506;
UNPACK_FLIP_Y_WEBGL = $9240;
UNPACK_PREMULTIPLY_ALPHA_WEBGL = $9241;
CONTEXT_LOST_WEBGL = $9242;
UNPACK_COLORSPACE_CONVERSION_WEBGL = $9243;
BROWSER_DEFAULT_WEBGL = $9244;
Public
function getContextAttributes: TJSWebGLContextAttributes;
function isContextLost: boolean;
function getSupportedExtensions: TStringDynArray;
function getExtension(name : String): TJSObject;
Procedure activeTexture(texture : GLenum);
Procedure attachShader(program_ : TJSWebGLProgram; shader : TJSWebGLShader);
Procedure bindAttribLocation(program_ : TJSWebGLProgram; index : GLuint; name : String);
Procedure bindBuffer(target : GLenum; buffer : TJSWebGLBuffer);
Procedure bindFramebuffer(target : GLenum; framebuffer : TJSWebGLFramebuffer);
Procedure bindRenderbuffer(target : GLenum; renderbuffer : TJSWebGLRenderbuffer);
Procedure bindTexture(target : GLenum; texture : TJSWebGLTexture);
Procedure blendColor(red : GLclampf; green : GLclampf; blue : GLclampf; alpha : GLclampf);
Procedure blendEquation(mode : GLenum);
Procedure blendEquationSeparate(modeRGB : GLenum; modeAlpha : GLenum);
Procedure blendFunc(sfactor : GLenum; dfactor : GLenum);
Procedure blendFuncSeparate(srcRGB : GLenum; dstRGB : GLenum; srcAlpha : GLenum; dstAlpha : GLenum);
Procedure bufferData(target : GLenum; size : GLsizeiptr; usage : GLenum); overload;
Procedure bufferData(target : GLenum; data : TJSBufferSource; usage : GLenum); overload;
Procedure bufferSubData(target : GLenum; offset : GLintptr; data : TJSBufferSource);
function checkFramebufferStatus(target : GLenum): GLenum;
Procedure clear(mask : GLbitfield);
Procedure clearColor(red : GLclampf; green : GLclampf; blue : GLclampf; alpha : GLclampf);
Procedure clearDepth(depth : GLclampf);
Procedure clearStencil(s : GLint);
Procedure colorMask(red : GLboolean; green : GLboolean; blue : GLboolean; alpha : GLboolean);
Procedure compileShader(shader : TJSWebGLShader);
Procedure compressedTexImage2D(target : GLenum; level : GLint; internalformat : GLenum; width : GLsizei; height : GLsizei; border : GLint; data : TJSTypedArray);
Procedure compressedTexSubImage2D(target : GLenum; level : GLint; xoffset : GLint; yoffset : GLint; width : GLsizei; height : GLsizei; format : GLenum; data : TJSTypedArray);
Procedure copyTexImage2D(target : GLenum; level : GLint; internalformat : GLenum; x : GLint; y : GLint; width : GLsizei; height : GLsizei; border : GLint);
Procedure copyTexSubImage2D(target : GLenum; level : GLint; xoffset : GLint; yoffset : GLint; x : GLint; y : GLint; width : GLsizei; height : GLsizei);
function createBuffer: TJSWebGLBuffer;
function createFramebuffer: TJSWebGLFramebuffer;
function createProgram: TJSWebGLProgram;
function createRenderbuffer: TJSWebGLRenderbuffer;
function createShader(type_ : GLenum): TJSWebGLShader;
function createTexture: TJSWebGLTexture;
Procedure cullFace(mode : GLenum);
Procedure deleteBuffer(buffer : TJSWebGLBuffer);
Procedure deleteFramebuffer(framebuffer : TJSWebGLFramebuffer);
Procedure deleteProgram(program_ : TJSWebGLProgram);
Procedure deleteRenderbuffer(renderbuffer : TJSWebGLRenderbuffer);
Procedure deleteShader(shader : TJSWebGLShader);
Procedure deleteTexture(texture : TJSWebGLTexture);
Procedure depthFunc(func : GLenum);
Procedure depthMask(flag : GLboolean);
Procedure depthRange(zNear : GLclampf; zFar : GLclampf);
Procedure detachShader(program_ : TJSWebGLProgram; shader : TJSWebGLShader);
Procedure disable(cap : GLenum);
Procedure disableVertexAttribArray(index : GLuint);
Procedure drawArrays(mode : GLenum; first : GLint; count : GLsizei);
Procedure drawElements(mode : GLenum; count : GLsizei; type_ : GLenum; offset : GLintptr);
Procedure enable(cap : GLenum);
Procedure enableVertexAttribArray(index : GLuint);
Procedure finish;
Procedure flush;
Procedure framebufferRenderbuffer(target : GLenum; attachment : GLenum; renderbuffertarget : GLenum; renderbuffer : TJSWebGLRenderbuffer);
Procedure framebufferTexture2D(target : GLenum; attachment : GLenum; textarget : GLenum; texture : TJSWebGLTexture; level : GLint);
Procedure frontFace(mode : GLenum);
Procedure generateMipmap(target : GLenum);
function getActiveAttrib(program_ : TJSWebGLProgram; index : GLuint): TJSWebGLActiveInfo;
function getActiveUniform(program_ : TJSWebGLProgram; index : GLuint): TJSWebGLActiveInfo;
function getAttachedShaders(program_ : TJSWebGLProgram): TTJSWebGLShaderDynArray;
function getAttribLocation(program_ : TJSWebGLProgram; name : String): GLint;
function getBufferParameter(target : GLenum; pname : GLenum): JSValue;
function getParameter(pname : GLenum): JSValue;
function getError: GLenum;
function getFramebufferAttachmentParameter(target : GLenum; attachment : GLenum; pname : GLenum): JSValue;
function getProgramParameter(program_ : TJSWebGLProgram; pname : GLenum): JSValue;
function getProgramInfoLog(program_ : TJSWebGLProgram): String;
function getRenderbufferParameter(target : GLenum; pname : GLenum): JSValue;
function getShaderParameter(shader : TJSWebGLShader; pname : GLenum): JSValue;
function getShaderPrecisionFormat(shadertype : GLenum; precisiontype : GLenum): TJSWebGLShaderPrecisionFormat;
function getShaderInfoLog(shader : TJSWebGLShader): String;
function getShaderSource(shader : TJSWebGLShader): String;
function getTexParameter(target : GLenum; pname : GLenum): JSValue;
function getUniform(program_ : TJSWebGLProgram; location : TJSWebGLUniformLocation): JSValue;
function getUniformLocation(program_ : TJSWebGLProgram; name : String): TJSWebGLUniformLocation;
function getVertexAttrib(index : GLuint; pname : GLenum): JSValue;
function getVertexAttribOffset(index : GLuint; pname : GLenum): GLintptr;
Procedure hint(target : GLenum; mode : GLenum);
function isBuffer(buffer : TJSWebGLBuffer): GLboolean;
function isEnabled(cap : GLenum): GLboolean;
function isFramebuffer(framebuffer : TJSWebGLFramebuffer): GLboolean;
function isProgram(program_ : TJSWebGLProgram): GLboolean;
function isRenderbuffer(renderbuffer : TJSWebGLRenderbuffer): GLboolean;
function isShader(shader : TJSWebGLShader): GLboolean;
function isTexture(texture : TJSWebGLTexture): GLboolean;
Procedure lineWidth(width : GLfloat);
Procedure linkProgram(program_ : TJSWebGLProgram);
Procedure pixelStorei(pname : GLenum; param : GLint);
Procedure polygonOffset(factor : GLfloat; units : GLfloat);
Procedure readPixels(x : GLint; y : GLint; width : GLsizei; height : GLsizei; format : GLenum; type_ : GLenum; pixels : TJSTypedArray);
Procedure renderbufferStorage(target : GLenum; internalformat : GLenum; width : GLsizei; height : GLsizei);
Procedure sampleCoverage(value : GLclampf; invert : GLboolean);
Procedure scissor(x : GLint; y : GLint; width : GLsizei; height : GLsizei);
Procedure shaderSource(shader : TJSWebGLShader; source : String);
Procedure stencilFunc(func : GLenum; ref : GLint; mask : GLuint);
Procedure stencilFuncSeparate(face : GLenum; func : GLenum; ref : GLint; mask : GLuint);
Procedure stencilMask(mask : GLuint);
Procedure stencilMaskSeparate(face : GLenum; mask : GLuint);
Procedure stencilOp(fail : GLenum; zfail : GLenum; zpass : GLenum);
Procedure stencilOpSeparate(face : GLenum; fail : GLenum; zfail : GLenum; zpass : GLenum);
Procedure texImage2D(target : GLenum; level : GLint; internalformat : GLint; width : GLsizei; height : GLsizei; border : GLint; format : GLenum; type_ : GLenum; pixels : TJSTypedArray);
Procedure texImage2D(target : GLenum; level : GLint; internalformat : GLint; format : GLenum; type_ : GLenum; source : TexImageSource);
Procedure texParameterf(target : GLenum; pname : GLenum; param : GLfloat);
Procedure texParameteri(target : GLenum; pname : GLenum; param : GLint);
Procedure texSubImage2D(target : GLenum; level : GLint; xoffset : GLint; yoffset : GLint; width : GLsizei; height : GLsizei; format : GLenum; type_ : GLenum; pixels : TJSTypedArray);
Procedure texSubImage2D(target : GLenum; level : GLint; xoffset : GLint; yoffset : GLint; format : GLenum; type_ : GLenum; source : TexImageSource);
Procedure uniform1f(location : TJSWebGLUniformLocation; x : GLfloat);
Procedure uniform2f(location : TJSWebGLUniformLocation; x : GLfloat; y : GLfloat);
Procedure uniform3f(location : TJSWebGLUniformLocation; x : GLfloat; y : GLfloat; z : GLfloat);
Procedure uniform4f(location : TJSWebGLUniformLocation; x : GLfloat; y : GLfloat; z : GLfloat; w : GLfloat);
Procedure uniform1i(location : TJSWebGLUniformLocation; x : GLint);
Procedure uniform2i(location : TJSWebGLUniformLocation; x : GLint; y : GLint);
Procedure uniform3i(location : TJSWebGLUniformLocation; x : GLint; y : GLint; z : GLint);
Procedure uniform4i(location : TJSWebGLUniformLocation; x : GLint; y : GLint; z : GLint; w : GLint);
Procedure uniform1fv(location : TJSWebGLUniformLocation; v : Float32List);
Procedure uniform2fv(location : TJSWebGLUniformLocation; v : Float32List);
Procedure uniform3fv(location : TJSWebGLUniformLocation; v : Float32List);
Procedure uniform4fv(location : TJSWebGLUniformLocation; v : Float32List);
Procedure uniform1iv(location : TJSWebGLUniformLocation; v : Int32List);
Procedure uniform2iv(location : TJSWebGLUniformLocation; v : Int32List);
Procedure uniform3iv(location : TJSWebGLUniformLocation; v : Int32List);
Procedure uniform4iv(location : TJSWebGLUniformLocation; v : Int32List);
Procedure uniformMatrix2fv(location : TJSWebGLUniformLocation; transpose : GLboolean; value : Float32List);
Procedure uniformMatrix3fv(location : TJSWebGLUniformLocation; transpose : GLboolean; value : Float32List);
Procedure uniformMatrix4fv(location : TJSWebGLUniformLocation; transpose : GLboolean; value : Float32List);
Procedure useProgram(program_ : TJSWebGLProgram);
Procedure validateProgram(program_ : TJSWebGLProgram);
Procedure vertexAttrib1f(index : GLuint; x : GLfloat);
Procedure vertexAttrib2f(index : GLuint; x : GLfloat; y : GLfloat);
Procedure vertexAttrib3f(index : GLuint; x : GLfloat; y : GLfloat; z : GLfloat);
Procedure vertexAttrib4f(index : GLuint; x : GLfloat; y : GLfloat; z : GLfloat; w : GLfloat);
Procedure vertexAttrib1fv(index : GLuint; values : Float32List);
Procedure vertexAttrib2fv(index : GLuint; values : Float32List);
Procedure vertexAttrib3fv(index : GLuint; values : Float32List);
Procedure vertexAttrib4fv(index : GLuint; values : Float32List);
Procedure vertexAttribPointer(index : GLuint; size : GLint; type_ : GLenum; normalized : GLboolean; stride : GLsizei; offset : GLintptr);
Procedure viewport(x : GLint; y : GLint; width : GLsizei; height : GLsizei);
Property canvas : TJSHTMLCanvasElement Read Fcanvas;
Property drawingBufferWidth : GLsizei Read FdrawingBufferWidth;
Property drawingBufferHeight : GLsizei Read FdrawingBufferHeight;
end;
{ --------------------------------------------------------------------
TJSWebGLRenderingContext
--------------------------------------------------------------------}
TJSWebGLRenderingContext = class external name 'WebGLRenderingContext' (TJSWebGLRenderingContextBase)
Private
Public
end;
{ --------------------------------------------------------------------
TJSWebGLContextEvent
--------------------------------------------------------------------}
TJSWebGLContextEvent = class external name 'WebGLContextEvent' (TJSEvent)
Private
FstatusMessage : String; external name 'statusMessage';
Public
Property statusMessage : String Read FstatusMessage;
end;
implementation
end.
Reference in New Issue View Git Blame Copy Permalink