paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-05 20:37:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

demo webgl: fixed compile

Browse Source
This commit is contained in:
mattias 2018-12-23 13:55:36 +00:00
parent 03e7d81353
commit 3adee3daa4
13 changed files with 41 additions and 538 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
demo/webgl/GLTypes.pas
View File

@ -1,10 +1,12 @@
unit GLTypes; unit GLTypes;
interface interface
uses uses
WebGL, JS, Math, SysUtils; WebGL, Math, SysUtils;
type type
TScalar = double; TScalar = double;
TJSFloat32 = double;
TJSFloat32List = array of TJSFloat32;
type type
TVec2 = record TVec2 = record

26
demo/webgl/GLUtils.pas
View File

@ -2,8 +2,8 @@ unit GLUtils;
interface interface
uses uses
MemoryBuffer, Mat4, GLTypes, MemoryBuffer, Mat4, GLTypes,
BrowserConsole, Web, WebGL, JS, BrowserConsole, WebGL, JS,
Types, Math, SysUtils; Types, SysUtils;
type type
TShader = class TShader = class
@ -64,7 +64,7 @@ type
data: TModelData; data: TModelData;
vertexBuffer: TJSWebGLBuffer; vertexBuffer: TJSWebGLBuffer;
indexBuffer: TJSWebGLBuffer; indexBuffer: TJSWebGLBuffer;
elementCount: integer; //elementCount: integer;
procedure EnableAttributes; procedure EnableAttributes;
procedure Load; procedure Load;
@ -88,11 +88,11 @@ begin
end; end;
// TODO: toll free bridge to FPC strings // TODO: toll free bridge to FPC strings
procedure Fatal (messageString: TJSString); overload; {procedure Fatal (messageString: TJSString); overload;
begin begin
writeln('*** FATAL: ', messageString); writeln('*** FATAL: ', messageString);
raise Exception.Create('FATAL'); raise Exception.Create('FATAL');
end; end;}
procedure GLFatal (gl: TJSWebGLRenderingContext; messageString: string = 'Fatal OpenGL error'); procedure GLFatal (gl: TJSWebGLRenderingContext; messageString: string = 'Fatal OpenGL error');
var var
@ -420,22 +420,20 @@ begin
end; end;
function TShader.CreateShader(theType: GLenum; source: string): TJSWebGLShader; function TShader.CreateShader(theType: GLenum; source: string): TJSWebGLShader;
var
shader: TJSWebGLShader;
begin begin
shader := gl.createShader(theType); Result := gl.createShader(theType);
if shader = nil then if Result = nil then
Fatal('create shader failed'); Fatal('create shader failed');
gl.shaderSource(shader, source); gl.shaderSource(Result, source);
gl.compileShader(shader); gl.compileShader(Result);
if gl.getShaderParameter(shader, gl.COMPILE_STATUS) then if gl.getShaderParameter(Result, gl.COMPILE_STATUS) then
begin begin
//writeln('loaded shader ', theType); //writeln('loaded shader ', theType);
exit(shader); exit;
end end
else else
begin begin
Fatal(gl.getShaderInfoLog(shader)); Fatal(gl.getShaderInfoLog(Result));
//gl.deleteShader(shader); //gl.deleteShader(shader);
end; end;
end; end;

6
demo/webgl/Mat4.pas
View File

@ -3,7 +3,7 @@
unit Mat4; unit Mat4;
interface interface
uses uses
BrowserConsole, JS, Math; BrowserConsole, JS;
type type
TScalar = double; TScalar = double;
@ -43,8 +43,8 @@ implementation
const const
PI = 3.14159265359; PI = 3.14159265359;
DEG2RAD = PI/180.0; DEG2RAD = PI/180.0;
RAD2DEG = 180.0/PI; //RAD2DEG = 180.0/PI;
HalfPI = PI*0.5; //HalfPI = PI*0.5;
var var
Matrix4x4Identity: TMat4; Matrix4x4Identity: TMat4;

9
demo/webgl/MemoryBuffer.pas
View File

@ -6,6 +6,7 @@ uses
JS; JS;
type type
TMBFloat32 = double;
TMemoryBuffer = class TMemoryBuffer = class
private private
byteBuffer: TJSUint8Array; byteBuffer: TJSUint8Array;
@ -16,8 +17,8 @@ type
procedure AddBytes (count: integer; data: array of byte); procedure AddBytes (count: integer; data: array of byte);
{ Float32 } { Float32 }
procedure AddFloats (count: integer; data: array of single); procedure AddFloats (count: integer; data: array of TMBFloat32);
procedure AddFloat (data: single); procedure AddFloat (data: TMBFloat32);
{ UInt16 } { UInt16 }
procedure AddWords(count: integer; data: array of word); procedure AddWords(count: integer; data: array of word);
@ -43,12 +44,12 @@ begin
byteOffset := byteOffset + (count * 1); byteOffset := byteOffset + (count * 1);
end; end;
procedure TMemoryBuffer.AddFloat (data: single); procedure TMemoryBuffer.AddFloat (data: TMBFloat32);
begin begin
AddFloats(1, [data]); AddFloats(1, [data]);
end; end;
procedure TMemoryBuffer.AddFloats (count: integer; data: array of single); procedure TMemoryBuffer.AddFloats (count: integer; data: array of TMBFloat32);
const const
kElementSize = 4; kElementSize = 4;
var var

9
demo/webgl/Pas2JS_WebGL.pas
View File

@ -1,7 +1,7 @@
program Pas2JS_WebGL; program Pas2JS_WebGL;
uses uses
Mat4, MemoryBuffer, GLUtils, GLTypes, SysUtils, Mat4, MemoryBuffer, GLUtils, GLTypes, SysUtils,
BrowserConsole, Web, WebGL, WebGL2, JS, Math; BrowserConsole, Web, WebGL, JS, Math;
type type
GLVertex2 = record GLVertex2 = record
@ -53,8 +53,8 @@ end;
var var
nextTime: single = 0; nextTime: TJSFloat32 = 0;
deltaTime: single = 0; deltaTime: TJSFloat32 = 0;
var var
gl: TJSWebGLRenderingContext; gl: TJSWebGLRenderingContext;
@ -68,7 +68,7 @@ var
procedure UpdateCanvas(time: TJSDOMHighResTimeStamp); procedure UpdateCanvas(time: TJSDOMHighResTimeStamp);
var var
now: single; now: TJSFloat32;
begin begin
now := time * 0.001; now := time * 0.001;
deltaTime := now - nextTime; deltaTime := now - nextTime;
@ -91,7 +91,6 @@ end;
var var
canvas: TJSHTMLCanvasElement; canvas: TJSHTMLCanvasElement;
i: integer;
stride: integer; stride: integer;
offset: integer; offset: integer;
vertexShaderSource: string; vertexShaderSource: string;

2
demo/webgl/Pas2JS_WebGL_Minimal.pas
View File

@ -1,7 +1,7 @@
program Pas2JS_WebGL_Minimal; program Pas2JS_WebGL_Minimal;
uses uses
GLUtils, GLTypes, SysUtils, GLUtils, GLTypes, SysUtils,
BrowserConsole, Web, WebGL, WebGL2, JS, Math; BrowserConsole, Web, WebGL, JS, Math;
var var
gl: TJSWebGLRenderingContext; gl: TJSWebGLRenderingContext;

13
demo/webgl/Pas2JS_WebGL_OBJ.pas
View File

@ -1,7 +1,7 @@
program Pas2JS_WebGL_OBJ; program Pas2JS_WebGL_OBJ;
uses uses
Types, Mat4, MemoryBuffer, GLUtils, GLTypes, SysUtils, Types, Mat4, MemoryBuffer, GLUtils, GLTypes, SysUtils,
BrowserConsole, Web, WebGL, WebGL2, JS, Math; BrowserConsole, Web, WebGL, JS, Math;
var var
gl: TJSWebGLRenderingContext; gl: TJSWebGLRenderingContext;
@ -13,8 +13,8 @@ var
var var
dragonModel: TModel = nil; dragonModel: TModel = nil;
rotateAngle: double = 0; rotateAngle: double = 0;
deltaTime: single = 0; deltaTime: TJSFloat32 = 0;
nextTime: single = 0; nextTime: TJSFloat32 = 0;
procedure DrawCanvas; procedure DrawCanvas;
begin begin
@ -33,8 +33,7 @@ end;
procedure AnimateCanvas(time: TJSDOMHighResTimeStamp); procedure AnimateCanvas(time: TJSDOMHighResTimeStamp);
var var
now: single; now: TJSFloat32;
list: TScalarArray;
begin begin
now := time * 0.001; now := time * 0.001;
deltaTime := now - nextTime; deltaTime := now - nextTime;
@ -87,12 +86,8 @@ end;
var var
canvas: TJSHTMLCanvasElement; canvas: TJSHTMLCanvasElement;
i: integer;
stride: integer;
offset: integer;
vertexShaderSource: string; vertexShaderSource: string;
fragmentShaderSource: string; fragmentShaderSource: string;
buffer: TJSWebGLBuffer;
begin begin
// make webgl context // make webgl context

13
demo/webgl/Pas2JS_WebGL_Terrain.pas
View File

@ -2,7 +2,7 @@ program Pas2JS_WebGL_Terrain;
uses uses
Terrain, Noise, Types, Mat4, GLUtils, GLTypes, Terrain, Noise, Types, Mat4, GLUtils, GLTypes,
SysUtils, SysUtils,
BrowserConsole, Web, WebGL, WebGL2, JS, Math; BrowserConsole, Web, WebGL, JS, Math;
var var
gl: TJSWebGLRenderingContext; gl: TJSWebGLRenderingContext;
@ -22,7 +22,7 @@ var
terrainNoise: TNoise; terrainNoise: TNoise;
terrainSize: integer = 64 * 3; terrainSize: integer = 64 * 3;
terrainResolution: integer = 128; terrainResolution: integer = 128;
flySpeed: single = 1.3; flySpeed: TJSFloat32 = 1.3;
visiblity: integer = 4; visiblity: integer = 4;
textureLoaded: boolean = false; textureLoaded: boolean = false;
@ -51,7 +51,6 @@ var
startIndex, endIndex: integer; startIndex, endIndex: integer;
i: integer; i: integer;
map: TTilingTerrain; map: TTilingTerrain;
neighbor: TTilingTerrain = nil;
begin begin
gl.clear(gl.COLOR_BUFFER_BIT + gl.DEPTH_BUFFER_BIT); gl.clear(gl.COLOR_BUFFER_BIT + gl.DEPTH_BUFFER_BIT);
@ -126,7 +125,7 @@ begin
gl.texParameteri(gl.TEXTURE_2D, gl.TEXTURE_WRAP_T, gl.CLAMP_TO_EDGE); gl.texParameteri(gl.TEXTURE_2D, gl.TEXTURE_WRAP_T, gl.CLAMP_TO_EDGE);
gl.texParameteri(gl.TEXTURE_2D, gl.TEXTURE_MIN_FILTER, gl.LINEAR); gl.texParameteri(gl.TEXTURE_2D, gl.TEXTURE_MIN_FILTER, gl.LINEAR);
gl.texParameteri(gl.TEXTURE_2D, gl.TEXTURE_MAG_FILTER, gl.LINEAR); gl.texParameteri(gl.TEXTURE_2D, gl.TEXTURE_MAG_FILTER, gl.LINEAR);
gl.texImage2D(gl.TEXTURE_2D, 0, gl.RGBA, gl.RGBA, gl.UNSIGNED_BYTE, TJSTexImageSource(event.target)); gl.texImage2D(gl.TEXTURE_2D, 0, gl.RGBA, gl.RGBA, gl.UNSIGNED_BYTE, TexImageSource(event.target));
textureLoaded := true; textureLoaded := true;
result := true; result := true;
@ -134,15 +133,9 @@ end;
var var
canvas: TJSHTMLCanvasElement; canvas: TJSHTMLCanvasElement;
i: integer;
stride: integer;
offset: integer;
vertexShaderSource: string; vertexShaderSource: string;
fragmentShaderSource: string; fragmentShaderSource: string;
buffer: TJSWebGLBuffer;
element: TJSElement;
img: TJSHTMLElement; img: TJSHTMLElement;
texture: TJSWebGLTexture;
begin begin
// add debug status // add debug status

6
demo/webgl/Terrain.pas
View File

@ -1,7 +1,7 @@
unit Terrain; unit Terrain;
interface interface
uses uses
Noise, Matrix, MemoryBuffer, Noise, Matrix,
GLTypes, GLUtils, GLTypes, GLUtils,
WebGL, JS, WebGL, JS,
Math; Math;
@ -12,7 +12,7 @@ type
constructor Create (context: TJSWebGLRenderingContext; size, resolution: integer); overload; constructor Create (context: TJSWebGLRenderingContext; size, resolution: integer); overload;
constructor Create (context: TJSWebGLRenderingContext; inNoise: TNoise; size, resolution: integer; offset: TVec2); overload; constructor Create (context: TJSWebGLRenderingContext; inNoise: TNoise; size, resolution: integer; offset: TVec2); overload;
function GetHeightAtPoint (x, y: integer): single; function GetHeightAtPoint (x, y: integer): TJSFloat32;
function GetWidth: integer; function GetWidth: integer;
function GetHeight: integer; function GetHeight: integer;
@ -52,7 +52,7 @@ begin
result := heights.GetHeight; result := heights.GetHeight;
end; end;
function TTerrain.GetHeightAtPoint (x, y: integer): single; function TTerrain.GetHeightAtPoint (x, y: integer): TJSFloat32;
begin begin
result := TNoiseFloat(heights.GetValue(x, y)); result := TNoiseFloat(heights.GetValue(x, y));
end; end;

5
demo/webgl/js/Pas2JS_WebGL.compiled
View File

@ -1,5 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<Compiler Value="/home/mattias/bin/pas2js" Date="1527534865"/>
<Params Value=" -Tbrowser -Pecmascript5 -MObjFPC -Sc -O1 -l -vewnhibq -Fi/home/mattias/pascal/pas2js_svn/demo/webgl/js -Fu/home/mattias/pascal/pas2js_svn/demo/webgl/ -FU/home/mattias/pascal/pas2js_svn/demo/webgl/js/ -FE/home/mattias/pascal/pas2js_svn/demo/webgl/ -o/home/mattias/pascal/pas2js_svn/demo/webgl/Pas2JS_WebGL.js -dPas2js -Jeutf-8 -Jirtl.js -Jc -Jminclude Pas2JS_WebGL.pas"/>
</CONFIG>

5
demo/webgl/js/Pas2JS_WebGL_Minimal.compiled
View File

@ -1,5 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<Compiler Value="/home/mattias/bin/pas2js" Date="1527534865"/>
<Params Value=" -Tbrowser -Pecmascript5 -MObjFPC -Sc -O1 -l -vewnhibq -Fi/home/mattias/pascal/pas2js_svn/demo/webgl/js -Fu/home/mattias/pascal/pas2js_svn/demo/webgl/ -FU/home/mattias/pascal/pas2js_svn/demo/webgl/js/ -FE/home/mattias/pascal/pas2js_svn/demo/webgl/ -o/home/mattias/pascal/pas2js_svn/demo/webgl/Pas2JS_WebGL_Minimal.js -dPas2js -Jeutf-8 -Jirtl.js -Jc -Jminclude Pas2JS_WebGL_Minimal.pas"/>
</CONFIG>

5
demo/webgl/js/Pas2JS_WebGL_Terrain.compiled
View File

@ -1,5 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<Compiler Value="/home/mattias/bin/pas2js" Date="1527534865"/>
<Params Value=" -Tbrowser -Pecmascript5 -MObjFPC -Sc -O1 -l -vewnhibq -Fi/home/mattias/pascal/pas2js_svn/demo/webgl/js -Fu/home/mattias/pascal/pas2js_svn/demo/webgl/ -FU/home/mattias/pascal/pas2js_svn/demo/webgl/js/ -FE/home/mattias/pascal/pas2js_svn/demo/webgl/ -o/home/mattias/pascal/pas2js_svn/demo/webgl/Pas2JS_WebGL_Terrain.js -dPas2js -Jeutf-8 -Jirtl.js -Jc -Jminclude Pas2JS_WebGL_Terrain.pas"/>
</CONFIG>

470
demo/webgl/webgl2.pas
View File

@ -1,470 +0,0 @@
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); overload;
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.