unit glext;
{
$Id: glext.pas,v 1.6 2007/05/20 20:28:31 savage Exp $
}
(**************************************************
* OpenGL extension loading library *
* Generated by MetaGLext, written by Tom Nuydens *
* (tom@delphi3d.net -- http://www.delphi3d.net *
**************************************************)
{
$Log: glext.pas,v $
Revision 1.6 2007/05/20 20:28:31 savage
Initial Changes to Handle 64 Bits
Revision 1.5 2006/01/11 22:39:02 drellis
Updated to Support Up to OpenGL 2.0
Revision 1.4 2005/01/05 00:28:40 savage
Forgot to wrap a couple of Load_WGL function calls with an IFDEF WIN32. Fixed so now compiles under Linux as well.
Revision 1.3 2004/08/24 19:33:06 savage
Removed declarations of SDL_GL_GetProcAddress as the correct ones are in sdl.pas.
Revision 1.2 2004/08/09 00:38:01 savage
Updated to Tom's latest version. May contains bugs, but I hope not.
Revision 1.1 2004/03/30 21:53:54 savage
Moved to it's own folder.
Revision 1.6 2004/03/28 00:28:43 savage
Fixed some glSecondaryColor definitions...
Revision 1.5 2004/02/20 17:18:16 savage
Forgot to prefix function pointer with @ for FPC and other Pascal compilers.
Revision 1.4 2004/02/20 17:09:55 savage
Code tidied up in gl, glu and glut, while extensions in glext.pas are now loaded using SDL_GL_GetProcAddress, thus making it more cross-platform compatible, but now more tied to SDL.
Revision 1.3 2004/02/14 22:36:29 savage
Fixed inconsistencies of using LoadLibrary and LoadModule.
Now all units make use of LoadModule rather than LoadLibrary and other dynamic proc procedures.
Revision 1.2 2004/02/14 00:09:19 savage
Changed uses to now make use of moduleloader.pas rather than dllfuncs.pas
Revision 1.1 2004/02/05 00:08:19 savage
Module 1.0 release
Revision 1.7 2003/06/02 12:32:13 savage
Modified Sources to avoid warnings with Delphi by moving CVS Logging to the top of the header files. Hopefully CVS Logging still works.
}
interface
{$I jedi-sdl.inc}
uses
SysUtils,
{$IFDEF __GPC__}
gpc,
{$ENDIF}
{$IFDEF WINDOWS}
Windows,
{$ENDIF}
moduleloader,
gl;
// Test if the given extension name is present in the given extension string.
function glext_ExtensionSupported(const extension: PChar; const searchIn: PChar): Boolean;
// Load a Specific Extension
function glext_LoadExtension(ext: String): Boolean;
// Some types that were introduced by extensions:
type
GLintptrARB = Integer;
PGLintptrARB = ^GLintptrARB;
GLsizeiptrARB = Integer;
PGLsizeiptrARB = ^GLsizeiptrARB;
GLcharARB = Char;
PGLcharARB = ^GLcharARB;
GLhandleARB = Cardinal;
PGLhandleARB = ^GLhandleARB;
GLintptr = Integer;
PGLintptr = ^GLintptr;
GLsizeiptr = Integer;
PGLsizeiptr = ^GLsizeiptr;
GLchar = Char;
PGLchar = ^GLchar;
//***** GL_version_1_2 *****//
const
GL_UNSIGNED_BYTE_3_3_2 = 32;
GL_UNSIGNED_SHORT_4_4_4_4 = 33;
GL_UNSIGNED_SHORT_5_5_5_1 = 34;
GL_UNSIGNED_INT_8_8_8_8 = 35;
GL_UNSIGNED_INT_10_10_10_2 = 36;
GL_RESCALE_NORMAL = 3A;
GL_UNSIGNED_BYTE_2_3_3_REV = 62;
GL_UNSIGNED_SHORT_5_6_5 = 63;
GL_UNSIGNED_SHORT_5_6_5_REV = 64;
GL_UNSIGNED_SHORT_4_4_4_4_REV = 65;
GL_UNSIGNED_SHORT_1_5_5_5_REV = 66;
GL_UNSIGNED_INT_8_8_8_8_REV = 67;
GL_UNSIGNED_INT_2_10_10_10_REV = 68;
GL_BGR = E0;
GL_BGRA = E1;
GL_MAX_ELEMENTS_VERTICES = E8;
GL_MAX_ELEMENTS_INDICES = E9;
GL_CLAMP_TO_EDGE = 2F;
GL_TEXTURE_MIN_LOD = 3A;
GL_TEXTURE_MAX_LOD = 3B;
GL_TEXTURE_BASE_LEVEL = 3C;
GL_TEXTURE_MAX_LEVEL = 3D;
GL_LIGHT_MODEL_COLOR_CONTROL = F8;
GL_SINGLE_COLOR = F9;
GL_SEPARATE_SPECULAR_COLOR = FA;
GL_SMOOTH_POINT_SIZE_RANGE = {viewgit}{/viewgit}B12;
GL_SMOOTH_POINT_SIZE_GRANULARITY = {viewgit}{/viewgit}B13;
GL_SMOOTH_LINE_WIDTH_RANGE = {viewgit}{/viewgit}B22;
GL_SMOOTH_LINE_WIDTH_GRANULARITY = {viewgit}{/viewgit}B23;
GL_ALIASED_POINT_SIZE_RANGE = 6D;
GL_ALIASED_LINE_WIDTH_RANGE = 6E;
GL_PACK_SKIP_IMAGES = 6B;
GL_PACK_IMAGE_HEIGHT = 6C;
GL_UNPACK_SKIP_IMAGES = 6D;
GL_UNPACK_IMAGE_HEIGHT = 6E;
GL_TEXTURE_3D = 6F;
GL_PROXY_TEXTURE_3D = 70;
GL_TEXTURE_DEPTH = 71;
GL_TEXTURE_WRAP_R = 72;
GL_MAX_3D_TEXTURE_SIZE = 73;
var
glDrawRangeElements: procedure(mode: GLenum; start: GLuint; _end: GLuint; count: GLsizei; _type: GLenum; const indices: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexImage3D: procedure(target: GLenum; level: GLint; internalformat: GLint; width: GLsizei; height: GLsizei; depth: GLsizei; border: GLint; format: GLenum; _type: GLenum; const pixels: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexSubImage3D: procedure(target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; zoffset: GLint; width: GLsizei; height: GLsizei; depth: GLsizei; format: GLenum; _type: GLenum; const pixels: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCopyTexSubImage3D: procedure(target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; zoffset: GLint; x: GLint; y: GLint; width: GLsizei; height: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_version_1_2: Boolean;
//***** GL_ARB_imaging *****//
const
GL_CONSTANT_COLOR = 01;
GL_ONE_MINUS_CONSTANT_COLOR = 02;
GL_CONSTANT_ALPHA = 03;
GL_ONE_MINUS_CONSTANT_ALPHA = 04;
GL_BLEND_COLOR = 05;
GL_FUNC_ADD = 06;
GL_MIN = 07;
GL_MAX = 08;
GL_BLEND_EQUATION = 09;
GL_FUNC_SUBTRACT = 0A;
GL_FUNC_REVERSE_SUBTRACT = 0B;
GL_CONVOLUTION_1D = 10;
GL_CONVOLUTION_2D = 11;
GL_SEPARABLE_2D = 12;
GL_CONVOLUTION_BORDER_MODE = 13;
GL_CONVOLUTION_FILTER_SCALE = 14;
GL_CONVOLUTION_FILTER_BIAS = 15;
GL_REDUCE = 16;
GL_CONVOLUTION_FORMAT = 17;
GL_CONVOLUTION_WIDTH = 18;
GL_CONVOLUTION_HEIGHT = 19;
GL_MAX_CONVOLUTION_WIDTH = 1A;
GL_MAX_CONVOLUTION_HEIGHT = 1B;
GL_POST_CONVOLUTION_RED_SCALE = 1C;
GL_POST_CONVOLUTION_GREEN_SCALE = 1D;
GL_POST_CONVOLUTION_BLUE_SCALE = 1E;
GL_POST_CONVOLUTION_ALPHA_SCALE = 1F;
GL_POST_CONVOLUTION_RED_BIAS = 20;
GL_POST_CONVOLUTION_GREEN_BIAS = 21;
GL_POST_CONVOLUTION_BLUE_BIAS = 22;
GL_POST_CONVOLUTION_ALPHA_BIAS = 23;
GL_HISTOGRAM = 24;
GL_PROXY_HISTOGRAM = 25;
GL_HISTOGRAM_WIDTH = 26;
GL_HISTOGRAM_FORMAT = 27;
GL_HISTOGRAM_RED_SIZE = 28;
GL_HISTOGRAM_GREEN_SIZE = 29;
GL_HISTOGRAM_BLUE_SIZE = 2A;
GL_HISTOGRAM_ALPHA_SIZE = 2B;
GL_HISTOGRAM_LUMINANCE_SIZE = 2C;
GL_HISTOGRAM_SINK = 2D;
GL_MINMAX = 2E;
GL_MINMAX_FORMAT = 2F;
GL_MINMAX_SINK = 30;
GL_TABLE_TOO_LARGE = 31;
GL_COLOR_MATRIX = B1;
GL_COLOR_MATRIX_STACK_DEPTH = B2;
GL_MAX_COLOR_MATRIX_STACK_DEPTH = B3;
GL_POST_COLOR_MATRIX_RED_SCALE = B4;
GL_POST_COLOR_MATRIX_GREEN_SCALE = B5;
GL_POST_COLOR_MATRIX_BLUE_SCALE = B6;
GL_POST_COLOR_MATRIX_ALPHA_SCALE = B7;
GL_POST_COLOR_MATRIX_RED_BIAS = B8;
GL_POST_COLOR_MATRIX_GREEN_BIAS = B9;
GL_POST_COLOR_MATRIX_BLUE_BIAS = BA;
GL_POST_COLOR_MATIX_ALPHA_BIAS = BB;
GL_COLOR_TABLE = D0;
GL_POST_CONVOLUTION_COLOR_TABLE = D1;
GL_POST_COLOR_MATRIX_COLOR_TABLE = D2;
GL_PROXY_COLOR_TABLE = D3;
GL_PROXY_POST_CONVOLUTION_COLOR_TABLE = D4;
GL_PROXY_POST_COLOR_MATRIX_COLOR_TABLE = D5;
GL_COLOR_TABLE_SCALE = D6;
GL_COLOR_TABLE_BIAS = D7;
GL_COLOR_TABLE_FORMAT = D8;
GL_COLOR_TABLE_WIDTH = D9;
GL_COLOR_TABLE_RED_SIZE = DA;
GL_COLOR_TABLE_GREEN_SIZE = DB;
GL_COLOR_TABLE_BLUE_SIZE = DC;
GL_COLOR_TABLE_ALPHA_SIZE = DD;
GL_COLOR_TABLE_LUMINANCE_SIZE = DE;
GL_COLOR_TABLE_INTENSITY_SIZE = DF;
GL_IGNORE_BORDER = 50;
GL_CONSTANT_BORDER = 51;
GL_WRAP_BORDER = 52;
GL_REPLICATE_BORDER = 53;
GL_CONVOLUTION_BORDER_COLOR = 54;
var
glColorTable: procedure(target: GLenum; internalformat: GLenum; width: GLsizei; format: GLenum; _type: GLenum; const table: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glColorTableParameterfv: procedure(target: GLenum; pname: GLenum; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glColorTableParameteriv: procedure(target: GLenum; pname: GLenum; const params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCopyColorTable: procedure(target: GLenum; internalformat: GLenum; x: GLint; y: GLint; width: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetColorTable: procedure(target: GLenum; format: GLenum; _type: GLenum; table: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetColorTableParameterfv: procedure(target: GLenum; pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetColorTableParameteriv: procedure(target: GLenum; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glColorSubTable: procedure(target: GLenum; start: GLsizei; count: GLsizei; format: GLenum; _type: GLenum; const data: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCopyColorSubTable: procedure(target: GLenum; start: GLsizei; x: GLint; y: GLint; width: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glConvolutionFilter1D: procedure(target: GLenum; internalformat: GLenum; width: GLsizei; format: GLenum; _type: GLenum; const image: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glConvolutionFilter2D: procedure(target: GLenum; internalformat: GLenum; width: GLsizei; height: GLsizei; format: GLenum; _type: GLenum; const image: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glConvolutionParameterf: procedure(target: GLenum; pname: GLenum; params: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glConvolutionParameterfv: procedure(target: GLenum; pname: GLenum; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glConvolutionParameteri: procedure(target: GLenum; pname: GLenum; params: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glConvolutionParameteriv: procedure(target: GLenum; pname: GLenum; const params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCopyConvolutionFilter1D: procedure(target: GLenum; internalformat: GLenum; x: GLint; y: GLint; width: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCopyConvolutionFilter2D: procedure(target: GLenum; internalformat: GLenum; x: GLint; y: GLint; width: GLsizei; height: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetConvolutionFilter: procedure(target: GLenum; format: GLenum; _type: GLenum; image: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetConvolutionParameterfv: procedure(target: GLenum; pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetConvolutionParameteriv: procedure(target: GLenum; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetSeparableFilter: procedure(target: GLenum; format: GLenum; _type: GLenum; row: PGLvoid; column: PGLvoid; span: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSeparableFilter2D: procedure(target: GLenum; internalformat: GLenum; width: GLsizei; height: GLsizei; format: GLenum; _type: GLenum; const row: PGLvoid; const column: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetHistogram: procedure(target: GLenum; reset: GLboolean; format: GLenum; _type: GLenum; values: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetHistogramParameterfv: procedure(target: GLenum; pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetHistogramParameteriv: procedure(target: GLenum; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetMinmax: procedure(target: GLenum; reset: GLboolean; format: GLenum; _type: GLenum; values: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetMinmaxParameterfv: procedure(target: GLenum; pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetMinmaxParameteriv: procedure(target: GLenum; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glHistogram: procedure(target: GLenum; width: GLsizei; internalformat: GLenum; sink: GLboolean); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMinmax: procedure(target: GLenum; internalformat: GLenum; sink: GLboolean); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glResetHistogram: procedure(target: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glResetMinmax: procedure(target: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glBlendEquation: procedure(mode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glBlendColor: procedure(red: GLclampf; green: GLclampf; blue: GLclampf; alpha: GLclampf); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_ARB_imaging: Boolean;
//***** GL_version_1_3 *****//
const
GL_TEXTURE0 = C0;
GL_TEXTURE1 = C1;
GL_TEXTURE2 = C2;
GL_TEXTURE3 = C3;
GL_TEXTURE4 = C4;
GL_TEXTURE5 = C5;
GL_TEXTURE6 = C6;
GL_TEXTURE7 = C7;
GL_TEXTURE8 = C8;
GL_TEXTURE9 = C9;
GL_TEXTURE10 = CA;
GL_TEXTURE11 = CB;
GL_TEXTURE12 = CC;
GL_TEXTURE13 = CD;
GL_TEXTURE14 = CE;
GL_TEXTURE15 = CF;
GL_TEXTURE16 = D0;
GL_TEXTURE17 = D1;
GL_TEXTURE18 = D2;
GL_TEXTURE19 = D3;
GL_TEXTURE20 = D4;
GL_TEXTURE21 = D5;
GL_TEXTURE22 = D6;
GL_TEXTURE23 = D7;
GL_TEXTURE24 = D8;
GL_TEXTURE25 = D9;
GL_TEXTURE26 = DA;
GL_TEXTURE27 = DB;
GL_TEXTURE28 = DC;
GL_TEXTURE29 = DD;
GL_TEXTURE30 = DE;
GL_TEXTURE31 = DF;
GL_ACTIVE_TEXTURE = E0;
GL_CLIENT_ACTIVE_TEXTURE = E1;
GL_MAX_TEXTURE_UNITS = E2;
GL_TRANSPOSE_MODELVIEW_MATRIX = E3;
GL_TRANSPOSE_PROJECTION_MATRIX = E4;
GL_TRANSPOSE_TEXTURE_MATRIX = E5;
GL_TRANSPOSE_COLOR_MATRIX = E6;
GL_MULTISAMPLE = 9D;
GL_SAMPLE_ALPHA_TO_COVERAGE = 9E;
GL_SAMPLE_ALPHA_TO_ONE = 9F;
GL_SAMPLE_COVERAGE = A0;
GL_SAMPLE_BUFFERS = A8;
GL_SAMPLES = A9;
GL_SAMPLE_COVERAGE_VALUE = AA;
GL_SAMPLE_COVERAGE_INVERT = AB;
GL_MULTISAMPLE_BIT = 000000;
GL_NORMAL_MAP = 11;
GL_REFLECTION_MAP = 12;
GL_TEXTURE_CUBE_MAP = 13;
GL_TEXTURE_BINDING_CUBE_MAP = 14;
GL_TEXTURE_CUBE_MAP_POSITIVE_X = 15;
GL_TEXTURE_CUBE_MAP_NEGATIVE_X = 16;
GL_TEXTURE_CUBE_MAP_POSITIVE_Y = 17;
GL_TEXTURE_CUBE_MAP_NEGATIVE_Y = 18;
GL_TEXTURE_CUBE_MAP_POSITIVE_Z = 19;
GL_TEXTURE_CUBE_MAP_NEGATIVE_Z = 1A;
GL_PROXY_TEXTURE_CUBE_MAP = 1B;
GL_MAX_CUBE_MAP_TEXTURE_SIZE = 1C;
GL_COMPRESSED_ALPHA = E9;
GL_COMPRESSED_LUMINANCE = EA;
GL_COMPRESSED_LUMINANCE_ALPHA = EB;
GL_COMPRESSED_INTENSITY = EC;
GL_COMPRESSED_RGB = ED;
GL_COMPRESSED_RGBA = EE;
GL_TEXTURE_COMPRESSION_HINT = EF;
GL_TEXTURE_COMPRESSED_IMAGE_SIZE = A0;
GL_TEXTURE_COMPRESSED = A1;
GL_NUM_COMPRESSED_TEXTURE_FORMATS = A2;
GL_COMPRESSED_TEXTURE_FORMATS = A3;
GL_CLAMP_TO_BORDER = 2D;
GL_CLAMP_TO_BORDER_SGIS = 2D;
GL_COMBINE = 70;
GL_COMBINE_RGB = 71;
GL_COMBINE_ALPHA = 72;
GL_SOURCE0_RGB = 80;
GL_SOURCE1_RGB = 81;
GL_SOURCE2_RGB = 82;
GL_SOURCE0_ALPHA = 88;
GL_SOURCE1_ALPHA = 89;
GL_SOURCE2_ALPHA = 8A;
GL_OPERAND0_RGB = 90;
GL_OPERAND1_RGB = 91;
GL_OPERAND2_RGB = 92;
GL_OPERAND0_ALPHA = 98;
GL_OPERAND1_ALPHA = 99;
GL_OPERAND2_ALPHA = 9A;
GL_RGB_SCALE = 73;
GL_ADD_SIGNED = 74;
GL_INTERPOLATE = 75;
GL_SUBTRACT = E7;
GL_CONSTANT = 76;
GL_PRIMARY_COLOR = 77;
GL_PREVIOUS = 78;
GL_DOT3_RGB = AE;
GL_DOT3_RGBA = AF;
var
glActiveTexture: procedure(texture: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glClientActiveTexture: procedure(texture: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord1d: procedure(target: GLenum; s: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord1dv: procedure(target: GLenum; const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord1f: procedure(target: GLenum; s: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord1fv: procedure(target: GLenum; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord1i: procedure(target: GLenum; s: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord1iv: procedure(target: GLenum; const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord1s: procedure(target: GLenum; s: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord1sv: procedure(target: GLenum; const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord2d: procedure(target: GLenum; s: GLdouble; t: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord2dv: procedure(target: GLenum; const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord2f: procedure(target: GLenum; s: GLfloat; t: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord2fv: procedure(target: GLenum; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord2i: procedure(target: GLenum; s: GLint; t: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord2iv: procedure(target: GLenum; const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord2s: procedure(target: GLenum; s: GLshort; t: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord2sv: procedure(target: GLenum; const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord3d: procedure(target: GLenum; s: GLdouble; t: GLdouble; r: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord3dv: procedure(target: GLenum; const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord3f: procedure(target: GLenum; s: GLfloat; t: GLfloat; r: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord3fv: procedure(target: GLenum; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord3i: procedure(target: GLenum; s: GLint; t: GLint; r: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord3iv: procedure(target: GLenum; const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord3s: procedure(target: GLenum; s: GLshort; t: GLshort; r: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord3sv: procedure(target: GLenum; const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord4d: procedure(target: GLenum; s: GLdouble; t: GLdouble; r: GLdouble; q: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord4dv: procedure(target: GLenum; const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord4f: procedure(target: GLenum; s: GLfloat; t: GLfloat; r: GLfloat; q: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord4fv: procedure(target: GLenum; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord4i: procedure(target: GLenum; s: GLint; t: GLint; r: GLint; q: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord4iv: procedure(target: GLenum; const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord4s: procedure(target: GLenum; s: GLshort; t: GLshort; r: GLshort; q: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord4sv: procedure(target: GLenum; const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glLoadTransposeMatrixf: procedure(const m: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glLoadTransposeMatrixd: procedure(const m: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultTransposeMatrixf: procedure(const m: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultTransposeMatrixd: procedure(const m: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSampleCoverage: procedure(value: GLclampf; invert: GLboolean); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCompressedTexImage3D: procedure(target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; height: GLsizei; depth: GLsizei; border: GLint; imageSize: GLsizei; const data: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCompressedTexImage2D: procedure(target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; height: GLsizei; border: GLint; imageSize: GLsizei; const data: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCompressedTexImage1D: procedure(target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; border: GLint; imageSize: GLsizei; const data: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCompressedTexSubImage3D: procedure(target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; zoffset: GLint; width: GLsizei; height: GLsizei; depth: GLsizei; format: GLenum; imageSize: GLsizei; const data: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCompressedTexSubImage2D: procedure(target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; width: GLsizei; height: GLsizei; format: GLenum; imageSize: GLsizei; const data: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCompressedTexSubImage1D: procedure(target: GLenum; level: GLint; xoffset: GLint; width: GLsizei; format: GLenum; imageSize: GLsizei; const data: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetCompressedTexImage: procedure(target: GLenum; level: GLint; img: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_version_1_3: Boolean;
//***** GL_ARB_multitexture *****//
const
GL_TEXTURE0_ARB = C0;
GL_TEXTURE1_ARB = C1;
GL_TEXTURE2_ARB = C2;
GL_TEXTURE3_ARB = C3;
GL_TEXTURE4_ARB = C4;
GL_TEXTURE5_ARB = C5;
GL_TEXTURE6_ARB = C6;
GL_TEXTURE7_ARB = C7;
GL_TEXTURE8_ARB = C8;
GL_TEXTURE9_ARB = C9;
GL_TEXTURE10_ARB = CA;
GL_TEXTURE11_ARB = CB;
GL_TEXTURE12_ARB = CC;
GL_TEXTURE13_ARB = CD;
GL_TEXTURE14_ARB = CE;
GL_TEXTURE15_ARB = CF;
GL_TEXTURE16_ARB = D0;
GL_TEXTURE17_ARB = D1;
GL_TEXTURE18_ARB = D2;
GL_TEXTURE19_ARB = D3;
GL_TEXTURE20_ARB = D4;
GL_TEXTURE21_ARB = D5;
GL_TEXTURE22_ARB = D6;
GL_TEXTURE23_ARB = D7;
GL_TEXTURE24_ARB = D8;
GL_TEXTURE25_ARB = D9;
GL_TEXTURE26_ARB = DA;
GL_TEXTURE27_ARB = DB;
GL_TEXTURE28_ARB = DC;
GL_TEXTURE29_ARB = DD;
GL_TEXTURE30_ARB = DE;
GL_TEXTURE31_ARB = DF;
GL_ACTIVE_TEXTURE_ARB = E0;
GL_CLIENT_ACTIVE_TEXTURE_ARB = E1;
GL_MAX_TEXTURE_UNITS_ARB = E2;
var
glActiveTextureARB: procedure(texture: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glClientActiveTextureARB: procedure(texture: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord1dARB: procedure(target: GLenum; s: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord1dvARB: procedure(target: GLenum; const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord1fARB: procedure(target: GLenum; s: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord1fvARB: procedure(target: GLenum; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord1iARB: procedure(target: GLenum; s: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord1ivARB: procedure(target: GLenum; const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord1sARB: procedure(target: GLenum; s: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord1svARB: procedure(target: GLenum; const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord2dARB: procedure(target: GLenum; s: GLdouble; t: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord2dvARB: procedure(target: GLenum; const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord2fARB: procedure(target: GLenum; s: GLfloat; t: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord2fvARB: procedure(target: GLenum; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord2iARB: procedure(target: GLenum; s: GLint; t: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord2ivARB: procedure(target: GLenum; const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord2sARB: procedure(target: GLenum; s: GLshort; t: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord2svARB: procedure(target: GLenum; const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord3dARB: procedure(target: GLenum; s: GLdouble; t: GLdouble; r: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord3dvARB: procedure(target: GLenum; const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord3fARB: procedure(target: GLenum; s: GLfloat; t: GLfloat; r: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord3fvARB: procedure(target: GLenum; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord3iARB: procedure(target: GLenum; s: GLint; t: GLint; r: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord3ivARB: procedure(target: GLenum; const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord3sARB: procedure(target: GLenum; s: GLshort; t: GLshort; r: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord3svARB: procedure(target: GLenum; const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord4dARB: procedure(target: GLenum; s: GLdouble; t: GLdouble; r: GLdouble; q: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord4dvARB: procedure(target: GLenum; const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord4fARB: procedure(target: GLenum; s: GLfloat; t: GLfloat; r: GLfloat; q: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord4fvARB: procedure(target: GLenum; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord4iARB: procedure(target: GLenum; s: GLint; t: GLint; r: GLint; q: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord4ivARB: procedure(target: GLenum; const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord4sARB: procedure(target: GLenum; s: GLshort; t: GLshort; r: GLshort; q: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord4svARB: procedure(target: GLenum; const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_ARB_multitexture: Boolean;
//***** GL_ARB_transpose_matrix *****//
const
GL_TRANSPOSE_MODELVIEW_MATRIX_ARB = E3;
GL_TRANSPOSE_PROJECTION_MATRIX_ARB = E4;
GL_TRANSPOSE_TEXTURE_MATRIX_ARB = E5;
GL_TRANSPOSE_COLOR_MATRIX_ARB = E6;
var
glLoadTransposeMatrixfARB: procedure(m: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glLoadTransposeMatrixdARB: procedure(m: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultTransposeMatrixfARB: procedure(m: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultTransposeMatrixdARB: procedure(m: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_ARB_transpose_matrix: Boolean;
//***** GL_ARB_multisample *****//
const
WGL_SAMPLE_BUFFERS_ARB = 41;
WGL_SAMPLES_ARB = 42;
GL_MULTISAMPLE_ARB = 9D;
GL_SAMPLE_ALPHA_TO_COVERAGE_ARB = 9E;
GL_SAMPLE_ALPHA_TO_ONE_ARB = 9F;
GL_SAMPLE_COVERAGE_ARB = A0;
GL_MULTISAMPLE_BIT_ARB = 000000;
GL_SAMPLE_BUFFERS_ARB = A8;
GL_SAMPLES_ARB = A9;
GL_SAMPLE_COVERAGE_VALUE_ARB = AA;
GL_SAMPLE_COVERAGE_INVERT_ARB = AB;
var
glSampleCoverageARB: procedure(value: GLclampf; invert: GLboolean); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_ARB_multisample: Boolean;
//***** GL_ARB_texture_env_add *****//
function Load_GL_ARB_texture_env_add: Boolean;
{$IFDEF WINDOWS}
//***** WGL_ARB_extensions_string *****//
var
wglGetExtensionsStringARB: function(hdc: HDC): Pchar; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_WGL_ARB_extensions_string: Boolean;
//***** WGL_ARB_buffer_region *****//
const
WGL_FRONT_COLOR_BUFFER_BIT_ARB = {viewgit}{/viewgit}01;
WGL_BACK_COLOR_BUFFER_BIT_ARB = {viewgit}{/viewgit}02;
WGL_DEPTH_BUFFER_BIT_ARB = {viewgit}{/viewgit}04;
WGL_STENCIL_BUFFER_BIT_ARB = {viewgit}{/viewgit}08;
var
wglCreateBufferRegionARB: function(hDC: HDC; iLayerPlane: GLint; uType: GLuint): THandle; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglDeleteBufferRegionARB: procedure(hRegion: THandle); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglSaveBufferRegionARB: function(hRegion: THandle; x: GLint; y: GLint; width: GLint; height: GLint): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglRestoreBufferRegionARB: function(hRegion: THandle; x: GLint; y: GLint; width: GLint; height: GLint; xSrc: GLint; ySrc: GLint): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_WGL_ARB_buffer_region: Boolean;
{$ENDIF}
//***** GL_ARB_texture_cube_map *****//
const
GL_NORMAL_MAP_ARB = 11;
GL_REFLECTION_MAP_ARB = 12;
GL_TEXTURE_CUBE_MAP_ARB = 13;
GL_TEXTURE_BINDING_CUBE_MAP_ARB = 14;
GL_TEXTURE_CUBE_MAP_POSITIVE_X_ARB = 15;
GL_TEXTURE_CUBE_MAP_NEGATIVE_X_ARB = 16;
GL_TEXTURE_CUBE_MAP_POSITIVE_Y_ARB = 17;
GL_TEXTURE_CUBE_MAP_NEGATIVE_Y_ARB = 18;
GL_TEXTURE_CUBE_MAP_POSITIVE_Z_ARB = 19;
GL_TEXTURE_CUBE_MAP_NEGATIVE_Z_ARB = 1A;
GL_PROXY_TEXTURE_CUBE_MAP_ARB = 1B;
GL_MAX_CUBE_MAP_TEXTURE_SIZE_ARB = 1C;
function Load_GL_ARB_texture_cube_map: Boolean;
//***** GL_ARB_depth_texture *****//
const
GL_DEPTH_COMPONENT16_ARB = A5;
GL_DEPTH_COMPONENT24_ARB = A6;
GL_DEPTH_COMPONENT32_ARB = A7;
GL_TEXTURE_DEPTH_SIZE_ARB = 4A;
GL_DEPTH_TEXTURE_MODE_ARB = 4B;
function Load_GL_ARB_depth_texture: Boolean;
//***** GL_ARB_point_parameters *****//
const
GL_POINT_SIZE_MIN_ARB = 26;
GL_POINT_SIZE_MAX_ARB = 27;
GL_POINT_FADE_THRESHOLD_SIZE_ARB = 28;
GL_POINT_DISTANCE_ATTENUATION_ARB = 29;
var
glPointParameterfARB: procedure(pname: GLenum; param: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glPointParameterfvARB: procedure(pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_ARB_point_parameters: Boolean;
//***** GL_ARB_shadow *****//
const
GL_TEXTURE_COMPARE_MODE_ARB = 4C;
GL_TEXTURE_COMPARE_FUNC_ARB = 4D;
GL_COMPARE_R_TO_TEXTURE_ARB = 4E;
function Load_GL_ARB_shadow: Boolean;
//***** GL_ARB_shadow_ambient *****//
const
GL_TEXTURE_COMPARE_FAIL_VALUE_ARB = BF;
function Load_GL_ARB_shadow_ambient: Boolean;
//***** GL_ARB_texture_border_clamp *****//
const
GL_CLAMP_TO_BORDER_ARB = 2D;
function Load_GL_ARB_texture_border_clamp: Boolean;
//***** GL_ARB_texture_compression *****//
const
GL_COMPRESSED_ALPHA_ARB = E9;
GL_COMPRESSED_LUMINANCE_ARB = EA;
GL_COMPRESSED_LUMINANCE_ALPHA_ARB = EB;
GL_COMPRESSED_INTENSITY_ARB = EC;
GL_COMPRESSED_RGB_ARB = ED;
GL_COMPRESSED_RGBA_ARB = EE;
GL_TEXTURE_COMPRESSION_HINT_ARB = EF;
GL_TEXTURE_COMPRESSED_IMAGE_SIZE_ARB = A0;
GL_TEXTURE_COMPRESSED_ARB = A1;
GL_NUM_COMPRESSED_TEXTURE_FORMATS_ARB = A2;
GL_COMPRESSED_TEXTURE_FORMATS_ARB = A3;
var
glCompressedTexImage3DARB: procedure(target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; height: GLsizei; depth: GLsizei; border: GLint; imageSize: GLsizei; const data: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCompressedTexImage2DARB: procedure(target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; height: GLsizei; border: GLint; imageSize: GLsizei; const data: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCompressedTexImage1DARB: procedure(target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; border: GLint; imageSize: GLsizei; const data: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCompressedTexSubImage3DARB: procedure(target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; zoffset: GLint; width: GLsizei; height: GLsizei; depth: GLsizei; format: GLenum; imageSize: GLsizei; const data: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCompressedTexSubImage2DARB: procedure(target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; width: GLsizei; height: GLsizei; format: GLenum; imageSize: GLsizei; const data: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCompressedTexSubImage1DARB: procedure(target: GLenum; level: GLint; xoffset: GLint; width: GLsizei; format: GLenum; imageSize: GLsizei; const data: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetCompressedTexImageARB: procedure(target: GLenum; lod: GLint; img: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_ARB_texture_compression: Boolean;
//***** GL_ARB_texture_env_combine *****//
const
GL_COMBINE_ARB = 70;
GL_COMBINE_RGB_ARB = 71;
GL_COMBINE_ALPHA_ARB = 72;
GL_SOURCE0_RGB_ARB = 80;
GL_SOURCE1_RGB_ARB = 81;
GL_SOURCE2_RGB_ARB = 82;
GL_SOURCE0_ALPHA_ARB = 88;
GL_SOURCE1_ALPHA_ARB = 89;
GL_SOURCE2_ALPHA_ARB = 8A;
GL_OPERAND0_RGB_ARB = 90;
GL_OPERAND1_RGB_ARB = 91;
GL_OPERAND2_RGB_ARB = 92;
GL_OPERAND0_ALPHA_ARB = 98;
GL_OPERAND1_ALPHA_ARB = 99;
GL_OPERAND2_ALPHA_ARB = 9A;
GL_RGB_SCALE_ARB = 73;
GL_ADD_SIGNED_ARB = 74;
GL_INTERPOLATE_ARB = 75;
GL_SUBTRACT_ARB = E7;
GL_CONSTANT_ARB = 76;
GL_PRIMARY_COLOR_ARB = 77;
GL_PREVIOUS_ARB = 78;
function Load_GL_ARB_texture_env_combine: Boolean;
//***** GL_ARB_texture_env_crossbar *****//
function Load_GL_ARB_texture_env_crossbar: Boolean;
//***** GL_ARB_texture_env_dot3 *****//
const
GL_DOT3_RGB_ARB = AE;
GL_DOT3_RGBA_ARB = AF;
function Load_GL_ARB_texture_env_dot3: Boolean;
//***** GL_ARB_texture_mirrored_repeat *****//
const
GL_MIRRORED_REPEAT_ARB = 70;
function Load_GL_ARB_texture_mirrored_repeat: Boolean;
//***** GL_ARB_vertex_blend *****//
const
GL_MAX_VERTEX_UNITS_ARB = A4;
GL_ACTIVE_VERTEX_UNITS_ARB = A5;
GL_WEIGHT_SUM_UNITY_ARB = A6;
GL_VERTEX_BLEND_ARB = A7;
GL_MODELVIEW0_ARB = 00;
GL_MODELVIEW1_ARB = 0A;
GL_MODELVIEW2_ARB = 22;
GL_MODELVIEW3_ARB = 23;
GL_MODELVIEW4_ARB = 24;
GL_MODELVIEW5_ARB = 25;
GL_MODELVIEW6_ARB = 26;
GL_MODELVIEW7_ARB = 27;
GL_MODELVIEW8_ARB = 28;
GL_MODELVIEW9_ARB = 29;
GL_MODELVIEW10_ARB = 2A;
GL_MODELVIEW11_ARB = 2B;
GL_MODELVIEW12_ARB = 2C;
GL_MODELVIEW13_ARB = 2D;
GL_MODELVIEW14_ARB = 2E;
GL_MODELVIEW15_ARB = 2F;
GL_MODELVIEW16_ARB = 30;
GL_MODELVIEW17_ARB = 31;
GL_MODELVIEW18_ARB = 32;
GL_MODELVIEW19_ARB = 33;
GL_MODELVIEW20_ARB = 34;
GL_MODELVIEW21_ARB = 35;
GL_MODELVIEW22_ARB = 36;
GL_MODELVIEW23_ARB = 37;
GL_MODELVIEW24_ARB = 38;
GL_MODELVIEW25_ARB = 39;
GL_MODELVIEW26_ARB = 3A;
GL_MODELVIEW27_ARB = 3B;
GL_MODELVIEW28_ARB = 3C;
GL_MODELVIEW29_ARB = 3D;
GL_MODELVIEW30_ARB = 3E;
GL_MODELVIEW31_ARB = 3F;
GL_CURRENT_WEIGHT_ARB = A8;
GL_WEIGHT_ARRAY_TYPE_ARB = A9;
GL_WEIGHT_ARRAY_STRIDE_ARB = AA;
GL_WEIGHT_ARRAY_SIZE_ARB = AB;
GL_WEIGHT_ARRAY_POINTER_ARB = AC;
GL_WEIGHT_ARRAY_ARB = AD;
var
glWeightbvARB: procedure(size: GLint; weights: PGLbyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWeightsvARB: procedure(size: GLint; weights: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWeightivARB: procedure(size: GLint; weights: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWeightfvARB: procedure(size: GLint; weights: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWeightdvARB: procedure(size: GLint; weights: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWeightvARB: procedure(size: GLint; weights: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWeightubvARB: procedure(size: GLint; weights: PGLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWeightusvARB: procedure(size: GLint; weights: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWeightuivARB: procedure(size: GLint; weights: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWeightPointerARB: procedure(size: GLint; _type: GLenum; stride: GLsizei; pointer: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexBlendARB: procedure(count: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_ARB_vertex_blend: Boolean;
//***** GL_ARB_vertex_program *****//
const
GL_VERTEX_PROGRAM_ARB = 20;
GL_VERTEX_PROGRAM_POINT_SIZE_ARB = 42;
GL_VERTEX_PROGRAM_TWO_SIDE_ARB = 43;
GL_COLOR_SUM_ARB = 58;
GL_PROGRAM_FORMAT_ASCII_ARB = 75;
GL_VERTEX_ATTRIB_ARRAY_ENABLED_ARB = 22;
GL_VERTEX_ATTRIB_ARRAY_SIZE_ARB = 23;
GL_VERTEX_ATTRIB_ARRAY_STRIDE_ARB = 24;
GL_VERTEX_ATTRIB_ARRAY_TYPE_ARB = 25;
GL_VERTEX_ATTRIB_ARRAY_NORMALIZED_ARB = 6A;
GL_CURRENT_VERTEX_ATTRIB_ARB = 26;
GL_VERTEX_ATTRIB_ARRAY_POINTER_ARB = 45;
GL_PROGRAM_LENGTH_ARB = 27;
GL_PROGRAM_FORMAT_ARB = 76;
GL_PROGRAM_BINDING_ARB = 77;
GL_PROGRAM_INSTRUCTIONS_ARB = A0;
GL_MAX_PROGRAM_INSTRUCTIONS_ARB = A1;
GL_PROGRAM_NATIVE_INSTRUCTIONS_ARB = A2;
GL_MAX_PROGRAM_NATIVE_INSTRUCTIONS_ARB = A3;
GL_PROGRAM_TEMPORARIES_ARB = A4;
GL_MAX_PROGRAM_TEMPORARIES_ARB = A5;
GL_PROGRAM_NATIVE_TEMPORARIES_ARB = A6;
GL_MAX_PROGRAM_NATIVE_TEMPORARIES_ARB = A7;
GL_PROGRAM_PARAMETERS_ARB = A8;
GL_MAX_PROGRAM_PARAMETERS_ARB = A9;
GL_PROGRAM_NATIVE_PARAMETERS_ARB = AA;
GL_MAX_PROGRAM_NATIVE_PARAMETERS_ARB = AB;
GL_PROGRAM_ATTRIBS_ARB = AC;
GL_MAX_PROGRAM_ATTRIBS_ARB = AD;
GL_PROGRAM_NATIVE_ATTRIBS_ARB = AE;
GL_MAX_PROGRAM_NATIVE_ATTRIBS_ARB = AF;
GL_PROGRAM_ADDRESS_REGISTERS_ARB = B0;
GL_MAX_PROGRAM_ADDRESS_REGISTERS_ARB = B1;
GL_PROGRAM_NATIVE_ADDRESS_REGISTERS_ARB = B2;
GL_MAX_PROGRAM_NATIVE_ADDRESS_REGISTERS_ARB = B3;
GL_MAX_PROGRAM_LOCAL_PARAMETERS_ARB = B4;
GL_MAX_PROGRAM_ENV_PARAMETERS_ARB = B5;
GL_PROGRAM_UNDER_NATIVE_LIMITS_ARB = B6;
GL_PROGRAM_STRING_ARB = 28;
GL_PROGRAM_ERROR_POSITION_ARB = 4B;
GL_CURRENT_MATRIX_ARB = 41;
GL_TRANSPOSE_CURRENT_MATRIX_ARB = B7;
GL_CURRENT_MATRIX_STACK_DEPTH_ARB = 40;
GL_MAX_VERTEX_ATTRIBS_ARB = 69;
GL_MAX_PROGRAM_MATRICES_ARB = 2F;
GL_MAX_PROGRAM_MATRIX_STACK_DEPTH_ARB = 2E;
GL_PROGRAM_ERROR_STRING_ARB = 74;
GL_MATRIX0_ARB = C0;
GL_MATRIX1_ARB = C1;
GL_MATRIX2_ARB = C2;
GL_MATRIX3_ARB = C3;
GL_MATRIX4_ARB = C4;
GL_MATRIX5_ARB = C5;
GL_MATRIX6_ARB = C6;
GL_MATRIX7_ARB = C7;
GL_MATRIX8_ARB = C8;
GL_MATRIX9_ARB = C9;
GL_MATRIX10_ARB = CA;
GL_MATRIX11_ARB = CB;
GL_MATRIX12_ARB = CC;
GL_MATRIX13_ARB = CD;
GL_MATRIX14_ARB = CE;
GL_MATRIX15_ARB = CF;
GL_MATRIX16_ARB = D0;
GL_MATRIX17_ARB = D1;
GL_MATRIX18_ARB = D2;
GL_MATRIX19_ARB = D3;
GL_MATRIX20_ARB = D4;
GL_MATRIX21_ARB = D5;
GL_MATRIX22_ARB = D6;
GL_MATRIX23_ARB = D7;
GL_MATRIX24_ARB = D8;
GL_MATRIX25_ARB = D9;
GL_MATRIX26_ARB = DA;
GL_MATRIX27_ARB = DB;
GL_MATRIX28_ARB = DC;
GL_MATRIX29_ARB = DD;
GL_MATRIX30_ARB = DE;
GL_MATRIX31_ARB = DF;
var
glVertexAttrib1sARB: procedure(index: GLuint; x: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib1fARB: procedure(index: GLuint; x: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib1dARB: procedure(index: GLuint; x: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib2sARB: procedure(index: GLuint; x: GLshort; y: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib2fARB: procedure(index: GLuint; x: GLfloat; y: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib2dARB: procedure(index: GLuint; x: GLdouble; y: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib3sARB: procedure(index: GLuint; x: GLshort; y: GLshort; z: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib3fARB: procedure(index: GLuint; x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib3dARB: procedure(index: GLuint; x: GLdouble; y: GLdouble; z: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4sARB: procedure(index: GLuint; x: GLshort; y: GLshort; z: GLshort; w: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4fARB: procedure(index: GLuint; x: GLfloat; y: GLfloat; z: GLfloat; w: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4dARB: procedure(index: GLuint; x: GLdouble; y: GLdouble; z: GLdouble; w: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4NubARB: procedure(index: GLuint; x: GLubyte; y: GLubyte; z: GLubyte; w: GLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib1svARB: procedure(index: GLuint; const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib1fvARB: procedure(index: GLuint; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib1dvARB: procedure(index: GLuint; const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib2svARB: procedure(index: GLuint; const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib2fvARB: procedure(index: GLuint; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib2dvARB: procedure(index: GLuint; const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib3svARB: procedure(index: GLuint; const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib3fvARB: procedure(index: GLuint; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib3dvARB: procedure(index: GLuint; const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4bvARB: procedure(index: GLuint; const v: PGLbyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4svARB: procedure(index: GLuint; const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4ivARB: procedure(index: GLuint; const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4ubvARB: procedure(index: GLuint; const v: PGLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4usvARB: procedure(index: GLuint; const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4uivARB: procedure(index: GLuint; const v: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4fvARB: procedure(index: GLuint; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4dvARB: procedure(index: GLuint; const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4NbvARB: procedure(index: GLuint; const v: PGLbyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4NsvARB: procedure(index: GLuint; const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4NivARB: procedure(index: GLuint; const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4NubvARB: procedure(index: GLuint; const v: PGLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4NusvARB: procedure(index: GLuint; const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4NuivARB: procedure(index: GLuint; const v: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttribPointerARB: procedure(index: GLuint; size: GLint; _type: GLenum; normalized: GLboolean; stride: GLsizei; const pointer: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glEnableVertexAttribArrayARB: procedure(index: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDisableVertexAttribArrayARB: procedure(index: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glProgramStringARB: procedure(target: GLenum; format: GLenum; len: GLsizei; const _string: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glBindProgramARB: procedure(target: GLenum; _program: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDeleteProgramsARB: procedure(n: GLsizei; const programs: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGenProgramsARB: procedure(n: GLsizei; programs: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glProgramEnvParameter4dARB: procedure(target: GLenum; index: GLuint; x: GLdouble; y: GLdouble; z: GLdouble; w: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glProgramEnvParameter4dvARB: procedure(target: GLenum; index: GLuint; const params: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glProgramEnvParameter4fARB: procedure(target: GLenum; index: GLuint; x: GLfloat; y: GLfloat; z: GLfloat; w: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glProgramEnvParameter4fvARB: procedure(target: GLenum; index: GLuint; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glProgramLocalParameter4dARB: procedure(target: GLenum; index: GLuint; x: GLdouble; y: GLdouble; z: GLdouble; w: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glProgramLocalParameter4dvARB: procedure(target: GLenum; index: GLuint; const params: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glProgramLocalParameter4fARB: procedure(target: GLenum; index: GLuint; x: GLfloat; y: GLfloat; z: GLfloat; w: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glProgramLocalParameter4fvARB: procedure(target: GLenum; index: GLuint; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetProgramEnvParameterdvARB: procedure(target: GLenum; index: GLuint; params: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetProgramEnvParameterfvARB: procedure(target: GLenum; index: GLuint; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetProgramLocalParameterdvARB: procedure(target: GLenum; index: GLuint; params: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetProgramLocalParameterfvARB: procedure(target: GLenum; index: GLuint; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetProgramivARB: procedure(target: GLenum; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetProgramStringARB: procedure(target: GLenum; pname: GLenum; _string: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetVertexAttribdvARB: procedure(index: GLuint; pname: GLenum; params: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetVertexAttribfvARB: procedure(index: GLuint; pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetVertexAttribivARB: procedure(index: GLuint; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetVertexAttribPointervARB: procedure(index: GLuint; pname: GLenum; pointer: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glIsProgramARB: function(_program: GLuint): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_ARB_vertex_program: Boolean;
//***** GL_ARB_window_pos *****//
var
glWindowPos2dARB: procedure(x: GLdouble; y: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos2fARB: procedure(x: GLfloat; y: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos2iARB: procedure(x: GLint; y: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos2sARB: procedure(x: GLshort; y: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos2dvARB: procedure(const p: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos2fvARB: procedure(const p: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos2ivARB: procedure(const p: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos2svARB: procedure(const p: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos3dARB: procedure(x: GLdouble; y: GLdouble; z: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos3fARB: procedure(x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos3iARB: procedure(x: GLint; y: GLint; z: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos3sARB: procedure(x: GLshort; y: GLshort; z: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos3dvARB: procedure(const p: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos3fvARB: procedure(const p: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos3ivARB: procedure(const p: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos3svARB: procedure(const p: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_ARB_window_pos: Boolean;
//***** GL_EXT_422_pixels *****//
const
GL_422_EXT = CC;
GL_422_REV_EXT = CD;
GL_422_AVERAGE_EXT = CE;
GL_422_REV_AVERAGE_EXT = CF;
function Load_GL_EXT_422_pixels: Boolean;
//***** GL_EXT_abgr *****//
const
GL_ABGR_EXT = 00;
function Load_GL_EXT_abgr: Boolean;
//***** GL_EXT_bgra *****//
const
GL_BGR_EXT = E0;
GL_BGRA_EXT = E1;
function Load_GL_EXT_bgra: Boolean;
//***** GL_EXT_blend_color *****//
const
GL_CONSTANT_COLOR_EXT = 01;
GL_ONE_MINUS_CONSTANT_COLOR_EXT = 02;
GL_CONSTANT_ALPHA_EXT = 03;
GL_ONE_MINUS_CONSTANT_ALPHA_EXT = 04;
GL_BLEND_COLOR_EXT = 05;
var
glBlendColorEXT: procedure(red: GLclampf; green: GLclampf; blue: GLclampf; alpha: GLclampf); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_EXT_blend_color: Boolean;
//***** GL_EXT_blend_func_separate *****//
const
GL_BLEND_DST_RGB_EXT = C8;
GL_BLEND_SRC_RGB_EXT = C9;
GL_BLEND_DST_ALPHA_EXT = CA;
GL_BLEND_SRC_ALPHA_EXT = CB;
var
glBlendFuncSeparateEXT: procedure(sfactorRGB: GLenum; dfactorRGB: GLenum; sfactorAlpha: GLenum; dfactorAlpha: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_EXT_blend_func_separate: Boolean;
//***** GL_EXT_blend_logic_op *****//
function Load_GL_EXT_blend_logic_op: Boolean;
//***** GL_EXT_blend_minmax *****//
const
GL_FUNC_ADD_EXT = 06;
GL_MIN_EXT = 07;
GL_MAX_EXT = 08;
GL_BLEND_EQUATION_EXT = 09;
var
glBlendEquationEXT: procedure(mode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_EXT_blend_minmax: Boolean;
//***** GL_EXT_blend_subtract *****//
const
GL_FUNC_SUBTRACT_EXT = 0A;
GL_FUNC_REVERSE_SUBTRACT_EXT = 0B;
function Load_GL_EXT_blend_subtract: Boolean;
//***** GL_EXT_clip_volume_hint *****//
const
GL_CLIP_VOLUME_CLIPPING_HINT_EXT = F0;
function Load_GL_EXT_clip_volume_hint: Boolean;
//***** GL_EXT_color_subtable *****//
var
glColorSubTableEXT: procedure(target: GLenum; start: GLsizei; count: GLsizei; format: GLenum; _type: GLenum; const data: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCopyColorSubTableEXT: procedure(target: GLenum; start: GLsizei; x: GLint; y: GLint; width: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_EXT_color_subtable: Boolean;
//***** GL_EXT_compiled_vertex_array *****//
const
GL_ARRAY_ELEMENT_LOCK_FIRST_EXT = A8;
GL_ARRAY_ELEMENT_LOCK_COUNT_EXT = A9;
var
glLockArraysEXT: procedure(first: GLint; count: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUnlockArraysEXT: procedure(); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_EXT_compiled_vertex_array: Boolean;
//***** GL_EXT_convolution *****//
const
GL_CONVOLUTION_1D_EXT = 10;
GL_CONVOLUTION_2D_EXT = 11;
GL_SEPARABLE_2D_EXT = 12;
GL_CONVOLUTION_BORDER_MODE_EXT = 13;
GL_CONVOLUTION_FILTER_SCALE_EXT = 14;
GL_CONVOLUTION_FILTER_BIAS_EXT = 15;
GL_REDUCE_EXT = 16;
GL_CONVOLUTION_FORMAT_EXT = 17;
GL_CONVOLUTION_WIDTH_EXT = 18;
GL_CONVOLUTION_HEIGHT_EXT = 19;
GL_MAX_CONVOLUTION_WIDTH_EXT = 1A;
GL_MAX_CONVOLUTION_HEIGHT_EXT = 1B;
GL_POST_CONVOLUTION_RED_SCALE_EXT = 1C;
GL_POST_CONVOLUTION_GREEN_SCALE_EXT = 1D;
GL_POST_CONVOLUTION_BLUE_SCALE_EXT = 1E;
GL_POST_CONVOLUTION_ALPHA_SCALE_EXT = 1F;
GL_POST_CONVOLUTION_RED_BIAS_EXT = 20;
GL_POST_CONVOLUTION_GREEN_BIAS_EXT = 21;
GL_POST_CONVOLUTION_BLUE_BIAS_EXT = 22;
GL_POST_CONVOLUTION_ALPHA_BIAS_EXT = 23;
var
glConvolutionFilter1DEXT: procedure(target: GLenum; internalformat: GLenum; width: GLsizei; format: GLenum; _type: GLenum; const image: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glConvolutionFilter2DEXT: procedure(target: GLenum; internalformat: GLenum; width: GLsizei; height: GLsizei; format: GLenum; _type: GLenum; const image: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCopyConvolutionFilter1DEXT: procedure(target: GLenum; internalformat: GLenum; x: GLint; y: GLint; width: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCopyConvolutionFilter2DEXT: procedure(target: GLenum; internalformat: GLenum; x: GLint; y: GLint; width: GLsizei; height: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetConvolutionFilterEXT: procedure(target: GLenum; format: GLenum; _type: GLenum; image: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSeparableFilter2DEXT: procedure(target: GLenum; internalformat: GLenum; width: GLsizei; height: GLsizei; format: GLenum; _type: GLenum; const row: PGLvoid; const column: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetSeparableFilterEXT: procedure(target: GLenum; format: GLenum; _type: GLenum; row: PGLvoid; column: PGLvoid; span: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glConvolutionParameteriEXT: procedure(target: GLenum; pname: GLenum; param: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glConvolutionParameterivEXT: procedure(target: GLenum; pname: GLenum; const params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glConvolutionParameterfEXT: procedure(target: GLenum; pname: GLenum; param: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glConvolutionParameterfvEXT: procedure(target: GLenum; pname: GLenum; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetConvolutionParameterivEXT: procedure(target: GLenum; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetConvolutionParameterfvEXT: procedure(target: GLenum; pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_EXT_convolution: Boolean;
//***** GL_EXT_histogram *****//
const
GL_HISTOGRAM_EXT = 24;
GL_PROXY_HISTOGRAM_EXT = 25;
GL_HISTOGRAM_WIDTH_EXT = 26;
GL_HISTOGRAM_FORMAT_EXT = 27;
GL_HISTOGRAM_RED_SIZE_EXT = 28;
GL_HISTOGRAM_GREEN_SIZE_EXT = 29;
GL_HISTOGRAM_BLUE_SIZE_EXT = 2A;
GL_HISTOGRAM_ALPHA_SIZE_EXT = 2B;
GL_HISTOGRAM_LUMINANCE_SIZE_EXT = 2C;
GL_HISTOGRAM_SINK_EXT = 2D;
GL_MINMAX_EXT = 2E;
GL_MINMAX_FORMAT_EXT = 2F;
GL_MINMAX_SINK_EXT = 30;
var
glHistogramEXT: procedure(target: GLenum; width: GLsizei; internalformat: GLenum; sink: GLboolean); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glResetHistogramEXT: procedure(target: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetHistogramEXT: procedure(target: GLenum; reset: GLboolean; format: GLenum; _type: GLenum; values: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetHistogramParameterivEXT: procedure(target: GLenum; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetHistogramParameterfvEXT: procedure(target: GLenum; pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMinmaxEXT: procedure(target: GLenum; internalformat: GLenum; sink: GLboolean); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glResetMinmaxEXT: procedure(target: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetMinmaxEXT: procedure(target: GLenum; reset: GLboolean; format: GLenum; _type: GLenum; values: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetMinmaxParameterivEXT: procedure(target: GLenum; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetMinmaxParameterfvEXT: procedure(target: GLenum; pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_EXT_histogram: Boolean;
//***** GL_EXT_multi_draw_arrays *****//
var
glMultiDrawArraysEXT: procedure(mode: GLenum; first: PGLint; count: PGLsizei; primcount: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiDrawElementsEXT: procedure(mode: GLenum; count: PGLsizei; _type: GLenum; const indices: PGLvoid; primcount: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_EXT_multi_draw_arrays: Boolean;
//***** GL_EXT_packed_pixels *****//
const
GL_UNSIGNED_BYTE_3_3_2_EXT = 32;
GL_UNSIGNED_SHORT_4_4_4_4_EXT = 33;
GL_UNSIGNED_SHORT_5_5_5_1_EXT = 34;
GL_UNSIGNED_INT_8_8_8_8_EXT = 35;
GL_UNSIGNED_INT_10_10_10_2_EXT = 36;
function Load_GL_EXT_packed_pixels: Boolean;
//***** GL_EXT_paletted_texture *****//
const
GL_COLOR_INDEX1_EXT = E2;
GL_COLOR_INDEX2_EXT = E3;
GL_COLOR_INDEX4_EXT = E4;
GL_COLOR_INDEX8_EXT = E5;
GL_COLOR_INDEX12_EXT = E6;
GL_COLOR_INDEX16_EXT = E7;
GL_COLOR_TABLE_FORMAT_EXT = D8;
GL_COLOR_TABLE_WIDTH_EXT = D9;
GL_COLOR_TABLE_RED_SIZE_EXT = DA;
GL_COLOR_TABLE_GREEN_SIZE_EXT = DB;
GL_COLOR_TABLE_BLUE_SIZE_EXT = DC;
GL_COLOR_TABLE_ALPHA_SIZE_EXT = DD;
GL_COLOR_TABLE_LUMINANCE_SIZE_EXT = DE;
GL_COLOR_TABLE_INTENSITY_SIZE_EXT = DF;
GL_TEXTURE_INDEX_SIZE_EXT = ED;
GL_TEXTURE_1D = {viewgit}{/viewgit}DE0;
GL_TEXTURE_2D = {viewgit}{/viewgit}DE1;
GL_TEXTURE_3D_EXT = 6F;
// GL_TEXTURE_CUBE_MAP_ARB { already defined }
GL_PROXY_TEXTURE_1D = 63;
GL_PROXY_TEXTURE_2D = 64;
GL_PROXY_TEXTURE_3D_EXT = 70;
// GL_PROXY_TEXTURE_CUBE_MAP_ARB { already defined }
// GL_TEXTURE_1D { already defined }
// GL_TEXTURE_2D { already defined }
// GL_TEXTURE_3D_EXT { already defined }
// GL_TEXTURE_CUBE_MAP_ARB { already defined }
var
glColorTableEXT: procedure(target: GLenum; internalFormat: GLenum; width: GLsizei; format: GLenum; _type: GLenum; const data: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
// glColorSubTableEXT { already defined }
glGetColorTableEXT: procedure(target: GLenum; format: GLenum; _type: GLenum; data: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetColorTableParameterivEXT: procedure(target: GLenum; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetColorTableParameterfvEXT: procedure(target: GLenum; pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_EXT_paletted_texture: Boolean;
//***** GL_EXT_point_parameters *****//
const
GL_POINT_SIZE_MIN_EXT = 26;
GL_POINT_SIZE_MAX_EXT = 27;
GL_POINT_FADE_THRESHOLD_SIZE_EXT = 28;
GL_DISTANCE_ATTENUATION_EXT = 29;
var
glPointParameterfEXT: procedure(pname: GLenum; param: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glPointParameterfvEXT: procedure(pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_EXT_point_parameters: Boolean;
//***** GL_EXT_polygon_offset *****//
const
GL_POLYGON_OFFSET_EXT = 37;
GL_POLYGON_OFFSET_FACTOR_EXT = 38;
GL_POLYGON_OFFSET_BIAS_EXT = 39;
var
glPolygonOffsetEXT: procedure(factor: GLfloat; bias: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_EXT_polygon_offset: Boolean;
//***** GL_EXT_separate_specular_color *****//
const
GL_LIGHT_MODEL_COLOR_CONTROL_EXT = F8;
GL_SINGLE_COLOR_EXT = F9;
GL_SEPARATE_SPECULAR_COLOR_EXT = FA;
function Load_GL_EXT_separate_specular_color: Boolean;
//***** GL_EXT_shadow_funcs *****//
function Load_GL_EXT_shadow_funcs: Boolean;
//***** GL_EXT_shared_texture_palette *****//
const
GL_SHARED_TEXTURE_PALETTE_EXT = FB;
function Load_GL_EXT_shared_texture_palette: Boolean;
//***** GL_EXT_stencil_two_side *****//
const
GL_STENCIL_TEST_TWO_SIDE_EXT = 10;
GL_ACTIVE_STENCIL_FACE_EXT = 11;
var
glActiveStencilFaceEXT: procedure(face: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_EXT_stencil_two_side: Boolean;
//***** GL_EXT_stencil_wrap *****//
const
GL_INCR_WRAP_EXT = 07;
GL_DECR_WRAP_EXT = 08;
function Load_GL_EXT_stencil_wrap: Boolean;
//***** GL_EXT_subtexture *****//
var
glTexSubImage1DEXT: procedure(target: GLenum; level: GLint; xoffset: GLint; width: GLsizei; format: GLenum; _type: GLenum; const pixels: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexSubImage2DEXT: procedure(target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; width: GLsizei; height: GLsizei; format: GLenum; _type: GLenum; const pixels: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexSubImage3DEXT: procedure(target: GLenum; level: GLint; xoffset: GLint; yoffset: GLint; zoffset: GLint; width: GLsizei; height: GLsizei; depth: GLsizei; format: GLenum; _type: GLenum; const pixels: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_EXT_subtexture: Boolean;
//***** GL_EXT_texture3D *****//
const
GL_PACK_SKIP_IMAGES_EXT = 6B;
GL_PACK_IMAGE_HEIGHT_EXT = 6C;
GL_UNPACK_SKIP_IMAGES_EXT = 6D;
GL_UNPACK_IMAGE_HEIGHT_EXT = 6E;
// GL_TEXTURE_3D_EXT { already defined }
// GL_PROXY_TEXTURE_3D_EXT { already defined }
GL_TEXTURE_DEPTH_EXT = 71;
GL_TEXTURE_WRAP_R_EXT = 72;
GL_MAX_3D_TEXTURE_SIZE_EXT = 73;
var
glTexImage3DEXT: procedure(target: GLenum; level: GLint; internalformat: GLenum; width: GLsizei; height: GLsizei; depth: GLsizei; border: GLint; format: GLenum; _type: GLenum; const pixels: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_EXT_texture3D: Boolean;
//***** GL_EXT_texture_compression_s3tc *****//
const
GL_COMPRESSED_RGB_S3TC_DXT1_EXT = F0;
GL_COMPRESSED_RGBA_S3TC_DXT1_EXT = F1;
GL_COMPRESSED_RGBA_S3TC_DXT3_EXT = F2;
GL_COMPRESSED_RGBA_S3TC_DXT5_EXT = F3;
function Load_GL_EXT_texture_compression_s3tc: Boolean;
//***** GL_EXT_texture_env_add *****//
function Load_GL_EXT_texture_env_add: Boolean;
//***** GL_EXT_texture_env_combine *****//
const
GL_COMBINE_EXT = 70;
GL_COMBINE_RGB_EXT = 71;
GL_COMBINE_ALPHA_EXT = 72;
GL_SOURCE0_RGB_EXT = 80;
GL_SOURCE1_RGB_EXT = 81;
GL_SOURCE2_RGB_EXT = 82;
GL_SOURCE0_ALPHA_EXT = 88;
GL_SOURCE1_ALPHA_EXT = 89;
GL_SOURCE2_ALPHA_EXT = 8A;
GL_OPERAND0_RGB_EXT = 90;
GL_OPERAND1_RGB_EXT = 91;
GL_OPERAND2_RGB_EXT = 92;
GL_OPERAND0_ALPHA_EXT = 98;
GL_OPERAND1_ALPHA_EXT = 99;
GL_OPERAND2_ALPHA_EXT = 9A;
GL_RGB_SCALE_EXT = 73;
GL_ADD_SIGNED_EXT = 74;
GL_INTERPOLATE_EXT = 75;
GL_CONSTANT_EXT = 76;
GL_PRIMARY_COLOR_EXT = 77;
GL_PREVIOUS_EXT = 78;
function Load_GL_EXT_texture_env_combine: Boolean;
//***** GL_EXT_texture_env_dot3 *****//
const
GL_DOT3_RGB_EXT = 40;
GL_DOT3_RGBA_EXT = 41;
function Load_GL_EXT_texture_env_dot3: Boolean;
//***** GL_EXT_texture_filter_anisotropic *****//
const
GL_TEXTURE_MAX_ANISOTROPY_EXT = FE;
GL_MAX_TEXTURE_MAX_ANISOTROPY_EXT = FF;
function Load_GL_EXT_texture_filter_anisotropic: Boolean;
//***** GL_EXT_texture_lod_bias *****//
const
GL_TEXTURE_FILTER_CONTROL_EXT = 00;
GL_TEXTURE_LOD_BIAS_EXT = 01;
GL_MAX_TEXTURE_LOD_BIAS_EXT = FD;
function Load_GL_EXT_texture_lod_bias: Boolean;
//***** GL_EXT_texture_object *****//
const
GL_TEXTURE_PRIORITY_EXT = 66;
GL_TEXTURE_RESIDENT_EXT = 67;
GL_TEXTURE_1D_BINDING_EXT = 68;
GL_TEXTURE_2D_BINDING_EXT = 69;
GL_TEXTURE_3D_BINDING_EXT = 6A;
var
glGenTexturesEXT: procedure(n: GLsizei; textures: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDeleteTexturesEXT: procedure(n: GLsizei; const textures: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glBindTextureEXT: procedure(target: GLenum; texture: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glPrioritizeTexturesEXT: procedure(n: GLsizei; const textures: PGLuint; const priorities: PGLclampf); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glAreTexturesResidentEXT: function(n: GLsizei; const textures: PGLuint; residences: PGLboolean): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glIsTextureEXT: function(texture: GLuint): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_EXT_texture_object: Boolean;
//***** GL_EXT_vertex_array *****//
const
GL_VERTEX_ARRAY_EXT = 74;
GL_NORMAL_ARRAY_EXT = 75;
GL_COLOR_ARRAY_EXT = 76;
GL_INDEX_ARRAY_EXT = 77;
GL_TEXTURE_COORD_ARRAY_EXT = 78;
GL_EDGE_FLAG_ARRAY_EXT = 79;
GL_DOUBLE_EXT = 0A;
GL_VERTEX_ARRAY_SIZE_EXT = 7A;
GL_VERTEX_ARRAY_TYPE_EXT = 7B;
GL_VERTEX_ARRAY_STRIDE_EXT = 7C;
GL_VERTEX_ARRAY_COUNT_EXT = 7D;
GL_NORMAL_ARRAY_TYPE_EXT = 7E;
GL_NORMAL_ARRAY_STRIDE_EXT = 7F;
GL_NORMAL_ARRAY_COUNT_EXT = 80;
GL_COLOR_ARRAY_SIZE_EXT = 81;
GL_COLOR_ARRAY_TYPE_EXT = 82;
GL_COLOR_ARRAY_STRIDE_EXT = 83;
GL_COLOR_ARRAY_COUNT_EXT = 84;
GL_INDEX_ARRAY_TYPE_EXT = 85;
GL_INDEX_ARRAY_STRIDE_EXT = 86;
GL_INDEX_ARRAY_COUNT_EXT = 87;
GL_TEXTURE_COORD_ARRAY_SIZE_EXT = 88;
GL_TEXTURE_COORD_ARRAY_TYPE_EXT = 89;
GL_TEXTURE_COORD_ARRAY_STRIDE_EXT = 8A;
GL_TEXTURE_COORD_ARRAY_COUNT_EXT = 8B;
GL_EDGE_FLAG_ARRAY_STRIDE_EXT = 8C;
GL_EDGE_FLAG_ARRAY_COUNT_EXT = 8D;
GL_VERTEX_ARRAY_POINTER_EXT = 8E;
GL_NORMAL_ARRAY_POINTER_EXT = 8F;
GL_COLOR_ARRAY_POINTER_EXT = 90;
GL_INDEX_ARRAY_POINTER_EXT = 91;
GL_TEXTURE_COORD_ARRAY_POINTER_EXT = 92;
GL_EDGE_FLAG_ARRAY_POINTER_EXT = 93;
var
glArrayElementEXT: procedure(i: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDrawArraysEXT: procedure(mode: GLenum; first: GLint; count: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexPointerEXT: procedure(size: GLint; _type: GLenum; stride: GLsizei; count: GLsizei; const pointer: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glNormalPointerEXT: procedure(_type: GLenum; stride: GLsizei; count: GLsizei; const pointer: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glColorPointerEXT: procedure(size: GLint; _type: GLenum; stride: GLsizei; count: GLsizei; const pointer: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glIndexPointerEXT: procedure(_type: GLenum; stride: GLsizei; count: GLsizei; const pointer: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexCoordPointerEXT: procedure(size: GLint; _type: GLenum; stride: GLsizei; count: GLsizei; const pointer: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glEdgeFlagPointerEXT: procedure(stride: GLsizei; count: GLsizei; const pointer: PGLboolean); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetPointervEXT: procedure(pname: GLenum; params: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_EXT_vertex_array: Boolean;
//***** GL_EXT_vertex_shader *****//
const
GL_VERTEX_SHADER_EXT = 80;
GL_VARIANT_VALUE_EXT = E4;
GL_VARIANT_DATATYPE_EXT = E5;
GL_VARIANT_ARRAY_STRIDE_EXT = E6;
GL_VARIANT_ARRAY_TYPE_EXT = E7;
GL_VARIANT_ARRAY_EXT = E8;
GL_VARIANT_ARRAY_POINTER_EXT = E9;
GL_INVARIANT_VALUE_EXT = EA;
GL_INVARIANT_DATATYPE_EXT = EB;
GL_LOCAL_CONSTANT_VALUE_EXT = EC;
GL_LOCAL_CONSTANT_DATATYPE_EXT = ED;
GL_OP_INDEX_EXT = 82;
GL_OP_NEGATE_EXT = 83;
GL_OP_DOT3_EXT = 84;
GL_OP_DOT4_EXT = 85;
GL_OP_MUL_EXT = 86;
GL_OP_ADD_EXT = 87;
GL_OP_MADD_EXT = 88;
GL_OP_FRAC_EXT = 89;
GL_OP_MAX_EXT = 8A;
GL_OP_MIN_EXT = 8B;
GL_OP_SET_GE_EXT = 8C;
GL_OP_SET_LT_EXT = 8D;
GL_OP_CLAMP_EXT = 8E;
GL_OP_FLOOR_EXT = 8F;
GL_OP_ROUND_EXT = 90;
GL_OP_EXP_BASE_2_EXT = 91;
GL_OP_LOG_BASE_2_EXT = 92;
GL_OP_POWER_EXT = 93;
GL_OP_RECIP_EXT = 94;
GL_OP_RECIP_SQRT_EXT = 95;
GL_OP_SUB_EXT = 96;
GL_OP_CROSS_PRODUCT_EXT = 97;
GL_OP_MULTIPLY_MATRIX_EXT = 98;
GL_OP_MOV_EXT = 99;
GL_OUTPUT_VERTEX_EXT = 9A;
GL_OUTPUT_COLOR0_EXT = 9B;
GL_OUTPUT_COLOR1_EXT = 9C;
GL_OUTPUT_TEXTURE_COORD0_EXT = 9D;
GL_OUTPUT_TEXTURE_COORD1_EXT = 9E;
GL_OUTPUT_TEXTURE_COORD2_EXT = 9F;
GL_OUTPUT_TEXTURE_COORD3_EXT = A0;
GL_OUTPUT_TEXTURE_COORD4_EXT = A1;
GL_OUTPUT_TEXTURE_COORD5_EXT = A2;
GL_OUTPUT_TEXTURE_COORD6_EXT = A3;
GL_OUTPUT_TEXTURE_COORD7_EXT = A4;
GL_OUTPUT_TEXTURE_COORD8_EXT = A5;
GL_OUTPUT_TEXTURE_COORD9_EXT = A6;
GL_OUTPUT_TEXTURE_COORD10_EXT = A7;
GL_OUTPUT_TEXTURE_COORD11_EXT = A8;
GL_OUTPUT_TEXTURE_COORD12_EXT = A9;
GL_OUTPUT_TEXTURE_COORD13_EXT = AA;
GL_OUTPUT_TEXTURE_COORD14_EXT = AB;
GL_OUTPUT_TEXTURE_COORD15_EXT = AC;
GL_OUTPUT_TEXTURE_COORD16_EXT = AD;
GL_OUTPUT_TEXTURE_COORD17_EXT = AE;
GL_OUTPUT_TEXTURE_COORD18_EXT = AF;
GL_OUTPUT_TEXTURE_COORD19_EXT = B0;
GL_OUTPUT_TEXTURE_COORD20_EXT = B1;
GL_OUTPUT_TEXTURE_COORD21_EXT = B2;
GL_OUTPUT_TEXTURE_COORD22_EXT = B3;
GL_OUTPUT_TEXTURE_COORD23_EXT = B4;
GL_OUTPUT_TEXTURE_COORD24_EXT = B5;
GL_OUTPUT_TEXTURE_COORD25_EXT = B6;
GL_OUTPUT_TEXTURE_COORD26_EXT = B7;
GL_OUTPUT_TEXTURE_COORD27_EXT = B8;
GL_OUTPUT_TEXTURE_COORD28_EXT = B9;
GL_OUTPUT_TEXTURE_COORD29_EXT = BA;
GL_OUTPUT_TEXTURE_COORD30_EXT = BB;
GL_OUTPUT_TEXTURE_COORD31_EXT = BC;
GL_OUTPUT_FOG_EXT = BD;
GL_SCALAR_EXT = BE;
GL_VECTOR_EXT = BF;
GL_MATRIX_EXT = C0;
GL_VARIANT_EXT = C1;
GL_INVARIANT_EXT = C2;
GL_LOCAL_CONSTANT_EXT = C3;
GL_LOCAL_EXT = C4;
GL_MAX_VERTEX_SHADER_INSTRUCTIONS_EXT = C5;
GL_MAX_VERTEX_SHADER_VARIANTS_EXT = C6;
GL_MAX_VERTEX_SHADER_INVARIANTS_EXT = C7;
GL_MAX_VERTEX_SHADER_LOCAL_CONSTANTS_EXT = C8;
GL_MAX_VERTEX_SHADER_LOCALS_EXT = C9;
GL_MAX_OPTIMIZED_VERTEX_SHADER_INSTRUCTIONS_EXT = CA;
GL_MAX_OPTIMIZED_VERTEX_SHADER_VARIANTS_EXT = CB;
GL_MAX_OPTIMIZED_VERTEX_SHADER_LOCAL_CONSTANTS_EXT = CC;
GL_MAX_OPTIMIZED_VERTEX_SHADER_INVARIANTS_EXT = CD;
GL_MAX_OPTIMIZED_VERTEX_SHADER_LOCALS_EXT = CE;
GL_VERTEX_SHADER_INSTRUCTIONS_EXT = CF;
GL_VERTEX_SHADER_VARIANTS_EXT = D0;
GL_VERTEX_SHADER_INVARIANTS_EXT = D1;
GL_VERTEX_SHADER_LOCAL_CONSTANTS_EXT = D2;
GL_VERTEX_SHADER_LOCALS_EXT = D3;
GL_VERTEX_SHADER_BINDING_EXT = 81;
GL_VERTEX_SHADER_OPTIMIZED_EXT = D4;
GL_X_EXT = D5;
GL_Y_EXT = D6;
GL_Z_EXT = D7;
GL_W_EXT = D8;
GL_NEGATIVE_X_EXT = D9;
GL_NEGATIVE_Y_EXT = DA;
GL_NEGATIVE_Z_EXT = DB;
GL_NEGATIVE_W_EXT = DC;
GL_ZERO_EXT = DD;
GL_ONE_EXT = DE;
GL_NEGATIVE_ONE_EXT = DF;
GL_NORMALIZED_RANGE_EXT = E0;
GL_FULL_RANGE_EXT = E1;
GL_CURRENT_VERTEX_EXT = E2;
GL_MVP_MATRIX_EXT = E3;
var
glBeginVertexShaderEXT: procedure(); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glEndVertexShaderEXT: procedure(); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glBindVertexShaderEXT: procedure(id: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGenVertexShadersEXT: function(range: GLuint): GLuint; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDeleteVertexShaderEXT: procedure(id: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glShaderOp1EXT: procedure(op: GLenum; res: GLuint; arg1: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glShaderOp2EXT: procedure(op: GLenum; res: GLuint; arg1: GLuint; arg2: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glShaderOp3EXT: procedure(op: GLenum; res: GLuint; arg1: GLuint; arg2: GLuint; arg3: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSwizzleEXT: procedure(res: GLuint; _in: GLuint; outX: GLenum; outY: GLenum; outZ: GLenum; outW: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWriteMaskEXT: procedure(res: GLuint; _in: GLuint; outX: GLenum; outY: GLenum; outZ: GLenum; outW: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glInsertComponentEXT: procedure(res: GLuint; src: GLuint; num: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glExtractComponentEXT: procedure(res: GLuint; src: GLuint; num: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGenSymbolsEXT: function(datatype: GLenum; storagetype: GLenum; range: GLenum; components: GLuint): GLuint; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSetInvariantEXT: procedure(id: GLuint; _type: GLenum; addr: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSetLocalConstantEXT: procedure(id: GLuint; _type: GLenum; addr: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVariantbvEXT: procedure(id: GLuint; addr: PGLbyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVariantsvEXT: procedure(id: GLuint; addr: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVariantivEXT: procedure(id: GLuint; addr: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVariantfvEXT: procedure(id: GLuint; addr: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVariantdvEXT: procedure(id: GLuint; addr: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVariantubvEXT: procedure(id: GLuint; addr: PGLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVariantusvEXT: procedure(id: GLuint; addr: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVariantuivEXT: procedure(id: GLuint; addr: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVariantPointerEXT: procedure(id: GLuint; _type: GLenum; stride: GLuint; addr: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glEnableVariantClientStateEXT: procedure(id: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDisableVariantClientStateEXT: procedure(id: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glBindLightParameterEXT: function(light: GLenum; value: GLenum): GLuint; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glBindMaterialParameterEXT: function(face: GLenum; value: GLenum): GLuint; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glBindTexGenParameterEXT: function(_unit: GLenum; coord: GLenum; value: GLenum): GLuint; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glBindTextureUnitParameterEXT: function(_unit: GLenum; value: GLenum): GLuint; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glBindParameterEXT: function(value: GLenum): GLuint; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glIsVariantEnabledEXT: function(id: GLuint; cap: GLenum): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetVariantBooleanvEXT: procedure(id: GLuint; value: GLenum; data: PGLboolean); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetVariantIntegervEXT: procedure(id: GLuint; value: GLenum; data: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetVariantFloatvEXT: procedure(id: GLuint; value: GLenum; data: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetVariantPointervEXT: procedure(id: GLuint; value: GLenum; data: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetInvariantBooleanvEXT: procedure(id: GLuint; value: GLenum; data: PGLboolean); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetInvariantIntegervEXT: procedure(id: GLuint; value: GLenum; data: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetInvariantFloatvEXT: procedure(id: GLuint; value: GLenum; data: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetLocalConstantBooleanvEXT: procedure(id: GLuint; value: GLenum; data: PGLboolean); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetLocalConstantIntegervEXT: procedure(id: GLuint; value: GLenum; data: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetLocalConstantFloatvEXT: procedure(id: GLuint; value: GLenum; data: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_EXT_vertex_shader: Boolean;
//***** GL_EXT_vertex_weighting *****//
const
GL_VERTEX_WEIGHTING_EXT = 09;
GL_MODELVIEW0_EXT = 00;
GL_MODELVIEW1_EXT = 0A;
GL_MODELVIEW0_MATRIX_EXT = {viewgit}{/viewgit}BA6;
GL_MODELVIEW1_MATRIX_EXT = 06;
GL_CURRENT_VERTEX_WEIGHT_EXT = 0B;
GL_VERTEX_WEIGHT_ARRAY_EXT = 0C;
GL_VERTEX_WEIGHT_ARRAY_SIZE_EXT = 0D;
GL_VERTEX_WEIGHT_ARRAY_TYPE_EXT = 0E;
GL_VERTEX_WEIGHT_ARRAY_STRIDE_EXT = 0F;
GL_MODELVIEW0_STACK_DEPTH_EXT = {viewgit}{/viewgit}BA3;
GL_MODELVIEW1_STACK_DEPTH_EXT = 02;
GL_VERTEX_WEIGHT_ARRAY_POINTER_EXT = 10;
var
glVertexWeightfEXT: procedure(weight: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexWeightfvEXT: procedure(weight: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexWeightPointerEXT: procedure(size: GLint; _type: GLenum; stride: GLsizei; pointer: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_EXT_vertex_weighting: Boolean;
//***** GL_HP_occlusion_test *****//
const
GL_OCCLUSION_TEST_HP = 65;
GL_OCCLUSION_TEST_RESULT_HP = 66;
function Load_GL_HP_occlusion_test: Boolean;
//***** GL_NV_blend_square *****//
function Load_GL_NV_blend_square: Boolean;
//***** GL_NV_copy_depth_to_color *****//
const
GL_DEPTH_STENCIL_TO_RGBA_NV = 6E;
GL_DEPTH_STENCIL_TO_BGRA_NV = 6F;
function Load_GL_NV_copy_depth_to_color: Boolean;
//***** GL_NV_depth_clamp *****//
const
GL_DEPTH_CLAMP_NV = 4F;
function Load_GL_NV_depth_clamp: Boolean;
//***** GL_NV_evaluators *****//
const
GL_EVAL_2D_NV = C0;
GL_EVAL_TRIANGULAR_2D_NV = C1;
GL_MAP_TESSELLATION_NV = C2;
GL_MAP_ATTRIB_U_ORDER_NV = C3;
GL_MAP_ATTRIB_V_ORDER_NV = C4;
GL_EVAL_FRACTIONAL_TESSELLATION_NV = C5;
GL_EVAL_VERTEX_ATTRIB0_NV = C6;
GL_EVAL_VERTEX_ATTRIB1_NV = C7;
GL_EVAL_VERTEX_ATTRIB2_NV = C8;
GL_EVAL_VERTEX_ATTRIB3_NV = C9;
GL_EVAL_VERTEX_ATTRIB4_NV = CA;
GL_EVAL_VERTEX_ATTRIB5_NV = CB;
GL_EVAL_VERTEX_ATTRIB6_NV = CC;
GL_EVAL_VERTEX_ATTRIB7_NV = CD;
GL_EVAL_VERTEX_ATTRIB8_NV = CE;
GL_EVAL_VERTEX_ATTRIB9_NV = CF;
GL_EVAL_VERTEX_ATTRIB10_NV = D0;
GL_EVAL_VERTEX_ATTRIB11_NV = D1;
GL_EVAL_VERTEX_ATTRIB12_NV = D2;
GL_EVAL_VERTEX_ATTRIB13_NV = D3;
GL_EVAL_VERTEX_ATTRIB14_NV = D4;
GL_EVAL_VERTEX_ATTRIB15_NV = D5;
GL_MAX_MAP_TESSELLATION_NV = D6;
GL_MAX_RATIONAL_EVAL_ORDER_NV = D7;
var
glMapControlPointsNV: procedure(target: GLenum; index: GLuint; _type: GLenum; ustride: GLsizei; vstride: GLsizei; uorder: GLint; vorder: GLint; _packed: GLboolean; const points: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMapParameterivNV: procedure(target: GLenum; pname: GLenum; const params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMapParameterfvNV: procedure(target: GLenum; pname: GLenum; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetMapControlPointsNV: procedure(target: GLenum; index: GLuint; _type: GLenum; ustride: GLsizei; vstride: GLsizei; _packed: GLboolean; points: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetMapParameterivNV: procedure(target: GLenum; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetMapParameterfvNV: procedure(target: GLenum; pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetMapAttribParameterivNV: procedure(target: GLenum; index: GLuint; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetMapAttribParameterfvNV: procedure(target: GLenum; index: GLuint; pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glEvalMapsNV: procedure(target: GLenum; mode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_NV_evaluators: Boolean;
//***** GL_NV_fence *****//
const
GL_ALL_COMPLETED_NV = F2;
GL_FENCE_STATUS_NV = F3;
GL_FENCE_CONDITION_NV = F4;
var
glGenFencesNV: procedure(n: GLsizei; fences: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDeleteFencesNV: procedure(n: GLsizei; const fences: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSetFenceNV: procedure(fence: GLuint; condition: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTestFenceNV: function(fence: GLuint): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glFinishFenceNV: procedure(fence: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glIsFenceNV: function(fence: GLuint): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetFenceivNV: procedure(fence: GLuint; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_NV_fence: Boolean;
//***** GL_NV_fog_distance *****//
const
GL_FOG_DISTANCE_MODE_NV = 5A;
GL_EYE_RADIAL_NV = 5B;
GL_EYE_PLANE_ABSOLUTE_NV = 5C;
function Load_GL_NV_fog_distance: Boolean;
//***** GL_NV_light_max_exponent *****//
const
GL_MAX_SHININESS_NV = 04;
GL_MAX_SPOT_EXPONENT_NV = 05;
function Load_GL_NV_light_max_exponent: Boolean;
//***** GL_NV_multisample_filter_hint *****//
const
GL_MULTISAMPLE_FILTER_HINT_NV = 34;
function Load_GL_NV_multisample_filter_hint: Boolean;
//***** GL_NV_occlusion_query *****//
// GL_OCCLUSION_TEST_HP { already defined }
// GL_OCCLUSION_TEST_RESULT_HP { already defined }
const
GL_PIXEL_COUNTER_BITS_NV = 64;
GL_CURRENT_OCCLUSION_QUERY_ID_NV = 65;
GL_PIXEL_COUNT_NV = 66;
GL_PIXEL_COUNT_AVAILABLE_NV = 67;
var
glGenOcclusionQueriesNV: procedure(n: GLsizei; ids: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDeleteOcclusionQueriesNV: procedure(n: GLsizei; const ids: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glIsOcclusionQueryNV: function(id: GLuint): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glBeginOcclusionQueryNV: procedure(id: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glEndOcclusionQueryNV: procedure(); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetOcclusionQueryivNV: procedure(id: GLuint; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetOcclusionQueryuivNV: procedure(id: GLuint; pname: GLenum; params: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_NV_occlusion_query: Boolean;
//***** GL_NV_packed_depth_stencil *****//
const
GL_DEPTH_STENCIL_NV = F9;
GL_UNSIGNED_INT_24_8_NV = FA;
function Load_GL_NV_packed_depth_stencil: Boolean;
//***** GL_NV_point_sprite *****//
const
GL_POINT_SPRITE_NV = 61;
GL_COORD_REPLACE_NV = 62;
GL_POINT_SPRITE_R_MODE_NV = 63;
var
glPointParameteriNV: procedure(pname: GLenum; param: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glPointParameterivNV: procedure(pname: GLenum; const params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_NV_point_sprite: Boolean;
//***** GL_NV_register_combiners *****//
const
GL_REGISTER_COMBINERS_NV = 22;
GL_COMBINER0_NV = 50;
GL_COMBINER1_NV = 51;
GL_COMBINER2_NV = 52;
GL_COMBINER3_NV = 53;
GL_COMBINER4_NV = 54;
GL_COMBINER5_NV = 55;
GL_COMBINER6_NV = 56;
GL_COMBINER7_NV = 57;
GL_VARIABLE_A_NV = 23;
GL_VARIABLE_B_NV = 24;
GL_VARIABLE_C_NV = 25;
GL_VARIABLE_D_NV = 26;
GL_VARIABLE_E_NV = 27;
GL_VARIABLE_F_NV = 28;
GL_VARIABLE_G_NV = 29;
GL_CONSTANT_COLOR0_NV = 2A;
GL_CONSTANT_COLOR1_NV = 2B;
GL_PRIMARY_COLOR_NV = 2C;
GL_SECONDARY_COLOR_NV = 2D;
GL_SPARE0_NV = 2E;
GL_SPARE1_NV = 2F;
GL_UNSIGNED_IDENTITY_NV = 36;
GL_UNSIGNED_INVERT_NV = 37;
GL_EXPAND_NORMAL_NV = 38;
GL_EXPAND_NEGATE_NV = 39;
GL_HALF_BIAS_NORMAL_NV = 3A;
GL_HALF_BIAS_NEGATE_NV = 3B;
GL_SIGNED_IDENTITY_NV = 3C;
GL_SIGNED_NEGATE_NV = 3D;
GL_E_TIMES_F_NV = 31;
GL_SPARE0_PLUS_SECONDARY_COLOR_NV = 32;
GL_SCALE_BY_TWO_NV = 3E;
GL_SCALE_BY_FOUR_NV = 3F;
GL_SCALE_BY_ONE_HALF_NV = 40;
GL_BIAS_BY_NEGATIVE_ONE_HALF_NV = 41;
GL_DISCARD_NV = 30;
GL_COMBINER_INPUT_NV = 42;
GL_COMBINER_MAPPING_NV = 43;
GL_COMBINER_COMPONENT_USAGE_NV = 44;
GL_COMBINER_AB_DOT_PRODUCT_NV = 45;
GL_COMBINER_CD_DOT_PRODUCT_NV = 46;
GL_COMBINER_MUX_SUM_NV = 47;
GL_COMBINER_SCALE_NV = 48;
GL_COMBINER_BIAS_NV = 49;
GL_COMBINER_AB_OUTPUT_NV = 4A;
GL_COMBINER_CD_OUTPUT_NV = 4B;
GL_COMBINER_SUM_OUTPUT_NV = 4C;
GL_NUM_GENERAL_COMBINERS_NV = 4E;
GL_COLOR_SUM_CLAMP_NV = 4F;
GL_MAX_GENERAL_COMBINERS_NV = 4D;
var
glCombinerParameterfvNV: procedure(pname: GLenum; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCombinerParameterivNV: procedure(pname: GLenum; const params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCombinerParameterfNV: procedure(pname: GLenum; param: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCombinerParameteriNV: procedure(pname: GLenum; param: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCombinerInputNV: procedure(stage: GLenum; portion: GLenum; variable: GLenum; input: GLenum; mapping: GLenum; componentUsage: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCombinerOutputNV: procedure(stage: GLenum; portion: GLenum; abOutput: GLenum; cdOutput: GLenum; sumOutput: GLenum; scale: GLenum; bias: GLenum; abDotProduct: GLboolean; cdDotProduct: GLboolean; muxSum: GLboolean); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glFinalCombinerInputNV: procedure(variable: GLenum; input: GLenum; mapping: GLenum; componentUsage: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetCombinerInputParameterfvNV: procedure(stage: GLenum; portion: GLenum; variable: GLenum; pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetCombinerInputParameterivNV: procedure(stage: GLenum; portion: GLenum; variable: GLenum; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetCombinerOutputParameterfvNV: procedure(stage: GLenum; portion: GLenum; pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetCombinerOutputParameterivNV: procedure(stage: GLenum; portion: GLenum; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetFinalCombinerInputParameterfvNV: procedure(variable: GLenum; pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetFinalCombinerInputParameterivNV: procedure(variable: GLenum; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_NV_register_combiners: Boolean;
//***** GL_NV_register_combiners2 *****//
const
GL_PER_STAGE_CONSTANTS_NV = 35;
var
glCombinerStageParameterfvNV: procedure(stage: GLenum; pname: GLenum; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetCombinerStageParameterfvNV: procedure(stage: GLenum; pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_NV_register_combiners2: Boolean;
//***** GL_NV_texgen_emboss *****//
const
GL_EMBOSS_MAP_NV = 5F;
GL_EMBOSS_LIGHT_NV = 5D;
GL_EMBOSS_CONSTANT_NV = 5E;
function Load_GL_NV_texgen_emboss: Boolean;
//***** GL_NV_texgen_reflection *****//
const
GL_NORMAL_MAP_NV = 11;
GL_REFLECTION_MAP_NV = 12;
function Load_GL_NV_texgen_reflection: Boolean;
//***** GL_NV_texture_compression_vtc *****//
// GL_COMPRESSED_RGB_S3TC_DXT1_EXT { already defined }
// GL_COMPRESSED_RGBA_S3TC_DXT1_EXT { already defined }
// GL_COMPRESSED_RGBA_S3TC_DXT3_EXT { already defined }
// GL_COMPRESSED_RGBA_S3TC_DXT5_EXT { already defined }
function Load_GL_NV_texture_compression_vtc: Boolean;
//***** GL_NV_texture_env_combine4 *****//
const
GL_COMBINE4_NV = 03;
GL_SOURCE3_RGB_NV = 83;
GL_SOURCE3_ALPHA_NV = 8B;
GL_OPERAND3_RGB_NV = 93;
GL_OPERAND3_ALPHA_NV = 9B;
function Load_GL_NV_texture_env_combine4: Boolean;
//***** GL_NV_texture_rectangle *****//
const
GL_TEXTURE_RECTANGLE_NV = F5;
GL_TEXTURE_BINDING_RECTANGLE_NV = F6;
GL_PROXY_TEXTURE_RECTANGLE_NV = F7;
GL_MAX_RECTANGLE_TEXTURE_SIZE_NV = F8;
function Load_GL_NV_texture_rectangle: Boolean;
//***** GL_NV_texture_shader *****//
const
GL_TEXTURE_SHADER_NV = DE;
GL_RGBA_UNSIGNED_DOT_PRODUCT_MAPPING_NV = D9;
GL_SHADER_OPERATION_NV = DF;
GL_CULL_MODES_NV = E0;
GL_OFFSET_TEXTURE_MATRIX_NV = E1;
GL_OFFSET_TEXTURE_SCALE_NV = E2;
GL_OFFSET_TEXTURE_BIAS_NV = E3;
GL_PREVIOUS_TEXTURE_INPUT_NV = E4;
GL_CONST_EYE_NV = E5;
GL_SHADER_CONSISTENT_NV = DD;
GL_PASS_THROUGH_NV = E6;
GL_CULL_FRAGMENT_NV = E7;
GL_OFFSET_TEXTURE_2D_NV = E8;
GL_OFFSET_TEXTURE_RECTANGLE_NV = 4C;
GL_OFFSET_TEXTURE_RECTANGLE_SCALE_NV = 4D;
GL_DEPENDENT_AR_TEXTURE_2D_NV = E9;
GL_DEPENDENT_GB_TEXTURE_2D_NV = EA;
GL_DOT_PRODUCT_NV = EC;
GL_DOT_PRODUCT_DEPTH_REPLACE_NV = ED;
GL_DOT_PRODUCT_TEXTURE_2D_NV = EE;
GL_DOT_PRODUCT_TEXTURE_RECTANGLE_NV = 4E;
GL_DOT_PRODUCT_TEXTURE_CUBE_MAP_NV = F0;
GL_DOT_PRODUCT_DIFFUSE_CUBE_MAP_NV = F1;
GL_DOT_PRODUCT_REFLECT_CUBE_MAP_NV = F2;
GL_DOT_PRODUCT_CONST_EYE_REFLECT_CUBE_MAP_NV = F3;
GL_HILO_NV = F4;
GL_DSDT_NV = F5;
GL_DSDT_MAG_NV = F6;
GL_DSDT_MAG_VIB_NV = F7;
GL_UNSIGNED_INT_S8_S8_8_8_NV = DA;
GL_UNSIGNED_INT_8_8_S8_S8_REV_NV = DB;
GL_SIGNED_RGBA_NV = FB;
GL_SIGNED_RGBA8_NV = FC;
GL_SIGNED_RGB_NV = FE;
GL_SIGNED_RGB8_NV = FF;
GL_SIGNED_LUMINANCE_NV = 01;
GL_SIGNED_LUMINANCE8_NV = 02;
GL_SIGNED_LUMINANCE_ALPHA_NV = 03;
GL_SIGNED_LUMINANCE8_ALPHA8_NV = 04;
GL_SIGNED_ALPHA_NV = 05;
GL_SIGNED_ALPHA8_NV = 06;
GL_SIGNED_INTENSITY_NV = 07;
GL_SIGNED_INTENSITY8_NV = 08;
GL_SIGNED_RGB_UNSIGNED_ALPHA_NV = 0C;
GL_SIGNED_RGB8_UNSIGNED_ALPHA8_NV = 0D;
GL_HILO16_NV = F8;
GL_SIGNED_HILO_NV = F9;
GL_SIGNED_HILO16_NV = FA;
GL_DSDT8_NV = 09;
GL_DSDT8_MAG8_NV = 0A;
GL_DSDT_MAG_INTENSITY_NV = DC;
GL_DSDT8_MAG8_INTENSITY8_NV = 0B;
GL_HI_SCALE_NV = 0E;
GL_LO_SCALE_NV = 0F;
GL_DS_SCALE_NV = 10;
GL_DT_SCALE_NV = 11;
GL_MAGNITUDE_SCALE_NV = 12;
GL_VIBRANCE_SCALE_NV = 13;
GL_HI_BIAS_NV = 14;
GL_LO_BIAS_NV = 15;
GL_DS_BIAS_NV = 16;
GL_DT_BIAS_NV = 17;
GL_MAGNITUDE_BIAS_NV = 18;
GL_VIBRANCE_BIAS_NV = 19;
GL_TEXTURE_BORDER_VALUES_NV = 1A;
GL_TEXTURE_HI_SIZE_NV = 1B;
GL_TEXTURE_LO_SIZE_NV = 1C;
GL_TEXTURE_DS_SIZE_NV = 1D;
GL_TEXTURE_DT_SIZE_NV = 1E;
GL_TEXTURE_MAG_SIZE_NV = 1F;
function Load_GL_NV_texture_shader: Boolean;
//***** GL_NV_texture_shader2 *****//
const
GL_DOT_PRODUCT_TEXTURE_3D_NV = EF;
// GL_HILO_NV { already defined }
// GL_DSDT_NV { already defined }
// GL_DSDT_MAG_NV { already defined }
// GL_DSDT_MAG_VIB_NV { already defined }
// GL_UNSIGNED_INT_S8_S8_8_8_NV { already defined }
// GL_UNSIGNED_INT_8_8_S8_S8_REV_NV { already defined }
// GL_SIGNED_RGBA_NV { already defined }
// GL_SIGNED_RGBA8_NV { already defined }
// GL_SIGNED_RGB_NV { already defined }
// GL_SIGNED_RGB8_NV { already defined }
// GL_SIGNED_LUMINANCE_NV { already defined }
// GL_SIGNED_LUMINANCE8_NV { already defined }
// GL_SIGNED_LUMINANCE_ALPHA_NV { already defined }
// GL_SIGNED_LUMINANCE8_ALPHA8_NV { already defined }
// GL_SIGNED_ALPHA_NV { already defined }
// GL_SIGNED_ALPHA8_NV { already defined }
// GL_SIGNED_INTENSITY_NV { already defined }
// GL_SIGNED_INTENSITY8_NV { already defined }
// GL_SIGNED_RGB_UNSIGNED_ALPHA_NV { already defined }
// GL_SIGNED_RGB8_UNSIGNED_ALPHA8_NV { already defined }
// GL_HILO16_NV { already defined }
// GL_SIGNED_HILO_NV { already defined }
// GL_SIGNED_HILO16_NV { already defined }
// GL_DSDT8_NV { already defined }
// GL_DSDT8_MAG8_NV { already defined }
// GL_DSDT_MAG_INTENSITY_NV { already defined }
// GL_DSDT8_MAG8_INTENSITY8_NV { already defined }
function Load_GL_NV_texture_shader2: Boolean;
//***** GL_NV_texture_shader3 *****//
const
GL_OFFSET_PROJECTIVE_TEXTURE_2D_NV = 50;
GL_OFFSET_PROJECTIVE_TEXTURE_2D_SCALE_NV = 51;
GL_OFFSET_PROJECTIVE_TEXTURE_RECTANGLE_NV = 52;
GL_OFFSET_PROJECTIVE_TEXTURE_RECTANGLE_SCALE_NV = 53;
GL_OFFSET_HILO_TEXTURE_2D_NV = 54;
GL_OFFSET_HILO_TEXTURE_RECTANGLE_NV = 55;
GL_OFFSET_HILO_PROJECTIVE_TEXTURE_2D_NV = 56;
GL_OFFSET_HILO_PROJECTIVE_TEXTURE_RECTANGLE_NV = 57;
GL_DEPENDENT_HILO_TEXTURE_2D_NV = 58;
GL_DEPENDENT_RGB_TEXTURE_3D_NV = 59;
GL_DEPENDENT_RGB_TEXTURE_CUBE_MAP_NV = 5A;
GL_DOT_PRODUCT_PASS_THROUGH_NV = 5B;
GL_DOT_PRODUCT_TEXTURE_1D_NV = 5C;
GL_DOT_PRODUCT_AFFINE_DEPTH_REPLACE_NV = 5D;
GL_HILO8_NV = 5E;
GL_SIGNED_HILO8_NV = 5F;
GL_FORCE_BLUE_TO_ONE_NV = 60;
function Load_GL_NV_texture_shader3: Boolean;
//***** GL_NV_vertex_array_range *****//
const
GL_VERTEX_ARRAY_RANGE_NV = 1D;
GL_VERTEX_ARRAY_RANGE_LENGTH_NV = 1E;
GL_VERTEX_ARRAY_RANGE_VALID_NV = 1F;
GL_MAX_VERTEX_ARRAY_RANGE_ELEMENT_NV = 20;
GL_VERTEX_ARRAY_RANGE_POINTER_NV = 21;
var
glVertexArrayRangeNV: procedure(length: GLsizei; pointer: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glFlushVertexArrayRangeNV: procedure(); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
{$IFDEF WINDOWS}
wglAllocateMemoryNV: function(size: GLsizei; readFrequency: GLfloat; writeFrequency: GLfloat; priority: GLfloat): PGLvoid; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglFreeMemoryNV: procedure(pointer: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
{$ENDIF}
function Load_GL_NV_vertex_array_range: Boolean;
//***** GL_NV_vertex_array_range2 *****//
const
GL_VERTEX_ARRAY_RANGE_WITHOUT_FLUSH_NV = 33;
function Load_GL_NV_vertex_array_range2: Boolean;
//***** GL_NV_vertex_program *****//
const
GL_VERTEX_PROGRAM_NV = 20;
GL_VERTEX_PROGRAM_POINT_SIZE_NV = 42;
GL_VERTEX_PROGRAM_TWO_SIDE_NV = 43;
GL_VERTEX_STATE_PROGRAM_NV = 21;
GL_ATTRIB_ARRAY_SIZE_NV = 23;
GL_ATTRIB_ARRAY_STRIDE_NV = 24;
GL_ATTRIB_ARRAY_TYPE_NV = 25;
GL_CURRENT_ATTRIB_NV = 26;
GL_PROGRAM_PARAMETER_NV = 44;
GL_ATTRIB_ARRAY_POINTER_NV = 45;
GL_PROGRAM_TARGET_NV = 46;
GL_PROGRAM_LENGTH_NV = 27;
GL_PROGRAM_RESIDENT_NV = 47;
GL_PROGRAM_STRING_NV = 28;
GL_TRACK_MATRIX_NV = 48;
GL_TRACK_MATRIX_TRANSFORM_NV = 49;
GL_MAX_TRACK_MATRIX_STACK_DEPTH_NV = 2E;
GL_MAX_TRACK_MATRICES_NV = 2F;
GL_CURRENT_MATRIX_STACK_DEPTH_NV = 40;
GL_CURRENT_MATRIX_NV = 41;
GL_VERTEX_PROGRAM_BINDING_NV = 4A;
GL_PROGRAM_ERROR_POSITION_NV = 4B;
GL_MODELVIEW_PROJECTION_NV = 29;
GL_MATRIX0_NV = 30;
GL_MATRIX1_NV = 31;
GL_MATRIX2_NV = 32;
GL_MATRIX3_NV = 33;
GL_MATRIX4_NV = 34;
GL_MATRIX5_NV = 35;
GL_MATRIX6_NV = 36;
GL_MATRIX7_NV = 37;
GL_IDENTITY_NV = 2A;
GL_INVERSE_NV = 2B;
GL_TRANSPOSE_NV = 2C;
GL_INVERSE_TRANSPOSE_NV = 2D;
GL_VERTEX_ATTRIB_ARRAY0_NV = 50;
GL_VERTEX_ATTRIB_ARRAY1_NV = 51;
GL_VERTEX_ATTRIB_ARRAY2_NV = 52;
GL_VERTEX_ATTRIB_ARRAY3_NV = 53;
GL_VERTEX_ATTRIB_ARRAY4_NV = 54;
GL_VERTEX_ATTRIB_ARRAY5_NV = 55;
GL_VERTEX_ATTRIB_ARRAY6_NV = 56;
GL_VERTEX_ATTRIB_ARRAY7_NV = 57;
GL_VERTEX_ATTRIB_ARRAY8_NV = 58;
GL_VERTEX_ATTRIB_ARRAY9_NV = 59;
GL_VERTEX_ATTRIB_ARRAY10_NV = 5A;
GL_VERTEX_ATTRIB_ARRAY11_NV = 5B;
GL_VERTEX_ATTRIB_ARRAY12_NV = 5C;
GL_VERTEX_ATTRIB_ARRAY13_NV = 5D;
GL_VERTEX_ATTRIB_ARRAY14_NV = 5E;
GL_VERTEX_ATTRIB_ARRAY15_NV = 5F;
GL_MAP1_VERTEX_ATTRIB0_4_NV = 60;
GL_MAP1_VERTEX_ATTRIB1_4_NV = 61;
GL_MAP1_VERTEX_ATTRIB2_4_NV = 62;
GL_MAP1_VERTEX_ATTRIB3_4_NV = 63;
GL_MAP1_VERTEX_ATTRIB4_4_NV = 64;
GL_MAP1_VERTEX_ATTRIB5_4_NV = 65;
GL_MAP1_VERTEX_ATTRIB6_4_NV = 66;
GL_MAP1_VERTEX_ATTRIB7_4_NV = 67;
GL_MAP1_VERTEX_ATTRIB8_4_NV = 68;
GL_MAP1_VERTEX_ATTRIB9_4_NV = 69;
GL_MAP1_VERTEX_ATTRIB10_4_NV = 6A;
GL_MAP1_VERTEX_ATTRIB11_4_NV = 6B;
GL_MAP1_VERTEX_ATTRIB12_4_NV = 6C;
GL_MAP1_VERTEX_ATTRIB13_4_NV = 6D;
GL_MAP1_VERTEX_ATTRIB14_4_NV = 6E;
GL_MAP1_VERTEX_ATTRIB15_4_NV = 6F;
GL_MAP2_VERTEX_ATTRIB0_4_NV = 70;
GL_MAP2_VERTEX_ATTRIB1_4_NV = 71;
GL_MAP2_VERTEX_ATTRIB2_4_NV = 72;
GL_MAP2_VERTEX_ATTRIB3_4_NV = 73;
GL_MAP2_VERTEX_ATTRIB4_4_NV = 74;
GL_MAP2_VERTEX_ATTRIB5_4_NV = 75;
GL_MAP2_VERTEX_ATTRIB6_4_NV = 76;
GL_MAP2_VERTEX_ATTRIB7_4_NV = 77;
GL_MAP2_VERTEX_ATTRIB8_4_NV = 78;
GL_MAP2_VERTEX_ATTRIB9_4_NV = 79;
GL_MAP2_VERTEX_ATTRIB10_4_NV = 7A;
GL_MAP2_VERTEX_ATTRIB11_4_NV = 7B;
GL_MAP2_VERTEX_ATTRIB12_4_NV = 7C;
GL_MAP2_VERTEX_ATTRIB13_4_NV = 7D;
GL_MAP2_VERTEX_ATTRIB14_4_NV = 7E;
GL_MAP2_VERTEX_ATTRIB15_4_NV = 7F;
var
glBindProgramNV: procedure(target: GLenum; id: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDeleteProgramsNV: procedure(n: GLsizei; const ids: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glExecuteProgramNV: procedure(target: GLenum; id: GLuint; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGenProgramsNV: procedure(n: GLsizei; ids: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glAreProgramsResidentNV: function(n: GLsizei; const ids: PGLuint; residences: PGLboolean): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glRequestResidentProgramsNV: procedure(n: GLsizei; ids: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetProgramParameterfvNV: procedure(target: GLenum; index: GLuint; pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetProgramParameterdvNV: procedure(target: GLenum; index: GLuint; pname: GLenum; params: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetProgramivNV: procedure(id: GLuint; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetProgramStringNV: procedure(id: GLuint; pname: GLenum; _program: PGLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetTrackMatrixivNV: procedure(target: GLenum; address: GLuint; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetVertexAttribdvNV: procedure(index: GLuint; pname: GLenum; params: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetVertexAttribfvNV: procedure(index: GLuint; pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetVertexAttribivNV: procedure(index: GLuint; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetVertexAttribPointervNV: procedure(index: GLuint; pname: GLenum; pointer: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glIsProgramNV: function(id: GLuint): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glLoadProgramNV: procedure(target: GLenum; id: GLuint; len: GLsizei; const _program: PGLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glProgramParameter4fNV: procedure(target: GLenum; index: GLuint; x: GLfloat; y: GLfloat; z: GLfloat; w: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glProgramParameter4fvNV: procedure(target: GLenum; index: GLuint; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glProgramParameters4dvNV: procedure(target: GLenum; index: GLuint; num: GLuint; const params: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glProgramParameters4fvNV: procedure(target: GLenum; index: GLuint; num: GLuint; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTrackMatrixNV: procedure(target: GLenum; address: GLuint; matrix: GLenum; transform: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttribPointerNV: procedure(index: GLuint; size: GLint; _type: GLenum; stride: GLsizei; const pointer: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib1sNV: procedure(index: GLuint; x: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib1fNV: procedure(index: GLuint; x: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib1dNV: procedure(index: GLuint; x: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib2sNV: procedure(index: GLuint; x: GLshort; y: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib2fNV: procedure(index: GLuint; x: GLfloat; y: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib2dNV: procedure(index: GLuint; x: GLdouble; y: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib3sNV: procedure(index: GLuint; x: GLshort; y: GLshort; z: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib3fNV: procedure(index: GLuint; x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib3dNV: procedure(index: GLuint; x: GLdouble; y: GLdouble; z: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4sNV: procedure(index: GLuint; x: GLshort; y: GLshort; z: GLshort; w: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4fNV: procedure(index: GLuint; x: GLfloat; y: GLfloat; z: GLfloat; w: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4dNV: procedure(index: GLuint; x: GLdouble; y: GLdouble; z: GLdouble; w: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4ubNV: procedure(index: GLuint; x: GLubyte; y: GLubyte; z: GLubyte; w: GLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib1svNV: procedure(index: GLuint; const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib1fvNV: procedure(index: GLuint; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib1dvNV: procedure(index: GLuint; const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib2svNV: procedure(index: GLuint; const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib2fvNV: procedure(index: GLuint; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib2dvNV: procedure(index: GLuint; const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib3svNV: procedure(index: GLuint; const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib3fvNV: procedure(index: GLuint; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib3dvNV: procedure(index: GLuint; const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4svNV: procedure(index: GLuint; const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4fvNV: procedure(index: GLuint; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4dvNV: procedure(index: GLuint; const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4ubvNV: procedure(index: GLuint; const v: PGLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttribs1svNV: procedure(index: GLuint; n: GLsizei; const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttribs1fvNV: procedure(index: GLuint; n: GLsizei; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttribs1dvNV: procedure(index: GLuint; n: GLsizei; const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttribs2svNV: procedure(index: GLuint; n: GLsizei; const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttribs2fvNV: procedure(index: GLuint; n: GLsizei; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttribs2dvNV: procedure(index: GLuint; n: GLsizei; const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttribs3svNV: procedure(index: GLuint; n: GLsizei; const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttribs3fvNV: procedure(index: GLuint; n: GLsizei; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttribs3dvNV: procedure(index: GLuint; n: GLsizei; const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttribs4svNV: procedure(index: GLuint; n: GLsizei; const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttribs4fvNV: procedure(index: GLuint; n: GLsizei; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttribs4dvNV: procedure(index: GLuint; n: GLsizei; const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttribs4ubvNV: procedure(index: GLuint; n: GLsizei; const v: PGLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_NV_vertex_program: Boolean;
//***** GL_NV_vertex_program1_1 *****//
function Load_GL_NV_vertex_program1_1: Boolean;
//***** GL_ATI_element_array *****//
const
GL_ELEMENT_ARRAY_ATI = 68;
GL_ELEMENT_ARRAY_TYPE_ATI = 69;
GL_ELEMENT_ARRAY_POINTER_ATI = 6A;
var
glElementPointerATI: procedure(_type: GLenum; const pointer: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDrawElementArrayATI: procedure(mode: GLenum; count: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDrawRangeElementArrayATI: procedure(mode: GLenum; start: GLuint; _end: GLuint; count: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_ATI_element_array: Boolean;
//***** GL_ATI_envmap_bumpmap *****//
const
GL_BUMP_ROT_MATRIX_ATI = 75;
GL_BUMP_ROT_MATRIX_SIZE_ATI = 76;
GL_BUMP_NUM_TEX_UNITS_ATI = 77;
GL_BUMP_TEX_UNITS_ATI = 78;
GL_DUDV_ATI = 79;
GL_DU8DV8_ATI = 7A;
GL_BUMP_ENVMAP_ATI = 7B;
GL_BUMP_TARGET_ATI = 7C;
var
glTexBumpParameterivATI: procedure(pname: GLenum; param: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexBumpParameterfvATI: procedure(pname: GLenum; param: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetTexBumpParameterivATI: procedure(pname: GLenum; param: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetTexBumpParameterfvATI: procedure(pname: GLenum; param: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_ATI_envmap_bumpmap: Boolean;
//***** GL_ATI_fragment_shader *****//
const
GL_FRAGMENT_SHADER_ATI = 20;
GL_REG_0_ATI = 21;
GL_REG_1_ATI = 22;
GL_REG_2_ATI = 23;
GL_REG_3_ATI = 24;
GL_REG_4_ATI = 25;
GL_REG_5_ATI = 26;
GL_CON_0_ATI = 41;
GL_CON_1_ATI = 42;
GL_CON_2_ATI = 43;
GL_CON_3_ATI = 44;
GL_CON_4_ATI = 45;
GL_CON_5_ATI = 46;
GL_CON_6_ATI = 47;
GL_CON_7_ATI = 48;
GL_MOV_ATI = 61;
GL_ADD_ATI = 63;
GL_MUL_ATI = 64;
GL_SUB_ATI = 65;
GL_DOT3_ATI = 66;
GL_DOT4_ATI = 67;
GL_MAD_ATI = 68;
GL_LERP_ATI = 69;
GL_CND_ATI = 6A;
GL_CND0_ATI = 6B;
GL_DOT2_ADD_ATI = 6C;
GL_SECONDARY_INTERPOLATOR_ATI = 6D;
GL_SWIZZLE_STR_ATI = 76;
GL_SWIZZLE_STQ_ATI = 77;
GL_SWIZZLE_STR_DR_ATI = 78;
GL_SWIZZLE_STQ_DQ_ATI = 79;
GL_RED_BIT_ATI = {viewgit}{/viewgit}01;
GL_GREEN_BIT_ATI = {viewgit}{/viewgit}02;
GL_BLUE_BIT_ATI = {viewgit}{/viewgit}04;
GL_2X_BIT_ATI = {viewgit}{/viewgit}01;
GL_4X_BIT_ATI = {viewgit}{/viewgit}02;
GL_8X_BIT_ATI = {viewgit}{/viewgit}04;
GL_HALF_BIT_ATI = {viewgit}{/viewgit}08;
GL_QUARTER_BIT_ATI = {viewgit}{/viewgit}10;
GL_EIGHTH_BIT_ATI = {viewgit}{/viewgit}20;
GL_SATURATE_BIT_ATI = {viewgit}{/viewgit}40;
// GL_2X_BIT_ATI { already defined }
GL_COMP_BIT_ATI = {viewgit}{/viewgit}02;
GL_NEGATE_BIT_ATI = {viewgit}{/viewgit}04;
GL_BIAS_BIT_ATI = {viewgit}{/viewgit}08;
var
glGenFragmentShadersATI: function(range: GLuint): GLuint; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glBindFragmentShaderATI: procedure(id: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDeleteFragmentShaderATI: procedure(id: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glBeginFragmentShaderATI: procedure(); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glEndFragmentShaderATI: procedure(); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glPassTexCoordATI: procedure(dst: GLuint; coord: GLuint; swizzle: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSampleMapATI: procedure(dst: GLuint; interp: GLuint; swizzle: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glColorFragmentOp1ATI: procedure(op: GLenum; dst: GLuint; dstMask: GLuint; dstMod: GLuint; arg1: GLuint; arg1Rep: GLuint; arg1Mod: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glColorFragmentOp2ATI: procedure(op: GLenum; dst: GLuint; dstMask: GLuint; dstMod: GLuint; arg1: GLuint; arg1Rep: GLuint; arg1Mod: GLuint; arg2: GLuint; arg2Rep: GLuint; arg2Mod: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glColorFragmentOp3ATI: procedure(op: GLenum; dst: GLuint; dstMask: GLuint; dstMod: GLuint; arg1: GLuint; arg1Rep: GLuint; arg1Mod: GLuint; arg2: GLuint; arg2Rep: GLuint; arg2Mod: GLuint; arg3: GLuint; arg3Rep: GLuint; arg3Mod: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glAlphaFragmentOp1ATI: procedure(op: GLenum; dst: GLuint; dstMod: GLuint; arg1: GLuint; arg1Rep: GLuint; arg1Mod: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glAlphaFragmentOp2ATI: procedure(op: GLenum; dst: GLuint; dstMod: GLuint; arg1: GLuint; arg1Rep: GLuint; arg1Mod: GLuint; arg2: GLuint; arg2Rep: GLuint; arg2Mod: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glAlphaFragmentOp3ATI: procedure(op: GLenum; dst: GLuint; dstMod: GLuint; arg1: GLuint; arg1Rep: GLuint; arg1Mod: GLuint; arg2: GLuint; arg2Rep: GLuint; arg2Mod: GLuint; arg3: GLuint; arg3Rep: GLuint; arg3Mod: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSetFragmentShaderConstantATI: procedure(dst: GLuint; const value: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_ATI_fragment_shader: Boolean;
//***** GL_ATI_pn_triangles *****//
const
GL_PN_TRIANGLES_ATI = F0;
GL_MAX_PN_TRIANGLES_TESSELATION_LEVEL_ATI = F1;
GL_PN_TRIANGLES_POINT_MODE_ATI = F2;
GL_PN_TRIANGLES_NORMAL_MODE_ATI = F3;
GL_PN_TRIANGLES_TESSELATION_LEVEL_ATI = F4;
GL_PN_TRIANGLES_POINT_MODE_LINEAR_ATI = F5;
GL_PN_TRIANGLES_POINT_MODE_CUBIC_ATI = F6;
GL_PN_TRIANGLES_NORMAL_MODE_LINEAR_ATI = F7;
GL_PN_TRIANGLES_NORMAL_MODE_QUADRATIC_ATI = F8;
var
glPNTrianglesiATI: procedure(pname: GLenum; param: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glPNTrianglesfATI: procedure(pname: GLenum; param: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_ATI_pn_triangles: Boolean;
//***** GL_ATI_texture_mirror_once *****//
const
GL_MIRROR_CLAMP_ATI = 42;
GL_MIRROR_CLAMP_TO_EDGE_ATI = 43;
function Load_GL_ATI_texture_mirror_once: Boolean;
//***** GL_ATI_vertex_array_object *****//
const
GL_STATIC_ATI = 60;
GL_DYNAMIC_ATI = 61;
GL_PRESERVE_ATI = 62;
GL_DISCARD_ATI = 63;
GL_OBJECT_BUFFER_SIZE_ATI = 64;
GL_OBJECT_BUFFER_USAGE_ATI = 65;
GL_ARRAY_OBJECT_BUFFER_ATI = 66;
GL_ARRAY_OBJECT_OFFSET_ATI = 67;
var
glNewObjectBufferATI: function(size: GLsizei; const pointer: PGLvoid; usage: GLenum): GLuint; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glIsObjectBufferATI: function(buffer: GLuint): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUpdateObjectBufferATI: procedure(buffer: GLuint; offset: GLuint; size: GLsizei; const pointer: PGLvoid; preserve: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetObjectBufferfvATI: procedure(buffer: GLuint; pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetObjectBufferivATI: procedure(buffer: GLuint; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDeleteObjectBufferATI: procedure(buffer: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glArrayObjectATI: procedure(_array: GLenum; size: GLint; _type: GLenum; stride: GLsizei; buffer: GLuint; offset: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetArrayObjectfvATI: procedure(_array: GLenum; pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetArrayObjectivATI: procedure(_array: GLenum; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVariantArrayObjectATI: procedure(id: GLuint; _type: GLenum; stride: GLsizei; buffer: GLuint; offset: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetVariantArrayObjectfvATI: procedure(id: GLuint; pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetVariantArrayObjectivATI: procedure(id: GLuint; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_ATI_vertex_array_object: Boolean;
//***** GL_ATI_vertex_streams *****//
const
GL_MAX_VERTEX_STREAMS_ATI = 6B;
GL_VERTEX_STREAM0_ATI = 6C;
GL_VERTEX_STREAM1_ATI = 6D;
GL_VERTEX_STREAM2_ATI = 6E;
GL_VERTEX_STREAM3_ATI = 6F;
GL_VERTEX_STREAM4_ATI = 70;
GL_VERTEX_STREAM5_ATI = 71;
GL_VERTEX_STREAM6_ATI = 72;
GL_VERTEX_STREAM7_ATI = 73;
GL_VERTEX_SOURCE_ATI = 74;
var
glVertexStream1s: procedure(stream: GLenum; coords: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream1i: procedure(stream: GLenum; coords: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream1f: procedure(stream: GLenum; coords: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream1d: procedure(stream: GLenum; coords: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream1sv: procedure(stream: GLenum; coords: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream1iv: procedure(stream: GLenum; coords: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream1fv: procedure(stream: GLenum; coords: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream1dv: procedure(stream: GLenum; coords: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream2s: procedure(stream: GLenum; coords: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream2i: procedure(stream: GLenum; coords: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream2f: procedure(stream: GLenum; coords: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream2d: procedure(stream: GLenum; coords: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream2sv: procedure(stream: GLenum; coords: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream2iv: procedure(stream: GLenum; coords: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream2fv: procedure(stream: GLenum; coords: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream2dv: procedure(stream: GLenum; coords: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream3s: procedure(stream: GLenum; coords: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream3i: procedure(stream: GLenum; coords: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream3f: procedure(stream: GLenum; coords: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream3d: procedure(stream: GLenum; coords: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream3sv: procedure(stream: GLenum; coords: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream3iv: procedure(stream: GLenum; coords: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream3fv: procedure(stream: GLenum; coords: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream3dv: procedure(stream: GLenum; coords: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream4s: procedure(stream: GLenum; coords: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream4i: procedure(stream: GLenum; coords: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream4f: procedure(stream: GLenum; coords: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream4d: procedure(stream: GLenum; coords: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream4sv: procedure(stream: GLenum; coords: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream4iv: procedure(stream: GLenum; coords: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream4fv: procedure(stream: GLenum; coords: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexStream4dv: procedure(stream: GLenum; coords: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glNormalStream3b: procedure(stream: GLenum; coords: GLbyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glNormalStream3s: procedure(stream: GLenum; coords: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glNormalStream3i: procedure(stream: GLenum; coords: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glNormalStream3f: procedure(stream: GLenum; coords: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glNormalStream3d: procedure(stream: GLenum; coords: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glNormalStream3bv: procedure(stream: GLenum; coords: GLbyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glNormalStream3sv: procedure(stream: GLenum; coords: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glNormalStream3iv: procedure(stream: GLenum; coords: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glNormalStream3fv: procedure(stream: GLenum; coords: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glNormalStream3dv: procedure(stream: GLenum; coords: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glClientActiveVertexStream: procedure(stream: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexBlendEnvi: procedure(pname: GLenum; param: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexBlendEnvf: procedure(pname: GLenum; param: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_ATI_vertex_streams: Boolean;
{$IFDEF WINDOWS}
//***** WGL_I3D_image_buffer *****//
const
WGL_IMAGE_BUFFER_MIN_ACCESS_I3D = {viewgit}{/viewgit}01;
WGL_IMAGE_BUFFER_LOCK_I3D = {viewgit}{/viewgit}02;
var
wglCreateImageBufferI3D: function(hDC: HDC; dwSize: DWORD; uFlags: UINT): PGLvoid; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglDestroyImageBufferI3D: function(hDC: HDC; pAddress: PGLvoid): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglAssociateImageBufferEventsI3D: function(hdc: HDC; pEvent: PHandle; pAddress: PGLvoid; pSize: PDWORD; count: UINT): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglReleaseImageBufferEventsI3D: function(hdc: HDC; pAddress: PGLvoid; count: UINT): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_WGL_I3D_image_buffer: Boolean;
//***** WGL_I3D_swap_frame_lock *****//
var
wglEnableFrameLockI3D: function(): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglDisableFrameLockI3D: function(): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglIsEnabledFrameLockI3D: function(pFlag: PBOOL): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglQueryFrameLockMasterI3D: function(pFlag: PBOOL): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_WGL_I3D_swap_frame_lock: Boolean;
//***** WGL_I3D_swap_frame_usage *****//
var
wglGetFrameUsageI3D: function(pUsage: PGLfloat): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglBeginFrameTrackingI3D: function(): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglEndFrameTrackingI3D: function(): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglQueryFrameTrackingI3D: function(pFrameCount: PDWORD; pMissedFrames: PDWORD; pLastMissedUsage: PGLfloat): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_WGL_I3D_swap_frame_usage: Boolean;
{$ENDIF}
//***** GL_3DFX_texture_compression_FXT1 *****//
const
GL_COMPRESSED_RGB_FXT1_3DFX = B0;
GL_COMPRESSED_RGBA_FXT1_3DFX = B1;
function Load_GL_3DFX_texture_compression_FXT1: Boolean;
//***** GL_IBM_cull_vertex *****//
const
GL_CULL_VERTEX_IBM = 28A;
function Load_GL_IBM_cull_vertex: Boolean;
//***** GL_IBM_multimode_draw_arrays *****//
var
glMultiModeDrawArraysIBM: procedure(mode: PGLenum; first: PGLint; count: PGLsizei; primcount: GLsizei; modestride: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiModeDrawElementsIBM: procedure(mode: PGLenum; count: PGLsizei; _type: GLenum; const indices: PGLvoid; primcount: GLsizei; modestride: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_IBM_multimode_draw_arrays: Boolean;
//***** GL_IBM_raster_pos_clip *****//
const
GL_RASTER_POSITION_UNCLIPPED_IBM = 262;
function Load_GL_IBM_raster_pos_clip: Boolean;
//***** GL_IBM_texture_mirrored_repeat *****//
const
GL_MIRRORED_REPEAT_IBM = 70;
function Load_GL_IBM_texture_mirrored_repeat: Boolean;
//***** GL_IBM_vertex_array_lists *****//
const
GL_VERTEX_ARRAY_LIST_IBM = 29E;
GL_NORMAL_ARRAY_LIST_IBM = 29F;
GL_COLOR_ARRAY_LIST_IBM = 2A0;
GL_INDEX_ARRAY_LIST_IBM = 2A1;
GL_TEXTURE_COORD_ARRAY_LIST_IBM = 2A2;
GL_EDGE_FLAG_ARRAY_LIST_IBM = 2A3;
GL_FOG_COORDINATE_ARRAY_LIST_IBM = 2A4;
GL_SECONDARY_COLOR_ARRAY_LIST_IBM = 2A5;
GL_VERTEX_ARRAY_LIST_STRIDE_IBM = 2A8;
GL_NORMAL_ARRAY_LIST_STRIDE_IBM = 2A9;
GL_COLOR_ARRAY_LIST_STRIDE_IBM = 2AA;
GL_INDEX_ARRAY_LIST_STRIDE_IBM = 2AB;
GL_TEXTURE_COORD_ARRAY_LIST_STRIDE_IBM = 2AC;
GL_EDGE_FLAG_ARRAY_LIST_STRIDE_IBM = 2AD;
GL_FOG_COORDINATE_ARRAY_LIST_STRIDE_IBM = 2AE;
GL_SECONDARY_COLOR_ARRAY_LIST_STRIDE_IBM = 2AF;
var
glColorPointerListIBM: procedure(size: GLint; _type: GLenum; stride: GLint; const pointer: PGLvoid; ptrstride: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColorPointerListIBM: procedure(size: GLint; _type: GLenum; stride: GLint; const pointer: PGLvoid; ptrstride: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glEdgeFlagPointerListIBM: procedure(stride: GLint; const pointer: PGLboolean; ptrstride: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glFogCoordPointerListIBM: procedure(_type: GLenum; stride: GLint; const pointer: PGLvoid; ptrstride: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glNormalPointerListIBM: procedure(_type: GLenum; stride: GLint; const pointer: PGLvoid; ptrstride: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexCoordPointerListIBM: procedure(size: GLint; _type: GLenum; stride: GLint; const pointer: PGLvoid; ptrstride: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexPointerListIBM: procedure(size: GLint; _type: GLenum; stride: GLint; const pointer: PGLvoid; ptrstride: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_IBM_vertex_array_lists: Boolean;
//***** GL_MESA_resize_buffers *****//
var
glResizeBuffersMESA: procedure(); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_MESA_resize_buffers: Boolean;
//***** GL_MESA_window_pos *****//
var
glWindowPos2dMESA: procedure(x: GLdouble; y: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos2fMESA: procedure(x: GLfloat; y: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos2iMESA: procedure(x: GLint; y: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos2sMESA: procedure(x: GLshort; y: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos2ivMESA: procedure(const p: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos2svMESA: procedure(const p: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos2fvMESA: procedure(const p: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos2dvMESA: procedure(const p: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos3iMESA: procedure(x: GLint; y: GLint; z: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos3sMESA: procedure(x: GLshort; y: GLshort; z: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos3fMESA: procedure(x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos3dMESA: procedure(x: GLdouble; y: GLdouble; z: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos3ivMESA: procedure(const p: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos3svMESA: procedure(const p: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos3fvMESA: procedure(const p: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos3dvMESA: procedure(const p: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos4iMESA: procedure(x: GLint; y: GLint; z: GLint; w: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos4sMESA: procedure(x: GLshort; y: GLshort; z: GLshort; w: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos4fMESA: procedure(x: GLfloat; y: GLfloat; z: GLfloat; w: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos4dMESA: procedure(x: GLdouble; y: GLdouble; z: GLdouble; w: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos4ivMESA: procedure(const p: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos4svMESA: procedure(const p: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos4fvMESA: procedure(const p: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos4dvMESA: procedure(const p: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_MESA_window_pos: Boolean;
//***** GL_OML_interlace *****//
const
GL_INTERLACE_OML = 80;
GL_INTERLACE_READ_OML = 81;
function Load_GL_OML_interlace: Boolean;
//***** GL_OML_resample *****//
const
GL_PACK_RESAMPLE_OML = 84;
GL_UNPACK_RESAMPLE_OML = 85;
GL_RESAMPLE_REPLICATE_OML = 86;
GL_RESAMPLE_ZERO_FILL_OML = 87;
GL_RESAMPLE_AVERAGE_OML = 88;
GL_RESAMPLE_DECIMATE_OML = 89;
// GL_RESAMPLE_AVERAGE_OML { already defined }
function Load_GL_OML_resample: Boolean;
//***** GL_OML_subsample *****//
const
GL_FORMAT_SUBSAMPLE_24_24_OML = 82;
GL_FORMAT_SUBSAMPLE_244_244_OML = 83;
function Load_GL_OML_subsample: Boolean;
//***** GL_SGIS_generate_mipmap *****//
const
GL_GENERATE_MIPMAP_SGIS = 91;
GL_GENERATE_MIPMAP_HINT_SGIS = 92;
function Load_GL_SGIS_generate_mipmap: Boolean;
//***** GL_SGIS_multisample *****//
const
GLX_SAMPLE_BUFFERS_SGIS = 6A0;
GLX_SAMPLES_SGIS = 6A1;
GL_MULTISAMPLE_SGIS = 9D;
GL_SAMPLE_ALPHA_TO_MASK_SGIS = 9E;
GL_SAMPLE_ALPHA_TO_ONE_SGIS = 9F;
GL_SAMPLE_MASK_SGIS = A0;
GL_MULTISAMPLE_BIT_EXT = 000000;
GL_1PASS_SGIS = A1;
GL_2PASS_0_SGIS = A2;
GL_2PASS_1_SGIS = A3;
GL_4PASS_0_SGIS = A4;
GL_4PASS_1_SGIS = A5;
GL_4PASS_2_SGIS = A6;
GL_4PASS_3_SGIS = A7;
GL_SAMPLE_BUFFERS_SGIS = A8;
GL_SAMPLES_SGIS = A9;
GL_SAMPLE_MASK_VALUE_SGIS = AA;
GL_SAMPLE_MASK_INVERT_SGIS = AB;
GL_SAMPLE_PATTERN_SGIS = AC;
var
glSampleMaskSGIS: procedure(value: GLclampf; invert: GLboolean); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSamplePatternSGIS: procedure(pattern: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_SGIS_multisample: Boolean;
//***** GL_SGIS_pixel_texture *****//
const
GL_PIXEL_TEXTURE_SGIS = 53;
GL_PIXEL_FRAGMENT_RGB_SOURCE_SGIS = 54;
GL_PIXEL_FRAGMENT_ALPHA_SOURCE_SGIS = 55;
GL_PIXEL_GROUP_COLOR_SGIS = 56;
var
glPixelTexGenParameteriSGIS: procedure(pname: GLenum; param: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glPixelTexGenParameterfSGIS: procedure(pname: GLenum; param: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetPixelTexGenParameterivSGIS: procedure(pname: GLenum; params: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetPixelTexGenParameterfvSGIS: procedure(pname: GLenum; params: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_SGIS_pixel_texture: Boolean;
//***** GL_SGIS_texture_border_clamp *****//
// GL_CLAMP_TO_BORDER_SGIS { already defined }
function Load_GL_SGIS_texture_border_clamp: Boolean;
//***** GL_SGIS_texture_color_mask *****//
const
GL_TEXTURE_COLOR_WRITEMASK_SGIS = EF;
var
glTextureColorMaskSGIS: procedure(r: GLboolean; g: GLboolean; b: GLboolean; a: GLboolean); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_SGIS_texture_color_mask: Boolean;
//***** GL_SGIS_texture_edge_clamp *****//
const
GL_CLAMP_TO_EDGE_SGIS = 2F;
function Load_GL_SGIS_texture_edge_clamp: Boolean;
//***** GL_SGIS_texture_lod *****//
const
GL_TEXTURE_MIN_LOD_SGIS = 3A;
GL_TEXTURE_MAX_LOD_SGIS = 3B;
GL_TEXTURE_BASE_LEVEL_SGIS = 3C;
GL_TEXTURE_MAX_LEVEL_SGIS = 3D;
function Load_GL_SGIS_texture_lod: Boolean;
//***** GL_SGIS_depth_texture *****//
const
GL_DEPTH_COMPONENT16_SGIX = A5;
GL_DEPTH_COMPONENT24_SGIX = A6;
GL_DEPTH_COMPONENT32_SGIX = A7;
function Load_GL_SGIS_depth_texture: Boolean;
//***** GL_SGIX_fog_offset *****//
const
GL_FOG_OFFSET_SGIX = 98;
GL_FOG_OFFSET_VALUE_SGIX = 99;
function Load_GL_SGIX_fog_offset: Boolean;
//***** GL_SGIX_interlace *****//
const
GL_INTERLACE_SGIX = 94;
function Load_GL_SGIX_interlace: Boolean;
//***** GL_SGIX_shadow_ambient *****//
const
GL_SHADOW_AMBIENT_SGIX = BF;
function Load_GL_SGIX_shadow_ambient: Boolean;
//***** GL_SGI_color_matrix *****//
const
GL_COLOR_MATRIX_SGI = B1;
GL_COLOR_MATRIX_STACK_DEPTH_SGI = B2;
GL_MAX_COLOR_MATRIX_STACK_DEPTH_SGI = B3;
GL_POST_COLOR_MATRIX_RED_SCALE_SGI = B4;
GL_POST_COLOR_MATRIX_GREEN_SCALE_SGI = B5;
GL_POST_COLOR_MATRIX_BLUE_SCALE_SGI = B6;
GL_POST_COLOR_MATRIX_ALPHA_SCALE_SGI = B7;
GL_POST_COLOR_MATRIX_RED_BIAS_SGI = B8;
GL_POST_COLOR_MATRIX_GREEN_BIAS_SGI = B9;
GL_POST_COLOR_MATRIX_BLUE_BIAS_SGI = BA;
GL_POST_COLOR_MATRIX_ALPHA_BIAS_SGI = BB;
function Load_GL_SGI_color_matrix: Boolean;
//***** GL_SGI_color_table *****//
const
GL_COLOR_TABLE_SGI = D0;
GL_POST_CONVOLUTION_COLOR_TABLE_SGI = D1;
GL_POST_COLOR_MATRIX_COLOR_TABLE_SGI = D2;
GL_PROXY_COLOR_TABLE_SGI = D3;
GL_PROXY_POST_CONVOLUTION_COLOR_TABLE_SGI = D4;
GL_PROXY_POST_COLOR_MATRIX_COLOR_TABLE_SGI = D5;
GL_COLOR_TABLE_SCALE_SGI = D6;
GL_COLOR_TABLE_BIAS_SGI = D7;
GL_COLOR_TABLE_FORMAT_SGI = D8;
GL_COLOR_TABLE_WIDTH_SGI = D9;
GL_COLOR_TABLE_RED_SIZE_SGI = DA;
GL_COLOR_TABLE_GREEN_SIZE_SGI = DB;
GL_COLOR_TABLE_BLUE_SIZE_SGI = DC;
GL_COLOR_TABLE_ALPHA_SIZE_SGI = DD;
GL_COLOR_TABLE_LUMINANCE_SIZE_SGI = DE;
GL_COLOR_TABLE_INTENSITY_SIZE_SGI = DF;
var
glColorTableSGI: procedure(target: GLenum; internalformat: GLenum; width: GLsizei; format: GLenum; _type: GLenum; const table: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCopyColorTableSGI: procedure(target: GLenum; internalformat: GLenum; x: GLint; y: GLint; width: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glColorTableParameterivSGI: procedure(target: GLenum; pname: GLenum; const params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glColorTableParameterfvSGI: procedure(target: GLenum; pname: GLenum; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetColorTableSGI: procedure(target: GLenum; format: GLenum; _type: GLenum; table: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetColorTableParameterivSGI: procedure(target: GLenum; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetColorTableParameterfvSGI: procedure(target: GLenum; pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_SGI_color_table: Boolean;
//***** GL_SGI_texture_color_table *****//
const
GL_TEXTURE_COLOR_TABLE_SGI = BC;
GL_PROXY_TEXTURE_COLOR_TABLE_SGI = BD;
function Load_GL_SGI_texture_color_table: Boolean;
//***** GL_SUN_vertex *****//
var
glColor4ubVertex2fSUN: procedure(r: GLubyte; g: GLubyte; b: GLubyte; a: GLubyte; x: GLfloat; y: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glColor4ubVertex2fvSUN: procedure(const c: PGLubyte; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glColor4ubVertex3fSUN: procedure(r: GLubyte; g: GLubyte; b: GLubyte; a: GLubyte; x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glColor4ubVertex3fvSUN: procedure(const c: PGLubyte; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glColor3fVertex3fSUN: procedure(r: GLfloat; g: GLfloat; b: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glColor3fVertex3fvSUN: procedure(const c: PGLfloat; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glNormal3fVertex3fSUN: procedure(nx: GLfloat; ny: GLfloat; nz: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glNormal3fVertex3fvSUN: procedure(const n: PGLfloat; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glColor4fNormal3fVertex3fSUN: procedure(r: GLfloat; g: GLfloat; b: GLfloat; a: GLfloat; nx: GLfloat; ny: GLfloat; nz: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glColor4fNormal3fVertex3fvSUN: procedure(const c: PGLfloat; const n: PGLfloat; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexCoord2fVertex3fSUN: procedure(s: GLfloat; t: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexCoord2fVertex3fvSUN: procedure(const tc: PGLfloat; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexCoord4fVertex4fSUN: procedure(s: GLfloat; t: GLfloat; p: GLfloat; q: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat; w: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexCoord4fVertex4fvSUN: procedure(const tc: PGLfloat; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexCoord2fColor4ubVertex3fSUN: procedure(s: GLfloat; t: GLfloat; r: GLubyte; g: GLubyte; b: GLubyte; a: GLubyte; x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexCoord2fColor4ubVertex3fvSUN: procedure(const tc: PGLfloat; const c: PGLubyte; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexCoord2fColor3fVertex3fSUN: procedure(s: GLfloat; t: GLfloat; r: GLfloat; g: GLfloat; b: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexCoord2fColor3fVertex3fvSUN: procedure(const tc: PGLfloat; const c: PGLfloat; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexCoord2fNormal3fVertex3fSUN: procedure(s: GLfloat; t: GLfloat; nx: GLfloat; ny: GLfloat; nz: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexCoord2fNormal3fVertex3fvSUN: procedure(const tc: PGLfloat; const n: PGLfloat; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexCoord2fColor4fNormal3fVertex3fSUN: procedure(s: GLfloat; t: GLfloat; r: GLfloat; g: GLfloat; b: GLfloat; a: GLfloat; nx: GLfloat; ny: GLfloat; nz: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexCoord2fColor4fNormal3fVertex3fvSUN: procedure(const tc: PGLfloat; const c: PGLfloat; const n: PGLfloat; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexCoord4fColor4fNormal3fVertex4fSUN: procedure(s: GLfloat; t: GLfloat; p: GLfloat; q: GLfloat; r: GLfloat; g: GLfloat; b: GLfloat; a: GLfloat; nx: GLfloat; ny: GLfloat; nz: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat; w: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexCoord4fColor4fNormal3fVertex4fvSUN: procedure(const tc: PGLfloat; const c: PGLfloat; const n: PGLfloat; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glReplacementCodeuiVertex3fSUN: procedure(rc: GLuint; x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glReplacementCodeuiVertex3fvSUN: procedure(const rc: PGLuint; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glReplacementCodeuiColor4ubVertex3fSUN: procedure(rc: GLuint; r: GLubyte; g: GLubyte; b: GLubyte; a: GLubyte; x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glReplacementCodeuiColor4ubVertex3fvSUN: procedure(const rc: PGLuint; const c: PGLubyte; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glReplacementCodeuiColor3fVertex3fSUN: procedure(rc: GLuint; r: GLfloat; g: GLfloat; b: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glReplacementCodeuiColor3fVertex3fvSUN: procedure(const rc: PGLuint; const c: PGLfloat; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glReplacementCodeuiNormal3fVertex3fSUN: procedure(rc: GLuint; nx: GLfloat; ny: GLfloat; nz: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glReplacementCodeuiNormal3fVertex3fvSUN: procedure(const rc: PGLuint; const n: PGLfloat; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glReplacementCodeuiColor4fNormal3fVertex3fSUN: procedure(rc: GLuint; r: GLfloat; g: GLfloat; b: GLfloat; a: GLfloat; nx: GLfloat; ny: GLfloat; nz: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glReplacementCodeuiColor4fNormal3fVertex3fvSUN: procedure(const rc: PGLuint; const c: PGLfloat; const n: PGLfloat; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glReplacementCodeuiTexCoord2fVertex3fSUN: procedure(rc: GLuint; s: GLfloat; t: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glReplacementCodeuiTexCoord2fVertex3fvSUN: procedure(const rc: PGLuint; const tc: PGLfloat; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glReplacementCodeuiTexCoord2fNormal3fVertex3fSUN: procedure(rc: GLuint; s: GLfloat; t: GLfloat; nx: GLfloat; ny: GLfloat; nz: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN: procedure(const rc: PGLuint; const tc: PGLfloat; const n: PGLfloat; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fSUN: procedure(rc: GLuint; s: GLfloat; t: GLfloat; r: GLfloat; g: GLfloat; b: GLfloat; a: GLfloat; nx: GLfloat; ny: GLfloat; nz: GLfloat; x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN: procedure(const rc: PGLuint; const tc: PGLfloat; const c: PGLfloat; const n: PGLfloat; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_SUN_vertex: Boolean;
//***** GL_ARB_fragment_program *****//
const
GL_FRAGMENT_PROGRAM_ARB = 04;
// GL_PROGRAM_FORMAT_ASCII_ARB { already defined }
// GL_PROGRAM_LENGTH_ARB { already defined }
// GL_PROGRAM_FORMAT_ARB { already defined }
// GL_PROGRAM_BINDING_ARB { already defined }
// GL_PROGRAM_INSTRUCTIONS_ARB { already defined }
// GL_MAX_PROGRAM_INSTRUCTIONS_ARB { already defined }
// GL_PROGRAM_NATIVE_INSTRUCTIONS_ARB { already defined }
// GL_MAX_PROGRAM_NATIVE_INSTRUCTIONS_ARB { already defined }
// GL_PROGRAM_TEMPORARIES_ARB { already defined }
// GL_MAX_PROGRAM_TEMPORARIES_ARB { already defined }
// GL_PROGRAM_NATIVE_TEMPORARIES_ARB { already defined }
// GL_MAX_PROGRAM_NATIVE_TEMPORARIES_ARB { already defined }
// GL_PROGRAM_PARAMETERS_ARB { already defined }
// GL_MAX_PROGRAM_PARAMETERS_ARB { already defined }
// GL_PROGRAM_NATIVE_PARAMETERS_ARB { already defined }
// GL_MAX_PROGRAM_NATIVE_PARAMETERS_ARB { already defined }
// GL_PROGRAM_ATTRIBS_ARB { already defined }
// GL_MAX_PROGRAM_ATTRIBS_ARB { already defined }
// GL_PROGRAM_NATIVE_ATTRIBS_ARB { already defined }
// GL_MAX_PROGRAM_NATIVE_ATTRIBS_ARB { already defined }
// GL_MAX_PROGRAM_LOCAL_PARAMETERS_ARB { already defined }
// GL_MAX_PROGRAM_ENV_PARAMETERS_ARB { already defined }
// GL_PROGRAM_UNDER_NATIVE_LIMITS_ARB { already defined }
GL_PROGRAM_ALU_INSTRUCTIONS_ARB = 05;
GL_PROGRAM_TEX_INSTRUCTIONS_ARB = 06;
GL_PROGRAM_TEX_INDIRECTIONS_ARB = 07;
GL_PROGRAM_NATIVE_ALU_INSTRUCTIONS_ARB = 08;
GL_PROGRAM_NATIVE_TEX_INSTRUCTIONS_ARB = 09;
GL_PROGRAM_NATIVE_TEX_INDIRECTIONS_ARB = 0A;
GL_MAX_PROGRAM_ALU_INSTRUCTIONS_ARB = 0B;
GL_MAX_PROGRAM_TEX_INSTRUCTIONS_ARB = 0C;
GL_MAX_PROGRAM_TEX_INDIRECTIONS_ARB = 0D;
GL_MAX_PROGRAM_NATIVE_ALU_INSTRUCTIONS_ARB = 0E;
GL_MAX_PROGRAM_NATIVE_TEX_INSTRUCTIONS_ARB = 0F;
GL_MAX_PROGRAM_NATIVE_TEX_INDIRECTIONS_ARB = 10;
// GL_PROGRAM_STRING_ARB { already defined }
// GL_PROGRAM_ERROR_POSITION_ARB { already defined }
// GL_CURRENT_MATRIX_ARB { already defined }
// GL_TRANSPOSE_CURRENT_MATRIX_ARB { already defined }
// GL_CURRENT_MATRIX_STACK_DEPTH_ARB { already defined }
// GL_MAX_PROGRAM_MATRICES_ARB { already defined }
// GL_MAX_PROGRAM_MATRIX_STACK_DEPTH_ARB { already defined }
GL_MAX_TEXTURE_COORDS_ARB = 71;
GL_MAX_TEXTURE_IMAGE_UNITS_ARB = 72;
// GL_PROGRAM_ERROR_STRING_ARB { already defined }
// GL_MATRIX0_ARB { already defined }
// GL_MATRIX1_ARB { already defined }
// GL_MATRIX2_ARB { already defined }
// GL_MATRIX3_ARB { already defined }
// GL_MATRIX4_ARB { already defined }
// GL_MATRIX5_ARB { already defined }
// GL_MATRIX6_ARB { already defined }
// GL_MATRIX7_ARB { already defined }
// GL_MATRIX8_ARB { already defined }
// GL_MATRIX9_ARB { already defined }
// GL_MATRIX10_ARB { already defined }
// GL_MATRIX11_ARB { already defined }
// GL_MATRIX12_ARB { already defined }
// GL_MATRIX13_ARB { already defined }
// GL_MATRIX14_ARB { already defined }
// GL_MATRIX15_ARB { already defined }
// GL_MATRIX16_ARB { already defined }
// GL_MATRIX17_ARB { already defined }
// GL_MATRIX18_ARB { already defined }
// GL_MATRIX19_ARB { already defined }
// GL_MATRIX20_ARB { already defined }
// GL_MATRIX21_ARB { already defined }
// GL_MATRIX22_ARB { already defined }
// GL_MATRIX23_ARB { already defined }
// GL_MATRIX24_ARB { already defined }
// GL_MATRIX25_ARB { already defined }
// GL_MATRIX26_ARB { already defined }
// GL_MATRIX27_ARB { already defined }
// GL_MATRIX28_ARB { already defined }
// GL_MATRIX29_ARB { already defined }
// GL_MATRIX30_ARB { already defined }
// GL_MATRIX31_ARB { already defined }
// glProgramStringARB { already defined }
// glBindProgramARB { already defined }
// glDeleteProgramsARB { already defined }
// glGenProgramsARB { already defined }
// glProgramEnvParameter4dARB { already defined }
// glProgramEnvParameter4dvARB { already defined }
// glProgramEnvParameter4fARB { already defined }
// glProgramEnvParameter4fvARB { already defined }
// glProgramLocalParameter4dARB { already defined }
// glProgramLocalParameter4dvARB { already defined }
// glProgramLocalParameter4fARB { already defined }
// glProgramLocalParameter4fvARB { already defined }
// glGetProgramEnvParameterdvARB { already defined }
// glGetProgramEnvParameterfvARB { already defined }
// glGetProgramLocalParameterdvARB { already defined }
// glGetProgramLocalParameterfvARB { already defined }
// glGetProgramivARB { already defined }
// glGetProgramStringARB { already defined }
// glIsProgramARB { already defined }
function Load_GL_ARB_fragment_program: Boolean;
//***** GL_ATI_text_fragment_shader *****//
const
GL_TEXT_FRAGMENT_SHADER_ATI = 00;
function Load_GL_ATI_text_fragment_shader: Boolean;
//***** GL_APPLE_client_storage *****//
const
GL_UNPACK_CLIENT_STORAGE_APPLE = B2;
function Load_GL_APPLE_client_storage: Boolean;
//***** GL_APPLE_element_array *****//
const
GL_ELEMENT_ARRAY_APPLE = 68;
GL_ELEMENT_ARRAY_TYPE_APPLE = 69;
GL_ELEMENT_ARRAY_POINTER_APPLE = 6A;
var
glElementPointerAPPLE: procedure(_type: GLenum; const pointer: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDrawElementArrayAPPLE: procedure(mode: GLenum; first: GLint; count: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDrawRangeElementArrayAPPLE: procedure(mode: GLenum; start: GLuint; _end: GLuint; first: GLint; count: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiDrawElementArrayAPPLE: procedure(mode: GLenum; const first: PGLint; const count: PGLsizei; primcount: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiDrawRangeElementArrayAPPLE: procedure(mode: GLenum; start: GLuint; _end: GLuint; const first: PGLint; const count: PGLsizei; primcount: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_APPLE_element_array: Boolean;
//***** GL_APPLE_fence *****//
const
GL_DRAW_PIXELS_APPLE = A0A;
GL_FENCE_APPLE = A0B;
var
glGenFencesAPPLE: procedure(n: GLsizei; fences: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDeleteFencesAPPLE: procedure(n: GLsizei; const fences: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSetFenceAPPLE: procedure(fence: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glIsFenceAPPLE: function(fence: GLuint): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTestFenceAPPLE: function(fence: GLuint): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glFinishFenceAPPLE: procedure(fence: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTestObjectAPPLE: function(_object: GLenum; name: GLuint): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glFinishObjectAPPLE: procedure(_object: GLenum; name: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_APPLE_fence: Boolean;
//***** GL_APPLE_vertex_array_object *****//
const
GL_VERTEX_ARRAY_BINDING_APPLE = B5;
var
glBindVertexArrayAPPLE: procedure(_array: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDeleteVertexArraysAPPLE: procedure(n: GLsizei; const arrays: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGenVertexArraysAPPLE: procedure(n: GLsizei; const arrays: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glIsVertexArrayAPPLE: function(_array: GLuint): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_APPLE_vertex_array_object: Boolean;
//***** GL_APPLE_vertex_array_range *****//
const
GL_VERTEX_ARRAY_RANGE_APPLE = 1D;
GL_VERTEX_ARRAY_RANGE_LENGTH_APPLE = 1E;
GL_MAX_VERTEX_ARRAY_RANGE_ELEMENT_APPLE = 20;
GL_VERTEX_ARRAY_RANGE_POINTER_APPLE = 21;
GL_VERTEX_ARRAY_STORAGE_HINT_APPLE = 1F;
GL_STORAGE_CACHED_APPLE = BE;
GL_STORAGE_SHARED_APPLE = BF;
var
glVertexArrayRangeAPPLE: procedure(length: GLsizei; pointer: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glFlushVertexArrayRangeAPPLE: procedure(length: GLsizei; pointer: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexArrayParameteriAPPLE: procedure(pname: GLenum; param: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_APPLE_vertex_array_range: Boolean;
{$IFDEF WINDOWS}
//***** WGL_ARB_pixel_format *****//
const
WGL_NUMBER_PIXEL_FORMATS_ARB = 00;
WGL_DRAW_TO_WINDOW_ARB = 01;
WGL_DRAW_TO_BITMAP_ARB = 02;
WGL_ACCELERATION_ARB = 03;
WGL_NEED_PALETTE_ARB = 04;
WGL_NEED_SYSTEM_PALETTE_ARB = 05;
WGL_SWAP_LAYER_BUFFERS_ARB = 06;
WGL_SWAP_METHOD_ARB = 07;
WGL_NUMBER_OVERLAYS_ARB = 08;
WGL_NUMBER_UNDERLAYS_ARB = 09;
WGL_TRANSPARENT_ARB = 0A;
WGL_TRANSPARENT_RED_VALUE_ARB = 37;
WGL_TRANSPARENT_GREEN_VALUE_ARB = 38;
WGL_TRANSPARENT_BLUE_VALUE_ARB = 39;
WGL_TRANSPARENT_ALPHA_VALUE_ARB = 3A;
WGL_TRANSPARENT_INDEX_VALUE_ARB = 3B;
WGL_SHARE_DEPTH_ARB = 0C;
WGL_SHARE_STENCIL_ARB = 0D;
WGL_SHARE_ACCUM_ARB = 0E;
WGL_SUPPORT_GDI_ARB = 0F;
WGL_SUPPORT_OPENGL_ARB = 10;
WGL_DOUBLE_BUFFER_ARB = 11;
WGL_STEREO_ARB = 12;
WGL_PIXEL_TYPE_ARB = 13;
WGL_COLOR_BITS_ARB = 14;
WGL_RED_BITS_ARB = 15;
WGL_RED_SHIFT_ARB = 16;
WGL_GREEN_BITS_ARB = 17;
WGL_GREEN_SHIFT_ARB = 18;
WGL_BLUE_BITS_ARB = 19;
WGL_BLUE_SHIFT_ARB = 1A;
WGL_ALPHA_BITS_ARB = 1B;
WGL_ALPHA_SHIFT_ARB = 1C;
WGL_ACCUM_BITS_ARB = 1D;
WGL_ACCUM_RED_BITS_ARB = 1E;
WGL_ACCUM_GREEN_BITS_ARB = 1F;
WGL_ACCUM_BLUE_BITS_ARB = 20;
WGL_ACCUM_ALPHA_BITS_ARB = 21;
WGL_DEPTH_BITS_ARB = 22;
WGL_STENCIL_BITS_ARB = 23;
WGL_AUX_BUFFERS_ARB = 24;
WGL_NO_ACCELERATION_ARB = 25;
WGL_GENERIC_ACCELERATION_ARB = 26;
WGL_FULL_ACCELERATION_ARB = 27;
WGL_SWAP_EXCHANGE_ARB = 28;
WGL_SWAP_COPY_ARB = 29;
WGL_SWAP_UNDEFINED_ARB = 2A;
WGL_TYPE_RGBA_ARB = 2B;
WGL_TYPE_COLORINDEX_ARB = 2C;
var
wglGetPixelFormatAttribivARB: function(hdc: HDC; iPixelFormat: GLint; iLayerPlane: GLint; nAttributes: GLuint; const piAttributes: PGLint; piValues: PGLint): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglGetPixelFormatAttribfvARB: function(hdc: HDC; iPixelFormat: GLint; iLayerPlane: GLint; nAttributes: GLuint; const piAttributes: PGLint; pfValues: PGLfloat): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglChoosePixelFormatARB: function(hdc: HDC; const piAttribIList: PGLint; const pfAttribFList: PGLfloat; nMaxFormats: GLuint; piFormats: PGLint; nNumFormats: PGLuint): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_WGL_ARB_pixel_format: Boolean;
//***** WGL_ARB_make_current_read *****//
const
WGL_ERROR_INVALID_PIXEL_TYPE_ARB = 43;
WGL_ERROR_INCOMPATIBLE_DEVICE_CONTEXTS_ARB = 54;
var
wglMakeContextCurrentARB: function(hDrawDC: HDC; hReadDC: HDC; hglrc: HGLRC): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglGetCurrentReadDCARB: function(): HDC; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_WGL_ARB_make_current_read: Boolean;
//***** WGL_ARB_pbuffer *****//
const
WGL_DRAW_TO_PBUFFER_ARB = 2D;
// WGL_DRAW_TO_PBUFFER_ARB { already defined }
WGL_MAX_PBUFFER_PIXELS_ARB = 2E;
WGL_MAX_PBUFFER_WIDTH_ARB = 2F;
WGL_MAX_PBUFFER_HEIGHT_ARB = 30;
WGL_PBUFFER_LARGEST_ARB = 33;
WGL_PBUFFER_WIDTH_ARB = 34;
WGL_PBUFFER_HEIGHT_ARB = 35;
WGL_PBUFFER_LOST_ARB = 36;
var
wglCreatePbufferARB: function(hDC: HDC; iPixelFormat: GLint; iWidth: GLint; iHeight: GLint; const piAttribList: PGLint): THandle; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglGetPbufferDCARB: function(hPbuffer: THandle): HDC; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglReleasePbufferDCARB: function(hPbuffer: THandle; hDC: HDC): GLint; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglDestroyPbufferARB: function(hPbuffer: THandle): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglQueryPbufferARB: function(hPbuffer: THandle; iAttribute: GLint; piValue: PGLint): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_WGL_ARB_pbuffer: Boolean;
//***** WGL_EXT_swap_control *****//
var
wglSwapIntervalEXT: function(interval: GLint): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglGetSwapIntervalEXT: function(): GLint; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_WGL_EXT_swap_control: Boolean;
//***** WGL_ARB_render_texture *****//
const
WGL_BIND_TO_TEXTURE_RGB_ARB = 70;
WGL_BIND_TO_TEXTURE_RGBA_ARB = 71;
WGL_TEXTURE_FORMAT_ARB = 72;
WGL_TEXTURE_TARGET_ARB = 73;
WGL_MIPMAP_TEXTURE_ARB = 74;
WGL_TEXTURE_RGB_ARB = 75;
WGL_TEXTURE_RGBA_ARB = 76;
WGL_NO_TEXTURE_ARB = 77;
WGL_TEXTURE_CUBE_MAP_ARB = 78;
WGL_TEXTURE_1D_ARB = 79;
WGL_TEXTURE_2D_ARB = 7A;
// WGL_NO_TEXTURE_ARB { already defined }
WGL_MIPMAP_LEVEL_ARB = 7B;
WGL_CUBE_MAP_FACE_ARB = 7C;
WGL_TEXTURE_CUBE_MAP_POSITIVE_X_ARB = 7D;
WGL_TEXTURE_CUBE_MAP_NEGATIVE_X_ARB = 7E;
WGL_TEXTURE_CUBE_MAP_POSITIVE_Y_ARB = 7F;
WGL_TEXTURE_CUBE_MAP_NEGATIVE_Y_ARB = 80;
WGL_TEXTURE_CUBE_MAP_POSITIVE_Z_ARB = 81;
WGL_TEXTURE_CUBE_MAP_NEGATIVE_Z_ARB = 82;
WGL_FRONT_LEFT_ARB = 83;
WGL_FRONT_RIGHT_ARB = 84;
WGL_BACK_LEFT_ARB = 85;
WGL_BACK_RIGHT_ARB = 86;
WGL_AUX0_ARB = 87;
WGL_AUX1_ARB = 88;
WGL_AUX2_ARB = 89;
WGL_AUX3_ARB = 8A;
WGL_AUX4_ARB = 8B;
WGL_AUX5_ARB = 8C;
WGL_AUX6_ARB = 8D;
WGL_AUX7_ARB = 8E;
WGL_AUX8_ARB = 8F;
WGL_AUX9_ARB = 90;
var
wglBindTexImageARB: function(hPbuffer: THandle; iBuffer: GLint): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglReleaseTexImageARB: function(hPbuffer: THandle; iBuffer: GLint): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglSetPbufferAttribARB: function(hPbuffer: THandle; const piAttribList: PGLint): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_WGL_ARB_render_texture: Boolean;
//***** WGL_EXT_extensions_string *****//
var
wglGetExtensionsStringEXT: function(): Pchar; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_WGL_EXT_extensions_string: Boolean;
//***** WGL_EXT_make_current_read *****//
var
wglMakeContextCurrentEXT: function(hDrawDC: HDC; hReadDC: HDC; hglrc: HGLRC): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglGetCurrentReadDCEXT: function(): HDC; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_WGL_EXT_make_current_read: Boolean;
//***** WGL_EXT_pbuffer *****//
const
WGL_DRAW_TO_PBUFFER_EXT = 2D;
WGL_MAX_PBUFFER_PIXELS_EXT = 2E;
WGL_MAX_PBUFFER_WIDTH_EXT = 2F;
WGL_MAX_PBUFFER_HEIGHT_EXT = 30;
WGL_OPTIMAL_PBUFFER_WIDTH_EXT = 31;
WGL_OPTIMAL_PBUFFER_HEIGHT_EXT = 32;
WGL_PBUFFER_LARGEST_EXT = 33;
WGL_PBUFFER_WIDTH_EXT = 34;
WGL_PBUFFER_HEIGHT_EXT = 35;
var
wglCreatePbufferEXT: function(hDC: HDC; iPixelFormat: GLint; iWidth: GLint; iHeight: GLint; const piAttribList: PGLint): THandle; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglGetPbufferDCEXT: function(hPbuffer: THandle): HDC; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglReleasePbufferDCEXT: function(hPbuffer: THandle; hDC: HDC): GLint; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglDestroyPbufferEXT: function(hPbuffer: THandle): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglQueryPbufferEXT: function(hPbuffer: THandle; iAttribute: GLint; piValue: PGLint): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_WGL_EXT_pbuffer: Boolean;
//***** WGL_EXT_pixel_format *****//
const
WGL_NUMBER_PIXEL_FORMATS_EXT = 00;
WGL_DRAW_TO_WINDOW_EXT = 01;
WGL_DRAW_TO_BITMAP_EXT = 02;
WGL_ACCELERATION_EXT = 03;
WGL_NEED_PALETTE_EXT = 04;
WGL_NEED_SYSTEM_PALETTE_EXT = 05;
WGL_SWAP_LAYER_BUFFERS_EXT = 06;
WGL_SWAP_METHOD_EXT = 07;
WGL_NUMBER_OVERLAYS_EXT = 08;
WGL_NUMBER_UNDERLAYS_EXT = 09;
WGL_TRANSPARENT_EXT = 0A;
WGL_TRANSPARENT_VALUE_EXT = 0B;
WGL_SHARE_DEPTH_EXT = 0C;
WGL_SHARE_STENCIL_EXT = 0D;
WGL_SHARE_ACCUM_EXT = 0E;
WGL_SUPPORT_GDI_EXT = 0F;
WGL_SUPPORT_OPENGL_EXT = 10;
WGL_DOUBLE_BUFFER_EXT = 11;
WGL_STEREO_EXT = 12;
WGL_PIXEL_TYPE_EXT = 13;
WGL_COLOR_BITS_EXT = 14;
WGL_RED_BITS_EXT = 15;
WGL_RED_SHIFT_EXT = 16;
WGL_GREEN_BITS_EXT = 17;
WGL_GREEN_SHIFT_EXT = 18;
WGL_BLUE_BITS_EXT = 19;
WGL_BLUE_SHIFT_EXT = 1A;
WGL_ALPHA_BITS_EXT = 1B;
WGL_ALPHA_SHIFT_EXT = 1C;
WGL_ACCUM_BITS_EXT = 1D;
WGL_ACCUM_RED_BITS_EXT = 1E;
WGL_ACCUM_GREEN_BITS_EXT = 1F;
WGL_ACCUM_BLUE_BITS_EXT = 20;
WGL_ACCUM_ALPHA_BITS_EXT = 21;
WGL_DEPTH_BITS_EXT = 22;
WGL_STENCIL_BITS_EXT = 23;
WGL_AUX_BUFFERS_EXT = 24;
WGL_NO_ACCELERATION_EXT = 25;
WGL_GENERIC_ACCELERATION_EXT = 26;
WGL_FULL_ACCELERATION_EXT = 27;
WGL_SWAP_EXCHANGE_EXT = 28;
WGL_SWAP_COPY_EXT = 29;
WGL_SWAP_UNDEFINED_EXT = 2A;
WGL_TYPE_RGBA_EXT = 2B;
WGL_TYPE_COLORINDEX_EXT = 2C;
var
wglGetPixelFormatAttribivEXT: function(hdc: HDC; iPixelFormat: GLint; iLayerPlane: GLint; nAttributes: GLuint; piAttributes: PGLint; piValues: PGLint): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglGetPixelFormatAttribfvEXT: function(hdc: HDC; iPixelFormat: GLint; iLayerPlane: GLint; nAttributes: GLuint; piAttributes: PGLint; pfValues: PGLfloat): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglChoosePixelFormatEXT: function(hdc: HDC; const piAttribIList: PGLint; const pfAttribFList: PGLfloat; nMaxFormats: GLuint; piFormats: PGLint; nNumFormats: PGLuint): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_WGL_EXT_pixel_format: Boolean;
//***** WGL_I3D_digital_video_control *****//
const
WGL_DIGITAL_VIDEO_CURSOR_ALPHA_FRAMEBUFFER_I3D = 50;
WGL_DIGITAL_VIDEO_CURSOR_ALPHA_VALUE_I3D = 51;
WGL_DIGITAL_VIDEO_CURSOR_INCLUDED_I3D = 52;
WGL_DIGITAL_VIDEO_GAMMA_CORRECTED_I3D = 53;
var
wglGetDigitalVideoParametersI3D: function(hDC: HDC; iAttribute: GLint; piValue: PGLint): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglSetDigitalVideoParametersI3D: function(hDC: HDC; iAttribute: GLint; const piValue: PGLint): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_WGL_I3D_digital_video_control: Boolean;
//***** WGL_I3D_gamma *****//
const
WGL_GAMMA_TABLE_SIZE_I3D = 4E;
WGL_GAMMA_EXCLUDE_DESKTOP_I3D = 4F;
// WGL_GAMMA_EXCLUDE_DESKTOP_I3D { already defined }
var
wglGetGammaTableParametersI3D: function(hDC: HDC; iAttribute: GLint; piValue: PGLint): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglSetGammaTableParametersI3D: function(hDC: HDC; iAttribute: GLint; const piValue: PGLint): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglGetGammaTableI3D: function(hDC: HDC; iEntries: GLint; puRed: PGLUSHORT; puGreen: PGLUSHORT; puBlue: PGLUSHORT): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglSetGammaTableI3D: function(hDC: HDC; iEntries: GLint; const puRed: PGLUSHORT; const puGreen: PGLUSHORT; const puBlue: PGLUSHORT): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_WGL_I3D_gamma: Boolean;
//***** WGL_I3D_genlock *****//
const
WGL_GENLOCK_SOURCE_MULTIVIEW_I3D = 44;
WGL_GENLOCK_SOURCE_EXTERNAL_SYNC_I3D = 45;
WGL_GENLOCK_SOURCE_EXTERNAL_FIELD_I3D = 46;
WGL_GENLOCK_SOURCE_EXTERNAL_TTL_I3D = 47;
WGL_GENLOCK_SOURCE_DIGITAL_SYNC_I3D = 48;
WGL_GENLOCK_SOURCE_DIGITAL_FIELD_I3D = 49;
WGL_GENLOCK_SOURCE_EDGE_FALLING_I3D = 4A;
WGL_GENLOCK_SOURCE_EDGE_RISING_I3D = 4B;
WGL_GENLOCK_SOURCE_EDGE_BOTH_I3D = 4C;
var
wglEnableGenlockI3D: function(hDC: HDC): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglDisableGenlockI3D: function(hDC: HDC): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglIsEnabledGenlockI3D: function(hDC: HDC; pFlag: PBOOL): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglGenlockSourceI3D: function(hDC: HDC; uSource: GLUINT): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglGetGenlockSourceI3D: function(hDC: HDC; uSource: PGLUINT): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglGenlockSourceEdgeI3D: function(hDC: HDC; uEdge: GLUINT): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglGetGenlockSourceEdgeI3D: function(hDC: HDC; uEdge: PGLUINT): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglGenlockSampleRateI3D: function(hDC: HDC; uRate: GLUINT): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglGetGenlockSampleRateI3D: function(hDC: HDC; uRate: PGLUINT): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglGenlockSourceDelayI3D: function(hDC: HDC; uDelay: GLUINT): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglGetGenlockSourceDelayI3D: function(hDC: HDC; uDelay: PGLUINT): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
wglQueryGenlockMaxSourceDelayI3D: function(hDC: HDC; uMaxLineDelay: PGLUINT; uMaxPixelDelay: PGLUINT): BOOL; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_WGL_I3D_genlock: Boolean;
{$ENDIF}
//***** GL_ARB_matrix_palette *****//
const
GL_MATRIX_PALETTE_ARB = 40;
GL_MAX_MATRIX_PALETTE_STACK_DEPTH_ARB = 41;
GL_MAX_PALETTE_MATRICES_ARB = 42;
GL_CURRENT_PALETTE_MATRIX_ARB = 43;
GL_MATRIX_INDEX_ARRAY_ARB = 44;
GL_CURRENT_MATRIX_INDEX_ARB = 45;
GL_MATRIX_INDEX_ARRAY_SIZE_ARB = 46;
GL_MATRIX_INDEX_ARRAY_TYPE_ARB = 47;
GL_MATRIX_INDEX_ARRAY_STRIDE_ARB = 48;
GL_MATRIX_INDEX_ARRAY_POINTER_ARB = 49;
var
glCurrentPaletteMatrixARB: procedure(index: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMatrixIndexubvARB: procedure(size: GLint; indices: PGLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMatrixIndexusvARB: procedure(size: GLint; indices: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMatrixIndexuivARB: procedure(size: GLint; indices: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMatrixIndexPointerARB: procedure(size: GLint; _type: GLenum; stride: GLsizei; pointer: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_ARB_matrix_palette: Boolean;
//***** GL_NV_element_array *****//
const
GL_ELEMENT_ARRAY_TYPE_NV = 69;
GL_ELEMENT_ARRAY_POINTER_NV = 6A;
var
glElementPointerNV: procedure(_type: GLenum; const pointer: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDrawElementArrayNV: procedure(mode: GLenum; first: GLint; count: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDrawRangeElementArrayNV: procedure(mode: GLenum; start: GLuint; _end: GLuint; first: GLint; count: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiDrawElementArrayNV: procedure(mode: GLenum; const first: PGLint; const count: PGLsizei; primcount: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiDrawRangeElementArrayNV: procedure(mode: GLenum; start: GLuint; _end: GLuint; const first: PGLint; const count: PGLsizei; primcount: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_NV_element_array: Boolean;
//***** GL_NV_float_buffer *****//
const
GL_FLOAT_R_NV = 80;
GL_FLOAT_RG_NV = 81;
GL_FLOAT_RGB_NV = 82;
GL_FLOAT_RGBA_NV = 83;
GL_FLOAT_R16_NV = 84;
GL_FLOAT_R32_NV = 85;
GL_FLOAT_RG16_NV = 86;
GL_FLOAT_RG32_NV = 87;
GL_FLOAT_RGB16_NV = 88;
GL_FLOAT_RGB32_NV = 89;
GL_FLOAT_RGBA16_NV = 8A;
GL_FLOAT_RGBA32_NV = 8B;
GL_TEXTURE_FLOAT_COMPONENTS_NV = 8C;
GL_FLOAT_CLEAR_COLOR_VALUE_NV = 8D;
GL_FLOAT_RGBA_MODE_NV = 8E;
{$IFDEF WINDOWS}
WGL_FLOAT_COMPONENTS_NV = B0;
WGL_BIND_TO_TEXTURE_RECTANGLE_FLOAT_R_NV = B1;
WGL_BIND_TO_TEXTURE_RECTANGLE_FLOAT_RG_NV = B2;
WGL_BIND_TO_TEXTURE_RECTANGLE_FLOAT_RGB_NV = B3;
WGL_BIND_TO_TEXTURE_RECTANGLE_FLOAT_RGBA_NV = B4;
WGL_TEXTURE_FLOAT_R_NV = B5;
WGL_TEXTURE_FLOAT_RG_NV = B6;
WGL_TEXTURE_FLOAT_RGB_NV = B7;
WGL_TEXTURE_FLOAT_RGBA_NV = B8;
{$ENDIF}
function Load_GL_NV_float_buffer: Boolean;
//***** GL_NV_fragment_program *****//
const
GL_FRAGMENT_PROGRAM_NV = 70;
GL_MAX_TEXTURE_COORDS_NV = 71;
GL_MAX_TEXTURE_IMAGE_UNITS_NV = 72;
GL_FRAGMENT_PROGRAM_BINDING_NV = 73;
GL_MAX_FRAGMENT_PROGRAM_LOCAL_PARAMETERS_NV = 68;
GL_PROGRAM_ERROR_STRING_NV = 74;
var
glProgramNamedParameter4fNV: procedure(id: GLuint; len: GLsizei; const name: PGLubyte; x: GLfloat; y: GLfloat; z: GLfloat; w: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glProgramNamedParameter4dNV: procedure(id: GLuint; len: GLsizei; const name: PGLubyte; x: GLdouble; y: GLdouble; z: GLdouble; w: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetProgramNamedParameterfvNV: procedure(id: GLuint; len: GLsizei; const name: PGLubyte; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetProgramNamedParameterdvNV: procedure(id: GLuint; len: GLsizei; const name: PGLubyte; params: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
// glProgramLocalParameter4dARB { already defined }
// glProgramLocalParameter4dvARB { already defined }
// glProgramLocalParameter4fARB { already defined }
// glProgramLocalParameter4fvARB { already defined }
// glGetProgramLocalParameterdvARB { already defined }
// glGetProgramLocalParameterfvARB { already defined }
function Load_GL_NV_fragment_program: Boolean;
//***** GL_NV_primitive_restart *****//
const
GL_PRIMITIVE_RESTART_NV = 58;
GL_PRIMITIVE_RESTART_INDEX_NV = 59;
var
glPrimitiveRestartNV: procedure(); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glPrimitiveRestartIndexNV: procedure(index: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_NV_primitive_restart: Boolean;
//***** GL_NV_vertex_program2 *****//
function Load_GL_NV_vertex_program2: Boolean;
{$IFDEF WINDOWS}
//***** WGL_NV_render_texture_rectangle *****//
const
WGL_BIND_TO_TEXTURE_RECTANGLE_RGB_NV = A0;
WGL_BIND_TO_TEXTURE_RECTANGLE_RGBA_NV = A1;
WGL_TEXTURE_RECTANGLE_NV = A2;
function Load_WGL_NV_render_texture_rectangle: Boolean;
{$ENDIF}
//***** GL_NV_pixel_data_range *****//
const
GL_WRITE_PIXEL_DATA_RANGE_NV = 78;
GL_READ_PIXEL_DATA_RANGE_NV = 79;
GL_WRITE_PIXEL_DATA_RANGE_LENGTH_NV = 7A;
GL_READ_PIXEL_DATA_RANGE_LENGTH_NV = 7B;
GL_WRITE_PIXEL_DATA_RANGE_POINTER_NV = 7C;
GL_READ_PIXEL_DATA_RANGE_POINTER_NV = 7D;
var
glPixelDataRangeNV: procedure(target: GLenum; length: GLsizei; pointer: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glFlushPixelDataRangeNV: procedure(target: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
// wglAllocateMemoryNV { already defined }
// wglFreeMemoryNV { already defined }
function Load_GL_NV_pixel_data_range: Boolean;
//***** GL_EXT_texture_rectangle *****//
const
GL_TEXTURE_RECTANGLE_EXT = F5;
GL_TEXTURE_BINDING_RECTANGLE_EXT = F6;
GL_PROXY_TEXTURE_RECTANGLE_EXT = F7;
GL_MAX_RECTANGLE_TEXTURE_SIZE_EXT = F8;
function Load_GL_EXT_texture_rectangle: Boolean;
//***** GL_S3_s3tc *****//
const
GL_RGB_S3TC = A0;
GL_RGB4_S3TC = A1;
GL_RGBA_S3TC = A2;
GL_RGBA4_S3TC = A3;
function Load_GL_S3_s3tc: Boolean;
//***** GL_ATI_draw_buffers *****//
const
GL_MAX_DRAW_BUFFERS_ATI = 24;
GL_DRAW_BUFFER0_ATI = 25;
GL_DRAW_BUFFER1_ATI = 26;
GL_DRAW_BUFFER2_ATI = 27;
GL_DRAW_BUFFER3_ATI = 28;
GL_DRAW_BUFFER4_ATI = 29;
GL_DRAW_BUFFER5_ATI = 2A;
GL_DRAW_BUFFER6_ATI = 2B;
GL_DRAW_BUFFER7_ATI = 2C;
GL_DRAW_BUFFER8_ATI = 2D;
GL_DRAW_BUFFER9_ATI = 2E;
GL_DRAW_BUFFER10_ATI = 2F;
GL_DRAW_BUFFER11_ATI = 30;
GL_DRAW_BUFFER12_ATI = 31;
GL_DRAW_BUFFER13_ATI = 32;
GL_DRAW_BUFFER14_ATI = 33;
GL_DRAW_BUFFER15_ATI = 34;
var
glDrawBuffersATI: procedure(n: GLsizei; const bufs: PGLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_ATI_draw_buffers: Boolean;
{$IFDEF WINDOWS}
//***** WGL_ATI_pixel_format_float *****//
const
WGL_RGBA_FLOAT_MODE_ATI = 20;
WGL_COLOR_CLEAR_UNCLAMPED_VALUE_ATI = 35;
WGL_TYPE_RGBA_FLOAT_ATI = A0;
function Load_WGL_ATI_pixel_format_float: Boolean;
{$ENDIF}
//***** GL_ATI_texture_env_combine3 *****//
const
GL_MODULATE_ADD_ATI = 44;
GL_MODULATE_SIGNED_ADD_ATI = 45;
GL_MODULATE_SUBTRACT_ATI = 46;
function Load_GL_ATI_texture_env_combine3: Boolean;
//***** GL_ATI_texture_float *****//
const
GL_RGBA_FLOAT32_ATI = 14;
GL_RGB_FLOAT32_ATI = 15;
GL_ALPHA_FLOAT32_ATI = 16;
GL_INTENSITY_FLOAT32_ATI = 17;
GL_LUMINANCE_FLOAT32_ATI = 18;
GL_LUMINANCE_ALPHA_FLOAT32_ATI = 19;
GL_RGBA_FLOAT16_ATI = 1A;
GL_RGB_FLOAT16_ATI = 1B;
GL_ALPHA_FLOAT16_ATI = 1C;
GL_INTENSITY_FLOAT16_ATI = 1D;
GL_LUMINANCE_FLOAT16_ATI = 1E;
GL_LUMINANCE_ALPHA_FLOAT16_ATI = 1F;
function Load_GL_ATI_texture_float: Boolean;
//***** GL_NV_texture_expand_normal *****//
const
GL_TEXTURE_UNSIGNED_REMAP_MODE_NV = 8F;
function Load_GL_NV_texture_expand_normal: Boolean;
//***** GL_NV_half_float *****//
const
GL_HALF_FLOAT_NV = 0B;
var
glVertex2hNV: procedure(x: GLushort; y: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertex2hvNV: procedure(const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertex3hNV: procedure(x: GLushort; y: GLushort; z: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertex3hvNV: procedure(const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertex4hNV: procedure(x: GLushort; y: GLushort; z: GLushort; w: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertex4hvNV: procedure(const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glNormal3hNV: procedure(nx: GLushort; ny: GLushort; nz: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glNormal3hvNV: procedure(const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glColor3hNV: procedure(red: GLushort; green: GLushort; blue: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glColor3hvNV: procedure(const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glColor4hNV: procedure(red: GLushort; green: GLushort; blue: GLushort; alpha: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glColor4hvNV: procedure(const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexCoord1hNV: procedure(s: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexCoord1hvNV: procedure(const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexCoord2hNV: procedure(s: GLushort; t: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexCoord2hvNV: procedure(const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexCoord3hNV: procedure(s: GLushort; t: GLushort; r: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexCoord3hvNV: procedure(const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexCoord4hNV: procedure(s: GLushort; t: GLushort; r: GLushort; q: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glTexCoord4hvNV: procedure(const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord1hNV: procedure(target: GLenum; s: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord1hvNV: procedure(target: GLenum; const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord2hNV: procedure(target: GLenum; s: GLushort; t: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord2hvNV: procedure(target: GLenum; const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord3hNV: procedure(target: GLenum; s: GLushort; t: GLushort; r: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord3hvNV: procedure(target: GLenum; const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord4hNV: procedure(target: GLenum; s: GLushort; t: GLushort; r: GLushort; q: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiTexCoord4hvNV: procedure(target: GLenum; const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glFogCoordhNV: procedure(fog: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glFogCoordhvNV: procedure(const fog: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3hNV: procedure(red: GLushort; green: GLushort; blue: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3hvNV: procedure(const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexWeighthNV: procedure(weight: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexWeighthvNV: procedure(const weight: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib1hNV: procedure(index: GLuint; x: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib1hvNV: procedure(index: GLuint; const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib2hNV: procedure(index: GLuint; x: GLushort; y: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib2hvNV: procedure(index: GLuint; const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib3hNV: procedure(index: GLuint; x: GLushort; y: GLushort; z: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib3hvNV: procedure(index: GLuint; const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4hNV: procedure(index: GLuint; x: GLushort; y: GLushort; z: GLushort; w: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4hvNV: procedure(index: GLuint; const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttribs1hvNV: procedure(index: GLuint; n: GLsizei; const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttribs2hvNV: procedure(index: GLuint; n: GLsizei; const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttribs3hvNV: procedure(index: GLuint; n: GLsizei; const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttribs4hvNV: procedure(index: GLuint; n: GLsizei; const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_NV_half_float: Boolean;
//***** GL_ATI_map_object_buffer *****//
var
glMapObjectBufferATI: function(buffer: GLuint): PGLvoid; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUnmapObjectBufferATI: procedure(buffer: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_ATI_map_object_buffer: Boolean;
//***** GL_ATI_separate_stencil *****//
const
GL_KEEP = E00;
GL_ZERO = {viewgit}{/viewgit}00;
GL_REPLACE = E01;
GL_INCR = E02;
GL_DECR = E03;
GL_INVERT = 0A;
GL_NEVER = 00;
GL_LESS = 01;
GL_LEQUAL = 03;
GL_GREATER = 04;
GL_GEQUAL = 06;
GL_EQUAL = 02;
GL_NOTEQUAL = 05;
GL_ALWAYS = 07;
GL_FRONT = 04;
GL_BACK = 05;
GL_FRONT_AND_BACK = 08;
GL_STENCIL_BACK_FUNC_ATI = 00;
GL_STENCIL_BACK_FAIL_ATI = 01;
GL_STENCIL_BACK_PASS_DEPTH_FAIL_ATI = 02;
GL_STENCIL_BACK_PASS_DEPTH_PASS_ATI = 03;
var
glStencilOpSeparateATI: procedure(face: GLenum; sfail: GLenum; dpfail: GLenum; dppass: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glStencilFuncSeparateATI: procedure(frontfunc: GLenum; backfunc: GLenum; ref: GLint; mask: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_ATI_separate_stencil: Boolean;
//***** GL_ATI_vertex_attrib_array_object *****//
var
glVertexAttribArrayObjectATI: procedure(index: GLuint; size: GLint; _type: GLenum; normalized: GLboolean; stride: GLsizei; buffer: GLuint; offset: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetVertexAttribArrayObjectfvATI: procedure(index: GLuint; pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetVertexAttribArrayObjectivATI: procedure(index: GLuint; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_ATI_vertex_attrib_array_object: Boolean;
//***** GL_ARB_vertex_buffer_object *****//
const
GL_ARRAY_BUFFER_ARB = 92;
GL_ELEMENT_ARRAY_BUFFER_ARB = 93;
GL_ARRAY_BUFFER_BINDING_ARB = 94;
GL_ELEMENT_ARRAY_BUFFER_BINDING_ARB = 95;
GL_VERTEX_ARRAY_BUFFER_BINDING_ARB = 96;
GL_NORMAL_ARRAY_BUFFER_BINDING_ARB = 97;
GL_COLOR_ARRAY_BUFFER_BINDING_ARB = 98;
GL_INDEX_ARRAY_BUFFER_BINDING_ARB = 99;
GL_TEXTURE_COORD_ARRAY_BUFFER_BINDING_ARB = 9A;
GL_EDGE_FLAG_ARRAY_BUFFER_BINDING_ARB = 9B;
GL_SECONDARY_COLOR_ARRAY_BUFFER_BINDING_ARB = 9C;
GL_FOG_COORDINATE_ARRAY_BUFFER_BINDING_ARB = 9D;
GL_WEIGHT_ARRAY_BUFFER_BINDING_ARB = 9E;
GL_VERTEX_ATTRIB_ARRAY_BUFFER_BINDING_ARB = 9F;
GL_STREAM_DRAW_ARB = E0;
GL_STREAM_READ_ARB = E1;
GL_STREAM_COPY_ARB = E2;
GL_STATIC_DRAW_ARB = E4;
GL_STATIC_READ_ARB = E5;
GL_STATIC_COPY_ARB = E6;
GL_DYNAMIC_DRAW_ARB = E8;
GL_DYNAMIC_READ_ARB = E9;
GL_DYNAMIC_COPY_ARB = EA;
GL_READ_ONLY_ARB = B8;
GL_WRITE_ONLY_ARB = B9;
GL_READ_WRITE_ARB = BA;
GL_BUFFER_SIZE_ARB = 64;
GL_BUFFER_USAGE_ARB = 65;
GL_BUFFER_ACCESS_ARB = BB;
GL_BUFFER_MAPPED_ARB = BC;
GL_BUFFER_MAP_POINTER_ARB = BD;
var
glBindBufferARB: procedure(target: GLenum; buffer: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDeleteBuffersARB: procedure(n: GLsizei; const buffers: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGenBuffersARB: procedure(n: GLsizei; buffers: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glIsBufferARB: function(buffer: GLuint): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glBufferDataARB: procedure(target: GLenum; size: GLsizeiptrARB; const data: PGLvoid; usage: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glBufferSubDataARB: procedure(target: GLenum; offset: GLintptrARB; size: GLsizeiptrARB; const data: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetBufferSubDataARB: procedure(target: GLenum; offset: GLintptrARB; size: GLsizeiptrARB; data: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMapBufferARB: function(target: GLenum; access: GLenum): PGLvoid; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUnmapBufferARB: function(target: GLenum): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetBufferParameterivARB: procedure(target: GLenum; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetBufferPointervARB: procedure(target: GLenum; pname: GLenum; params: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_ARB_vertex_buffer_object: Boolean;
//***** GL_ARB_occlusion_query *****//
const
GL_SAMPLES_PASSED_ARB = 14;
GL_QUERY_COUNTER_BITS_ARB = 64;
GL_CURRENT_QUERY_ARB = 65;
GL_QUERY_RESULT_ARB = 66;
GL_QUERY_RESULT_AVAILABLE_ARB = 67;
var
glGenQueriesARB: procedure(n: GLsizei; ids: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDeleteQueriesARB: procedure(n: GLsizei; const ids: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glIsQueryARB: function(id: GLuint): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glBeginQueryARB: procedure(target: GLenum; id: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glEndQueryARB: procedure(target: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetQueryivARB: procedure(target: GLenum; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetQueryObjectivARB: procedure(id: GLuint; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetQueryObjectuivARB: procedure(id: GLuint; pname: GLenum; params: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_ARB_occlusion_query: Boolean;
//***** GL_ARB_shader_objects *****//
const
GL_PROGRAM_OBJECT_ARB = B40;
GL_OBJECT_TYPE_ARB = B4E;
GL_OBJECT_SUBTYPE_ARB = B4F;
GL_OBJECT_DELETE_STATUS_ARB = B80;
GL_OBJECT_COMPILE_STATUS_ARB = B81;
GL_OBJECT_LINK_STATUS_ARB = B82;
GL_OBJECT_VALIDATE_STATUS_ARB = B83;
GL_OBJECT_INFO_LOG_LENGTH_ARB = B84;
GL_OBJECT_ATTACHED_OBJECTS_ARB = B85;
GL_OBJECT_ACTIVE_UNIFORMS_ARB = B86;
GL_OBJECT_ACTIVE_UNIFORM_MAX_LENGTH_ARB = B87;
GL_OBJECT_SHADER_SOURCE_LENGTH_ARB = B88;
GL_SHADER_OBJECT_ARB = B48;
GL_FLOAT = 06;
GL_FLOAT_VEC2_ARB = B50;
GL_FLOAT_VEC3_ARB = B51;
GL_FLOAT_VEC4_ARB = B52;
GL_INT = 04;
GL_INT_VEC2_ARB = B53;
GL_INT_VEC3_ARB = B54;
GL_INT_VEC4_ARB = B55;
GL_BOOL_ARB = B56;
GL_BOOL_VEC2_ARB = B57;
GL_BOOL_VEC3_ARB = B58;
GL_BOOL_VEC4_ARB = B59;
GL_FLOAT_MAT2_ARB = B5A;
GL_FLOAT_MAT3_ARB = B5B;
GL_FLOAT_MAT4_ARB = B5C;
var
glDeleteObjectARB: procedure(obj: GLhandleARB); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetHandleARB: function(pname: GLenum): GLhandleARB; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDetachObjectARB: procedure(containerObj: GLhandleARB; attachedObj: GLhandleARB); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCreateShaderObjectARB: function(shaderType: GLenum): GLhandleARB; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glShaderSourceARB: procedure(shaderObj: GLhandleARB; count: GLsizei; const _string: PGLvoid; const length: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCompileShaderARB: procedure(shaderObj: GLhandleARB); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCreateProgramObjectARB: function(): GLhandleARB; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glAttachObjectARB: procedure(containerObj: GLhandleARB; obj: GLhandleARB); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glLinkProgramARB: procedure(programObj: GLhandleARB); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUseProgramObjectARB: procedure(programObj: GLhandleARB); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glValidateProgramARB: procedure(programObj: GLhandleARB); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform1fARB: procedure(location: GLint; v0: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform2fARB: procedure(location: GLint; v0: GLfloat; v1: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform3fARB: procedure(location: GLint; v0: GLfloat; v1: GLfloat; v2: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform4fARB: procedure(location: GLint; v0: GLfloat; v1: GLfloat; v2: GLfloat; v3: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform1iARB: procedure(location: GLint; v0: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform2iARB: procedure(location: GLint; v0: GLint; v1: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform3iARB: procedure(location: GLint; v0: GLint; v1: GLint; v2: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform4iARB: procedure(location: GLint; v0: GLint; v1: GLint; v2: GLint; v3: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform1fvARB: procedure(location: GLint; count: GLsizei; value: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform2fvARB: procedure(location: GLint; count: GLsizei; value: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform3fvARB: procedure(location: GLint; count: GLsizei; value: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform4fvARB: procedure(location: GLint; count: GLsizei; value: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform1ivARB: procedure(location: GLint; count: GLsizei; value: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform2ivARB: procedure(location: GLint; count: GLsizei; value: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform3ivARB: procedure(location: GLint; count: GLsizei; value: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform4ivARB: procedure(location: GLint; count: GLsizei; value: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniformMatrix2fvARB: procedure(location: GLint; count: GLsizei; transpose: GLboolean; value: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniformMatrix3fvARB: procedure(location: GLint; count: GLsizei; transpose: GLboolean; value: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniformMatrix4fvARB: procedure(location: GLint; count: GLsizei; transpose: GLboolean; value: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetObjectParameterfvARB: procedure(obj: GLhandleARB; pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetObjectParameterivARB: procedure(obj: GLhandleARB; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetInfoLogARB: procedure(obj: GLhandleARB; maxLength: GLsizei; length: PGLsizei; infoLog: PGLcharARB); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetAttachedObjectsARB: procedure(containerObj: GLhandleARB; maxCount: GLsizei; count: PGLsizei; obj: PGLhandleARB); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetUniformLocationARB: function(programObj: GLhandleARB; const name: PGLcharARB): GLint; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetActiveUniformARB: procedure(programObj: GLhandleARB; index: GLuint; maxLength: GLsizei; length: PGLsizei; size: PGLint; _type: PGLenum; name: PGLcharARB); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetUniformfvARB: procedure(programObj: GLhandleARB; location: GLint; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetUniformivARB: procedure(programObj: GLhandleARB; location: GLint; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetShaderSourceARB: procedure(obj: GLhandleARB; maxLength: GLsizei; length: PGLsizei; source: PGLcharARB); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_ARB_shader_objects: Boolean;
//***** GL_ARB_vertex_shader *****//
const
GL_VERTEX_SHADER_ARB = B31;
GL_MAX_VERTEX_UNIFORM_COMPONENTS_ARB = B4A;
GL_MAX_VARYING_FLOATS_ARB = B4B;
// GL_MAX_VERTEX_ATTRIBS_ARB { already defined }
// GL_MAX_TEXTURE_IMAGE_UNITS_ARB { already defined }
GL_MAX_VERTEX_TEXTURE_IMAGE_UNITS_ARB = B4C;
GL_MAX_COMBINED_TEXTURE_IMAGE_UNITS_ARB = B4D;
// GL_MAX_TEXTURE_COORDS_ARB { already defined }
// GL_VERTEX_PROGRAM_POINT_SIZE_ARB { already defined }
// GL_VERTEX_PROGRAM_TWO_SIDE_ARB { already defined }
// GL_OBJECT_TYPE_ARB { already defined }
// GL_OBJECT_SUBTYPE_ARB { already defined }
GL_OBJECT_ACTIVE_ATTRIBUTES_ARB = B89;
GL_OBJECT_ACTIVE_ATTRIBUTE_MAX_LENGTH_ARB = B8A;
// GL_SHADER_OBJECT_ARB { already defined }
// GL_VERTEX_ATTRIB_ARRAY_ENABLED_ARB { already defined }
// GL_VERTEX_ATTRIB_ARRAY_SIZE_ARB { already defined }
// GL_VERTEX_ATTRIB_ARRAY_STRIDE_ARB { already defined }
// GL_VERTEX_ATTRIB_ARRAY_TYPE_ARB { already defined }
// GL_VERTEX_ATTRIB_ARRAY_NORMALIZED_ARB { already defined }
// GL_CURRENT_VERTEX_ATTRIB_ARB { already defined }
// GL_VERTEX_ATTRIB_ARRAY_POINTER_ARB { already defined }
// GL_FLOAT { already defined }
// GL_FLOAT_VEC2_ARB { already defined }
// GL_FLOAT_VEC3_ARB { already defined }
// GL_FLOAT_VEC4_ARB { already defined }
// GL_FLOAT_MAT2_ARB { already defined }
// GL_FLOAT_MAT3_ARB { already defined }
// GL_FLOAT_MAT4_ARB { already defined }
// glVertexAttrib1fARB { already defined }
// glVertexAttrib1sARB { already defined }
// glVertexAttrib1dARB { already defined }
// glVertexAttrib2fARB { already defined }
// glVertexAttrib2sARB { already defined }
// glVertexAttrib2dARB { already defined }
// glVertexAttrib3fARB { already defined }
// glVertexAttrib3sARB { already defined }
// glVertexAttrib3dARB { already defined }
// glVertexAttrib4fARB { already defined }
// glVertexAttrib4sARB { already defined }
// glVertexAttrib4dARB { already defined }
// glVertexAttrib4NubARB { already defined }
// glVertexAttrib1fvARB { already defined }
// glVertexAttrib1svARB { already defined }
// glVertexAttrib1dvARB { already defined }
// glVertexAttrib2fvARB { already defined }
// glVertexAttrib2svARB { already defined }
// glVertexAttrib2dvARB { already defined }
// glVertexAttrib3fvARB { already defined }
// glVertexAttrib3svARB { already defined }
// glVertexAttrib3dvARB { already defined }
// glVertexAttrib4fvARB { already defined }
// glVertexAttrib4svARB { already defined }
// glVertexAttrib4dvARB { already defined }
// glVertexAttrib4ivARB { already defined }
// glVertexAttrib4bvARB { already defined }
// glVertexAttrib4ubvARB { already defined }
// glVertexAttrib4usvARB { already defined }
// glVertexAttrib4uivARB { already defined }
// glVertexAttrib4NbvARB { already defined }
// glVertexAttrib4NsvARB { already defined }
// glVertexAttrib4NivARB { already defined }
// glVertexAttrib4NubvARB { already defined }
// glVertexAttrib4NusvARB { already defined }
// glVertexAttrib4NuivARB { already defined }
// glVertexAttribPointerARB { already defined }
// glEnableVertexAttribArrayARB { already defined }
// glDisableVertexAttribArrayARB { already defined }
var
glBindAttribLocationARB: procedure(programObj: GLhandleARB; index: GLuint; const name: PGLcharARB); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetActiveAttribARB: procedure(programObj: GLhandleARB; index: GLuint; maxLength: GLsizei; length: PGLsizei; size: PGLint; _type: PGLenum; name: PGLcharARB); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetAttribLocationARB: function(programObj: GLhandleARB; const name: PGLcharARB): GLint; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
// glGetVertexAttribdvARB { already defined }
// glGetVertexAttribfvARB { already defined }
// glGetVertexAttribivARB { already defined }
// glGetVertexAttribPointervARB { already defined }
function Load_GL_ARB_vertex_shader: Boolean;
//***** GL_ARB_fragment_shader *****//
const
GL_FRAGMENT_SHADER_ARB = B30;
GL_MAX_FRAGMENT_UNIFORM_COMPONENTS_ARB = B49;
// GL_MAX_TEXTURE_COORDS_ARB { already defined }
// GL_MAX_TEXTURE_IMAGE_UNITS_ARB { already defined }
// GL_OBJECT_TYPE_ARB { already defined }
// GL_OBJECT_SUBTYPE_ARB { already defined }
// GL_SHADER_OBJECT_ARB { already defined }
function Load_GL_ARB_fragment_shader: Boolean;
//***** GL_ARB_shading_language_100 *****//
function Load_GL_ARB_shading_language_100: Boolean;
//***** GL_ARB_texture_non_power_of_two *****//
function Load_GL_ARB_texture_non_power_of_two: Boolean;
//***** GL_ARB_point_sprite *****//
const
GL_POINT_SPRITE_ARB = 61;
GL_COORD_REPLACE_ARB = 62;
function Load_GL_ARB_point_sprite: Boolean;
//***** GL_EXT_depth_bounds_test *****//
const
GL_DEPTH_BOUNDS_TEST_EXT = 90;
GL_DEPTH_BOUNDS_EXT = 91;
var
glDepthBoundsEXT: procedure(zmin: GLclampd; zmax: GLclampd); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_EXT_depth_bounds_test: Boolean;
//***** GL_EXT_secondary_color *****//
const
GL_COLOR_SUM_EXT = 58;
GL_CURRENT_SECONDARY_COLOR_EXT = 59;
GL_SECONDARY_COLOR_ARRAY_SIZE_EXT = 5A;
GL_SECONDARY_COLOR_ARRAY_TYPE_EXT = 5B;
GL_SECONDARY_COLOR_ARRAY_STRIDE_EXT = 5C;
GL_SECONDARY_COLOR_ARRAY_POINTER_EXT = 5D;
GL_SECONDARY_COLOR_ARRAY_EXT = 5E;
var
glSecondaryColor3bEXT: procedure(r: GLbyte; g: GLbyte; b: GLbyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3sEXT: procedure(r: GLshort; g: GLshort; b: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3iEXT: procedure(r: GLint; g: GLint; b: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3fEXT: procedure(r: GLfloat; g: GLfloat; b: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3dEXT: procedure(r: GLdouble; g: GLdouble; b: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3ubEXT: procedure(r: GLubyte; g: GLubyte; b: GLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3usEXT: procedure(r: GLushort; g: GLushort; b: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3uiEXT: procedure(r: GLuint; g: GLuint; b: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3bvEXT: procedure(components: PGLbyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3svEXT: procedure(components: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3ivEXT: procedure(components: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3fvEXT: procedure(components: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3dvEXT: procedure(components: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3ubvEXT: procedure(components: PGLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3usvEXT: procedure(components: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3uivEXT: procedure(components: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColorPointerEXT: procedure(size: GLint; _type: GLenum; stride: GLsizei; pointer: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_EXT_secondary_color: Boolean;
//***** GL_EXT_texture_mirror_clamp *****//
const
GL_MIRROR_CLAMP_EXT = 42;
GL_MIRROR_CLAMP_TO_EDGE_EXT = 43;
GL_MIRROR_CLAMP_TO_BORDER_EXT = 12;
function Load_GL_EXT_texture_mirror_clamp: Boolean;
//***** GL_EXT_blend_equation_separate *****//
const
GL_BLEND_EQUATION_RGB_EXT = 09;
GL_BLEND_EQUATION_ALPHA_EXT = 3D;
var
glBlendEquationSeparateEXT: procedure(modeRGB: GLenum; modeAlpha: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_EXT_blend_equation_separate: Boolean;
//***** GL_MESA_pack_invert *****//
const
GL_PACK_INVERT_MESA = 58;
function Load_GL_MESA_pack_invert: Boolean;
//***** GL_MESA_ycbcr_texture *****//
const
GL_YCBCR_MESA = 57;
GL_UNSIGNED_SHORT_8_8_MESA = BA;
GL_UNSIGNED_SHORT_8_8_REV_MESA = BB;
function Load_GL_MESA_ycbcr_texture: Boolean;
//***** GL_ARB_fragment_program_shadow *****//
function Load_GL_ARB_fragment_program_shadow: Boolean;
//***** GL_EXT_fog_coord *****//
const
GL_FOG_COORDINATE_SOURCE_EXT = 50;
GL_FOG_COORDINATE_EXT = 51;
GL_FRAGMENT_DEPTH_EXT = 52;
GL_CURRENT_FOG_COORDINATE_EXT = 53;
GL_FOG_COORDINATE_ARRAY_TYPE_EXT = 54;
GL_FOG_COORDINATE_ARRAY_STRIDE_EXT = 55;
GL_FOG_COORDINATE_ARRAY_POINTER_EXT = 56;
GL_FOG_COORDINATE_ARRAY_EXT = 57;
var
glFogCoordfEXT: procedure(coord: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glFogCoorddEXT: procedure(coord: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glFogCoordfvEXT: procedure(coord: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glFogCoorddvEXT: procedure(coord: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glFogCoordPointerEXT: procedure(_type: GLenum; stride: GLsizei; pointer: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_EXT_fog_coord: Boolean;
//***** GL_NV_fragment_program_option *****//
function Load_GL_NV_fragment_program_option: Boolean;
//***** GL_EXT_pixel_buffer_object *****//
const
GL_PIXEL_PACK_BUFFER_EXT = EB;
GL_PIXEL_UNPACK_BUFFER_EXT = EC;
GL_PIXEL_PACK_BUFFER_BINDING_EXT = ED;
GL_PIXEL_UNPACK_BUFFER_BINDING_EXT = EF;
function Load_GL_EXT_pixel_buffer_object: Boolean;
//***** GL_NV_fragment_program2 *****//
const
GL_MAX_PROGRAM_EXEC_INSTRUCTIONS_NV = F4;
GL_MAX_PROGRAM_CALL_DEPTH_NV = F5;
GL_MAX_PROGRAM_IF_DEPTH_NV = F6;
GL_MAX_PROGRAM_LOOP_DEPTH_NV = F7;
GL_MAX_PROGRAM_LOOP_COUNT_NV = F8;
function Load_GL_NV_fragment_program2: Boolean;
//***** GL_NV_vertex_program2_option *****//
// GL_MAX_PROGRAM_EXEC_INSTRUCTIONS_NV { already defined }
// GL_MAX_PROGRAM_CALL_DEPTH_NV { already defined }
function Load_GL_NV_vertex_program2_option: Boolean;
//***** GL_NV_vertex_program3 *****//
// GL_MAX_VERTEX_TEXTURE_IMAGE_UNITS_ARB { already defined }
function Load_GL_NV_vertex_program3: Boolean;
//***** GL_ARB_draw_buffers *****//
const
GL_MAX_DRAW_BUFFERS_ARB = 24;
GL_DRAW_BUFFER0_ARB = 25;
GL_DRAW_BUFFER1_ARB = 26;
GL_DRAW_BUFFER2_ARB = 27;
GL_DRAW_BUFFER3_ARB = 28;
GL_DRAW_BUFFER4_ARB = 29;
GL_DRAW_BUFFER5_ARB = 2A;
GL_DRAW_BUFFER6_ARB = 2B;
GL_DRAW_BUFFER7_ARB = 2C;
GL_DRAW_BUFFER8_ARB = 2D;
GL_DRAW_BUFFER9_ARB = 2E;
GL_DRAW_BUFFER10_ARB = 2F;
GL_DRAW_BUFFER11_ARB = 30;
GL_DRAW_BUFFER12_ARB = 31;
GL_DRAW_BUFFER13_ARB = 32;
GL_DRAW_BUFFER14_ARB = 33;
GL_DRAW_BUFFER15_ARB = 34;
var
glDrawBuffersARB: procedure(n: GLsizei; const bufs: PGLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_ARB_draw_buffers: Boolean;
//***** GL_ARB_texture_rectangle *****//
const
GL_TEXTURE_RECTANGLE_ARB = F5;
GL_TEXTURE_BINDING_RECTANGLE_ARB = F6;
GL_PROXY_TEXTURE_RECTANGLE_ARB = F7;
GL_MAX_RECTANGLE_TEXTURE_SIZE_ARB = F8;
function Load_GL_ARB_texture_rectangle: Boolean;
//***** GL_ARB_color_buffer_float *****//
const
GL_RGBA_FLOAT_MODE_ARB = 20;
GL_CLAMP_VERTEX_COLOR_ARB = 1A;
GL_CLAMP_FRAGMENT_COLOR_ARB = 1B;
GL_CLAMP_READ_COLOR_ARB = 1C;
GL_FIXED_ONLY_ARB = 1D;
WGL_TYPE_RGBA_FLOAT_ARB = A0;
var
glClampColorARB: procedure(target: GLenum; clamp: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_ARB_color_buffer_float: Boolean;
//***** GL_ARB_half_float_pixel *****//
const
GL_HALF_FLOAT_ARB = 0B;
function Load_GL_ARB_half_float_pixel: Boolean;
//***** GL_ARB_texture_float *****//
const
GL_TEXTURE_RED_TYPE_ARB = C10;
GL_TEXTURE_GREEN_TYPE_ARB = C11;
GL_TEXTURE_BLUE_TYPE_ARB = C12;
GL_TEXTURE_ALPHA_TYPE_ARB = C13;
GL_TEXTURE_LUMINANCE_TYPE_ARB = C14;
GL_TEXTURE_INTENSITY_TYPE_ARB = C15;
GL_TEXTURE_DEPTH_TYPE_ARB = C16;
GL_UNSIGNED_NORMALIZED_ARB = C17;
GL_RGBA32F_ARB = 14;
GL_RGB32F_ARB = 15;
GL_ALPHA32F_ARB = 16;
GL_INTENSITY32F_ARB = 17;
GL_LUMINANCE32F_ARB = 18;
GL_LUMINANCE_ALPHA32F_ARB = 19;
GL_RGBA16F_ARB = 1A;
GL_RGB16F_ARB = 1B;
GL_ALPHA16F_ARB = 1C;
GL_INTENSITY16F_ARB = 1D;
GL_LUMINANCE16F_ARB = 1E;
GL_LUMINANCE_ALPHA16F_ARB = 1F;
function Load_GL_ARB_texture_float: Boolean;
//***** GL_EXT_texture_compression_dxt1 *****//
// GL_COMPRESSED_RGB_S3TC_DXT1_EXT { already defined }
// GL_COMPRESSED_RGBA_S3TC_DXT1_EXT { already defined }
function Load_GL_EXT_texture_compression_dxt1: Boolean;
//***** GL_ARB_pixel_buffer_object *****//
const
GL_PIXEL_PACK_BUFFER_ARB = EB;
GL_PIXEL_UNPACK_BUFFER_ARB = EC;
GL_PIXEL_PACK_BUFFER_BINDING_ARB = ED;
GL_PIXEL_UNPACK_BUFFER_BINDING_ARB = EF;
function Load_GL_ARB_pixel_buffer_object: Boolean;
//***** GL_EXT_framebuffer_object *****//
const
GL_FRAMEBUFFER_EXT = D40;
GL_RENDERBUFFER_EXT = D41;
GL_STENCIL_INDEX_EXT = D45;
GL_STENCIL_INDEX1_EXT = D46;
GL_STENCIL_INDEX4_EXT = D47;
GL_STENCIL_INDEX8_EXT = D48;
GL_STENCIL_INDEX16_EXT = D49;
GL_RENDERBUFFER_WIDTH_EXT = D42;
GL_RENDERBUFFER_HEIGHT_EXT = D43;
GL_RENDERBUFFER_INTERNAL_FORMAT_EXT = D44;
GL_FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE_EXT = CD0;
GL_FRAMEBUFFER_ATTACHMENT_OBJECT_NAME_EXT = CD1;
GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL_EXT = CD2;
GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE_EXT = CD3;
GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_3D_ZOFFSET_EXT = CD4;
GL_COLOR_ATTACHMENT0_EXT = CE0;
GL_COLOR_ATTACHMENT1_EXT = CE1;
GL_COLOR_ATTACHMENT2_EXT = CE2;
GL_COLOR_ATTACHMENT3_EXT = CE3;
GL_COLOR_ATTACHMENT4_EXT = CE4;
GL_COLOR_ATTACHMENT5_EXT = CE5;
GL_COLOR_ATTACHMENT6_EXT = CE6;
GL_COLOR_ATTACHMENT7_EXT = CE7;
GL_COLOR_ATTACHMENT8_EXT = CE8;
GL_COLOR_ATTACHMENT9_EXT = CE9;
GL_COLOR_ATTACHMENT10_EXT = CEA;
GL_COLOR_ATTACHMENT11_EXT = CEB;
GL_COLOR_ATTACHMENT12_EXT = CEC;
GL_COLOR_ATTACHMENT13_EXT = CED;
GL_COLOR_ATTACHMENT14_EXT = CEE;
GL_COLOR_ATTACHMENT15_EXT = CEF;
GL_DEPTH_ATTACHMENT_EXT = D00;
GL_STENCIL_ATTACHMENT_EXT = D20;
GL_FRAMEBUFFER_COMPLETE_EXT = CD5;
GL_FRAMEBUFFER_INCOMPLETE_ATTACHMENT_EXT = CD6;
GL_FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT_EXT = CD7;
GL_FRAMEBUFFER_INCOMPLETE_DUPLICATE_ATTACHMENT_EXT = CD8;
GL_FRAMEBUFFER_INCOMPLETE_DIMENSIONS_EXT = CD9;
GL_FRAMEBUFFER_INCOMPLETE_FORMATS_EXT = CDA;
GL_FRAMEBUFFER_INCOMPLETE_DRAW_BUFFER_EXT = CDB;
GL_FRAMEBUFFER_INCOMPLETE_READ_BUFFER_EXT = CDC;
GL_FRAMEBUFFER_UNSUPPORTED_EXT = CDD;
GL_FRAMEBUFFER_STATUS_ERROR_EXT = CDE;
GL_FRAMEBUFFER_BINDING_EXT = CA6;
GL_RENDERBUFFER_BINDING_EXT = CA7;
GL_MAX_COLOR_ATTACHMENTS_EXT = CDF;
GL_MAX_RENDERBUFFER_SIZE_EXT = E8;
GL_INVALID_FRAMEBUFFER_OPERATION_EXT = 06;
var
glIsRenderbufferEXT: function(renderbuffer: GLuint): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glBindRenderbufferEXT: procedure(target: GLenum; renderbuffer: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDeleteRenderbuffersEXT: procedure(n: GLsizei; const renderbuffers: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGenRenderbuffersEXT: procedure(n: GLsizei; renderbuffers: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glRenderbufferStorageEXT: procedure(target: GLenum; internalformat: GLenum; width: GLsizei; height: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetRenderbufferParameterivEXT: procedure(target: GLenum; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glIsFramebufferEXT: function(framebuffer: GLuint): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glBindFramebufferEXT: procedure(target: GLenum; framebuffer: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDeleteFramebuffersEXT: procedure(n: GLsizei; const framebuffers: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGenFramebuffersEXT: procedure(n: GLsizei; framebuffers: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCheckFramebufferStatusEXT: function(target: GLenum): GLenum; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glFramebufferTexture1DEXT: procedure(target: GLenum; attachment: GLenum; textarget: GLenum; texture: GLuint; level: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glFramebufferTexture2DEXT: procedure(target: GLenum; attachment: GLenum; textarget: GLenum; texture: GLuint; level: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glFramebufferTexture3DEXT: procedure(target: GLenum; attachment: GLenum; textarget: GLenum; texture: GLuint; level: GLint; zoffset: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glFramebufferRenderbufferEXT: procedure(target: GLenum; attachment: GLenum; renderbuffertarget: GLenum; renderbuffer: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetFramebufferAttachmentParameterivEXT: procedure(target: GLenum; attachment: GLenum; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGenerateMipmapEXT: procedure(target: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_EXT_framebuffer_object: Boolean;
//***** GL_version_1_4 *****//
const
GL_BLEND_DST_RGB = C8;
GL_BLEND_SRC_RGB = C9;
GL_BLEND_DST_ALPHA = CA;
GL_BLEND_SRC_ALPHA = CB;
GL_POINT_SIZE_MIN = 26;
GL_POINT_SIZE_MAX = 27;
GL_POINT_FADE_THRESHOLD_SIZE = 28;
GL_POINT_DISTANCE_ATTENUATION = 29;
GL_GENERATE_MIPMAP = 91;
GL_GENERATE_MIPMAP_HINT = 92;
GL_DEPTH_COMPONENT16 = A5;
GL_DEPTH_COMPONENT24 = A6;
GL_DEPTH_COMPONENT32 = A7;
GL_MIRRORED_REPEAT = 70;
GL_FOG_COORDINATE_SOURCE = 50;
GL_FOG_COORDINATE = 51;
GL_FRAGMENT_DEPTH = 52;
GL_CURRENT_FOG_COORDINATE = 53;
GL_FOG_COORDINATE_ARRAY_TYPE = 54;
GL_FOG_COORDINATE_ARRAY_STRIDE = 55;
GL_FOG_COORDINATE_ARRAY_POINTER = 56;
GL_FOG_COORDINATE_ARRAY = 57;
GL_COLOR_SUM = 58;
GL_CURRENT_SECONDARY_COLOR = 59;
GL_SECONDARY_COLOR_ARRAY_SIZE = 5A;
GL_SECONDARY_COLOR_ARRAY_TYPE = 5B;
GL_SECONDARY_COLOR_ARRAY_STRIDE = 5C;
GL_SECONDARY_COLOR_ARRAY_POINTER = 5D;
GL_SECONDARY_COLOR_ARRAY = 5E;
GL_MAX_TEXTURE_LOD_BIAS = FD;
GL_TEXTURE_FILTER_CONTROL = 00;
GL_TEXTURE_LOD_BIAS = 01;
GL_INCR_WRAP = 07;
GL_DECR_WRAP = 08;
GL_TEXTURE_DEPTH_SIZE = 4A;
GL_DEPTH_TEXTURE_MODE = 4B;
GL_TEXTURE_COMPARE_MODE = 4C;
GL_TEXTURE_COMPARE_FUNC = 4D;
GL_COMPARE_R_TO_TEXTURE = 4E;
var
glBlendFuncSeparate: procedure(sfactorRGB: GLenum; dfactorRGB: GLenum; sfactorAlpha: GLenum; dfactorAlpha: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glFogCoordf: procedure(coord: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glFogCoordfv: procedure(const coord: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glFogCoordd: procedure(coord: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glFogCoorddv: procedure(const coord: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glFogCoordPointer: procedure(_type: GLenum; stride: GLsizei; const pointer: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiDrawArrays: procedure(mode: GLenum; first: PGLint; count: PGLsizei; primcount: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMultiDrawElements: procedure(mode: GLenum; const count: PGLsizei; _type: GLenum; const indices: PGLvoid; primcount: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glPointParameterf: procedure(pname: GLenum; param: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glPointParameterfv: procedure(pname: GLenum; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glPointParameteri: procedure(pname: GLenum; param: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glPointParameteriv: procedure(pname: GLenum; const params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3b: procedure(red: GLbyte; green: GLbyte; blue: GLbyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3bv: procedure(const v: PGLbyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3d: procedure(red: GLdouble; green: GLdouble; blue: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3f: procedure(red: GLfloat; green: GLfloat; blue: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3i: procedure(red: GLint; green: GLint; blue: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3s: procedure(red: GLshort; green: GLshort; blue: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3ub: procedure(red: GLubyte; green: GLubyte; blue: GLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3ubv: procedure(const v: PGLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3ui: procedure(red: GLuint; green: GLuint; blue: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3uiv: procedure(const v: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3us: procedure(red: GLushort; green: GLushort; blue: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColor3usv: procedure(const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glSecondaryColorPointer: procedure(size: GLint; _type: GLenum; stride: GLsizei; const pointer: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos2d: procedure(x: GLdouble; y: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos2dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos2f: procedure(x: GLfloat; y: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos2fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos2i: procedure(x: GLint; y: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos2iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos2s: procedure(x: GLshort; y: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos2sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos3d: procedure(x: GLdouble; y: GLdouble; z: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos3dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos3f: procedure(x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos3fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos3i: procedure(x: GLint; y: GLint; z: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos3iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos3s: procedure(x: GLshort; y: GLshort; z: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glWindowPos3sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_version_1_4: Boolean;
//***** GL_version_1_5 *****//
const
GL_BUFFER_SIZE = 64;
GL_BUFFER_USAGE = 65;
GL_QUERY_COUNTER_BITS = 64;
GL_CURRENT_QUERY = 65;
GL_QUERY_RESULT = 66;
GL_QUERY_RESULT_AVAILABLE = 67;
GL_ARRAY_BUFFER = 92;
GL_ELEMENT_ARRAY_BUFFER = 93;
GL_ARRAY_BUFFER_BINDING = 94;
GL_ELEMENT_ARRAY_BUFFER_BINDING = 95;
GL_VERTEX_ARRAY_BUFFER_BINDING = 96;
GL_NORMAL_ARRAY_BUFFER_BINDING = 97;
GL_COLOR_ARRAY_BUFFER_BINDING = 98;
GL_INDEX_ARRAY_BUFFER_BINDING = 99;
GL_TEXTURE_COORD_ARRAY_BUFFER_BINDING = 9A;
GL_EDGE_FLAG_ARRAY_BUFFER_BINDING = 9B;
GL_SECONDARY_COLOR_ARRAY_BUFFER_BINDING = 9C;
GL_FOG_COORDINATE_ARRAY_BUFFER_BINDING = 9D;
GL_WEIGHT_ARRAY_BUFFER_BINDING = 9E;
GL_VERTEX_ATTRIB_ARRAY_BUFFER_BINDING = 9F;
GL_READ_ONLY = B8;
GL_WRITE_ONLY = B9;
GL_READ_WRITE = BA;
GL_BUFFER_ACCESS = BB;
GL_BUFFER_MAPPED = BC;
GL_BUFFER_MAP_POINTER = BD;
GL_STREAM_DRAW = E0;
GL_STREAM_READ = E1;
GL_STREAM_COPY = E2;
GL_STATIC_DRAW = E4;
GL_STATIC_READ = E5;
GL_STATIC_COPY = E6;
GL_DYNAMIC_DRAW = E8;
GL_DYNAMIC_READ = E9;
GL_DYNAMIC_COPY = EA;
GL_SAMPLES_PASSED = 14;
GL_FOG_COORD_SRC = 50;
GL_FOG_COORD = 51;
GL_CURRENT_FOG_COORD = 53;
GL_FOG_COORD_ARRAY_TYPE = 54;
GL_FOG_COORD_ARRAY_STRIDE = 55;
GL_FOG_COORD_ARRAY_POINTER = 56;
GL_FOG_COORD_ARRAY = 57;
GL_FOG_COORD_ARRAY_BUFFER_BINDING = 9D;
GL_SRC0_RGB = 80;
GL_SRC1_RGB = 81;
GL_SRC2_RGB = 82;
GL_SRC0_ALPHA = 88;
GL_SRC1_ALPHA = 89;
GL_SRC2_ALPHA = 8A;
var
glGenQueries: procedure(n: GLsizei; ids: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDeleteQueries: procedure(n: GLsizei; const ids: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glIsQuery: function(id: GLuint): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glBeginQuery: procedure(target: GLenum; id: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glEndQuery: procedure(target: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetQueryiv: procedure(target: GLenum; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetQueryObjectiv: procedure(id: GLuint; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetQueryObjectuiv: procedure(id: GLuint; pname: GLenum; params: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glBindBuffer: procedure(target: GLenum; buffer: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDeleteBuffers: procedure(n: GLsizei; const buffers: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGenBuffers: procedure(n: GLsizei; buffers: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glIsBuffer: function(buffer: GLuint): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glBufferData: procedure(target: GLenum; size: GLsizeiptr; const data: PGLvoid; usage: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glBufferSubData: procedure(target: GLenum; offset: GLintptr; size: GLsizeiptr; const data: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetBufferSubData: procedure(target: GLenum; offset: GLintptr; size: GLsizeiptr; data: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glMapBuffer: function(target: GLenum; access: GLenum): PGLvoid; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUnmapBuffer: function(target: GLenum): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetBufferParameteriv: procedure(target: GLenum; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetBufferPointerv: procedure(target: GLenum; pname: GLenum; params: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_version_1_5: Boolean;
//***** GL_version_2_0 *****//
const
GL_BLEND_EQUATION_RGB = 09;
GL_VERTEX_ATTRIB_ARRAY_ENABLED = 22;
GL_VERTEX_ATTRIB_ARRAY_SIZE = 23;
GL_VERTEX_ATTRIB_ARRAY_STRIDE = 24;
GL_VERTEX_ATTRIB_ARRAY_TYPE = 25;
GL_CURRENT_VERTEX_ATTRIB = 26;
GL_VERTEX_PROGRAM_POINT_SIZE = 42;
GL_VERTEX_PROGRAM_TWO_SIDE = 43;
GL_VERTEX_ATTRIB_ARRAY_POINTER = 45;
GL_STENCIL_BACK_FUNC = 00;
GL_STENCIL_BACK_FAIL = 01;
GL_STENCIL_BACK_PASS_DEPTH_FAIL = 02;
GL_STENCIL_BACK_PASS_DEPTH_PASS = 03;
GL_MAX_DRAW_BUFFERS = 24;
GL_DRAW_BUFFER0 = 25;
GL_DRAW_BUFFER1 = 26;
GL_DRAW_BUFFER2 = 27;
GL_DRAW_BUFFER3 = 28;
GL_DRAW_BUFFER4 = 29;
GL_DRAW_BUFFER5 = 2A;
GL_DRAW_BUFFER6 = 2B;
GL_DRAW_BUFFER7 = 2C;
GL_DRAW_BUFFER8 = 2D;
GL_DRAW_BUFFER9 = 2E;
GL_DRAW_BUFFER10 = 2F;
GL_DRAW_BUFFER11 = 30;
GL_DRAW_BUFFER12 = 31;
GL_DRAW_BUFFER13 = 32;
GL_DRAW_BUFFER14 = 33;
GL_DRAW_BUFFER15 = 34;
GL_BLEND_EQUATION_ALPHA = 3D;
GL_POINT_SPRITE = 61;
GL_COORD_REPLACE = 62;
GL_MAX_VERTEX_ATTRIBS = 69;
GL_VERTEX_ATTRIB_ARRAY_NORMALIZED = 6A;
GL_MAX_TEXTURE_COORDS = 71;
GL_MAX_TEXTURE_IMAGE_UNITS = 72;
GL_FRAGMENT_SHADER = B30;
GL_VERTEX_SHADER = B31;
GL_MAX_FRAGMENT_UNIFORM_COMPONENTS = B49;
GL_MAX_VERTEX_UNIFORM_COMPONENTS = B4A;
GL_MAX_VARYING_FLOATS = B4B;
GL_MAX_VERTEX_TEXTURE_IMAGE_UNITS = B4C;
GL_MAX_COMBINED_TEXTURE_IMAGE_UNITS = B4D;
GL_SHADER_TYPE = B4F;
GL_FLOAT_VEC2 = B50;
GL_FLOAT_VEC3 = B51;
GL_FLOAT_VEC4 = B52;
GL_INT_VEC2 = B53;
GL_INT_VEC3 = B54;
GL_INT_VEC4 = B55;
GL_BOOL = B56;
GL_BOOL_VEC2 = B57;
GL_BOOL_VEC3 = B58;
GL_BOOL_VEC4 = B59;
GL_FLOAT_MAT2 = B5A;
GL_FLOAT_MAT3 = B5B;
GL_FLOAT_MAT4 = B5C;
GL_SAMPLER_1D = B5D;
GL_SAMPLER_2D = B5E;
GL_SAMPLER_3D = B5F;
GL_SAMPLER_CUBE = B60;
GL_SAMPLER_1D_SHADOW = B61;
GL_SAMPLER_2D_SHADOW = B62;
GL_DELETE_STATUS = B80;
GL_COMPILE_STATUS = B81;
GL_LINK_STATUS = B82;
GL_VALIDATE_STATUS = B83;
GL_INFO_LOG_LENGTH = B84;
GL_ATTACHED_SHADERS = B85;
GL_ACTIVE_UNIFORMS = B86;
GL_ACTIVE_UNIFORM_MAX_LENGTH = B87;
GL_SHADER_SOURCE_LENGTH = B88;
GL_ACTIVE_ATTRIBUTES = B89;
GL_ACTIVE_ATTRIBUTE_MAX_LENGTH = B8A;
GL_FRAGMENT_SHADER_DERIVATIVE_HINT = B8B;
GL_SHADING_LANGUAGE_VERSION = B8C;
GL_CURRENT_PROGRAM = B8D;
GL_POINT_SPRITE_COORD_ORIGIN = CA0;
GL_LOWER_LEFT = CA1;
GL_UPPER_LEFT = CA2;
GL_STENCIL_BACK_REF = CA3;
GL_STENCIL_BACK_VALUE_MASK = CA4;
GL_STENCIL_BACK_WRITEMASK = CA5;
var
glBlendEquationSeparate: procedure(modeRGB: GLenum; modeAlpha: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDrawBuffers: procedure(n: GLsizei; const bufs: PGLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glStencilOpSeparate: procedure(face: GLenum; sfail: GLenum; dpfail: GLenum; dppass: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glStencilFuncSeparate: procedure(frontfunc: GLenum; backfunc: GLenum; ref: GLint; mask: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glStencilMaskSeparate: procedure(face: GLenum; mask: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glAttachShader: procedure(_program: GLuint; shader: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glBindAttribLocation: procedure(_program: GLuint; index: GLuint; const name: PGLchar); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCompileShader: procedure(shader: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCreateProgram: function(): GLuint; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glCreateShader: function(_type: GLenum): GLuint; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDeleteProgram: procedure(_program: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDeleteShader: procedure(shader: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDetachShader: procedure(_program: GLuint; shader: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glDisableVertexAttribArray: procedure(index: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glEnableVertexAttribArray: procedure(index: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetActiveAttrib: procedure(_program: GLuint; index: GLuint; bufSize: GLsizei; length: PGLsizei; size: PGLint; _type: PGLenum; name: PGLchar); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetActiveUniform: procedure(_program: GLuint; index: GLuint; bufSize: GLsizei; length: PGLsizei; size: PGLint; _type: PGLenum; name: PGLchar); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetAttachedShaders: procedure(_program: GLuint; maxCount: GLsizei; count: PGLsizei; obj: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetAttribLocation: function(_program: GLuint; const name: PGLchar): GLint; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetProgramiv: procedure(_program: GLuint; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetProgramInfoLog: procedure(_program: GLuint; bufSize: GLsizei; length: PGLsizei; infoLog: PGLchar); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetShaderiv: procedure(shader: GLuint; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetShaderInfoLog: procedure(shader: GLuint; bufSize: GLsizei; length: PGLsizei; infoLog: PGLchar); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetShaderSource: procedure(shader: GLuint; bufSize: GLsizei; length: PGLsizei; source: PGLchar); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetUniformLocation: function(_program: GLuint; const name: PGLchar): GLint; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetUniformfv: procedure(_program: GLuint; location: GLint; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetUniformiv: procedure(_program: GLuint; location: GLint; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetVertexAttribdv: procedure(index: GLuint; pname: GLenum; params: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetVertexAttribfv: procedure(index: GLuint; pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetVertexAttribiv: procedure(index: GLuint; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glGetVertexAttribPointerv: procedure(index: GLuint; pname: GLenum; pointer: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glIsProgram: function(_program: GLuint): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glIsShader: function(shader: GLuint): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glLinkProgram: procedure(_program: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glShaderSource: procedure(shader: GLuint; count: GLsizei; const _string: PGLchar; const length: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUseProgram: procedure(_program: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform1f: procedure(location: GLint; v0: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform2f: procedure(location: GLint; v0: GLfloat; v1: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform3f: procedure(location: GLint; v0: GLfloat; v1: GLfloat; v2: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform4f: procedure(location: GLint; v0: GLfloat; v1: GLfloat; v2: GLfloat; v3: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform1i: procedure(location: GLint; v0: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform2i: procedure(location: GLint; v0: GLint; v1: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform3i: procedure(location: GLint; v0: GLint; v1: GLint; v2: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform4i: procedure(location: GLint; v0: GLint; v1: GLint; v2: GLint; v3: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform1fv: procedure(location: GLint; count: GLsizei; const value: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform2fv: procedure(location: GLint; count: GLsizei; const value: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform3fv: procedure(location: GLint; count: GLsizei; const value: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform4fv: procedure(location: GLint; count: GLsizei; const value: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform1iv: procedure(location: GLint; count: GLsizei; const value: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform2iv: procedure(location: GLint; count: GLsizei; const value: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform3iv: procedure(location: GLint; count: GLsizei; const value: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniform4iv: procedure(location: GLint; count: GLsizei; const value: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniformMatrix2fv: procedure(location: GLint; count: GLsizei; transpose: GLboolean; const value: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniformMatrix3fv: procedure(location: GLint; count: GLsizei; transpose: GLboolean; const value: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glUniformMatrix4fv: procedure(location: GLint; count: GLsizei; transpose: GLboolean; const value: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glValidateProgram: procedure(_program: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib1d: procedure(index: GLuint; x: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib1dv: procedure(index: GLuint; const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib1f: procedure(index: GLuint; x: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib1fv: procedure(index: GLuint; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib1s: procedure(index: GLuint; x: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib1sv: procedure(index: GLuint; const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib2d: procedure(index: GLuint; x: GLdouble; y: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib2dv: procedure(index: GLuint; const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib2f: procedure(index: GLuint; x: GLfloat; y: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib2fv: procedure(index: GLuint; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib2s: procedure(index: GLuint; x: GLshort; y: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib2sv: procedure(index: GLuint; const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib3d: procedure(index: GLuint; x: GLdouble; y: GLdouble; z: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib3dv: procedure(index: GLuint; const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib3f: procedure(index: GLuint; x: GLfloat; y: GLfloat; z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib3fv: procedure(index: GLuint; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib3s: procedure(index: GLuint; x: GLshort; y: GLshort; z: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib3sv: procedure(index: GLuint; const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4Nbv: procedure(index: GLuint; const v: PGLbyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4Niv: procedure(index: GLuint; const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4Nsv: procedure(index: GLuint; const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4Nub: procedure(index: GLuint; x: GLubyte; y: GLubyte; z: GLubyte; w: GLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4Nubv: procedure(index: GLuint; const v: PGLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4Nuiv: procedure(index: GLuint; const v: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4Nusv: procedure(index: GLuint; const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4bv: procedure(index: GLuint; const v: PGLbyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4d: procedure(index: GLuint; x: GLdouble; y: GLdouble; z: GLdouble; w: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4dv: procedure(index: GLuint; const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4f: procedure(index: GLuint; x: GLfloat; y: GLfloat; z: GLfloat; w: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4fv: procedure(index: GLuint; const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4iv: procedure(index: GLuint; const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4s: procedure(index: GLuint; x: GLshort; y: GLshort; z: GLshort; w: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4sv: procedure(index: GLuint; const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4ubv: procedure(index: GLuint; const v: PGLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4uiv: procedure(index: GLuint; const v: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttrib4usv: procedure(index: GLuint; const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
glVertexAttribPointer: procedure(index: GLuint; size: GLint; _type: GLenum; normalized: GLboolean; stride: GLsizei; const pointer: PGLvoid); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
function Load_GL_version_2_0: Boolean;
implementation
uses
sdl;
function glext_ExtensionSupported(const extension: PChar; const searchIn: PChar): Boolean;
var
extensions: PChar;
start: PChar;
where, terminator: PChar;
begin
if (Pos(' ', extension) <> 0) or (extension = '') then
begin
Result := FALSE;
Exit;
end;
if searchIn = '' then
extensions := glGetString(GL_EXTENSIONS)
else
//StrLCopy( extensions, searchIn, StrLen(searchIn)+1 );
extensions := searchIn;
start := extensions;
while TRUE do
begin
where := StrPos(start, extension );
if where = nil then Break;
terminator := Pointer(Integer(where) + Integer( strlen( extension ) ) );
if (where = start) or (PChar(Integer(where) - 1)^ = ' ') then
begin
if (terminator^ = ' ') or (terminator^ = #0) then
begin
Result := TRUE;
Exit;
end;
end;
start := terminator;
end;
Result := FALSE;
end;
function Load_GL_version_1_2: Boolean;
{var
extstring : PChar;}
begin
Result := FALSE;
//extstring := glGetString( GL_EXTENSIONS );
@glCopyTexSubImage3D := SDL_GL_GetProcAddress('glCopyTexSubImage3D');
if not Assigned(glCopyTexSubImage3D) then Exit;
@glDrawRangeElements := SDL_GL_GetProcAddress('glDrawRangeElements');
if not Assigned(glDrawRangeElements) then Exit;
@glTexImage3D := SDL_GL_GetProcAddress('glTexImage3D');
if not Assigned(glTexImage3D) then Exit;
@glTexSubImage3D := SDL_GL_GetProcAddress('glTexSubImage3D');
if not Assigned(glTexSubImage3D) then Exit;
Result := TRUE;
end;
function Load_GL_ARB_imaging: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_imaging', extstring) then
begin
@glColorTable := SDL_GL_GetProcAddress('glColorTable');
if not Assigned(glColorTable) then Exit;
@glColorTableParameterfv := SDL_GL_GetProcAddress('glColorTableParameterfv');
if not Assigned(glColorTableParameterfv) then Exit;
@glColorTableParameteriv := SDL_GL_GetProcAddress('glColorTableParameteriv');
if not Assigned(glColorTableParameteriv) then Exit;
@glCopyColorTable := SDL_GL_GetProcAddress('glCopyColorTable');
if not Assigned(glCopyColorTable) then Exit;
@glGetColorTable := SDL_GL_GetProcAddress('glGetColorTable');
if not Assigned(glGetColorTable) then Exit;
@glGetColorTableParameterfv := SDL_GL_GetProcAddress('glGetColorTableParameterfv');
if not Assigned(glGetColorTableParameterfv) then Exit;
@glGetColorTableParameteriv := SDL_GL_GetProcAddress('glGetColorTableParameteriv');
if not Assigned(glGetColorTableParameteriv) then Exit;
@glColorSubTable := SDL_GL_GetProcAddress('glColorSubTable');
if not Assigned(glColorSubTable) then Exit;
@glCopyColorSubTable := SDL_GL_GetProcAddress('glCopyColorSubTable');
if not Assigned(glCopyColorSubTable) then Exit;
@glConvolutionFilter1D := SDL_GL_GetProcAddress('glConvolutionFilter1D');
if not Assigned(glConvolutionFilter1D) then Exit;
@glConvolutionFilter2D := SDL_GL_GetProcAddress('glConvolutionFilter2D');
if not Assigned(glConvolutionFilter2D) then Exit;
@glConvolutionParameterf := SDL_GL_GetProcAddress('glConvolutionParameterf');
if not Assigned(glConvolutionParameterf) then Exit;
@glConvolutionParameterfv := SDL_GL_GetProcAddress('glConvolutionParameterfv');
if not Assigned(glConvolutionParameterfv) then Exit;
@glConvolutionParameteri := SDL_GL_GetProcAddress('glConvolutionParameteri');
if not Assigned(glConvolutionParameteri) then Exit;
@glConvolutionParameteriv := SDL_GL_GetProcAddress('glConvolutionParameteriv');
if not Assigned(glConvolutionParameteriv) then Exit;
@glCopyConvolutionFilter1D := SDL_GL_GetProcAddress('glCopyConvolutionFilter1D');
if not Assigned(glCopyConvolutionFilter1D) then Exit;
@glCopyConvolutionFilter2D := SDL_GL_GetProcAddress('glCopyConvolutionFilter2D');
if not Assigned(glCopyConvolutionFilter2D) then Exit;
@glGetConvolutionFilter := SDL_GL_GetProcAddress('glGetConvolutionFilter');
if not Assigned(glGetConvolutionFilter) then Exit;
@glGetConvolutionParameterfv := SDL_GL_GetProcAddress('glGetConvolutionParameterfv');
if not Assigned(glGetConvolutionParameterfv) then Exit;
@glGetConvolutionParameteriv := SDL_GL_GetProcAddress('glGetConvolutionParameteriv');
if not Assigned(glGetConvolutionParameteriv) then Exit;
@glGetSeparableFilter := SDL_GL_GetProcAddress('glGetSeparableFilter');
if not Assigned(glGetSeparableFilter) then Exit;
@glSeparableFilter2D := SDL_GL_GetProcAddress('glSeparableFilter2D');
if not Assigned(glSeparableFilter2D) then Exit;
@glGetHistogram := SDL_GL_GetProcAddress('glGetHistogram');
if not Assigned(glGetHistogram) then Exit;
@glGetHistogramParameterfv := SDL_GL_GetProcAddress('glGetHistogramParameterfv');
if not Assigned(glGetHistogramParameterfv) then Exit;
@glGetHistogramParameteriv := SDL_GL_GetProcAddress('glGetHistogramParameteriv');
if not Assigned(glGetHistogramParameteriv) then Exit;
@glGetMinmax := SDL_GL_GetProcAddress('glGetMinmax');
if not Assigned(glGetMinmax) then Exit;
@glGetMinmaxParameterfv := SDL_GL_GetProcAddress('glGetMinmaxParameterfv');
if not Assigned(glGetMinmaxParameterfv) then Exit;
@glGetMinmaxParameteriv := SDL_GL_GetProcAddress('glGetMinmaxParameteriv');
if not Assigned(glGetMinmaxParameteriv) then Exit;
@glHistogram := SDL_GL_GetProcAddress('glHistogram');
if not Assigned(glHistogram) then Exit;
@glMinmax := SDL_GL_GetProcAddress('glMinmax');
if not Assigned(glMinmax) then Exit;
@glResetHistogram := SDL_GL_GetProcAddress('glResetHistogram');
if not Assigned(glResetHistogram) then Exit;
@glResetMinmax := SDL_GL_GetProcAddress('glResetMinmax');
if not Assigned(glResetMinmax) then Exit;
@glBlendEquation := SDL_GL_GetProcAddress('glBlendEquation');
if not Assigned(glBlendEquation) then Exit;
@glBlendColor := SDL_GL_GetProcAddress('glBlendColor');
if not Assigned(glBlendColor) then Exit;
Result := TRUE;
end;
end;
function Load_GL_version_1_3: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
@glActiveTexture := SDL_GL_GetProcAddress('glActiveTexture');
if not Assigned(glActiveTexture) then Exit;
@glClientActiveTexture := SDL_GL_GetProcAddress('glClientActiveTexture');
if not Assigned(glClientActiveTexture) then Exit;
@glMultiTexCoord1d := SDL_GL_GetProcAddress('glMultiTexCoord1d');
if not Assigned(glMultiTexCoord1d) then Exit;
@glMultiTexCoord1dv := SDL_GL_GetProcAddress('glMultiTexCoord1dv');
if not Assigned(glMultiTexCoord1dv) then Exit;
@glMultiTexCoord1f := SDL_GL_GetProcAddress('glMultiTexCoord1f');
if not Assigned(glMultiTexCoord1f) then Exit;
@glMultiTexCoord1fv := SDL_GL_GetProcAddress('glMultiTexCoord1fv');
if not Assigned(glMultiTexCoord1fv) then Exit;
@glMultiTexCoord1i := SDL_GL_GetProcAddress('glMultiTexCoord1i');
if not Assigned(glMultiTexCoord1i) then Exit;
@glMultiTexCoord1iv := SDL_GL_GetProcAddress('glMultiTexCoord1iv');
if not Assigned(glMultiTexCoord1iv) then Exit;
@glMultiTexCoord1s := SDL_GL_GetProcAddress('glMultiTexCoord1s');
if not Assigned(glMultiTexCoord1s) then Exit;
@glMultiTexCoord1sv := SDL_GL_GetProcAddress('glMultiTexCoord1sv');
if not Assigned(glMultiTexCoord1sv) then Exit;
@glMultiTexCoord2d := SDL_GL_GetProcAddress('glMultiTexCoord2d');
if not Assigned(glMultiTexCoord2d) then Exit;
@glMultiTexCoord2dv := SDL_GL_GetProcAddress('glMultiTexCoord2dv');
if not Assigned(glMultiTexCoord2dv) then Exit;
@glMultiTexCoord2f := SDL_GL_GetProcAddress('glMultiTexCoord2f');
if not Assigned(glMultiTexCoord2f) then Exit;
@glMultiTexCoord2fv := SDL_GL_GetProcAddress('glMultiTexCoord2fv');
if not Assigned(glMultiTexCoord2fv) then Exit;
@glMultiTexCoord2i := SDL_GL_GetProcAddress('glMultiTexCoord2i');
if not Assigned(glMultiTexCoord2i) then Exit;
@glMultiTexCoord2iv := SDL_GL_GetProcAddress('glMultiTexCoord2iv');
if not Assigned(glMultiTexCoord2iv) then Exit;
@glMultiTexCoord2s := SDL_GL_GetProcAddress('glMultiTexCoord2s');
if not Assigned(glMultiTexCoord2s) then Exit;
@glMultiTexCoord2sv := SDL_GL_GetProcAddress('glMultiTexCoord2sv');
if not Assigned(glMultiTexCoord2sv) then Exit;
@glMultiTexCoord3d := SDL_GL_GetProcAddress('glMultiTexCoord3d');
if not Assigned(glMultiTexCoord3d) then Exit;
@glMultiTexCoord3dv := SDL_GL_GetProcAddress('glMultiTexCoord3dv');
if not Assigned(glMultiTexCoord3dv) then Exit;
@glMultiTexCoord3f := SDL_GL_GetProcAddress('glMultiTexCoord3f');
if not Assigned(glMultiTexCoord3f) then Exit;
@glMultiTexCoord3fv := SDL_GL_GetProcAddress('glMultiTexCoord3fv');
if not Assigned(glMultiTexCoord3fv) then Exit;
@glMultiTexCoord3i := SDL_GL_GetProcAddress('glMultiTexCoord3i');
if not Assigned(glMultiTexCoord3i) then Exit;
@glMultiTexCoord3iv := SDL_GL_GetProcAddress('glMultiTexCoord3iv');
if not Assigned(glMultiTexCoord3iv) then Exit;
@glMultiTexCoord3s := SDL_GL_GetProcAddress('glMultiTexCoord3s');
if not Assigned(glMultiTexCoord3s) then Exit;
@glMultiTexCoord3sv := SDL_GL_GetProcAddress('glMultiTexCoord3sv');
if not Assigned(glMultiTexCoord3sv) then Exit;
@glMultiTexCoord4d := SDL_GL_GetProcAddress('glMultiTexCoord4d');
if not Assigned(glMultiTexCoord4d) then Exit;
@glMultiTexCoord4dv := SDL_GL_GetProcAddress('glMultiTexCoord4dv');
if not Assigned(glMultiTexCoord4dv) then Exit;
@glMultiTexCoord4f := SDL_GL_GetProcAddress('glMultiTexCoord4f');
if not Assigned(glMultiTexCoord4f) then Exit;
@glMultiTexCoord4fv := SDL_GL_GetProcAddress('glMultiTexCoord4fv');
if not Assigned(glMultiTexCoord4fv) then Exit;
@glMultiTexCoord4i := SDL_GL_GetProcAddress('glMultiTexCoord4i');
if not Assigned(glMultiTexCoord4i) then Exit;
@glMultiTexCoord4iv := SDL_GL_GetProcAddress('glMultiTexCoord4iv');
if not Assigned(glMultiTexCoord4iv) then Exit;
@glMultiTexCoord4s := SDL_GL_GetProcAddress('glMultiTexCoord4s');
if not Assigned(glMultiTexCoord4s) then Exit;
@glMultiTexCoord4sv := SDL_GL_GetProcAddress('glMultiTexCoord4sv');
if not Assigned(glMultiTexCoord4sv) then Exit;
@glLoadTransposeMatrixf := SDL_GL_GetProcAddress('glLoadTransposeMatrixf');
if not Assigned(glLoadTransposeMatrixf) then Exit;
@glLoadTransposeMatrixd := SDL_GL_GetProcAddress('glLoadTransposeMatrixd');
if not Assigned(glLoadTransposeMatrixd) then Exit;
@glMultTransposeMatrixf := SDL_GL_GetProcAddress('glMultTransposeMatrixf');
if not Assigned(glMultTransposeMatrixf) then Exit;
@glMultTransposeMatrixd := SDL_GL_GetProcAddress('glMultTransposeMatrixd');
if not Assigned(glMultTransposeMatrixd) then Exit;
@glSampleCoverage := SDL_GL_GetProcAddress('glSampleCoverage');
if not Assigned(glSampleCoverage) then Exit;
@glCompressedTexImage3D := SDL_GL_GetProcAddress('glCompressedTexImage3D');
if not Assigned(glCompressedTexImage3D) then Exit;
@glCompressedTexImage2D := SDL_GL_GetProcAddress('glCompressedTexImage2D');
if not Assigned(glCompressedTexImage2D) then Exit;
@glCompressedTexImage1D := SDL_GL_GetProcAddress('glCompressedTexImage1D');
if not Assigned(glCompressedTexImage1D) then Exit;
@glCompressedTexSubImage3D := SDL_GL_GetProcAddress('glCompressedTexSubImage3D');
if not Assigned(glCompressedTexSubImage3D) then Exit;
@glCompressedTexSubImage2D := SDL_GL_GetProcAddress('glCompressedTexSubImage2D');
if not Assigned(glCompressedTexSubImage2D) then Exit;
@glCompressedTexSubImage1D := SDL_GL_GetProcAddress('glCompressedTexSubImage1D');
if not Assigned(glCompressedTexSubImage1D) then Exit;
@glGetCompressedTexImage := SDL_GL_GetProcAddress('glGetCompressedTexImage');
if not Assigned(glGetCompressedTexImage) then Exit;
Result := TRUE;
end;
function Load_GL_ARB_multitexture: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_multitexture', extstring) then
begin
@glActiveTextureARB := SDL_GL_GetProcAddress('glActiveTextureARB');
if not Assigned(glActiveTextureARB) then Exit;
@glClientActiveTextureARB := SDL_GL_GetProcAddress('glClientActiveTextureARB');
if not Assigned(glClientActiveTextureARB) then Exit;
@glMultiTexCoord1dARB := SDL_GL_GetProcAddress('glMultiTexCoord1dARB');
if not Assigned(glMultiTexCoord1dARB) then Exit;
@glMultiTexCoord1dvARB := SDL_GL_GetProcAddress('glMultiTexCoord1dvARB');
if not Assigned(glMultiTexCoord1dvARB) then Exit;
@glMultiTexCoord1fARB := SDL_GL_GetProcAddress('glMultiTexCoord1fARB');
if not Assigned(glMultiTexCoord1fARB) then Exit;
@glMultiTexCoord1fvARB := SDL_GL_GetProcAddress('glMultiTexCoord1fvARB');
if not Assigned(glMultiTexCoord1fvARB) then Exit;
@glMultiTexCoord1iARB := SDL_GL_GetProcAddress('glMultiTexCoord1iARB');
if not Assigned(glMultiTexCoord1iARB) then Exit;
@glMultiTexCoord1ivARB := SDL_GL_GetProcAddress('glMultiTexCoord1ivARB');
if not Assigned(glMultiTexCoord1ivARB) then Exit;
@glMultiTexCoord1sARB := SDL_GL_GetProcAddress('glMultiTexCoord1sARB');
if not Assigned(glMultiTexCoord1sARB) then Exit;
@glMultiTexCoord1svARB := SDL_GL_GetProcAddress('glMultiTexCoord1svARB');
if not Assigned(glMultiTexCoord1svARB) then Exit;
@glMultiTexCoord2dARB := SDL_GL_GetProcAddress('glMultiTexCoord2dARB');
if not Assigned(glMultiTexCoord2dARB) then Exit;
@glMultiTexCoord2dvARB := SDL_GL_GetProcAddress('glMultiTexCoord2dvARB');
if not Assigned(glMultiTexCoord2dvARB) then Exit;
@glMultiTexCoord2fARB := SDL_GL_GetProcAddress('glMultiTexCoord2fARB');
if not Assigned(glMultiTexCoord2fARB) then Exit;
@glMultiTexCoord2fvARB := SDL_GL_GetProcAddress('glMultiTexCoord2fvARB');
if not Assigned(glMultiTexCoord2fvARB) then Exit;
@glMultiTexCoord2iARB := SDL_GL_GetProcAddress('glMultiTexCoord2iARB');
if not Assigned(glMultiTexCoord2iARB) then Exit;
@glMultiTexCoord2ivARB := SDL_GL_GetProcAddress('glMultiTexCoord2ivARB');
if not Assigned(glMultiTexCoord2ivARB) then Exit;
@glMultiTexCoord2sARB := SDL_GL_GetProcAddress('glMultiTexCoord2sARB');
if not Assigned(glMultiTexCoord2sARB) then Exit;
@glMultiTexCoord2svARB := SDL_GL_GetProcAddress('glMultiTexCoord2svARB');
if not Assigned(glMultiTexCoord2svARB) then Exit;
@glMultiTexCoord3dARB := SDL_GL_GetProcAddress('glMultiTexCoord3dARB');
if not Assigned(glMultiTexCoord3dARB) then Exit;
@glMultiTexCoord3dvARB := SDL_GL_GetProcAddress('glMultiTexCoord3dvARB');
if not Assigned(glMultiTexCoord3dvARB) then Exit;
@glMultiTexCoord3fARB := SDL_GL_GetProcAddress('glMultiTexCoord3fARB');
if not Assigned(glMultiTexCoord3fARB) then Exit;
@glMultiTexCoord3fvARB := SDL_GL_GetProcAddress('glMultiTexCoord3fvARB');
if not Assigned(glMultiTexCoord3fvARB) then Exit;
@glMultiTexCoord3iARB := SDL_GL_GetProcAddress('glMultiTexCoord3iARB');
if not Assigned(glMultiTexCoord3iARB) then Exit;
@glMultiTexCoord3ivARB := SDL_GL_GetProcAddress('glMultiTexCoord3ivARB');
if not Assigned(glMultiTexCoord3ivARB) then Exit;
@glMultiTexCoord3sARB := SDL_GL_GetProcAddress('glMultiTexCoord3sARB');
if not Assigned(glMultiTexCoord3sARB) then Exit;
@glMultiTexCoord3svARB := SDL_GL_GetProcAddress('glMultiTexCoord3svARB');
if not Assigned(glMultiTexCoord3svARB) then Exit;
@glMultiTexCoord4dARB := SDL_GL_GetProcAddress('glMultiTexCoord4dARB');
if not Assigned(glMultiTexCoord4dARB) then Exit;
@glMultiTexCoord4dvARB := SDL_GL_GetProcAddress('glMultiTexCoord4dvARB');
if not Assigned(glMultiTexCoord4dvARB) then Exit;
@glMultiTexCoord4fARB := SDL_GL_GetProcAddress('glMultiTexCoord4fARB');
if not Assigned(glMultiTexCoord4fARB) then Exit;
@glMultiTexCoord4fvARB := SDL_GL_GetProcAddress('glMultiTexCoord4fvARB');
if not Assigned(glMultiTexCoord4fvARB) then Exit;
@glMultiTexCoord4iARB := SDL_GL_GetProcAddress('glMultiTexCoord4iARB');
if not Assigned(glMultiTexCoord4iARB) then Exit;
@glMultiTexCoord4ivARB := SDL_GL_GetProcAddress('glMultiTexCoord4ivARB');
if not Assigned(glMultiTexCoord4ivARB) then Exit;
@glMultiTexCoord4sARB := SDL_GL_GetProcAddress('glMultiTexCoord4sARB');
if not Assigned(glMultiTexCoord4sARB) then Exit;
@glMultiTexCoord4svARB := SDL_GL_GetProcAddress('glMultiTexCoord4svARB');
if not Assigned(glMultiTexCoord4svARB) then Exit;
Result := TRUE;
end;
end;
function Load_GL_ARB_transpose_matrix: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_transpose_matrix', extstring) then
begin
@glLoadTransposeMatrixfARB := SDL_GL_GetProcAddress('glLoadTransposeMatrixfARB');
if not Assigned(glLoadTransposeMatrixfARB) then Exit;
@glLoadTransposeMatrixdARB := SDL_GL_GetProcAddress('glLoadTransposeMatrixdARB');
if not Assigned(glLoadTransposeMatrixdARB) then Exit;
@glMultTransposeMatrixfARB := SDL_GL_GetProcAddress('glMultTransposeMatrixfARB');
if not Assigned(glMultTransposeMatrixfARB) then Exit;
@glMultTransposeMatrixdARB := SDL_GL_GetProcAddress('glMultTransposeMatrixdARB');
if not Assigned(glMultTransposeMatrixdARB) then Exit;
Result := TRUE;
end;
end;
function Load_GL_ARB_multisample: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_multisample', extstring) then
begin
@glSampleCoverageARB := SDL_GL_GetProcAddress('glSampleCoverageARB');
if not Assigned(glSampleCoverageARB) then Exit;
Result := TRUE;
end;
end;
function Load_GL_ARB_texture_env_add: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_texture_env_add', extstring) then
begin
Result := TRUE;
end;
end;
{$IFDEF WINDOWS}
function Load_WGL_ARB_extensions_string: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
@wglGetExtensionsStringARB := SDL_GL_GetProcAddress('wglGetExtensionsStringARB');
if not Assigned(wglGetExtensionsStringARB) then Exit;
extstring := wglGetExtensionsStringARB(wglGetCurrentDC);
if glext_ExtensionSupported('WGL_ARB_extensions_string', extstring) then
begin
@wglGetExtensionsStringARB := SDL_GL_GetProcAddress('wglGetExtensionsStringARB');
if not Assigned(wglGetExtensionsStringARB) then Exit;
Result := TRUE;
end;
end;
function Load_WGL_ARB_buffer_region: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
@wglGetExtensionsStringARB := SDL_GL_GetProcAddress('wglGetExtensionsStringARB');
if not Assigned(wglGetExtensionsStringARB) then Exit;
extstring := wglGetExtensionsStringARB(wglGetCurrentDC);
if glext_ExtensionSupported('WGL_ARB_buffer_region', extstring) then
begin
@wglCreateBufferRegionARB := SDL_GL_GetProcAddress('wglCreateBufferRegionARB');
if not Assigned(wglCreateBufferRegionARB) then Exit;
@wglDeleteBufferRegionARB := SDL_GL_GetProcAddress('wglDeleteBufferRegionARB');
if not Assigned(wglDeleteBufferRegionARB) then Exit;
@wglSaveBufferRegionARB := SDL_GL_GetProcAddress('wglSaveBufferRegionARB');
if not Assigned(wglSaveBufferRegionARB) then Exit;
@wglRestoreBufferRegionARB := SDL_GL_GetProcAddress('wglRestoreBufferRegionARB');
if not Assigned(wglRestoreBufferRegionARB) then Exit;
Result := TRUE;
end;
end;
{$ENDIF}
function Load_GL_ARB_texture_cube_map: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_texture_cube_map', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_ARB_depth_texture: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_depth_texture', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_ARB_point_parameters: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_point_parameters', extstring) then
begin
@glPointParameterfARB := SDL_GL_GetProcAddress('glPointParameterfARB');
if not Assigned(glPointParameterfARB) then Exit;
@glPointParameterfvARB := SDL_GL_GetProcAddress('glPointParameterfvARB');
if not Assigned(glPointParameterfvARB) then Exit;
Result := TRUE;
end;
end;
function Load_GL_ARB_shadow: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_shadow', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_ARB_shadow_ambient: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_shadow_ambient', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_ARB_texture_border_clamp: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_texture_border_clamp', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_ARB_texture_compression: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_texture_compression', extstring) then
begin
@glCompressedTexImage3DARB := SDL_GL_GetProcAddress('glCompressedTexImage3DARB');
if not Assigned(glCompressedTexImage3DARB) then Exit;
@glCompressedTexImage2DARB := SDL_GL_GetProcAddress('glCompressedTexImage2DARB');
if not Assigned(glCompressedTexImage2DARB) then Exit;
@glCompressedTexImage1DARB := SDL_GL_GetProcAddress('glCompressedTexImage1DARB');
if not Assigned(glCompressedTexImage1DARB) then Exit;
@glCompressedTexSubImage3DARB := SDL_GL_GetProcAddress('glCompressedTexSubImage3DARB');
if not Assigned(glCompressedTexSubImage3DARB) then Exit;
@glCompressedTexSubImage2DARB := SDL_GL_GetProcAddress('glCompressedTexSubImage2DARB');
if not Assigned(glCompressedTexSubImage2DARB) then Exit;
@glCompressedTexSubImage1DARB := SDL_GL_GetProcAddress('glCompressedTexSubImage1DARB');
if not Assigned(glCompressedTexSubImage1DARB) then Exit;
@glGetCompressedTexImageARB := SDL_GL_GetProcAddress('glGetCompressedTexImageARB');
if not Assigned(glGetCompressedTexImageARB) then Exit;
Result := TRUE;
end;
end;
function Load_GL_ARB_texture_env_combine: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_texture_env_combine', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_ARB_texture_env_crossbar: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_texture_env_crossbar', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_ARB_texture_env_dot3: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_texture_env_dot3', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_ARB_texture_mirrored_repeat: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_texture_mirrored_repeat', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_ARB_vertex_blend: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_vertex_blend', extstring) then
begin
@glWeightbvARB := SDL_GL_GetProcAddress('glWeightbvARB');
if not Assigned(glWeightbvARB) then Exit;
@glWeightsvARB := SDL_GL_GetProcAddress('glWeightsvARB');
if not Assigned(glWeightsvARB) then Exit;
@glWeightivARB := SDL_GL_GetProcAddress('glWeightivARB');
if not Assigned(glWeightivARB) then Exit;
@glWeightfvARB := SDL_GL_GetProcAddress('glWeightfvARB');
if not Assigned(glWeightfvARB) then Exit;
@glWeightdvARB := SDL_GL_GetProcAddress('glWeightdvARB');
if not Assigned(glWeightdvARB) then Exit;
@glWeightvARB := SDL_GL_GetProcAddress('glWeightvARB');
if not Assigned(glWeightvARB) then Exit;
@glWeightubvARB := SDL_GL_GetProcAddress('glWeightubvARB');
if not Assigned(glWeightubvARB) then Exit;
@glWeightusvARB := SDL_GL_GetProcAddress('glWeightusvARB');
if not Assigned(glWeightusvARB) then Exit;
@glWeightuivARB := SDL_GL_GetProcAddress('glWeightuivARB');
if not Assigned(glWeightuivARB) then Exit;
@glWeightPointerARB := SDL_GL_GetProcAddress('glWeightPointerARB');
if not Assigned(glWeightPointerARB) then Exit;
@glVertexBlendARB := SDL_GL_GetProcAddress('glVertexBlendARB');
if not Assigned(glVertexBlendARB) then Exit;
Result := TRUE;
end;
end;
function Load_GL_ARB_vertex_program: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_vertex_program', extstring) then
begin
@glVertexAttrib1sARB := SDL_GL_GetProcAddress('glVertexAttrib1sARB');
if not Assigned(glVertexAttrib1sARB) then Exit;
@glVertexAttrib1fARB := SDL_GL_GetProcAddress('glVertexAttrib1fARB');
if not Assigned(glVertexAttrib1fARB) then Exit;
@glVertexAttrib1dARB := SDL_GL_GetProcAddress('glVertexAttrib1dARB');
if not Assigned(glVertexAttrib1dARB) then Exit;
@glVertexAttrib2sARB := SDL_GL_GetProcAddress('glVertexAttrib2sARB');
if not Assigned(glVertexAttrib2sARB) then Exit;
@glVertexAttrib2fARB := SDL_GL_GetProcAddress('glVertexAttrib2fARB');
if not Assigned(glVertexAttrib2fARB) then Exit;
@glVertexAttrib2dARB := SDL_GL_GetProcAddress('glVertexAttrib2dARB');
if not Assigned(glVertexAttrib2dARB) then Exit;
@glVertexAttrib3sARB := SDL_GL_GetProcAddress('glVertexAttrib3sARB');
if not Assigned(glVertexAttrib3sARB) then Exit;
@glVertexAttrib3fARB := SDL_GL_GetProcAddress('glVertexAttrib3fARB');
if not Assigned(glVertexAttrib3fARB) then Exit;
@glVertexAttrib3dARB := SDL_GL_GetProcAddress('glVertexAttrib3dARB');
if not Assigned(glVertexAttrib3dARB) then Exit;
@glVertexAttrib4sARB := SDL_GL_GetProcAddress('glVertexAttrib4sARB');
if not Assigned(glVertexAttrib4sARB) then Exit;
@glVertexAttrib4fARB := SDL_GL_GetProcAddress('glVertexAttrib4fARB');
if not Assigned(glVertexAttrib4fARB) then Exit;
@glVertexAttrib4dARB := SDL_GL_GetProcAddress('glVertexAttrib4dARB');
if not Assigned(glVertexAttrib4dARB) then Exit;
@glVertexAttrib4NubARB := SDL_GL_GetProcAddress('glVertexAttrib4NubARB');
if not Assigned(glVertexAttrib4NubARB) then Exit;
@glVertexAttrib1svARB := SDL_GL_GetProcAddress('glVertexAttrib1svARB');
if not Assigned(glVertexAttrib1svARB) then Exit;
@glVertexAttrib1fvARB := SDL_GL_GetProcAddress('glVertexAttrib1fvARB');
if not Assigned(glVertexAttrib1fvARB) then Exit;
@glVertexAttrib1dvARB := SDL_GL_GetProcAddress('glVertexAttrib1dvARB');
if not Assigned(glVertexAttrib1dvARB) then Exit;
@glVertexAttrib2svARB := SDL_GL_GetProcAddress('glVertexAttrib2svARB');
if not Assigned(glVertexAttrib2svARB) then Exit;
@glVertexAttrib2fvARB := SDL_GL_GetProcAddress('glVertexAttrib2fvARB');
if not Assigned(glVertexAttrib2fvARB) then Exit;
@glVertexAttrib2dvARB := SDL_GL_GetProcAddress('glVertexAttrib2dvARB');
if not Assigned(glVertexAttrib2dvARB) then Exit;
@glVertexAttrib3svARB := SDL_GL_GetProcAddress('glVertexAttrib3svARB');
if not Assigned(glVertexAttrib3svARB) then Exit;
@glVertexAttrib3fvARB := SDL_GL_GetProcAddress('glVertexAttrib3fvARB');
if not Assigned(glVertexAttrib3fvARB) then Exit;
@glVertexAttrib3dvARB := SDL_GL_GetProcAddress('glVertexAttrib3dvARB');
if not Assigned(glVertexAttrib3dvARB) then Exit;
@glVertexAttrib4bvARB := SDL_GL_GetProcAddress('glVertexAttrib4bvARB');
if not Assigned(glVertexAttrib4bvARB) then Exit;
@glVertexAttrib4svARB := SDL_GL_GetProcAddress('glVertexAttrib4svARB');
if not Assigned(glVertexAttrib4svARB) then Exit;
@glVertexAttrib4ivARB := SDL_GL_GetProcAddress('glVertexAttrib4ivARB');
if not Assigned(glVertexAttrib4ivARB) then Exit;
@glVertexAttrib4ubvARB := SDL_GL_GetProcAddress('glVertexAttrib4ubvARB');
if not Assigned(glVertexAttrib4ubvARB) then Exit;
@glVertexAttrib4usvARB := SDL_GL_GetProcAddress('glVertexAttrib4usvARB');
if not Assigned(glVertexAttrib4usvARB) then Exit;
@glVertexAttrib4uivARB := SDL_GL_GetProcAddress('glVertexAttrib4uivARB');
if not Assigned(glVertexAttrib4uivARB) then Exit;
@glVertexAttrib4fvARB := SDL_GL_GetProcAddress('glVertexAttrib4fvARB');
if not Assigned(glVertexAttrib4fvARB) then Exit;
@glVertexAttrib4dvARB := SDL_GL_GetProcAddress('glVertexAttrib4dvARB');
if not Assigned(glVertexAttrib4dvARB) then Exit;
@glVertexAttrib4NbvARB := SDL_GL_GetProcAddress('glVertexAttrib4NbvARB');
if not Assigned(glVertexAttrib4NbvARB) then Exit;
@glVertexAttrib4NsvARB := SDL_GL_GetProcAddress('glVertexAttrib4NsvARB');
if not Assigned(glVertexAttrib4NsvARB) then Exit;
@glVertexAttrib4NivARB := SDL_GL_GetProcAddress('glVertexAttrib4NivARB');
if not Assigned(glVertexAttrib4NivARB) then Exit;
@glVertexAttrib4NubvARB := SDL_GL_GetProcAddress('glVertexAttrib4NubvARB');
if not Assigned(glVertexAttrib4NubvARB) then Exit;
@glVertexAttrib4NusvARB := SDL_GL_GetProcAddress('glVertexAttrib4NusvARB');
if not Assigned(glVertexAttrib4NusvARB) then Exit;
@glVertexAttrib4NuivARB := SDL_GL_GetProcAddress('glVertexAttrib4NuivARB');
if not Assigned(glVertexAttrib4NuivARB) then Exit;
@glVertexAttribPointerARB := SDL_GL_GetProcAddress('glVertexAttribPointerARB');
if not Assigned(glVertexAttribPointerARB) then Exit;
@glEnableVertexAttribArrayARB := SDL_GL_GetProcAddress('glEnableVertexAttribArrayARB');
if not Assigned(glEnableVertexAttribArrayARB) then Exit;
@glDisableVertexAttribArrayARB := SDL_GL_GetProcAddress('glDisableVertexAttribArrayARB');
if not Assigned(glDisableVertexAttribArrayARB) then Exit;
@glProgramStringARB := SDL_GL_GetProcAddress('glProgramStringARB');
if not Assigned(glProgramStringARB) then Exit;
@glBindProgramARB := SDL_GL_GetProcAddress('glBindProgramARB');
if not Assigned(glBindProgramARB) then Exit;
@glDeleteProgramsARB := SDL_GL_GetProcAddress('glDeleteProgramsARB');
if not Assigned(glDeleteProgramsARB) then Exit;
@glGenProgramsARB := SDL_GL_GetProcAddress('glGenProgramsARB');
if not Assigned(glGenProgramsARB) then Exit;
@glProgramEnvParameter4dARB := SDL_GL_GetProcAddress('glProgramEnvParameter4dARB');
if not Assigned(glProgramEnvParameter4dARB) then Exit;
@glProgramEnvParameter4dvARB := SDL_GL_GetProcAddress('glProgramEnvParameter4dvARB');
if not Assigned(glProgramEnvParameter4dvARB) then Exit;
@glProgramEnvParameter4fARB := SDL_GL_GetProcAddress('glProgramEnvParameter4fARB');
if not Assigned(glProgramEnvParameter4fARB) then Exit;
@glProgramEnvParameter4fvARB := SDL_GL_GetProcAddress('glProgramEnvParameter4fvARB');
if not Assigned(glProgramEnvParameter4fvARB) then Exit;
@glProgramLocalParameter4dARB := SDL_GL_GetProcAddress('glProgramLocalParameter4dARB');
if not Assigned(glProgramLocalParameter4dARB) then Exit;
@glProgramLocalParameter4dvARB := SDL_GL_GetProcAddress('glProgramLocalParameter4dvARB');
if not Assigned(glProgramLocalParameter4dvARB) then Exit;
@glProgramLocalParameter4fARB := SDL_GL_GetProcAddress('glProgramLocalParameter4fARB');
if not Assigned(glProgramLocalParameter4fARB) then Exit;
@glProgramLocalParameter4fvARB := SDL_GL_GetProcAddress('glProgramLocalParameter4fvARB');
if not Assigned(glProgramLocalParameter4fvARB) then Exit;
@glGetProgramEnvParameterdvARB := SDL_GL_GetProcAddress('glGetProgramEnvParameterdvARB');
if not Assigned(glGetProgramEnvParameterdvARB) then Exit;
@glGetProgramEnvParameterfvARB := SDL_GL_GetProcAddress('glGetProgramEnvParameterfvARB');
if not Assigned(glGetProgramEnvParameterfvARB) then Exit;
@glGetProgramLocalParameterdvARB := SDL_GL_GetProcAddress('glGetProgramLocalParameterdvARB');
if not Assigned(glGetProgramLocalParameterdvARB) then Exit;
@glGetProgramLocalParameterfvARB := SDL_GL_GetProcAddress('glGetProgramLocalParameterfvARB');
if not Assigned(glGetProgramLocalParameterfvARB) then Exit;
@glGetProgramivARB := SDL_GL_GetProcAddress('glGetProgramivARB');
if not Assigned(glGetProgramivARB) then Exit;
@glGetProgramStringARB := SDL_GL_GetProcAddress('glGetProgramStringARB');
if not Assigned(glGetProgramStringARB) then Exit;
@glGetVertexAttribdvARB := SDL_GL_GetProcAddress('glGetVertexAttribdvARB');
if not Assigned(glGetVertexAttribdvARB) then Exit;
@glGetVertexAttribfvARB := SDL_GL_GetProcAddress('glGetVertexAttribfvARB');
if not Assigned(glGetVertexAttribfvARB) then Exit;
@glGetVertexAttribivARB := SDL_GL_GetProcAddress('glGetVertexAttribivARB');
if not Assigned(glGetVertexAttribivARB) then Exit;
@glGetVertexAttribPointervARB := SDL_GL_GetProcAddress('glGetVertexAttribPointervARB');
if not Assigned(glGetVertexAttribPointervARB) then Exit;
@glIsProgramARB := SDL_GL_GetProcAddress('glIsProgramARB');
if not Assigned(glIsProgramARB) then Exit;
Result := TRUE;
end;
end;
function Load_GL_ARB_window_pos: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_window_pos', extstring) then
begin
@glWindowPos2dARB := SDL_GL_GetProcAddress('glWindowPos2dARB');
if not Assigned(glWindowPos2dARB) then Exit;
@glWindowPos2fARB := SDL_GL_GetProcAddress('glWindowPos2fARB');
if not Assigned(glWindowPos2fARB) then Exit;
@glWindowPos2iARB := SDL_GL_GetProcAddress('glWindowPos2iARB');
if not Assigned(glWindowPos2iARB) then Exit;
@glWindowPos2sARB := SDL_GL_GetProcAddress('glWindowPos2sARB');
if not Assigned(glWindowPos2sARB) then Exit;
@glWindowPos2dvARB := SDL_GL_GetProcAddress('glWindowPos2dvARB');
if not Assigned(glWindowPos2dvARB) then Exit;
@glWindowPos2fvARB := SDL_GL_GetProcAddress('glWindowPos2fvARB');
if not Assigned(glWindowPos2fvARB) then Exit;
@glWindowPos2ivARB := SDL_GL_GetProcAddress('glWindowPos2ivARB');
if not Assigned(glWindowPos2ivARB) then Exit;
@glWindowPos2svARB := SDL_GL_GetProcAddress('glWindowPos2svARB');
if not Assigned(glWindowPos2svARB) then Exit;
@glWindowPos3dARB := SDL_GL_GetProcAddress('glWindowPos3dARB');
if not Assigned(glWindowPos3dARB) then Exit;
@glWindowPos3fARB := SDL_GL_GetProcAddress('glWindowPos3fARB');
if not Assigned(glWindowPos3fARB) then Exit;
@glWindowPos3iARB := SDL_GL_GetProcAddress('glWindowPos3iARB');
if not Assigned(glWindowPos3iARB) then Exit;
@glWindowPos3sARB := SDL_GL_GetProcAddress('glWindowPos3sARB');
if not Assigned(glWindowPos3sARB) then Exit;
@glWindowPos3dvARB := SDL_GL_GetProcAddress('glWindowPos3dvARB');
if not Assigned(glWindowPos3dvARB) then Exit;
@glWindowPos3fvARB := SDL_GL_GetProcAddress('glWindowPos3fvARB');
if not Assigned(glWindowPos3fvARB) then Exit;
@glWindowPos3ivARB := SDL_GL_GetProcAddress('glWindowPos3ivARB');
if not Assigned(glWindowPos3ivARB) then Exit;
@glWindowPos3svARB := SDL_GL_GetProcAddress('glWindowPos3svARB');
if not Assigned(glWindowPos3svARB) then Exit;
Result := TRUE;
end;
end;
function Load_GL_EXT_422_pixels: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_422_pixels', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_EXT_abgr: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_abgr', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_EXT_bgra: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_bgra', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_EXT_blend_color: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_blend_color', extstring) then
begin
@glBlendColorEXT := SDL_GL_GetProcAddress('glBlendColorEXT');
if not Assigned(glBlendColorEXT) then Exit;
Result := TRUE;
end;
end;
function Load_GL_EXT_blend_func_separate: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_blend_func_separate', extstring) then
begin
@glBlendFuncSeparateEXT := SDL_GL_GetProcAddress('glBlendFuncSeparateEXT');
if not Assigned(glBlendFuncSeparateEXT) then Exit;
Result := TRUE;
end;
end;
function Load_GL_EXT_blend_logic_op: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_blend_logic_op', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_EXT_blend_minmax: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_blend_minmax', extstring) then
begin
@glBlendEquationEXT := SDL_GL_GetProcAddress('glBlendEquationEXT');
if not Assigned(glBlendEquationEXT) then Exit;
Result := TRUE;
end;
end;
function Load_GL_EXT_blend_subtract: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_blend_subtract', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_EXT_clip_volume_hint: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_clip_volume_hint', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_EXT_color_subtable: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_color_subtable', extstring) then
begin
@glColorSubTableEXT := SDL_GL_GetProcAddress('glColorSubTableEXT');
if not Assigned(glColorSubTableEXT) then Exit;
@glCopyColorSubTableEXT := SDL_GL_GetProcAddress('glCopyColorSubTableEXT');
if not Assigned(glCopyColorSubTableEXT) then Exit;
Result := TRUE;
end;
end;
function Load_GL_EXT_compiled_vertex_array: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_compiled_vertex_array', extstring) then
begin
@glLockArraysEXT := SDL_GL_GetProcAddress('glLockArraysEXT');
if not Assigned(glLockArraysEXT) then Exit;
@glUnlockArraysEXT := SDL_GL_GetProcAddress('glUnlockArraysEXT');
if not Assigned(glUnlockArraysEXT) then Exit;
Result := TRUE;
end;
end;
function Load_GL_EXT_convolution: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_convolution', extstring) then
begin
@glConvolutionFilter1DEXT := SDL_GL_GetProcAddress('glConvolutionFilter1DEXT');
if not Assigned(glConvolutionFilter1DEXT) then Exit;
@glConvolutionFilter2DEXT := SDL_GL_GetProcAddress('glConvolutionFilter2DEXT');
if not Assigned(glConvolutionFilter2DEXT) then Exit;
@glCopyConvolutionFilter1DEXT := SDL_GL_GetProcAddress('glCopyConvolutionFilter1DEXT');
if not Assigned(glCopyConvolutionFilter1DEXT) then Exit;
@glCopyConvolutionFilter2DEXT := SDL_GL_GetProcAddress('glCopyConvolutionFilter2DEXT');
if not Assigned(glCopyConvolutionFilter2DEXT) then Exit;
@glGetConvolutionFilterEXT := SDL_GL_GetProcAddress('glGetConvolutionFilterEXT');
if not Assigned(glGetConvolutionFilterEXT) then Exit;
@glSeparableFilter2DEXT := SDL_GL_GetProcAddress('glSeparableFilter2DEXT');
if not Assigned(glSeparableFilter2DEXT) then Exit;
@glGetSeparableFilterEXT := SDL_GL_GetProcAddress('glGetSeparableFilterEXT');
if not Assigned(glGetSeparableFilterEXT) then Exit;
@glConvolutionParameteriEXT := SDL_GL_GetProcAddress('glConvolutionParameteriEXT');
if not Assigned(glConvolutionParameteriEXT) then Exit;
@glConvolutionParameterivEXT := SDL_GL_GetProcAddress('glConvolutionParameterivEXT');
if not Assigned(glConvolutionParameterivEXT) then Exit;
@glConvolutionParameterfEXT := SDL_GL_GetProcAddress('glConvolutionParameterfEXT');
if not Assigned(glConvolutionParameterfEXT) then Exit;
@glConvolutionParameterfvEXT := SDL_GL_GetProcAddress('glConvolutionParameterfvEXT');
if not Assigned(glConvolutionParameterfvEXT) then Exit;
@glGetConvolutionParameterivEXT := SDL_GL_GetProcAddress('glGetConvolutionParameterivEXT');
if not Assigned(glGetConvolutionParameterivEXT) then Exit;
@glGetConvolutionParameterfvEXT := SDL_GL_GetProcAddress('glGetConvolutionParameterfvEXT');
if not Assigned(glGetConvolutionParameterfvEXT) then Exit;
Result := TRUE;
end;
end;
function Load_GL_EXT_histogram: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_histogram', extstring) then
begin
@glHistogramEXT := SDL_GL_GetProcAddress('glHistogramEXT');
if not Assigned(glHistogramEXT) then Exit;
@glResetHistogramEXT := SDL_GL_GetProcAddress('glResetHistogramEXT');
if not Assigned(glResetHistogramEXT) then Exit;
@glGetHistogramEXT := SDL_GL_GetProcAddress('glGetHistogramEXT');
if not Assigned(glGetHistogramEXT) then Exit;
@glGetHistogramParameterivEXT := SDL_GL_GetProcAddress('glGetHistogramParameterivEXT');
if not Assigned(glGetHistogramParameterivEXT) then Exit;
@glGetHistogramParameterfvEXT := SDL_GL_GetProcAddress('glGetHistogramParameterfvEXT');
if not Assigned(glGetHistogramParameterfvEXT) then Exit;
@glMinmaxEXT := SDL_GL_GetProcAddress('glMinmaxEXT');
if not Assigned(glMinmaxEXT) then Exit;
@glResetMinmaxEXT := SDL_GL_GetProcAddress('glResetMinmaxEXT');
if not Assigned(glResetMinmaxEXT) then Exit;
@glGetMinmaxEXT := SDL_GL_GetProcAddress('glGetMinmaxEXT');
if not Assigned(glGetMinmaxEXT) then Exit;
@glGetMinmaxParameterivEXT := SDL_GL_GetProcAddress('glGetMinmaxParameterivEXT');
if not Assigned(glGetMinmaxParameterivEXT) then Exit;
@glGetMinmaxParameterfvEXT := SDL_GL_GetProcAddress('glGetMinmaxParameterfvEXT');
if not Assigned(glGetMinmaxParameterfvEXT) then Exit;
Result := TRUE;
end;
end;
function Load_GL_EXT_multi_draw_arrays: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_multi_draw_arrays', extstring) then
begin
@glMultiDrawArraysEXT := SDL_GL_GetProcAddress('glMultiDrawArraysEXT');
if not Assigned(glMultiDrawArraysEXT) then Exit;
@glMultiDrawElementsEXT := SDL_GL_GetProcAddress('glMultiDrawElementsEXT');
if not Assigned(glMultiDrawElementsEXT) then Exit;
Result := TRUE;
end;
end;
function Load_GL_EXT_packed_pixels: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_packed_pixels', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_EXT_paletted_texture: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_paletted_texture', extstring) then
begin
@glColorTableEXT := SDL_GL_GetProcAddress('glColorTableEXT');
if not Assigned(glColorTableEXT) then Exit;
@glColorSubTableEXT := SDL_GL_GetProcAddress('glColorSubTableEXT');
if not Assigned(glColorSubTableEXT) then Exit;
@glGetColorTableEXT := SDL_GL_GetProcAddress('glGetColorTableEXT');
if not Assigned(glGetColorTableEXT) then Exit;
@glGetColorTableParameterivEXT := SDL_GL_GetProcAddress('glGetColorTableParameterivEXT');
if not Assigned(glGetColorTableParameterivEXT) then Exit;
@glGetColorTableParameterfvEXT := SDL_GL_GetProcAddress('glGetColorTableParameterfvEXT');
if not Assigned(glGetColorTableParameterfvEXT) then Exit;
Result := TRUE;
end;
end;
function Load_GL_EXT_point_parameters: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_point_parameters', extstring) then
begin
@glPointParameterfEXT := SDL_GL_GetProcAddress('glPointParameterfEXT');
if not Assigned(glPointParameterfEXT) then Exit;
@glPointParameterfvEXT := SDL_GL_GetProcAddress('glPointParameterfvEXT');
if not Assigned(glPointParameterfvEXT) then Exit;
Result := TRUE;
end;
end;
function Load_GL_EXT_polygon_offset: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_polygon_offset', extstring) then
begin
@glPolygonOffsetEXT := SDL_GL_GetProcAddress('glPolygonOffsetEXT');
if not Assigned(glPolygonOffsetEXT) then Exit;
Result := TRUE;
end;
end;
function Load_GL_EXT_separate_specular_color: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_separate_specular_color', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_EXT_shadow_funcs: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_shadow_funcs', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_EXT_shared_texture_palette: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_shared_texture_palette', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_EXT_stencil_two_side: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_stencil_two_side', extstring) then
begin
@glActiveStencilFaceEXT := SDL_GL_GetProcAddress('glActiveStencilFaceEXT');
if not Assigned(glActiveStencilFaceEXT) then Exit;
Result := TRUE;
end;
end;
function Load_GL_EXT_stencil_wrap: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_stencil_wrap', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_EXT_subtexture: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_subtexture', extstring) then
begin
@glTexSubImage1DEXT := SDL_GL_GetProcAddress('glTexSubImage1DEXT');
if not Assigned(glTexSubImage1DEXT) then Exit;
@glTexSubImage2DEXT := SDL_GL_GetProcAddress('glTexSubImage2DEXT');
if not Assigned(glTexSubImage2DEXT) then Exit;
@glTexSubImage3DEXT := SDL_GL_GetProcAddress('glTexSubImage3DEXT');
if not Assigned(glTexSubImage3DEXT) then Exit;
Result := TRUE;
end;
end;
function Load_GL_EXT_texture3D: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_texture3D', extstring) then
begin
glTexImage3DEXT := SDL_GL_GetProcAddress('glTexImage3DEXT');
if not Assigned(glTexImage3DEXT) then Exit;
Result := TRUE;
end;
end;
function Load_GL_EXT_texture_compression_s3tc: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_texture_compression_s3tc', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_EXT_texture_env_add: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_texture_env_add', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_EXT_texture_env_combine: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_texture_env_combine', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_EXT_texture_env_dot3: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_texture_env_dot3', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_EXT_texture_filter_anisotropic: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_texture_filter_anisotropic', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_EXT_texture_lod_bias: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_texture_lod_bias', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_EXT_texture_object: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_texture_object', extstring) then
begin
@glGenTexturesEXT := SDL_GL_GetProcAddress('glGenTexturesEXT');
if not Assigned(glGenTexturesEXT) then Exit;
@glDeleteTexturesEXT := SDL_GL_GetProcAddress('glDeleteTexturesEXT');
if not Assigned(glDeleteTexturesEXT) then Exit;
@glBindTextureEXT := SDL_GL_GetProcAddress('glBindTextureEXT');
if not Assigned(glBindTextureEXT) then Exit;
@glPrioritizeTexturesEXT := SDL_GL_GetProcAddress('glPrioritizeTexturesEXT');
if not Assigned(glPrioritizeTexturesEXT) then Exit;
@glAreTexturesResidentEXT := SDL_GL_GetProcAddress('glAreTexturesResidentEXT');
if not Assigned(glAreTexturesResidentEXT) then Exit;
@glIsTextureEXT := SDL_GL_GetProcAddress('glIsTextureEXT');
if not Assigned(glIsTextureEXT) then Exit;
Result := TRUE;
end;
end;
function Load_GL_EXT_vertex_array: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_vertex_array', extstring) then
begin
@glArrayElementEXT := SDL_GL_GetProcAddress('glArrayElementEXT');
if not Assigned(glArrayElementEXT) then Exit;
@glDrawArraysEXT := SDL_GL_GetProcAddress('glDrawArraysEXT');
if not Assigned(glDrawArraysEXT) then Exit;
@glVertexPointerEXT := SDL_GL_GetProcAddress('glVertexPointerEXT');
if not Assigned(glVertexPointerEXT) then Exit;
@glNormalPointerEXT := SDL_GL_GetProcAddress('glNormalPointerEXT');
if not Assigned(glNormalPointerEXT) then Exit;
@glColorPointerEXT := SDL_GL_GetProcAddress('glColorPointerEXT');
if not Assigned(glColorPointerEXT) then Exit;
@glIndexPointerEXT := SDL_GL_GetProcAddress('glIndexPointerEXT');
if not Assigned(glIndexPointerEXT) then Exit;
@glTexCoordPointerEXT := SDL_GL_GetProcAddress('glTexCoordPointerEXT');
if not Assigned(glTexCoordPointerEXT) then Exit;
@glEdgeFlagPointerEXT := SDL_GL_GetProcAddress('glEdgeFlagPointerEXT');
if not Assigned(glEdgeFlagPointerEXT) then Exit;
@glGetPointervEXT := SDL_GL_GetProcAddress('glGetPointervEXT');
if not Assigned(glGetPointervEXT) then Exit;
Result := TRUE;
end;
end;
function Load_GL_EXT_vertex_shader: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_vertex_shader', extstring) then
begin
@glBeginVertexShaderEXT := SDL_GL_GetProcAddress('glBeginVertexShaderEXT');
if not Assigned(glBeginVertexShaderEXT) then Exit;
@glEndVertexShaderEXT := SDL_GL_GetProcAddress('glEndVertexShaderEXT');
if not Assigned(glEndVertexShaderEXT) then Exit;
@glBindVertexShaderEXT := SDL_GL_GetProcAddress('glBindVertexShaderEXT');
if not Assigned(glBindVertexShaderEXT) then Exit;
@glGenVertexShadersEXT := SDL_GL_GetProcAddress('glGenVertexShadersEXT');
if not Assigned(glGenVertexShadersEXT) then Exit;
@glDeleteVertexShaderEXT := SDL_GL_GetProcAddress('glDeleteVertexShaderEXT');
if not Assigned(glDeleteVertexShaderEXT) then Exit;
@glShaderOp1EXT := SDL_GL_GetProcAddress('glShaderOp1EXT');
if not Assigned(glShaderOp1EXT) then Exit;
@glShaderOp2EXT := SDL_GL_GetProcAddress('glShaderOp2EXT');
if not Assigned(glShaderOp2EXT) then Exit;
@glShaderOp3EXT := SDL_GL_GetProcAddress('glShaderOp3EXT');
if not Assigned(glShaderOp3EXT) then Exit;
@glSwizzleEXT := SDL_GL_GetProcAddress('glSwizzleEXT');
if not Assigned(glSwizzleEXT) then Exit;
@glWriteMaskEXT := SDL_GL_GetProcAddress('glWriteMaskEXT');
if not Assigned(glWriteMaskEXT) then Exit;
@glInsertComponentEXT := SDL_GL_GetProcAddress('glInsertComponentEXT');
if not Assigned(glInsertComponentEXT) then Exit;
@glExtractComponentEXT := SDL_GL_GetProcAddress('glExtractComponentEXT');
if not Assigned(glExtractComponentEXT) then Exit;
@glGenSymbolsEXT := SDL_GL_GetProcAddress('glGenSymbolsEXT');
if not Assigned(glGenSymbolsEXT) then Exit;
@glSetInvariantEXT := SDL_GL_GetProcAddress('glSetInvariantEXT');
if not Assigned(glSetInvariantEXT) then Exit;
@glSetLocalConstantEXT := SDL_GL_GetProcAddress('glSetLocalConstantEXT');
if not Assigned(glSetLocalConstantEXT) then Exit;
@glVariantbvEXT := SDL_GL_GetProcAddress('glVariantbvEXT');
if not Assigned(glVariantbvEXT) then Exit;
@glVariantsvEXT := SDL_GL_GetProcAddress('glVariantsvEXT');
if not Assigned(glVariantsvEXT) then Exit;
@glVariantivEXT := SDL_GL_GetProcAddress('glVariantivEXT');
if not Assigned(glVariantivEXT) then Exit;
@glVariantfvEXT := SDL_GL_GetProcAddress('glVariantfvEXT');
if not Assigned(glVariantfvEXT) then Exit;
@glVariantdvEXT := SDL_GL_GetProcAddress('glVariantdvEXT');
if not Assigned(glVariantdvEXT) then Exit;
@glVariantubvEXT := SDL_GL_GetProcAddress('glVariantubvEXT');
if not Assigned(glVariantubvEXT) then Exit;
@glVariantusvEXT := SDL_GL_GetProcAddress('glVariantusvEXT');
if not Assigned(glVariantusvEXT) then Exit;
@glVariantuivEXT := SDL_GL_GetProcAddress('glVariantuivEXT');
if not Assigned(glVariantuivEXT) then Exit;
@glVariantPointerEXT := SDL_GL_GetProcAddress('glVariantPointerEXT');
if not Assigned(glVariantPointerEXT) then Exit;
@glEnableVariantClientStateEXT := SDL_GL_GetProcAddress('glEnableVariantClientStateEXT');
if not Assigned(glEnableVariantClientStateEXT) then Exit;
@glDisableVariantClientStateEXT := SDL_GL_GetProcAddress('glDisableVariantClientStateEXT');
if not Assigned(glDisableVariantClientStateEXT) then Exit;
@glBindLightParameterEXT := SDL_GL_GetProcAddress('glBindLightParameterEXT');
if not Assigned(glBindLightParameterEXT) then Exit;
@glBindMaterialParameterEXT := SDL_GL_GetProcAddress('glBindMaterialParameterEXT');
if not Assigned(glBindMaterialParameterEXT) then Exit;
@glBindTexGenParameterEXT := SDL_GL_GetProcAddress('glBindTexGenParameterEXT');
if not Assigned(glBindTexGenParameterEXT) then Exit;
@glBindTextureUnitParameterEXT := SDL_GL_GetProcAddress('glBindTextureUnitParameterEXT');
if not Assigned(glBindTextureUnitParameterEXT) then Exit;
@glBindParameterEXT := SDL_GL_GetProcAddress('glBindParameterEXT');
if not Assigned(glBindParameterEXT) then Exit;
@glIsVariantEnabledEXT := SDL_GL_GetProcAddress('glIsVariantEnabledEXT');
if not Assigned(glIsVariantEnabledEXT) then Exit;
@glGetVariantBooleanvEXT := SDL_GL_GetProcAddress('glGetVariantBooleanvEXT');
if not Assigned(glGetVariantBooleanvEXT) then Exit;
@glGetVariantIntegervEXT := SDL_GL_GetProcAddress('glGetVariantIntegervEXT');
if not Assigned(glGetVariantIntegervEXT) then Exit;
@glGetVariantFloatvEXT := SDL_GL_GetProcAddress('glGetVariantFloatvEXT');
if not Assigned(glGetVariantFloatvEXT) then Exit;
@glGetVariantPointervEXT := SDL_GL_GetProcAddress('glGetVariantPointervEXT');
if not Assigned(glGetVariantPointervEXT) then Exit;
@glGetInvariantBooleanvEXT := SDL_GL_GetProcAddress('glGetInvariantBooleanvEXT');
if not Assigned(glGetInvariantBooleanvEXT) then Exit;
@glGetInvariantIntegervEXT := SDL_GL_GetProcAddress('glGetInvariantIntegervEXT');
if not Assigned(glGetInvariantIntegervEXT) then Exit;
@glGetInvariantFloatvEXT := SDL_GL_GetProcAddress('glGetInvariantFloatvEXT');
if not Assigned(glGetInvariantFloatvEXT) then Exit;
@glGetLocalConstantBooleanvEXT := SDL_GL_GetProcAddress('glGetLocalConstantBooleanvEXT');
if not Assigned(glGetLocalConstantBooleanvEXT) then Exit;
@glGetLocalConstantIntegervEXT := SDL_GL_GetProcAddress('glGetLocalConstantIntegervEXT');
if not Assigned(glGetLocalConstantIntegervEXT) then Exit;
@glGetLocalConstantFloatvEXT := SDL_GL_GetProcAddress('glGetLocalConstantFloatvEXT');
if not Assigned(glGetLocalConstantFloatvEXT) then Exit;
Result := TRUE;
end;
end;
function Load_GL_EXT_vertex_weighting: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_vertex_weighting', extstring) then
begin
@glVertexWeightfEXT := SDL_GL_GetProcAddress('glVertexWeightfEXT');
if not Assigned(glVertexWeightfEXT) then Exit;
@glVertexWeightfvEXT := SDL_GL_GetProcAddress('glVertexWeightfvEXT');
if not Assigned(glVertexWeightfvEXT) then Exit;
@glVertexWeightPointerEXT := SDL_GL_GetProcAddress('glVertexWeightPointerEXT');
if not Assigned(glVertexWeightPointerEXT) then Exit;
Result := TRUE;
end;
end;
function Load_GL_HP_occlusion_test: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_HP_occlusion_test', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_NV_blend_square: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_blend_square', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_NV_copy_depth_to_color: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_copy_depth_to_color', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_NV_depth_clamp: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_depth_clamp', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_NV_evaluators: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_evaluators', extstring) then
begin
@glMapControlPointsNV := SDL_GL_GetProcAddress('glMapControlPointsNV');
if not Assigned(glMapControlPointsNV) then Exit;
@glMapParameterivNV := SDL_GL_GetProcAddress('glMapParameterivNV');
if not Assigned(glMapParameterivNV) then Exit;
@glMapParameterfvNV := SDL_GL_GetProcAddress('glMapParameterfvNV');
if not Assigned(glMapParameterfvNV) then Exit;
@glGetMapControlPointsNV := SDL_GL_GetProcAddress('glGetMapControlPointsNV');
if not Assigned(glGetMapControlPointsNV) then Exit;
@glGetMapParameterivNV := SDL_GL_GetProcAddress('glGetMapParameterivNV');
if not Assigned(glGetMapParameterivNV) then Exit;
@glGetMapParameterfvNV := SDL_GL_GetProcAddress('glGetMapParameterfvNV');
if not Assigned(glGetMapParameterfvNV) then Exit;
@glGetMapAttribParameterivNV := SDL_GL_GetProcAddress('glGetMapAttribParameterivNV');
if not Assigned(glGetMapAttribParameterivNV) then Exit;
@glGetMapAttribParameterfvNV := SDL_GL_GetProcAddress('glGetMapAttribParameterfvNV');
if not Assigned(glGetMapAttribParameterfvNV) then Exit;
@glEvalMapsNV := SDL_GL_GetProcAddress('glEvalMapsNV');
if not Assigned(glEvalMapsNV) then Exit;
Result := TRUE;
end;
end;
function Load_GL_NV_fence: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_fence', extstring) then
begin
@glGenFencesNV := SDL_GL_GetProcAddress('glGenFencesNV');
if not Assigned(glGenFencesNV) then Exit;
@glDeleteFencesNV := SDL_GL_GetProcAddress('glDeleteFencesNV');
if not Assigned(glDeleteFencesNV) then Exit;
@glSetFenceNV := SDL_GL_GetProcAddress('glSetFenceNV');
if not Assigned(glSetFenceNV) then Exit;
@glTestFenceNV := SDL_GL_GetProcAddress('glTestFenceNV');
if not Assigned(glTestFenceNV) then Exit;
@glFinishFenceNV := SDL_GL_GetProcAddress('glFinishFenceNV');
if not Assigned(glFinishFenceNV) then Exit;
@glIsFenceNV := SDL_GL_GetProcAddress('glIsFenceNV');
if not Assigned(glIsFenceNV) then Exit;
@glGetFenceivNV := SDL_GL_GetProcAddress('glGetFenceivNV');
if not Assigned(glGetFenceivNV) then Exit;
Result := TRUE;
end;
end;
function Load_GL_NV_fog_distance: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_fog_distance', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_NV_light_max_exponent: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_light_max_exponent', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_NV_multisample_filter_hint: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_multisample_filter_hint', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_NV_occlusion_query: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_occlusion_query', extstring) then
begin
@glGenOcclusionQueriesNV := SDL_GL_GetProcAddress('glGenOcclusionQueriesNV');
if not Assigned(glGenOcclusionQueriesNV) then Exit;
@glDeleteOcclusionQueriesNV := SDL_GL_GetProcAddress('glDeleteOcclusionQueriesNV');
if not Assigned(glDeleteOcclusionQueriesNV) then Exit;
@glIsOcclusionQueryNV := SDL_GL_GetProcAddress('glIsOcclusionQueryNV');
if not Assigned(glIsOcclusionQueryNV) then Exit;
@glBeginOcclusionQueryNV := SDL_GL_GetProcAddress('glBeginOcclusionQueryNV');
if not Assigned(glBeginOcclusionQueryNV) then Exit;
@glEndOcclusionQueryNV := SDL_GL_GetProcAddress('glEndOcclusionQueryNV');
if not Assigned(glEndOcclusionQueryNV) then Exit;
@glGetOcclusionQueryivNV := SDL_GL_GetProcAddress('glGetOcclusionQueryivNV');
if not Assigned(glGetOcclusionQueryivNV) then Exit;
@glGetOcclusionQueryuivNV := SDL_GL_GetProcAddress('glGetOcclusionQueryuivNV');
if not Assigned(glGetOcclusionQueryuivNV) then Exit;
Result := TRUE;
end;
end;
function Load_GL_NV_packed_depth_stencil: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_packed_depth_stencil', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_NV_point_sprite: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_point_sprite', extstring) then
begin
@glPointParameteriNV := SDL_GL_GetProcAddress('glPointParameteriNV');
if not Assigned(glPointParameteriNV) then Exit;
@glPointParameterivNV := SDL_GL_GetProcAddress('glPointParameterivNV');
if not Assigned(glPointParameterivNV) then Exit;
Result := TRUE;
end;
end;
function Load_GL_NV_register_combiners: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_register_combiners', extstring) then
begin
@glCombinerParameterfvNV := SDL_GL_GetProcAddress('glCombinerParameterfvNV');
if not Assigned(glCombinerParameterfvNV) then Exit;
@glCombinerParameterivNV := SDL_GL_GetProcAddress('glCombinerParameterivNV');
if not Assigned(glCombinerParameterivNV) then Exit;
@glCombinerParameterfNV := SDL_GL_GetProcAddress('glCombinerParameterfNV');
if not Assigned(glCombinerParameterfNV) then Exit;
@glCombinerParameteriNV := SDL_GL_GetProcAddress('glCombinerParameteriNV');
if not Assigned(glCombinerParameteriNV) then Exit;
@glCombinerInputNV := SDL_GL_GetProcAddress('glCombinerInputNV');
if not Assigned(glCombinerInputNV) then Exit;
@glCombinerOutputNV := SDL_GL_GetProcAddress('glCombinerOutputNV');
if not Assigned(glCombinerOutputNV) then Exit;
@glFinalCombinerInputNV := SDL_GL_GetProcAddress('glFinalCombinerInputNV');
if not Assigned(glFinalCombinerInputNV) then Exit;
@glGetCombinerInputParameterfvNV := SDL_GL_GetProcAddress('glGetCombinerInputParameterfvNV');
if not Assigned(glGetCombinerInputParameterfvNV) then Exit;
@glGetCombinerInputParameterivNV := SDL_GL_GetProcAddress('glGetCombinerInputParameterivNV');
if not Assigned(glGetCombinerInputParameterivNV) then Exit;
@glGetCombinerOutputParameterfvNV := SDL_GL_GetProcAddress('glGetCombinerOutputParameterfvNV');
if not Assigned(glGetCombinerOutputParameterfvNV) then Exit;
@glGetCombinerOutputParameterivNV := SDL_GL_GetProcAddress('glGetCombinerOutputParameterivNV');
if not Assigned(glGetCombinerOutputParameterivNV) then Exit;
@glGetFinalCombinerInputParameterfvNV := SDL_GL_GetProcAddress('glGetFinalCombinerInputParameterfvNV');
if not Assigned(glGetFinalCombinerInputParameterfvNV) then Exit;
@glGetFinalCombinerInputParameterivNV := SDL_GL_GetProcAddress('glGetFinalCombinerInputParameterivNV');
if not Assigned(glGetFinalCombinerInputParameterivNV) then Exit;
Result := TRUE;
end;
end;
function Load_GL_NV_register_combiners2: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_register_combiners2', extstring) then
begin
@glCombinerStageParameterfvNV := SDL_GL_GetProcAddress('glCombinerStageParameterfvNV');
if not Assigned(glCombinerStageParameterfvNV) then Exit;
@glGetCombinerStageParameterfvNV := SDL_GL_GetProcAddress('glGetCombinerStageParameterfvNV');
if not Assigned(glGetCombinerStageParameterfvNV) then Exit;
Result := TRUE;
end;
end;
function Load_GL_NV_texgen_emboss: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_texgen_emboss', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_NV_texgen_reflection: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_texgen_reflection', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_NV_texture_compression_vtc: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_texture_compression_vtc', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_NV_texture_env_combine4: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_texture_env_combine4', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_NV_texture_rectangle: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_texture_rectangle', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_NV_texture_shader: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_texture_shader', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_NV_texture_shader2: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_texture_shader2', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_NV_texture_shader3: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_texture_shader3', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_NV_vertex_array_range: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_vertex_array_range', extstring) then
begin
@glVertexArrayRangeNV := SDL_GL_GetProcAddress('glVertexArrayRangeNV');
if not Assigned(glVertexArrayRangeNV) then Exit;
@glFlushVertexArrayRangeNV := SDL_GL_GetProcAddress('glFlushVertexArrayRangeNV');
if not Assigned(glFlushVertexArrayRangeNV) then Exit;
{$IFDEF WINDOWS}
@wglAllocateMemoryNV := SDL_GL_GetProcAddress('wglAllocateMemoryNV');
if not Assigned(wglAllocateMemoryNV) then Exit;
@wglFreeMemoryNV := SDL_GL_GetProcAddress('wglFreeMemoryNV');
if not Assigned(wglFreeMemoryNV) then Exit;
{$ENDIF}
Result := TRUE;
end;
end;
function Load_GL_NV_vertex_array_range2: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_vertex_array_range2', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_NV_vertex_program: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_vertex_program', extstring) then
begin
@glBindProgramNV := SDL_GL_GetProcAddress('glBindProgramNV');
if not Assigned(glBindProgramNV) then Exit;
@glDeleteProgramsNV := SDL_GL_GetProcAddress('glDeleteProgramsNV');
if not Assigned(glDeleteProgramsNV) then Exit;
@glExecuteProgramNV := SDL_GL_GetProcAddress('glExecuteProgramNV');
if not Assigned(glExecuteProgramNV) then Exit;
@glGenProgramsNV := SDL_GL_GetProcAddress('glGenProgramsNV');
if not Assigned(glGenProgramsNV) then Exit;
@glAreProgramsResidentNV := SDL_GL_GetProcAddress('glAreProgramsResidentNV');
if not Assigned(glAreProgramsResidentNV) then Exit;
@glRequestResidentProgramsNV := SDL_GL_GetProcAddress('glRequestResidentProgramsNV');
if not Assigned(glRequestResidentProgramsNV) then Exit;
@glGetProgramParameterfvNV := SDL_GL_GetProcAddress('glGetProgramParameterfvNV');
if not Assigned(glGetProgramParameterfvNV) then Exit;
@glGetProgramParameterdvNV := SDL_GL_GetProcAddress('glGetProgramParameterdvNV');
if not Assigned(glGetProgramParameterdvNV) then Exit;
@glGetProgramivNV := SDL_GL_GetProcAddress('glGetProgramivNV');
if not Assigned(glGetProgramivNV) then Exit;
@glGetProgramStringNV := SDL_GL_GetProcAddress('glGetProgramStringNV');
if not Assigned(glGetProgramStringNV) then Exit;
@glGetTrackMatrixivNV := SDL_GL_GetProcAddress('glGetTrackMatrixivNV');
if not Assigned(glGetTrackMatrixivNV) then Exit;
@glGetVertexAttribdvNV := SDL_GL_GetProcAddress('glGetVertexAttribdvNV');
if not Assigned(glGetVertexAttribdvNV) then Exit;
@glGetVertexAttribfvNV := SDL_GL_GetProcAddress('glGetVertexAttribfvNV');
if not Assigned(glGetVertexAttribfvNV) then Exit;
@glGetVertexAttribivNV := SDL_GL_GetProcAddress('glGetVertexAttribivNV');
if not Assigned(glGetVertexAttribivNV) then Exit;
@glGetVertexAttribPointervNV := SDL_GL_GetProcAddress('glGetVertexAttribPointervNV');
if not Assigned(glGetVertexAttribPointervNV) then Exit;
@glIsProgramNV := SDL_GL_GetProcAddress('glIsProgramNV');
if not Assigned(glIsProgramNV) then Exit;
@glLoadProgramNV := SDL_GL_GetProcAddress('glLoadProgramNV');
if not Assigned(glLoadProgramNV) then Exit;
@glProgramParameter4fNV := SDL_GL_GetProcAddress('glProgramParameter4fNV');
if not Assigned(glProgramParameter4fNV) then Exit;
@glProgramParameter4fvNV := SDL_GL_GetProcAddress('glProgramParameter4fvNV');
if not Assigned(glProgramParameter4fvNV) then Exit;
@glProgramParameters4dvNV := SDL_GL_GetProcAddress('glProgramParameters4dvNV');
if not Assigned(glProgramParameters4dvNV) then Exit;
@glProgramParameters4fvNV := SDL_GL_GetProcAddress('glProgramParameters4fvNV');
if not Assigned(glProgramParameters4fvNV) then Exit;
@glTrackMatrixNV := SDL_GL_GetProcAddress('glTrackMatrixNV');
if not Assigned(glTrackMatrixNV) then Exit;
@glVertexAttribPointerNV := SDL_GL_GetProcAddress('glVertexAttribPointerNV');
if not Assigned(glVertexAttribPointerNV) then Exit;
@glVertexAttrib1sNV := SDL_GL_GetProcAddress('glVertexAttrib1sNV');
if not Assigned(glVertexAttrib1sNV) then Exit;
@glVertexAttrib1fNV := SDL_GL_GetProcAddress('glVertexAttrib1fNV');
if not Assigned(glVertexAttrib1fNV) then Exit;
@glVertexAttrib1dNV := SDL_GL_GetProcAddress('glVertexAttrib1dNV');
if not Assigned(glVertexAttrib1dNV) then Exit;
@glVertexAttrib2sNV := SDL_GL_GetProcAddress('glVertexAttrib2sNV');
if not Assigned(glVertexAttrib2sNV) then Exit;
@glVertexAttrib2fNV := SDL_GL_GetProcAddress('glVertexAttrib2fNV');
if not Assigned(glVertexAttrib2fNV) then Exit;
@glVertexAttrib2dNV := SDL_GL_GetProcAddress('glVertexAttrib2dNV');
if not Assigned(glVertexAttrib2dNV) then Exit;
@glVertexAttrib3sNV := SDL_GL_GetProcAddress('glVertexAttrib3sNV');
if not Assigned(glVertexAttrib3sNV) then Exit;
@glVertexAttrib3fNV := SDL_GL_GetProcAddress('glVertexAttrib3fNV');
if not Assigned(glVertexAttrib3fNV) then Exit;
@glVertexAttrib3dNV := SDL_GL_GetProcAddress('glVertexAttrib3dNV');
if not Assigned(glVertexAttrib3dNV) then Exit;
@glVertexAttrib4sNV := SDL_GL_GetProcAddress('glVertexAttrib4sNV');
if not Assigned(glVertexAttrib4sNV) then Exit;
@glVertexAttrib4fNV := SDL_GL_GetProcAddress('glVertexAttrib4fNV');
if not Assigned(glVertexAttrib4fNV) then Exit;
@glVertexAttrib4dNV := SDL_GL_GetProcAddress('glVertexAttrib4dNV');
if not Assigned(glVertexAttrib4dNV) then Exit;
@glVertexAttrib4ubNV := SDL_GL_GetProcAddress('glVertexAttrib4ubNV');
if not Assigned(glVertexAttrib4ubNV) then Exit;
@glVertexAttrib1svNV := SDL_GL_GetProcAddress('glVertexAttrib1svNV');
if not Assigned(glVertexAttrib1svNV) then Exit;
@glVertexAttrib1fvNV := SDL_GL_GetProcAddress('glVertexAttrib1fvNV');
if not Assigned(glVertexAttrib1fvNV) then Exit;
@glVertexAttrib1dvNV := SDL_GL_GetProcAddress('glVertexAttrib1dvNV');
if not Assigned(glVertexAttrib1dvNV) then Exit;
@glVertexAttrib2svNV := SDL_GL_GetProcAddress('glVertexAttrib2svNV');
if not Assigned(glVertexAttrib2svNV) then Exit;
@glVertexAttrib2fvNV := SDL_GL_GetProcAddress('glVertexAttrib2fvNV');
if not Assigned(glVertexAttrib2fvNV) then Exit;
@glVertexAttrib2dvNV := SDL_GL_GetProcAddress('glVertexAttrib2dvNV');
if not Assigned(glVertexAttrib2dvNV) then Exit;
@glVertexAttrib3svNV := SDL_GL_GetProcAddress('glVertexAttrib3svNV');
if not Assigned(glVertexAttrib3svNV) then Exit;
@glVertexAttrib3fvNV := SDL_GL_GetProcAddress('glVertexAttrib3fvNV');
if not Assigned(glVertexAttrib3fvNV) then Exit;
@glVertexAttrib3dvNV := SDL_GL_GetProcAddress('glVertexAttrib3dvNV');
if not Assigned(glVertexAttrib3dvNV) then Exit;
@glVertexAttrib4svNV := SDL_GL_GetProcAddress('glVertexAttrib4svNV');
if not Assigned(glVertexAttrib4svNV) then Exit;
@glVertexAttrib4fvNV := SDL_GL_GetProcAddress('glVertexAttrib4fvNV');
if not Assigned(glVertexAttrib4fvNV) then Exit;
@glVertexAttrib4dvNV := SDL_GL_GetProcAddress('glVertexAttrib4dvNV');
if not Assigned(glVertexAttrib4dvNV) then Exit;
@glVertexAttrib4ubvNV := SDL_GL_GetProcAddress('glVertexAttrib4ubvNV');
if not Assigned(glVertexAttrib4ubvNV) then Exit;
@glVertexAttribs1svNV := SDL_GL_GetProcAddress('glVertexAttribs1svNV');
if not Assigned(glVertexAttribs1svNV) then Exit;
@glVertexAttribs1fvNV := SDL_GL_GetProcAddress('glVertexAttribs1fvNV');
if not Assigned(glVertexAttribs1fvNV) then Exit;
@glVertexAttribs1dvNV := SDL_GL_GetProcAddress('glVertexAttribs1dvNV');
if not Assigned(glVertexAttribs1dvNV) then Exit;
@glVertexAttribs2svNV := SDL_GL_GetProcAddress('glVertexAttribs2svNV');
if not Assigned(glVertexAttribs2svNV) then Exit;
@glVertexAttribs2fvNV := SDL_GL_GetProcAddress('glVertexAttribs2fvNV');
if not Assigned(glVertexAttribs2fvNV) then Exit;
@glVertexAttribs2dvNV := SDL_GL_GetProcAddress('glVertexAttribs2dvNV');
if not Assigned(glVertexAttribs2dvNV) then Exit;
@glVertexAttribs3svNV := SDL_GL_GetProcAddress('glVertexAttribs3svNV');
if not Assigned(glVertexAttribs3svNV) then Exit;
@glVertexAttribs3fvNV := SDL_GL_GetProcAddress('glVertexAttribs3fvNV');
if not Assigned(glVertexAttribs3fvNV) then Exit;
@glVertexAttribs3dvNV := SDL_GL_GetProcAddress('glVertexAttribs3dvNV');
if not Assigned(glVertexAttribs3dvNV) then Exit;
@glVertexAttribs4svNV := SDL_GL_GetProcAddress('glVertexAttribs4svNV');
if not Assigned(glVertexAttribs4svNV) then Exit;
@glVertexAttribs4fvNV := SDL_GL_GetProcAddress('glVertexAttribs4fvNV');
if not Assigned(glVertexAttribs4fvNV) then Exit;
@glVertexAttribs4dvNV := SDL_GL_GetProcAddress('glVertexAttribs4dvNV');
if not Assigned(glVertexAttribs4dvNV) then Exit;
@glVertexAttribs4ubvNV := SDL_GL_GetProcAddress('glVertexAttribs4ubvNV');
if not Assigned(glVertexAttribs4ubvNV) then Exit;
Result := TRUE;
end;
end;
function Load_GL_NV_vertex_program1_1: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_vertex_program1_1', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_ATI_element_array: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ATI_element_array', extstring) then
begin
@glElementPointerATI := SDL_GL_GetProcAddress('glElementPointerATI');
if not Assigned(glElementPointerATI) then Exit;
@glDrawElementArrayATI := SDL_GL_GetProcAddress('glDrawElementArrayATI');
if not Assigned(glDrawElementArrayATI) then Exit;
@glDrawRangeElementArrayATI := SDL_GL_GetProcAddress('glDrawRangeElementArrayATI');
if not Assigned(glDrawRangeElementArrayATI) then Exit;
Result := TRUE;
end;
end;
function Load_GL_ATI_envmap_bumpmap: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ATI_envmap_bumpmap', extstring) then
begin
@glTexBumpParameterivATI := SDL_GL_GetProcAddress('glTexBumpParameterivATI');
if not Assigned(glTexBumpParameterivATI) then Exit;
@glTexBumpParameterfvATI := SDL_GL_GetProcAddress('glTexBumpParameterfvATI');
if not Assigned(glTexBumpParameterfvATI) then Exit;
@glGetTexBumpParameterivATI := SDL_GL_GetProcAddress('glGetTexBumpParameterivATI');
if not Assigned(glGetTexBumpParameterivATI) then Exit;
@glGetTexBumpParameterfvATI := SDL_GL_GetProcAddress('glGetTexBumpParameterfvATI');
if not Assigned(glGetTexBumpParameterfvATI) then Exit;
Result := TRUE;
end;
end;
function Load_GL_ATI_fragment_shader: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ATI_fragment_shader', extstring) then
begin
@glGenFragmentShadersATI := SDL_GL_GetProcAddress('glGenFragmentShadersATI');
if not Assigned(glGenFragmentShadersATI) then Exit;
@glBindFragmentShaderATI := SDL_GL_GetProcAddress('glBindFragmentShaderATI');
if not Assigned(glBindFragmentShaderATI) then Exit;
@glDeleteFragmentShaderATI := SDL_GL_GetProcAddress('glDeleteFragmentShaderATI');
if not Assigned(glDeleteFragmentShaderATI) then Exit;
@glBeginFragmentShaderATI := SDL_GL_GetProcAddress('glBeginFragmentShaderATI');
if not Assigned(glBeginFragmentShaderATI) then Exit;
@glEndFragmentShaderATI := SDL_GL_GetProcAddress('glEndFragmentShaderATI');
if not Assigned(glEndFragmentShaderATI) then Exit;
@glPassTexCoordATI := SDL_GL_GetProcAddress('glPassTexCoordATI');
if not Assigned(glPassTexCoordATI) then Exit;
@glSampleMapATI := SDL_GL_GetProcAddress('glSampleMapATI');
if not Assigned(glSampleMapATI) then Exit;
@glColorFragmentOp1ATI := SDL_GL_GetProcAddress('glColorFragmentOp1ATI');
if not Assigned(glColorFragmentOp1ATI) then Exit;
@glColorFragmentOp2ATI := SDL_GL_GetProcAddress('glColorFragmentOp2ATI');
if not Assigned(glColorFragmentOp2ATI) then Exit;
@glColorFragmentOp3ATI := SDL_GL_GetProcAddress('glColorFragmentOp3ATI');
if not Assigned(glColorFragmentOp3ATI) then Exit;
@glAlphaFragmentOp1ATI := SDL_GL_GetProcAddress('glAlphaFragmentOp1ATI');
if not Assigned(glAlphaFragmentOp1ATI) then Exit;
@glAlphaFragmentOp2ATI := SDL_GL_GetProcAddress('glAlphaFragmentOp2ATI');
if not Assigned(glAlphaFragmentOp2ATI) then Exit;
@glAlphaFragmentOp3ATI := SDL_GL_GetProcAddress('glAlphaFragmentOp3ATI');
if not Assigned(glAlphaFragmentOp3ATI) then Exit;
@glSetFragmentShaderConstantATI := SDL_GL_GetProcAddress('glSetFragmentShaderConstantATI');
if not Assigned(glSetFragmentShaderConstantATI) then Exit;
Result := TRUE;
end;
end;
function Load_GL_ATI_pn_triangles: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ATI_pn_triangles', extstring) then
begin
@glPNTrianglesiATI := SDL_GL_GetProcAddress('glPNTrianglesiATI');
if not Assigned(glPNTrianglesiATI) then Exit;
@glPNTrianglesfATI := SDL_GL_GetProcAddress('glPNTrianglesfATI');
if not Assigned(glPNTrianglesfATI) then Exit;
Result := TRUE;
end;
end;
function Load_GL_ATI_texture_mirror_once: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ATI_texture_mirror_once', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_ATI_vertex_array_object: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ATI_vertex_array_object', extstring) then
begin
@glNewObjectBufferATI := SDL_GL_GetProcAddress('glNewObjectBufferATI');
if not Assigned(glNewObjectBufferATI) then Exit;
@glIsObjectBufferATI := SDL_GL_GetProcAddress('glIsObjectBufferATI');
if not Assigned(glIsObjectBufferATI) then Exit;
@glUpdateObjectBufferATI := SDL_GL_GetProcAddress('glUpdateObjectBufferATI');
if not Assigned(glUpdateObjectBufferATI) then Exit;
@glGetObjectBufferfvATI := SDL_GL_GetProcAddress('glGetObjectBufferfvATI');
if not Assigned(glGetObjectBufferfvATI) then Exit;
@glGetObjectBufferivATI := SDL_GL_GetProcAddress('glGetObjectBufferivATI');
if not Assigned(glGetObjectBufferivATI) then Exit;
@glDeleteObjectBufferATI := SDL_GL_GetProcAddress('glDeleteObjectBufferATI');
if not Assigned(glDeleteObjectBufferATI) then Exit;
@glArrayObjectATI := SDL_GL_GetProcAddress('glArrayObjectATI');
if not Assigned(glArrayObjectATI) then Exit;
@glGetArrayObjectfvATI := SDL_GL_GetProcAddress('glGetArrayObjectfvATI');
if not Assigned(glGetArrayObjectfvATI) then Exit;
@glGetArrayObjectivATI := SDL_GL_GetProcAddress('glGetArrayObjectivATI');
if not Assigned(glGetArrayObjectivATI) then Exit;
@glVariantArrayObjectATI := SDL_GL_GetProcAddress('glVariantArrayObjectATI');
if not Assigned(glVariantArrayObjectATI) then Exit;
@glGetVariantArrayObjectfvATI := SDL_GL_GetProcAddress('glGetVariantArrayObjectfvATI');
if not Assigned(glGetVariantArrayObjectfvATI) then Exit;
@glGetVariantArrayObjectivATI := SDL_GL_GetProcAddress('glGetVariantArrayObjectivATI');
if not Assigned(glGetVariantArrayObjectivATI) then Exit;
Result := TRUE;
end;
end;
function Load_GL_ATI_vertex_streams: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ATI_vertex_streams', extstring) then
begin
@glVertexStream1s := SDL_GL_GetProcAddress('glVertexStream1s');
if not Assigned(glVertexStream1s) then Exit;
@glVertexStream1i := SDL_GL_GetProcAddress('glVertexStream1i');
if not Assigned(glVertexStream1i) then Exit;
@glVertexStream1f := SDL_GL_GetProcAddress('glVertexStream1f');
if not Assigned(glVertexStream1f) then Exit;
@glVertexStream1d := SDL_GL_GetProcAddress('glVertexStream1d');
if not Assigned(glVertexStream1d) then Exit;
@glVertexStream1sv := SDL_GL_GetProcAddress('glVertexStream1sv');
if not Assigned(glVertexStream1sv) then Exit;
@glVertexStream1iv := SDL_GL_GetProcAddress('glVertexStream1iv');
if not Assigned(glVertexStream1iv) then Exit;
@glVertexStream1fv := SDL_GL_GetProcAddress('glVertexStream1fv');
if not Assigned(glVertexStream1fv) then Exit;
@glVertexStream1dv := SDL_GL_GetProcAddress('glVertexStream1dv');
if not Assigned(glVertexStream1dv) then Exit;
@glVertexStream2s := SDL_GL_GetProcAddress('glVertexStream2s');
if not Assigned(glVertexStream2s) then Exit;
@glVertexStream2i := SDL_GL_GetProcAddress('glVertexStream2i');
if not Assigned(glVertexStream2i) then Exit;
@glVertexStream2f := SDL_GL_GetProcAddress('glVertexStream2f');
if not Assigned(glVertexStream2f) then Exit;
@glVertexStream2d := SDL_GL_GetProcAddress('glVertexStream2d');
if not Assigned(glVertexStream2d) then Exit;
@glVertexStream2sv := SDL_GL_GetProcAddress('glVertexStream2sv');
if not Assigned(glVertexStream2sv) then Exit;
@glVertexStream2iv := SDL_GL_GetProcAddress('glVertexStream2iv');
if not Assigned(glVertexStream2iv) then Exit;
@glVertexStream2fv := SDL_GL_GetProcAddress('glVertexStream2fv');
if not Assigned(glVertexStream2fv) then Exit;
@glVertexStream2dv := SDL_GL_GetProcAddress('glVertexStream2dv');
if not Assigned(glVertexStream2dv) then Exit;
@glVertexStream3s := SDL_GL_GetProcAddress('glVertexStream3s');
if not Assigned(glVertexStream3s) then Exit;
@glVertexStream3i := SDL_GL_GetProcAddress('glVertexStream3i');
if not Assigned(glVertexStream3i) then Exit;
@glVertexStream3f := SDL_GL_GetProcAddress('glVertexStream3f');
if not Assigned(glVertexStream3f) then Exit;
@glVertexStream3d := SDL_GL_GetProcAddress('glVertexStream3d');
if not Assigned(glVertexStream3d) then Exit;
@glVertexStream3sv := SDL_GL_GetProcAddress('glVertexStream3sv');
if not Assigned(glVertexStream3sv) then Exit;
@glVertexStream3iv := SDL_GL_GetProcAddress('glVertexStream3iv');
if not Assigned(glVertexStream3iv) then Exit;
@glVertexStream3fv := SDL_GL_GetProcAddress('glVertexStream3fv');
if not Assigned(glVertexStream3fv) then Exit;
@glVertexStream3dv := SDL_GL_GetProcAddress('glVertexStream3dv');
if not Assigned(glVertexStream3dv) then Exit;
@glVertexStream4s := SDL_GL_GetProcAddress('glVertexStream4s');
if not Assigned(glVertexStream4s) then Exit;
@glVertexStream4i := SDL_GL_GetProcAddress('glVertexStream4i');
if not Assigned(glVertexStream4i) then Exit;
@glVertexStream4f := SDL_GL_GetProcAddress('glVertexStream4f');
if not Assigned(glVertexStream4f) then Exit;
@glVertexStream4d := SDL_GL_GetProcAddress('glVertexStream4d');
if not Assigned(glVertexStream4d) then Exit;
@glVertexStream4sv := SDL_GL_GetProcAddress('glVertexStream4sv');
if not Assigned(glVertexStream4sv) then Exit;
@glVertexStream4iv := SDL_GL_GetProcAddress('glVertexStream4iv');
if not Assigned(glVertexStream4iv) then Exit;
@glVertexStream4fv := SDL_GL_GetProcAddress('glVertexStream4fv');
if not Assigned(glVertexStream4fv) then Exit;
@glVertexStream4dv := SDL_GL_GetProcAddress('glVertexStream4dv');
if not Assigned(glVertexStream4dv) then Exit;
@glNormalStream3b := SDL_GL_GetProcAddress('glNormalStream3b');
if not Assigned(glNormalStream3b) then Exit;
@glNormalStream3s := SDL_GL_GetProcAddress('glNormalStream3s');
if not Assigned(glNormalStream3s) then Exit;
@glNormalStream3i := SDL_GL_GetProcAddress('glNormalStream3i');
if not Assigned(glNormalStream3i) then Exit;
@glNormalStream3f := SDL_GL_GetProcAddress('glNormalStream3f');
if not Assigned(glNormalStream3f) then Exit;
@glNormalStream3d := SDL_GL_GetProcAddress('glNormalStream3d');
if not Assigned(glNormalStream3d) then Exit;
@glNormalStream3bv := SDL_GL_GetProcAddress('glNormalStream3bv');
if not Assigned(glNormalStream3bv) then Exit;
@glNormalStream3sv := SDL_GL_GetProcAddress('glNormalStream3sv');
if not Assigned(glNormalStream3sv) then Exit;
@glNormalStream3iv := SDL_GL_GetProcAddress('glNormalStream3iv');
if not Assigned(glNormalStream3iv) then Exit;
@glNormalStream3fv := SDL_GL_GetProcAddress('glNormalStream3fv');
if not Assigned(glNormalStream3fv) then Exit;
@glNormalStream3dv := SDL_GL_GetProcAddress('glNormalStream3dv');
if not Assigned(glNormalStream3dv) then Exit;
@glClientActiveVertexStream := SDL_GL_GetProcAddress('glClientActiveVertexStream');
if not Assigned(glClientActiveVertexStream) then Exit;
@glVertexBlendEnvi := SDL_GL_GetProcAddress('glVertexBlendEnvi');
if not Assigned(glVertexBlendEnvi) then Exit;
@glVertexBlendEnvf := SDL_GL_GetProcAddress('glVertexBlendEnvf');
if not Assigned(glVertexBlendEnvf) then Exit;
Result := TRUE;
end;
end;
{$IFDEF WINDOWS}
function Load_WGL_I3D_image_buffer: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
@wglGetExtensionsStringARB := SDL_GL_GetProcAddress('wglGetExtensionsStringARB');
if not Assigned(wglGetExtensionsStringARB) then Exit;
extstring := wglGetExtensionsStringARB(wglGetCurrentDC);
if glext_ExtensionSupported('WGL_I3D_image_buffer', extstring) then
begin
@wglCreateImageBufferI3D := SDL_GL_GetProcAddress('wglCreateImageBufferI3D');
if not Assigned(wglCreateImageBufferI3D) then Exit;
@wglDestroyImageBufferI3D := SDL_GL_GetProcAddress('wglDestroyImageBufferI3D');
if not Assigned(wglDestroyImageBufferI3D) then Exit;
@wglAssociateImageBufferEventsI3D := SDL_GL_GetProcAddress('wglAssociateImageBufferEventsI3D');
if not Assigned(wglAssociateImageBufferEventsI3D) then Exit;
@wglReleaseImageBufferEventsI3D := SDL_GL_GetProcAddress('wglReleaseImageBufferEventsI3D');
if not Assigned(wglReleaseImageBufferEventsI3D) then Exit;
Result := TRUE;
end;
end;
function Load_WGL_I3D_swap_frame_lock: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
@wglGetExtensionsStringARB := SDL_GL_GetProcAddress('wglGetExtensionsStringARB');
if not Assigned(wglGetExtensionsStringARB) then Exit;
extstring := wglGetExtensionsStringARB(wglGetCurrentDC);
if glext_ExtensionSupported('WGL_I3D_swap_frame_lock', extstring) then
begin
@wglEnableFrameLockI3D := SDL_GL_GetProcAddress('wglEnableFrameLockI3D');
if not Assigned(wglEnableFrameLockI3D) then Exit;
@wglDisableFrameLockI3D := SDL_GL_GetProcAddress('wglDisableFrameLockI3D');
if not Assigned(wglDisableFrameLockI3D) then Exit;
@wglIsEnabledFrameLockI3D := SDL_GL_GetProcAddress('wglIsEnabledFrameLockI3D');
if not Assigned(wglIsEnabledFrameLockI3D) then Exit;
@wglQueryFrameLockMasterI3D := SDL_GL_GetProcAddress('wglQueryFrameLockMasterI3D');
if not Assigned(wglQueryFrameLockMasterI3D) then Exit;
Result := TRUE;
end;
end;
function Load_WGL_I3D_swap_frame_usage: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
@wglGetExtensionsStringARB := SDL_GL_GetProcAddress('wglGetExtensionsStringARB');
if not Assigned(wglGetExtensionsStringARB) then Exit;
extstring := wglGetExtensionsStringARB(wglGetCurrentDC);
if glext_ExtensionSupported('WGL_I3D_swap_frame_usage', extstring) then
begin
@wglGetFrameUsageI3D := SDL_GL_GetProcAddress('wglGetFrameUsageI3D');
if not Assigned(wglGetFrameUsageI3D) then Exit;
@wglBeginFrameTrackingI3D := SDL_GL_GetProcAddress('wglBeginFrameTrackingI3D');
if not Assigned(wglBeginFrameTrackingI3D) then Exit;
@wglEndFrameTrackingI3D := SDL_GL_GetProcAddress('wglEndFrameTrackingI3D');
if not Assigned(wglEndFrameTrackingI3D) then Exit;
@wglQueryFrameTrackingI3D := SDL_GL_GetProcAddress('wglQueryFrameTrackingI3D');
if not Assigned(wglQueryFrameTrackingI3D) then Exit;
Result := TRUE;
end;
end;
{$ENDIF}
function Load_GL_3DFX_texture_compression_FXT1: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_3DFX_texture_compression_FXT1', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_IBM_cull_vertex: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_IBM_cull_vertex', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_IBM_multimode_draw_arrays: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_IBM_multimode_draw_arrays', extstring) then
begin
@glMultiModeDrawArraysIBM := SDL_GL_GetProcAddress('glMultiModeDrawArraysIBM');
if not Assigned(glMultiModeDrawArraysIBM) then Exit;
@glMultiModeDrawElementsIBM := SDL_GL_GetProcAddress('glMultiModeDrawElementsIBM');
if not Assigned(glMultiModeDrawElementsIBM) then Exit;
Result := TRUE;
end;
end;
function Load_GL_IBM_raster_pos_clip: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_IBM_raster_pos_clip', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_IBM_texture_mirrored_repeat: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_IBM_texture_mirrored_repeat', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_IBM_vertex_array_lists: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_IBM_vertex_array_lists', extstring) then
begin
@glColorPointerListIBM := SDL_GL_GetProcAddress('glColorPointerListIBM');
if not Assigned(glColorPointerListIBM) then Exit;
@glSecondaryColorPointerListIBM := SDL_GL_GetProcAddress('glSecondaryColorPointerListIBM');
if not Assigned(glSecondaryColorPointerListIBM) then Exit;
@glEdgeFlagPointerListIBM := SDL_GL_GetProcAddress('glEdgeFlagPointerListIBM');
if not Assigned(glEdgeFlagPointerListIBM) then Exit;
@glFogCoordPointerListIBM := SDL_GL_GetProcAddress('glFogCoordPointerListIBM');
if not Assigned(glFogCoordPointerListIBM) then Exit;
@glNormalPointerListIBM := SDL_GL_GetProcAddress('glNormalPointerListIBM');
if not Assigned(glNormalPointerListIBM) then Exit;
@glTexCoordPointerListIBM := SDL_GL_GetProcAddress('glTexCoordPointerListIBM');
if not Assigned(glTexCoordPointerListIBM) then Exit;
@glVertexPointerListIBM := SDL_GL_GetProcAddress('glVertexPointerListIBM');
if not Assigned(glVertexPointerListIBM) then Exit;
Result := TRUE;
end;
end;
function Load_GL_MESA_resize_buffers: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_MESA_resize_buffers', extstring) then
begin
@glResizeBuffersMESA := SDL_GL_GetProcAddress('glResizeBuffersMESA');
if not Assigned(glResizeBuffersMESA) then Exit;
Result := TRUE;
end;
end;
function Load_GL_MESA_window_pos: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_MESA_window_pos', extstring) then
begin
@glWindowPos2dMESA := SDL_GL_GetProcAddress('glWindowPos2dMESA');
if not Assigned(glWindowPos2dMESA) then Exit;
@glWindowPos2fMESA := SDL_GL_GetProcAddress('glWindowPos2fMESA');
if not Assigned(glWindowPos2fMESA) then Exit;
@glWindowPos2iMESA := SDL_GL_GetProcAddress('glWindowPos2iMESA');
if not Assigned(glWindowPos2iMESA) then Exit;
@glWindowPos2sMESA := SDL_GL_GetProcAddress('glWindowPos2sMESA');
if not Assigned(glWindowPos2sMESA) then Exit;
@glWindowPos2ivMESA := SDL_GL_GetProcAddress('glWindowPos2ivMESA');
if not Assigned(glWindowPos2ivMESA) then Exit;
@glWindowPos2svMESA := SDL_GL_GetProcAddress('glWindowPos2svMESA');
if not Assigned(glWindowPos2svMESA) then Exit;
@glWindowPos2fvMESA := SDL_GL_GetProcAddress('glWindowPos2fvMESA');
if not Assigned(glWindowPos2fvMESA) then Exit;
@glWindowPos2dvMESA := SDL_GL_GetProcAddress('glWindowPos2dvMESA');
if not Assigned(glWindowPos2dvMESA) then Exit;
@glWindowPos3iMESA := SDL_GL_GetProcAddress('glWindowPos3iMESA');
if not Assigned(glWindowPos3iMESA) then Exit;
@glWindowPos3sMESA := SDL_GL_GetProcAddress('glWindowPos3sMESA');
if not Assigned(glWindowPos3sMESA) then Exit;
@glWindowPos3fMESA := SDL_GL_GetProcAddress('glWindowPos3fMESA');
if not Assigned(glWindowPos3fMESA) then Exit;
@glWindowPos3dMESA := SDL_GL_GetProcAddress('glWindowPos3dMESA');
if not Assigned(glWindowPos3dMESA) then Exit;
@glWindowPos3ivMESA := SDL_GL_GetProcAddress('glWindowPos3ivMESA');
if not Assigned(glWindowPos3ivMESA) then Exit;
@glWindowPos3svMESA := SDL_GL_GetProcAddress('glWindowPos3svMESA');
if not Assigned(glWindowPos3svMESA) then Exit;
@glWindowPos3fvMESA := SDL_GL_GetProcAddress('glWindowPos3fvMESA');
if not Assigned(glWindowPos3fvMESA) then Exit;
@glWindowPos3dvMESA := SDL_GL_GetProcAddress('glWindowPos3dvMESA');
if not Assigned(glWindowPos3dvMESA) then Exit;
@glWindowPos4iMESA := SDL_GL_GetProcAddress('glWindowPos4iMESA');
if not Assigned(glWindowPos4iMESA) then Exit;
@glWindowPos4sMESA := SDL_GL_GetProcAddress('glWindowPos4sMESA');
if not Assigned(glWindowPos4sMESA) then Exit;
@glWindowPos4fMESA := SDL_GL_GetProcAddress('glWindowPos4fMESA');
if not Assigned(glWindowPos4fMESA) then Exit;
@glWindowPos4dMESA := SDL_GL_GetProcAddress('glWindowPos4dMESA');
if not Assigned(glWindowPos4dMESA) then Exit;
@glWindowPos4ivMESA := SDL_GL_GetProcAddress('glWindowPos4ivMESA');
if not Assigned(glWindowPos4ivMESA) then Exit;
@glWindowPos4svMESA := SDL_GL_GetProcAddress('glWindowPos4svMESA');
if not Assigned(glWindowPos4svMESA) then Exit;
@glWindowPos4fvMESA := SDL_GL_GetProcAddress('glWindowPos4fvMESA');
if not Assigned(glWindowPos4fvMESA) then Exit;
@glWindowPos4dvMESA := SDL_GL_GetProcAddress('glWindowPos4dvMESA');
if not Assigned(glWindowPos4dvMESA) then Exit;
Result := TRUE;
end;
end;
function Load_GL_OML_interlace: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_OML_interlace', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_OML_resample: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_OML_resample', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_OML_subsample: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_OML_subsample', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_SGIS_generate_mipmap: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_SGIS_generate_mipmap', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_SGIS_multisample: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_SGIS_multisample', extstring) then
begin
@glSampleMaskSGIS := SDL_GL_GetProcAddress('glSampleMaskSGIS');
if not Assigned(glSampleMaskSGIS) then Exit;
@glSamplePatternSGIS := SDL_GL_GetProcAddress('glSamplePatternSGIS');
if not Assigned(glSamplePatternSGIS) then Exit;
Result := TRUE;
end;
end;
function Load_GL_SGIS_pixel_texture: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_SGIS_pixel_texture', extstring) then
begin
@glPixelTexGenParameteriSGIS := SDL_GL_GetProcAddress('glPixelTexGenParameteriSGIS');
if not Assigned(glPixelTexGenParameteriSGIS) then Exit;
@glPixelTexGenParameterfSGIS := SDL_GL_GetProcAddress('glPixelTexGenParameterfSGIS');
if not Assigned(glPixelTexGenParameterfSGIS) then Exit;
@glGetPixelTexGenParameterivSGIS := SDL_GL_GetProcAddress('glGetPixelTexGenParameterivSGIS');
if not Assigned(glGetPixelTexGenParameterivSGIS) then Exit;
@glGetPixelTexGenParameterfvSGIS := SDL_GL_GetProcAddress('glGetPixelTexGenParameterfvSGIS');
if not Assigned(glGetPixelTexGenParameterfvSGIS) then Exit;
Result := TRUE;
end;
end;
function Load_GL_SGIS_texture_border_clamp: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_SGIS_texture_border_clamp', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_SGIS_texture_color_mask: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_SGIS_texture_color_mask', extstring) then
begin
@glTextureColorMaskSGIS := SDL_GL_GetProcAddress('glTextureColorMaskSGIS');
if not Assigned(glTextureColorMaskSGIS) then Exit;
Result := TRUE;
end;
end;
function Load_GL_SGIS_texture_edge_clamp: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_SGIS_texture_edge_clamp', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_SGIS_texture_lod: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_SGIS_texture_lod', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_SGIS_depth_texture: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_SGIS_depth_texture', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_SGIX_fog_offset: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_SGIX_fog_offset', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_SGIX_interlace: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_SGIX_interlace', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_SGIX_shadow_ambient: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_SGIX_shadow_ambient', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_SGI_color_matrix: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_SGI_color_matrix', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_SGI_color_table: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_SGI_color_table', extstring) then
begin
@glColorTableSGI := SDL_GL_GetProcAddress('glColorTableSGI');
if not Assigned(glColorTableSGI) then Exit;
@glCopyColorTableSGI := SDL_GL_GetProcAddress('glCopyColorTableSGI');
if not Assigned(glCopyColorTableSGI) then Exit;
@glColorTableParameterivSGI := SDL_GL_GetProcAddress('glColorTableParameterivSGI');
if not Assigned(glColorTableParameterivSGI) then Exit;
@glColorTableParameterfvSGI := SDL_GL_GetProcAddress('glColorTableParameterfvSGI');
if not Assigned(glColorTableParameterfvSGI) then Exit;
@glGetColorTableSGI := SDL_GL_GetProcAddress('glGetColorTableSGI');
if not Assigned(glGetColorTableSGI) then Exit;
@glGetColorTableParameterivSGI := SDL_GL_GetProcAddress('glGetColorTableParameterivSGI');
if not Assigned(glGetColorTableParameterivSGI) then Exit;
@glGetColorTableParameterfvSGI := SDL_GL_GetProcAddress('glGetColorTableParameterfvSGI');
if not Assigned(glGetColorTableParameterfvSGI) then Exit;
Result := TRUE;
end;
end;
function Load_GL_SGI_texture_color_table: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_SGI_texture_color_table', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_SUN_vertex: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_SUN_vertex', extstring) then
begin
@glColor4ubVertex2fSUN := SDL_GL_GetProcAddress('glColor4ubVertex2fSUN');
if not Assigned(glColor4ubVertex2fSUN) then Exit;
@glColor4ubVertex2fvSUN := SDL_GL_GetProcAddress('glColor4ubVertex2fvSUN');
if not Assigned(glColor4ubVertex2fvSUN) then Exit;
@glColor4ubVertex3fSUN := SDL_GL_GetProcAddress('glColor4ubVertex3fSUN');
if not Assigned(glColor4ubVertex3fSUN) then Exit;
@glColor4ubVertex3fvSUN := SDL_GL_GetProcAddress('glColor4ubVertex3fvSUN');
if not Assigned(glColor4ubVertex3fvSUN) then Exit;
@glColor3fVertex3fSUN := SDL_GL_GetProcAddress('glColor3fVertex3fSUN');
if not Assigned(glColor3fVertex3fSUN) then Exit;
@glColor3fVertex3fvSUN := SDL_GL_GetProcAddress('glColor3fVertex3fvSUN');
if not Assigned(glColor3fVertex3fvSUN) then Exit;
@glNormal3fVertex3fSUN := SDL_GL_GetProcAddress('glNormal3fVertex3fSUN');
if not Assigned(glNormal3fVertex3fSUN) then Exit;
@glNormal3fVertex3fvSUN := SDL_GL_GetProcAddress('glNormal3fVertex3fvSUN');
if not Assigned(glNormal3fVertex3fvSUN) then Exit;
@glColor4fNormal3fVertex3fSUN := SDL_GL_GetProcAddress('glColor4fNormal3fVertex3fSUN');
if not Assigned(glColor4fNormal3fVertex3fSUN) then Exit;
@glColor4fNormal3fVertex3fvSUN := SDL_GL_GetProcAddress('glColor4fNormal3fVertex3fvSUN');
if not Assigned(glColor4fNormal3fVertex3fvSUN) then Exit;
@glTexCoord2fVertex3fSUN := SDL_GL_GetProcAddress('glTexCoord2fVertex3fSUN');
if not Assigned(glTexCoord2fVertex3fSUN) then Exit;
@glTexCoord2fVertex3fvSUN := SDL_GL_GetProcAddress('glTexCoord2fVertex3fvSUN');
if not Assigned(glTexCoord2fVertex3fvSUN) then Exit;
@glTexCoord4fVertex4fSUN := SDL_GL_GetProcAddress('glTexCoord4fVertex4fSUN');
if not Assigned(glTexCoord4fVertex4fSUN) then Exit;
@glTexCoord4fVertex4fvSUN := SDL_GL_GetProcAddress('glTexCoord4fVertex4fvSUN');
if not Assigned(glTexCoord4fVertex4fvSUN) then Exit;
@glTexCoord2fColor4ubVertex3fSUN := SDL_GL_GetProcAddress('glTexCoord2fColor4ubVertex3fSUN');
if not Assigned(glTexCoord2fColor4ubVertex3fSUN) then Exit;
@glTexCoord2fColor4ubVertex3fvSUN := SDL_GL_GetProcAddress('glTexCoord2fColor4ubVertex3fvSUN');
if not Assigned(glTexCoord2fColor4ubVertex3fvSUN) then Exit;
@glTexCoord2fColor3fVertex3fSUN := SDL_GL_GetProcAddress('glTexCoord2fColor3fVertex3fSUN');
if not Assigned(glTexCoord2fColor3fVertex3fSUN) then Exit;
@glTexCoord2fColor3fVertex3fvSUN := SDL_GL_GetProcAddress('glTexCoord2fColor3fVertex3fvSUN');
if not Assigned(glTexCoord2fColor3fVertex3fvSUN) then Exit;
@glTexCoord2fNormal3fVertex3fSUN := SDL_GL_GetProcAddress('glTexCoord2fNormal3fVertex3fSUN');
if not Assigned(glTexCoord2fNormal3fVertex3fSUN) then Exit;
@glTexCoord2fNormal3fVertex3fvSUN := SDL_GL_GetProcAddress('glTexCoord2fNormal3fVertex3fvSUN');
if not Assigned(glTexCoord2fNormal3fVertex3fvSUN) then Exit;
@glTexCoord2fColor4fNormal3fVertex3fSUN := SDL_GL_GetProcAddress('glTexCoord2fColor4fNormal3fVertex3fSUN');
if not Assigned(glTexCoord2fColor4fNormal3fVertex3fSUN) then Exit;
@glTexCoord2fColor4fNormal3fVertex3fvSUN := SDL_GL_GetProcAddress('glTexCoord2fColor4fNormal3fVertex3fvSUN');
if not Assigned(glTexCoord2fColor4fNormal3fVertex3fvSUN) then Exit;
@glTexCoord4fColor4fNormal3fVertex4fSUN := SDL_GL_GetProcAddress('glTexCoord4fColor4fNormal3fVertex4fSUN');
if not Assigned(glTexCoord4fColor4fNormal3fVertex4fSUN) then Exit;
@glTexCoord4fColor4fNormal3fVertex4fvSUN := SDL_GL_GetProcAddress('glTexCoord4fColor4fNormal3fVertex4fvSUN');
if not Assigned(glTexCoord4fColor4fNormal3fVertex4fvSUN) then Exit;
@glReplacementCodeuiVertex3fSUN := SDL_GL_GetProcAddress('glReplacementCodeuiVertex3fSUN');
if not Assigned(glReplacementCodeuiVertex3fSUN) then Exit;
@glReplacementCodeuiVertex3fvSUN := SDL_GL_GetProcAddress('glReplacementCodeuiVertex3fvSUN');
if not Assigned(glReplacementCodeuiVertex3fvSUN) then Exit;
@glReplacementCodeuiColor4ubVertex3fSUN := SDL_GL_GetProcAddress('glReplacementCodeuiColor4ubVertex3fSUN');
if not Assigned(glReplacementCodeuiColor4ubVertex3fSUN) then Exit;
@glReplacementCodeuiColor4ubVertex3fvSUN := SDL_GL_GetProcAddress('glReplacementCodeuiColor4ubVertex3fvSUN');
if not Assigned(glReplacementCodeuiColor4ubVertex3fvSUN) then Exit;
@glReplacementCodeuiColor3fVertex3fSUN := SDL_GL_GetProcAddress('glReplacementCodeuiColor3fVertex3fSUN');
if not Assigned(glReplacementCodeuiColor3fVertex3fSUN) then Exit;
@glReplacementCodeuiColor3fVertex3fvSUN := SDL_GL_GetProcAddress('glReplacementCodeuiColor3fVertex3fvSUN');
if not Assigned(glReplacementCodeuiColor3fVertex3fvSUN) then Exit;
@glReplacementCodeuiNormal3fVertex3fSUN := SDL_GL_GetProcAddress('glReplacementCodeuiNormal3fVertex3fSUN');
if not Assigned(glReplacementCodeuiNormal3fVertex3fSUN) then Exit;
@glReplacementCodeuiNormal3fVertex3fvSUN := SDL_GL_GetProcAddress('glReplacementCodeuiNormal3fVertex3fvSUN');
if not Assigned(glReplacementCodeuiNormal3fVertex3fvSUN) then Exit;
@glReplacementCodeuiColor4fNormal3fVertex3fSUN := SDL_GL_GetProcAddress('glReplacementCodeuiColor4fNormal3fVertex3fSUN');
if not Assigned(glReplacementCodeuiColor4fNormal3fVertex3fSUN) then Exit;
@glReplacementCodeuiColor4fNormal3fVertex3fvSUN := SDL_GL_GetProcAddress('glReplacementCodeuiColor4fNormal3fVertex3fvSUN');
if not Assigned(glReplacementCodeuiColor4fNormal3fVertex3fvSUN) then Exit;
@glReplacementCodeuiTexCoord2fVertex3fSUN := SDL_GL_GetProcAddress('glReplacementCodeuiTexCoord2fVertex3fSUN');
if not Assigned(glReplacementCodeuiTexCoord2fVertex3fSUN) then Exit;
@glReplacementCodeuiTexCoord2fVertex3fvSUN := SDL_GL_GetProcAddress('glReplacementCodeuiTexCoord2fVertex3fvSUN');
if not Assigned(glReplacementCodeuiTexCoord2fVertex3fvSUN) then Exit;
@glReplacementCodeuiTexCoord2fNormal3fVertex3fSUN := SDL_GL_GetProcAddress('glReplacementCodeuiTexCoord2fNormal3fVertex3fSUN');
if not Assigned(glReplacementCodeuiTexCoord2fNormal3fVertex3fSUN) then Exit;
@glReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN := SDL_GL_GetProcAddress('glReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN');
if not Assigned(glReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN) then Exit;
@glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fSUN := SDL_GL_GetProcAddress('glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fSUN');
if not Assigned(glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fSUN) then Exit;
@glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN := SDL_GL_GetProcAddress('glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN');
if not Assigned(glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN) then Exit;
Result := TRUE;
end;
end;
function Load_GL_ARB_fragment_program: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_fragment_program', extstring) then
begin
@glProgramStringARB := SDL_GL_GetProcAddress('glProgramStringARB');
if not Assigned(glProgramStringARB) then Exit;
@glBindProgramARB := SDL_GL_GetProcAddress('glBindProgramARB');
if not Assigned(glBindProgramARB) then Exit;
@glDeleteProgramsARB := SDL_GL_GetProcAddress('glDeleteProgramsARB');
if not Assigned(glDeleteProgramsARB) then Exit;
@glGenProgramsARB := SDL_GL_GetProcAddress('glGenProgramsARB');
if not Assigned(glGenProgramsARB) then Exit;
@glProgramEnvParameter4dARB := SDL_GL_GetProcAddress('glProgramEnvParameter4dARB');
if not Assigned(glProgramEnvParameter4dARB) then Exit;
@glProgramEnvParameter4dvARB := SDL_GL_GetProcAddress('glProgramEnvParameter4dvARB');
if not Assigned(glProgramEnvParameter4dvARB) then Exit;
@glProgramEnvParameter4fARB := SDL_GL_GetProcAddress('glProgramEnvParameter4fARB');
if not Assigned(glProgramEnvParameter4fARB) then Exit;
@glProgramEnvParameter4fvARB := SDL_GL_GetProcAddress('glProgramEnvParameter4fvARB');
if not Assigned(glProgramEnvParameter4fvARB) then Exit;
@glProgramLocalParameter4dARB := SDL_GL_GetProcAddress('glProgramLocalParameter4dARB');
if not Assigned(glProgramLocalParameter4dARB) then Exit;
@glProgramLocalParameter4dvARB := SDL_GL_GetProcAddress('glProgramLocalParameter4dvARB');
if not Assigned(glProgramLocalParameter4dvARB) then Exit;
@glProgramLocalParameter4fARB := SDL_GL_GetProcAddress('glProgramLocalParameter4fARB');
if not Assigned(glProgramLocalParameter4fARB) then Exit;
@glProgramLocalParameter4fvARB := SDL_GL_GetProcAddress('glProgramLocalParameter4fvARB');
if not Assigned(glProgramLocalParameter4fvARB) then Exit;
@glGetProgramEnvParameterdvARB := SDL_GL_GetProcAddress('glGetProgramEnvParameterdvARB');
if not Assigned(glGetProgramEnvParameterdvARB) then Exit;
@glGetProgramEnvParameterfvARB := SDL_GL_GetProcAddress('glGetProgramEnvParameterfvARB');
if not Assigned(glGetProgramEnvParameterfvARB) then Exit;
@glGetProgramLocalParameterdvARB := SDL_GL_GetProcAddress('glGetProgramLocalParameterdvARB');
if not Assigned(glGetProgramLocalParameterdvARB) then Exit;
@glGetProgramLocalParameterfvARB := SDL_GL_GetProcAddress('glGetProgramLocalParameterfvARB');
if not Assigned(glGetProgramLocalParameterfvARB) then Exit;
@glGetProgramivARB := SDL_GL_GetProcAddress('glGetProgramivARB');
if not Assigned(glGetProgramivARB) then Exit;
@glGetProgramStringARB := SDL_GL_GetProcAddress('glGetProgramStringARB');
if not Assigned(glGetProgramStringARB) then Exit;
@glIsProgramARB := SDL_GL_GetProcAddress('glIsProgramARB');
if not Assigned(glIsProgramARB) then Exit;
Result := TRUE;
end;
end;
function Load_GL_ATI_text_fragment_shader: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ATI_text_fragment_shader', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_APPLE_client_storage: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_APPLE_client_storage', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_APPLE_element_array: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_APPLE_element_array', extstring) then
begin
@glElementPointerAPPLE := SDL_GL_GetProcAddress('glElementPointerAPPLE');
if not Assigned(glElementPointerAPPLE) then Exit;
@glDrawElementArrayAPPLE := SDL_GL_GetProcAddress('glDrawElementArrayAPPLE');
if not Assigned(glDrawElementArrayAPPLE) then Exit;
@glDrawRangeElementArrayAPPLE := SDL_GL_GetProcAddress('glDrawRangeElementArrayAPPLE');
if not Assigned(glDrawRangeElementArrayAPPLE) then Exit;
@glMultiDrawElementArrayAPPLE := SDL_GL_GetProcAddress('glMultiDrawElementArrayAPPLE');
if not Assigned(glMultiDrawElementArrayAPPLE) then Exit;
@glMultiDrawRangeElementArrayAPPLE := SDL_GL_GetProcAddress('glMultiDrawRangeElementArrayAPPLE');
if not Assigned(glMultiDrawRangeElementArrayAPPLE) then Exit;
Result := TRUE;
end;
end;
function Load_GL_APPLE_fence: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_APPLE_fence', extstring) then
begin
@glGenFencesAPPLE := SDL_GL_GetProcAddress('glGenFencesAPPLE');
if not Assigned(glGenFencesAPPLE) then Exit;
@glDeleteFencesAPPLE := SDL_GL_GetProcAddress('glDeleteFencesAPPLE');
if not Assigned(glDeleteFencesAPPLE) then Exit;
@glSetFenceAPPLE := SDL_GL_GetProcAddress('glSetFenceAPPLE');
if not Assigned(glSetFenceAPPLE) then Exit;
@glIsFenceAPPLE := SDL_GL_GetProcAddress('glIsFenceAPPLE');
if not Assigned(glIsFenceAPPLE) then Exit;
@glTestFenceAPPLE := SDL_GL_GetProcAddress('glTestFenceAPPLE');
if not Assigned(glTestFenceAPPLE) then Exit;
@glFinishFenceAPPLE := SDL_GL_GetProcAddress('glFinishFenceAPPLE');
if not Assigned(glFinishFenceAPPLE) then Exit;
@glTestObjectAPPLE := SDL_GL_GetProcAddress('glTestObjectAPPLE');
if not Assigned(glTestObjectAPPLE) then Exit;
@glFinishObjectAPPLE := SDL_GL_GetProcAddress('glFinishObjectAPPLE');
if not Assigned(glFinishObjectAPPLE) then Exit;
Result := TRUE;
end;
end;
function Load_GL_APPLE_vertex_array_object: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_APPLE_vertex_array_object', extstring) then
begin
@glBindVertexArrayAPPLE := SDL_GL_GetProcAddress('glBindVertexArrayAPPLE');
if not Assigned(glBindVertexArrayAPPLE) then Exit;
@glDeleteVertexArraysAPPLE := SDL_GL_GetProcAddress('glDeleteVertexArraysAPPLE');
if not Assigned(glDeleteVertexArraysAPPLE) then Exit;
@glGenVertexArraysAPPLE := SDL_GL_GetProcAddress('glGenVertexArraysAPPLE');
if not Assigned(glGenVertexArraysAPPLE) then Exit;
@glIsVertexArrayAPPLE := SDL_GL_GetProcAddress('glIsVertexArrayAPPLE');
if not Assigned(glIsVertexArrayAPPLE) then Exit;
Result := TRUE;
end;
end;
function Load_GL_APPLE_vertex_array_range: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_APPLE_vertex_array_range', extstring) then
begin
@glVertexArrayRangeAPPLE := SDL_GL_GetProcAddress('glVertexArrayRangeAPPLE');
if not Assigned(glVertexArrayRangeAPPLE) then Exit;
@glFlushVertexArrayRangeAPPLE := SDL_GL_GetProcAddress('glFlushVertexArrayRangeAPPLE');
if not Assigned(glFlushVertexArrayRangeAPPLE) then Exit;
@glVertexArrayParameteriAPPLE := SDL_GL_GetProcAddress('glVertexArrayParameteriAPPLE');
if not Assigned(glVertexArrayParameteriAPPLE) then Exit;
Result := TRUE;
end;
end;
{$IFDEF WINDOWS}
function Load_WGL_ARB_pixel_format: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
@wglGetExtensionsStringARB := SDL_GL_GetProcAddress('wglGetExtensionsStringARB');
if not Assigned(wglGetExtensionsStringARB) then Exit;
extstring := wglGetExtensionsStringARB(wglGetCurrentDC);
if glext_ExtensionSupported('WGL_ARB_pixel_format', extstring) then
begin
@wglGetPixelFormatAttribivARB := SDL_GL_GetProcAddress('wglGetPixelFormatAttribivARB');
if not Assigned(wglGetPixelFormatAttribivARB) then Exit;
@wglGetPixelFormatAttribfvARB := SDL_GL_GetProcAddress('wglGetPixelFormatAttribfvARB');
if not Assigned(wglGetPixelFormatAttribfvARB) then Exit;
@wglChoosePixelFormatARB := SDL_GL_GetProcAddress('wglChoosePixelFormatARB');
if not Assigned(wglChoosePixelFormatARB) then Exit;
Result := TRUE;
end;
end;
function Load_WGL_ARB_make_current_read: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
@wglGetExtensionsStringARB := SDL_GL_GetProcAddress('wglGetExtensionsStringARB');
if not Assigned(wglGetExtensionsStringARB) then Exit;
extstring := wglGetExtensionsStringARB(wglGetCurrentDC);
if glext_ExtensionSupported('WGL_ARB_make_current_read', extstring) then
begin
@wglMakeContextCurrentARB := SDL_GL_GetProcAddress('wglMakeContextCurrentARB');
if not Assigned(wglMakeContextCurrentARB) then Exit;
@wglGetCurrentReadDCARB := SDL_GL_GetProcAddress('wglGetCurrentReadDCARB');
if not Assigned(wglGetCurrentReadDCARB) then Exit;
Result := TRUE;
end;
end;
function Load_WGL_ARB_pbuffer: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
@wglGetExtensionsStringARB := SDL_GL_GetProcAddress('wglGetExtensionsStringARB');
if not Assigned(wglGetExtensionsStringARB) then Exit;
extstring := wglGetExtensionsStringARB(wglGetCurrentDC);
if glext_ExtensionSupported('WGL_ARB_pbuffer', extstring) then
begin
@wglCreatePbufferARB := SDL_GL_GetProcAddress('wglCreatePbufferARB');
if not Assigned(wglCreatePbufferARB) then Exit;
@wglGetPbufferDCARB := SDL_GL_GetProcAddress('wglGetPbufferDCARB');
if not Assigned(wglGetPbufferDCARB) then Exit;
@wglReleasePbufferDCARB := SDL_GL_GetProcAddress('wglReleasePbufferDCARB');
if not Assigned(wglReleasePbufferDCARB) then Exit;
@wglDestroyPbufferARB := SDL_GL_GetProcAddress('wglDestroyPbufferARB');
if not Assigned(wglDestroyPbufferARB) then Exit;
@wglQueryPbufferARB := SDL_GL_GetProcAddress('wglQueryPbufferARB');
if not Assigned(wglQueryPbufferARB) then Exit;
Result := TRUE;
end;
end;
function Load_WGL_EXT_swap_control: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
@wglGetExtensionsStringARB := SDL_GL_GetProcAddress('wglGetExtensionsStringARB');
if not Assigned(wglGetExtensionsStringARB) then Exit;
extstring := wglGetExtensionsStringARB(wglGetCurrentDC);
if glext_ExtensionSupported('WGL_EXT_swap_control', extstring) then
begin
@wglSwapIntervalEXT := SDL_GL_GetProcAddress('wglSwapIntervalEXT');
if not Assigned(wglSwapIntervalEXT) then Exit;
@wglGetSwapIntervalEXT := SDL_GL_GetProcAddress('wglGetSwapIntervalEXT');
if not Assigned(wglGetSwapIntervalEXT) then Exit;
Result := TRUE;
end;
end;
function Load_WGL_ARB_render_texture: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
@wglGetExtensionsStringARB := SDL_GL_GetProcAddress('wglGetExtensionsStringARB');
if not Assigned(wglGetExtensionsStringARB) then Exit;
extstring := wglGetExtensionsStringARB(wglGetCurrentDC);
if glext_ExtensionSupported('WGL_ARB_render_texture', extstring) then
begin
@wglBindTexImageARB := SDL_GL_GetProcAddress('wglBindTexImageARB');
if not Assigned(wglBindTexImageARB) then Exit;
@wglReleaseTexImageARB := SDL_GL_GetProcAddress('wglReleaseTexImageARB');
if not Assigned(wglReleaseTexImageARB) then Exit;
@wglSetPbufferAttribARB := SDL_GL_GetProcAddress('wglSetPbufferAttribARB');
if not Assigned(wglSetPbufferAttribARB) then Exit;
Result := TRUE;
end;
end;
function Load_WGL_EXT_extensions_string: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
@wglGetExtensionsStringARB := SDL_GL_GetProcAddress('wglGetExtensionsStringARB');
if not Assigned(wglGetExtensionsStringARB) then Exit;
extstring := wglGetExtensionsStringARB(wglGetCurrentDC);
if glext_ExtensionSupported('WGL_EXT_extensions_string', extstring) then
begin
@wglGetExtensionsStringEXT := SDL_GL_GetProcAddress('wglGetExtensionsStringEXT');
if not Assigned(wglGetExtensionsStringEXT) then Exit;
Result := TRUE;
end;
end;
function Load_WGL_EXT_make_current_read: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
@wglGetExtensionsStringARB := SDL_GL_GetProcAddress('wglGetExtensionsStringARB');
if not Assigned(wglGetExtensionsStringARB) then Exit;
extstring := wglGetExtensionsStringARB(wglGetCurrentDC);
if glext_ExtensionSupported('WGL_EXT_make_current_read', extstring) then
begin
@wglMakeContextCurrentEXT := SDL_GL_GetProcAddress('wglMakeContextCurrentEXT');
if not Assigned(wglMakeContextCurrentEXT) then Exit;
@wglGetCurrentReadDCEXT := SDL_GL_GetProcAddress('wglGetCurrentReadDCEXT');
if not Assigned(wglGetCurrentReadDCEXT) then Exit;
Result := TRUE;
end;
end;
function Load_WGL_EXT_pbuffer: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
@wglGetExtensionsStringARB := SDL_GL_GetProcAddress('wglGetExtensionsStringARB');
if not Assigned(wglGetExtensionsStringARB) then Exit;
extstring := wglGetExtensionsStringARB(wglGetCurrentDC);
if glext_ExtensionSupported('WGL_EXT_pbuffer', extstring) then
begin
@wglCreatePbufferEXT := SDL_GL_GetProcAddress('wglCreatePbufferEXT');
if not Assigned(wglCreatePbufferEXT) then Exit;
@wglGetPbufferDCEXT := SDL_GL_GetProcAddress('wglGetPbufferDCEXT');
if not Assigned(wglGetPbufferDCEXT) then Exit;
@wglReleasePbufferDCEXT := SDL_GL_GetProcAddress('wglReleasePbufferDCEXT');
if not Assigned(wglReleasePbufferDCEXT) then Exit;
@wglDestroyPbufferEXT := SDL_GL_GetProcAddress('wglDestroyPbufferEXT');
if not Assigned(wglDestroyPbufferEXT) then Exit;
@wglQueryPbufferEXT := SDL_GL_GetProcAddress('wglQueryPbufferEXT');
if not Assigned(wglQueryPbufferEXT) then Exit;
Result := TRUE;
end;
end;
function Load_WGL_EXT_pixel_format: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
@wglGetExtensionsStringARB := SDL_GL_GetProcAddress('wglGetExtensionsStringARB');
if not Assigned(wglGetExtensionsStringARB) then Exit;
extstring := wglGetExtensionsStringARB(wglGetCurrentDC);
if glext_ExtensionSupported('WGL_EXT_pixel_format', extstring) then
begin
@wglGetPixelFormatAttribivEXT := SDL_GL_GetProcAddress('wglGetPixelFormatAttribivEXT');
if not Assigned(wglGetPixelFormatAttribivEXT) then Exit;
@wglGetPixelFormatAttribfvEXT := SDL_GL_GetProcAddress('wglGetPixelFormatAttribfvEXT');
if not Assigned(wglGetPixelFormatAttribfvEXT) then Exit;
@wglChoosePixelFormatEXT := SDL_GL_GetProcAddress('wglChoosePixelFormatEXT');
if not Assigned(wglChoosePixelFormatEXT) then Exit;
Result := TRUE;
end;
end;
function Load_WGL_I3D_digital_video_control: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
@wglGetExtensionsStringARB := SDL_GL_GetProcAddress('wglGetExtensionsStringARB');
if not Assigned(wglGetExtensionsStringARB) then Exit;
extstring := wglGetExtensionsStringARB(wglGetCurrentDC);
if glext_ExtensionSupported('WGL_I3D_digital_video_control', extstring) then
begin
@wglGetDigitalVideoParametersI3D := SDL_GL_GetProcAddress('wglGetDigitalVideoParametersI3D');
if not Assigned(wglGetDigitalVideoParametersI3D) then Exit;
@wglSetDigitalVideoParametersI3D := SDL_GL_GetProcAddress('wglSetDigitalVideoParametersI3D');
if not Assigned(wglSetDigitalVideoParametersI3D) then Exit;
Result := TRUE;
end;
end;
function Load_WGL_I3D_gamma: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
@wglGetExtensionsStringARB := SDL_GL_GetProcAddress('wglGetExtensionsStringARB');
if not Assigned(wglGetExtensionsStringARB) then Exit;
extstring := wglGetExtensionsStringARB(wglGetCurrentDC);
if glext_ExtensionSupported('WGL_I3D_gamma', extstring) then
begin
@wglGetGammaTableParametersI3D := SDL_GL_GetProcAddress('wglGetGammaTableParametersI3D');
if not Assigned(wglGetGammaTableParametersI3D) then Exit;
@wglSetGammaTableParametersI3D := SDL_GL_GetProcAddress('wglSetGammaTableParametersI3D');
if not Assigned(wglSetGammaTableParametersI3D) then Exit;
@wglGetGammaTableI3D := SDL_GL_GetProcAddress('wglGetGammaTableI3D');
if not Assigned(wglGetGammaTableI3D) then Exit;
@wglSetGammaTableI3D := SDL_GL_GetProcAddress('wglSetGammaTableI3D');
if not Assigned(wglSetGammaTableI3D) then Exit;
Result := TRUE;
end;
end;
function Load_WGL_I3D_genlock: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
@wglGetExtensionsStringARB := SDL_GL_GetProcAddress('wglGetExtensionsStringARB');
if not Assigned(wglGetExtensionsStringARB) then Exit;
extstring := wglGetExtensionsStringARB(wglGetCurrentDC);
if glext_ExtensionSupported('WGL_I3D_genlock', extstring) then
begin
@wglEnableGenlockI3D := SDL_GL_GetProcAddress('wglEnableGenlockI3D');
if not Assigned(wglEnableGenlockI3D) then Exit;
@wglDisableGenlockI3D := SDL_GL_GetProcAddress('wglDisableGenlockI3D');
if not Assigned(wglDisableGenlockI3D) then Exit;
@wglIsEnabledGenlockI3D := SDL_GL_GetProcAddress('wglIsEnabledGenlockI3D');
if not Assigned(wglIsEnabledGenlockI3D) then Exit;
@wglGenlockSourceI3D := SDL_GL_GetProcAddress('wglGenlockSourceI3D');
if not Assigned(wglGenlockSourceI3D) then Exit;
@wglGetGenlockSourceI3D := SDL_GL_GetProcAddress('wglGetGenlockSourceI3D');
if not Assigned(wglGetGenlockSourceI3D) then Exit;
@wglGenlockSourceEdgeI3D := SDL_GL_GetProcAddress('wglGenlockSourceEdgeI3D');
if not Assigned(wglGenlockSourceEdgeI3D) then Exit;
@wglGetGenlockSourceEdgeI3D := SDL_GL_GetProcAddress('wglGetGenlockSourceEdgeI3D');
if not Assigned(wglGetGenlockSourceEdgeI3D) then Exit;
@wglGenlockSampleRateI3D := SDL_GL_GetProcAddress('wglGenlockSampleRateI3D');
if not Assigned(wglGenlockSampleRateI3D) then Exit;
@wglGetGenlockSampleRateI3D := SDL_GL_GetProcAddress('wglGetGenlockSampleRateI3D');
if not Assigned(wglGetGenlockSampleRateI3D) then Exit;
@wglGenlockSourceDelayI3D := SDL_GL_GetProcAddress('wglGenlockSourceDelayI3D');
if not Assigned(wglGenlockSourceDelayI3D) then Exit;
@wglGetGenlockSourceDelayI3D := SDL_GL_GetProcAddress('wglGetGenlockSourceDelayI3D');
if not Assigned(wglGetGenlockSourceDelayI3D) then Exit;
@wglQueryGenlockMaxSourceDelayI3D := SDL_GL_GetProcAddress('wglQueryGenlockMaxSourceDelayI3D');
if not Assigned(wglQueryGenlockMaxSourceDelayI3D) then Exit;
Result := TRUE;
end;
end;
{$ENDIF}
function Load_GL_ARB_matrix_palette: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_matrix_palette', extstring) then
begin
@glCurrentPaletteMatrixARB := SDL_GL_GetProcAddress('glCurrentPaletteMatrixARB');
if not Assigned(glCurrentPaletteMatrixARB) then Exit;
@glMatrixIndexubvARB := SDL_GL_GetProcAddress('glMatrixIndexubvARB');
if not Assigned(glMatrixIndexubvARB) then Exit;
@glMatrixIndexusvARB := SDL_GL_GetProcAddress('glMatrixIndexusvARB');
if not Assigned(glMatrixIndexusvARB) then Exit;
@glMatrixIndexuivARB := SDL_GL_GetProcAddress('glMatrixIndexuivARB');
if not Assigned(glMatrixIndexuivARB) then Exit;
@glMatrixIndexPointerARB := SDL_GL_GetProcAddress('glMatrixIndexPointerARB');
if not Assigned(glMatrixIndexPointerARB) then Exit;
Result := TRUE;
end;
end;
function Load_GL_NV_element_array: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_element_array', extstring) then
begin
@glElementPointerNV := SDL_GL_GetProcAddress('glElementPointerNV');
if not Assigned(glElementPointerNV) then Exit;
@glDrawElementArrayNV := SDL_GL_GetProcAddress('glDrawElementArrayNV');
if not Assigned(glDrawElementArrayNV) then Exit;
@glDrawRangeElementArrayNV := SDL_GL_GetProcAddress('glDrawRangeElementArrayNV');
if not Assigned(glDrawRangeElementArrayNV) then Exit;
@glMultiDrawElementArrayNV := SDL_GL_GetProcAddress('glMultiDrawElementArrayNV');
if not Assigned(glMultiDrawElementArrayNV) then Exit;
@glMultiDrawRangeElementArrayNV := SDL_GL_GetProcAddress('glMultiDrawRangeElementArrayNV');
if not Assigned(glMultiDrawRangeElementArrayNV) then Exit;
Result := TRUE;
end;
end;
function Load_GL_NV_float_buffer: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_float_buffer', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_NV_fragment_program: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_fragment_program', extstring) then
begin
@glProgramNamedParameter4fNV := SDL_GL_GetProcAddress('glProgramNamedParameter4fNV');
if not Assigned(glProgramNamedParameter4fNV) then Exit;
@glProgramNamedParameter4dNV := SDL_GL_GetProcAddress('glProgramNamedParameter4dNV');
if not Assigned(glProgramNamedParameter4dNV) then Exit;
@glGetProgramNamedParameterfvNV := SDL_GL_GetProcAddress('glGetProgramNamedParameterfvNV');
if not Assigned(glGetProgramNamedParameterfvNV) then Exit;
@glGetProgramNamedParameterdvNV := SDL_GL_GetProcAddress('glGetProgramNamedParameterdvNV');
if not Assigned(glGetProgramNamedParameterdvNV) then Exit;
@glProgramLocalParameter4dARB := SDL_GL_GetProcAddress('glProgramLocalParameter4dARB');
if not Assigned(glProgramLocalParameter4dARB) then Exit;
@glProgramLocalParameter4dvARB := SDL_GL_GetProcAddress('glProgramLocalParameter4dvARB');
if not Assigned(glProgramLocalParameter4dvARB) then Exit;
@glProgramLocalParameter4fARB := SDL_GL_GetProcAddress('glProgramLocalParameter4fARB');
if not Assigned(glProgramLocalParameter4fARB) then Exit;
@glProgramLocalParameter4fvARB := SDL_GL_GetProcAddress('glProgramLocalParameter4fvARB');
if not Assigned(glProgramLocalParameter4fvARB) then Exit;
@glGetProgramLocalParameterdvARB := SDL_GL_GetProcAddress('glGetProgramLocalParameterdvARB');
if not Assigned(glGetProgramLocalParameterdvARB) then Exit;
@glGetProgramLocalParameterfvARB := SDL_GL_GetProcAddress('glGetProgramLocalParameterfvARB');
if not Assigned(glGetProgramLocalParameterfvARB) then Exit;
Result := TRUE;
end;
end;
function Load_GL_NV_primitive_restart: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_primitive_restart', extstring) then
begin
@glPrimitiveRestartNV := SDL_GL_GetProcAddress('glPrimitiveRestartNV');
if not Assigned(glPrimitiveRestartNV) then Exit;
@glPrimitiveRestartIndexNV := SDL_GL_GetProcAddress('glPrimitiveRestartIndexNV');
if not Assigned(glPrimitiveRestartIndexNV) then Exit;
Result := TRUE;
end;
end;
function Load_GL_NV_vertex_program2: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_vertex_program2', extstring) then
begin
Result := TRUE;
end;
end;
{$IFDEF WINDOWS}
function Load_WGL_NV_render_texture_rectangle: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
@wglGetExtensionsStringARB := SDL_GL_GetProcAddress('wglGetExtensionsStringARB');
if not Assigned(wglGetExtensionsStringARB) then Exit;
extstring := wglGetExtensionsStringARB(wglGetCurrentDC);
if glext_ExtensionSupported('WGL_NV_render_texture_rectangle', extstring) then
begin
Result := TRUE;
end;
end;
{$ENDIF}
function Load_GL_NV_pixel_data_range: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_pixel_data_range', extstring) then
begin
@glPixelDataRangeNV := SDL_GL_GetProcAddress('glPixelDataRangeNV');
if not Assigned(glPixelDataRangeNV) then Exit;
@glFlushPixelDataRangeNV := SDL_GL_GetProcAddress('glFlushPixelDataRangeNV');
if not Assigned(glFlushPixelDataRangeNV) then Exit;
{$IFDEF WINDOWS}
@wglAllocateMemoryNV := SDL_GL_GetProcAddress('wglAllocateMemoryNV');
if not Assigned(wglAllocateMemoryNV) then Exit;
@wglFreeMemoryNV := SDL_GL_GetProcAddress('wglFreeMemoryNV');
if not Assigned(wglFreeMemoryNV) then Exit;
{$ENDIF}
Result := TRUE;
end;
end;
function Load_GL_EXT_texture_rectangle: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_texture_rectangle', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_S3_s3tc: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_S3_s3tc', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_ATI_draw_buffers: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ATI_draw_buffers', extstring) then
begin
@glDrawBuffersATI := SDL_GL_GetProcAddress('glDrawBuffersATI');
if not Assigned(glDrawBuffersATI) then Exit;
Result := TRUE;
end;
end;
{$IFDEF WINDOWS}
function Load_WGL_ATI_pixel_format_float: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
@wglGetExtensionsStringARB := SDL_GL_GetProcAddress('wglGetExtensionsStringARB');
if not Assigned(wglGetExtensionsStringARB) then Exit;
extstring := wglGetExtensionsStringARB(wglGetCurrentDC);
if glext_ExtensionSupported('WGL_ATI_pixel_format_float', extstring) then
begin
Result := TRUE;
end;
end;
{$ENDIF}
function Load_GL_ATI_texture_env_combine3: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ATI_texture_env_combine3', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_ATI_texture_float: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ATI_texture_float', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_NV_texture_expand_normal: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_texture_expand_normal', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_NV_half_float: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_half_float', extstring) then
begin
@glVertex2hNV := SDL_GL_GetProcAddress('glVertex2hNV');
if not Assigned(glVertex2hNV) then Exit;
@glVertex2hvNV := SDL_GL_GetProcAddress('glVertex2hvNV');
if not Assigned(glVertex2hvNV) then Exit;
@glVertex3hNV := SDL_GL_GetProcAddress('glVertex3hNV');
if not Assigned(glVertex3hNV) then Exit;
@glVertex3hvNV := SDL_GL_GetProcAddress('glVertex3hvNV');
if not Assigned(glVertex3hvNV) then Exit;
@glVertex4hNV := SDL_GL_GetProcAddress('glVertex4hNV');
if not Assigned(glVertex4hNV) then Exit;
@glVertex4hvNV := SDL_GL_GetProcAddress('glVertex4hvNV');
if not Assigned(glVertex4hvNV) then Exit;
@glNormal3hNV := SDL_GL_GetProcAddress('glNormal3hNV');
if not Assigned(glNormal3hNV) then Exit;
@glNormal3hvNV := SDL_GL_GetProcAddress('glNormal3hvNV');
if not Assigned(glNormal3hvNV) then Exit;
@glColor3hNV := SDL_GL_GetProcAddress('glColor3hNV');
if not Assigned(glColor3hNV) then Exit;
@glColor3hvNV := SDL_GL_GetProcAddress('glColor3hvNV');
if not Assigned(glColor3hvNV) then Exit;
@glColor4hNV := SDL_GL_GetProcAddress('glColor4hNV');
if not Assigned(glColor4hNV) then Exit;
@glColor4hvNV := SDL_GL_GetProcAddress('glColor4hvNV');
if not Assigned(glColor4hvNV) then Exit;
@glTexCoord1hNV := SDL_GL_GetProcAddress('glTexCoord1hNV');
if not Assigned(glTexCoord1hNV) then Exit;
@glTexCoord1hvNV := SDL_GL_GetProcAddress('glTexCoord1hvNV');
if not Assigned(glTexCoord1hvNV) then Exit;
@glTexCoord2hNV := SDL_GL_GetProcAddress('glTexCoord2hNV');
if not Assigned(glTexCoord2hNV) then Exit;
@glTexCoord2hvNV := SDL_GL_GetProcAddress('glTexCoord2hvNV');
if not Assigned(glTexCoord2hvNV) then Exit;
@glTexCoord3hNV := SDL_GL_GetProcAddress('glTexCoord3hNV');
if not Assigned(glTexCoord3hNV) then Exit;
@glTexCoord3hvNV := SDL_GL_GetProcAddress('glTexCoord3hvNV');
if not Assigned(glTexCoord3hvNV) then Exit;
@glTexCoord4hNV := SDL_GL_GetProcAddress('glTexCoord4hNV');
if not Assigned(glTexCoord4hNV) then Exit;
@glTexCoord4hvNV := SDL_GL_GetProcAddress('glTexCoord4hvNV');
if not Assigned(glTexCoord4hvNV) then Exit;
@glMultiTexCoord1hNV := SDL_GL_GetProcAddress('glMultiTexCoord1hNV');
if not Assigned(glMultiTexCoord1hNV) then Exit;
@glMultiTexCoord1hvNV := SDL_GL_GetProcAddress('glMultiTexCoord1hvNV');
if not Assigned(glMultiTexCoord1hvNV) then Exit;
@glMultiTexCoord2hNV := SDL_GL_GetProcAddress('glMultiTexCoord2hNV');
if not Assigned(glMultiTexCoord2hNV) then Exit;
@glMultiTexCoord2hvNV := SDL_GL_GetProcAddress('glMultiTexCoord2hvNV');
if not Assigned(glMultiTexCoord2hvNV) then Exit;
@glMultiTexCoord3hNV := SDL_GL_GetProcAddress('glMultiTexCoord3hNV');
if not Assigned(glMultiTexCoord3hNV) then Exit;
@glMultiTexCoord3hvNV := SDL_GL_GetProcAddress('glMultiTexCoord3hvNV');
if not Assigned(glMultiTexCoord3hvNV) then Exit;
@glMultiTexCoord4hNV := SDL_GL_GetProcAddress('glMultiTexCoord4hNV');
if not Assigned(glMultiTexCoord4hNV) then Exit;
@glMultiTexCoord4hvNV := SDL_GL_GetProcAddress('glMultiTexCoord4hvNV');
if not Assigned(glMultiTexCoord4hvNV) then Exit;
@glFogCoordhNV := SDL_GL_GetProcAddress('glFogCoordhNV');
if not Assigned(glFogCoordhNV) then Exit;
@glFogCoordhvNV := SDL_GL_GetProcAddress('glFogCoordhvNV');
if not Assigned(glFogCoordhvNV) then Exit;
@glSecondaryColor3hNV := SDL_GL_GetProcAddress('glSecondaryColor3hNV');
if not Assigned(glSecondaryColor3hNV) then Exit;
@glSecondaryColor3hvNV := SDL_GL_GetProcAddress('glSecondaryColor3hvNV');
if not Assigned(glSecondaryColor3hvNV) then Exit;
@glVertexWeighthNV := SDL_GL_GetProcAddress('glVertexWeighthNV');
if not Assigned(glVertexWeighthNV) then Exit;
@glVertexWeighthvNV := SDL_GL_GetProcAddress('glVertexWeighthvNV');
if not Assigned(glVertexWeighthvNV) then Exit;
@glVertexAttrib1hNV := SDL_GL_GetProcAddress('glVertexAttrib1hNV');
if not Assigned(glVertexAttrib1hNV) then Exit;
@glVertexAttrib1hvNV := SDL_GL_GetProcAddress('glVertexAttrib1hvNV');
if not Assigned(glVertexAttrib1hvNV) then Exit;
@glVertexAttrib2hNV := SDL_GL_GetProcAddress('glVertexAttrib2hNV');
if not Assigned(glVertexAttrib2hNV) then Exit;
@glVertexAttrib2hvNV := SDL_GL_GetProcAddress('glVertexAttrib2hvNV');
if not Assigned(glVertexAttrib2hvNV) then Exit;
@glVertexAttrib3hNV := SDL_GL_GetProcAddress('glVertexAttrib3hNV');
if not Assigned(glVertexAttrib3hNV) then Exit;
@glVertexAttrib3hvNV := SDL_GL_GetProcAddress('glVertexAttrib3hvNV');
if not Assigned(glVertexAttrib3hvNV) then Exit;
@glVertexAttrib4hNV := SDL_GL_GetProcAddress('glVertexAttrib4hNV');
if not Assigned(glVertexAttrib4hNV) then Exit;
@glVertexAttrib4hvNV := SDL_GL_GetProcAddress('glVertexAttrib4hvNV');
if not Assigned(glVertexAttrib4hvNV) then Exit;
@glVertexAttribs1hvNV := SDL_GL_GetProcAddress('glVertexAttribs1hvNV');
if not Assigned(glVertexAttribs1hvNV) then Exit;
@glVertexAttribs2hvNV := SDL_GL_GetProcAddress('glVertexAttribs2hvNV');
if not Assigned(glVertexAttribs2hvNV) then Exit;
@glVertexAttribs3hvNV := SDL_GL_GetProcAddress('glVertexAttribs3hvNV');
if not Assigned(glVertexAttribs3hvNV) then Exit;
@glVertexAttribs4hvNV := SDL_GL_GetProcAddress('glVertexAttribs4hvNV');
if not Assigned(glVertexAttribs4hvNV) then Exit;
Result := TRUE;
end;
end;
function Load_GL_ATI_map_object_buffer: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ATI_map_object_buffer', extstring) then
begin
@glMapObjectBufferATI := SDL_GL_GetProcAddress('glMapObjectBufferATI');
if not Assigned(glMapObjectBufferATI) then Exit;
@glUnmapObjectBufferATI := SDL_GL_GetProcAddress('glUnmapObjectBufferATI');
if not Assigned(glUnmapObjectBufferATI) then Exit;
Result := TRUE;
end;
end;
function Load_GL_ATI_separate_stencil: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ATI_separate_stencil', extstring) then
begin
@glStencilOpSeparateATI := SDL_GL_GetProcAddress('glStencilOpSeparateATI');
if not Assigned(glStencilOpSeparateATI) then Exit;
@glStencilFuncSeparateATI := SDL_GL_GetProcAddress('glStencilFuncSeparateATI');
if not Assigned(glStencilFuncSeparateATI) then Exit;
Result := TRUE;
end;
end;
function Load_GL_ATI_vertex_attrib_array_object: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ATI_vertex_attrib_array_object', extstring) then
begin
@glVertexAttribArrayObjectATI := SDL_GL_GetProcAddress('glVertexAttribArrayObjectATI');
if not Assigned(glVertexAttribArrayObjectATI) then Exit;
@glGetVertexAttribArrayObjectfvATI := SDL_GL_GetProcAddress('glGetVertexAttribArrayObjectfvATI');
if not Assigned(glGetVertexAttribArrayObjectfvATI) then Exit;
@glGetVertexAttribArrayObjectivATI := SDL_GL_GetProcAddress('glGetVertexAttribArrayObjectivATI');
if not Assigned(glGetVertexAttribArrayObjectivATI) then Exit;
Result := TRUE;
end;
end;
function Load_GL_ARB_vertex_buffer_object: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_vertex_buffer_object', extstring) then
begin
@glBindBufferARB := SDL_GL_GetProcAddress('glBindBufferARB');
if not Assigned(glBindBufferARB) then Exit;
@glDeleteBuffersARB := SDL_GL_GetProcAddress('glDeleteBuffersARB');
if not Assigned(glDeleteBuffersARB) then Exit;
@glGenBuffersARB := SDL_GL_GetProcAddress('glGenBuffersARB');
if not Assigned(glGenBuffersARB) then Exit;
@glIsBufferARB := SDL_GL_GetProcAddress('glIsBufferARB');
if not Assigned(glIsBufferARB) then Exit;
@glBufferDataARB := SDL_GL_GetProcAddress('glBufferDataARB');
if not Assigned(glBufferDataARB) then Exit;
@glBufferSubDataARB := SDL_GL_GetProcAddress('glBufferSubDataARB');
if not Assigned(glBufferSubDataARB) then Exit;
@glGetBufferSubDataARB := SDL_GL_GetProcAddress('glGetBufferSubDataARB');
if not Assigned(glGetBufferSubDataARB) then Exit;
@glMapBufferARB := SDL_GL_GetProcAddress('glMapBufferARB');
if not Assigned(glMapBufferARB) then Exit;
@glUnmapBufferARB := SDL_GL_GetProcAddress('glUnmapBufferARB');
if not Assigned(glUnmapBufferARB) then Exit;
@glGetBufferParameterivARB := SDL_GL_GetProcAddress('glGetBufferParameterivARB');
if not Assigned(glGetBufferParameterivARB) then Exit;
@glGetBufferPointervARB := SDL_GL_GetProcAddress('glGetBufferPointervARB');
if not Assigned(glGetBufferPointervARB) then Exit;
Result := TRUE;
end;
end;
function Load_GL_ARB_occlusion_query: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_occlusion_query', extstring) then
begin
@glGenQueriesARB := SDL_GL_GetProcAddress('glGenQueriesARB');
if not Assigned(glGenQueriesARB) then Exit;
@glDeleteQueriesARB := SDL_GL_GetProcAddress('glDeleteQueriesARB');
if not Assigned(glDeleteQueriesARB) then Exit;
@glIsQueryARB := SDL_GL_GetProcAddress('glIsQueryARB');
if not Assigned(glIsQueryARB) then Exit;
@glBeginQueryARB := SDL_GL_GetProcAddress('glBeginQueryARB');
if not Assigned(glBeginQueryARB) then Exit;
@glEndQueryARB := SDL_GL_GetProcAddress('glEndQueryARB');
if not Assigned(glEndQueryARB) then Exit;
@glGetQueryivARB := SDL_GL_GetProcAddress('glGetQueryivARB');
if not Assigned(glGetQueryivARB) then Exit;
@glGetQueryObjectivARB := SDL_GL_GetProcAddress('glGetQueryObjectivARB');
if not Assigned(glGetQueryObjectivARB) then Exit;
@glGetQueryObjectuivARB := SDL_GL_GetProcAddress('glGetQueryObjectuivARB');
if not Assigned(glGetQueryObjectuivARB) then Exit;
Result := TRUE;
end;
end;
function Load_GL_ARB_shader_objects: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_shader_objects', extstring) then
begin
@glDeleteObjectARB := SDL_GL_GetProcAddress('glDeleteObjectARB');
if not Assigned(glDeleteObjectARB) then Exit;
@glGetHandleARB := SDL_GL_GetProcAddress('glGetHandleARB');
if not Assigned(glGetHandleARB) then Exit;
@glDetachObjectARB := SDL_GL_GetProcAddress('glDetachObjectARB');
if not Assigned(glDetachObjectARB) then Exit;
@glCreateShaderObjectARB := SDL_GL_GetProcAddress('glCreateShaderObjectARB');
if not Assigned(glCreateShaderObjectARB) then Exit;
@glShaderSourceARB := SDL_GL_GetProcAddress('glShaderSourceARB');
if not Assigned(glShaderSourceARB) then Exit;
@glCompileShaderARB := SDL_GL_GetProcAddress('glCompileShaderARB');
if not Assigned(glCompileShaderARB) then Exit;
@glCreateProgramObjectARB := SDL_GL_GetProcAddress('glCreateProgramObjectARB');
if not Assigned(glCreateProgramObjectARB) then Exit;
@glAttachObjectARB := SDL_GL_GetProcAddress('glAttachObjectARB');
if not Assigned(glAttachObjectARB) then Exit;
@glLinkProgramARB := SDL_GL_GetProcAddress('glLinkProgramARB');
if not Assigned(glLinkProgramARB) then Exit;
@glUseProgramObjectARB := SDL_GL_GetProcAddress('glUseProgramObjectARB');
if not Assigned(glUseProgramObjectARB) then Exit;
@glValidateProgramARB := SDL_GL_GetProcAddress('glValidateProgramARB');
if not Assigned(glValidateProgramARB) then Exit;
@glUniform1fARB := SDL_GL_GetProcAddress('glUniform1fARB');
if not Assigned(glUniform1fARB) then Exit;
@glUniform2fARB := SDL_GL_GetProcAddress('glUniform2fARB');
if not Assigned(glUniform2fARB) then Exit;
@glUniform3fARB := SDL_GL_GetProcAddress('glUniform3fARB');
if not Assigned(glUniform3fARB) then Exit;
@glUniform4fARB := SDL_GL_GetProcAddress('glUniform4fARB');
if not Assigned(glUniform4fARB) then Exit;
@glUniform1iARB := SDL_GL_GetProcAddress('glUniform1iARB');
if not Assigned(glUniform1iARB) then Exit;
@glUniform2iARB := SDL_GL_GetProcAddress('glUniform2iARB');
if not Assigned(glUniform2iARB) then Exit;
@glUniform3iARB := SDL_GL_GetProcAddress('glUniform3iARB');
if not Assigned(glUniform3iARB) then Exit;
@glUniform4iARB := SDL_GL_GetProcAddress('glUniform4iARB');
if not Assigned(glUniform4iARB) then Exit;
@glUniform1fvARB := SDL_GL_GetProcAddress('glUniform1fvARB');
if not Assigned(glUniform1fvARB) then Exit;
@glUniform2fvARB := SDL_GL_GetProcAddress('glUniform2fvARB');
if not Assigned(glUniform2fvARB) then Exit;
@glUniform3fvARB := SDL_GL_GetProcAddress('glUniform3fvARB');
if not Assigned(glUniform3fvARB) then Exit;
@glUniform4fvARB := SDL_GL_GetProcAddress('glUniform4fvARB');
if not Assigned(glUniform4fvARB) then Exit;
@glUniform1ivARB := SDL_GL_GetProcAddress('glUniform1ivARB');
if not Assigned(glUniform1ivARB) then Exit;
@glUniform2ivARB := SDL_GL_GetProcAddress('glUniform2ivARB');
if not Assigned(glUniform2ivARB) then Exit;
@glUniform3ivARB := SDL_GL_GetProcAddress('glUniform3ivARB');
if not Assigned(glUniform3ivARB) then Exit;
@glUniform4ivARB := SDL_GL_GetProcAddress('glUniform4ivARB');
if not Assigned(glUniform4ivARB) then Exit;
@glUniformMatrix2fvARB := SDL_GL_GetProcAddress('glUniformMatrix2fvARB');
if not Assigned(glUniformMatrix2fvARB) then Exit;
@glUniformMatrix3fvARB := SDL_GL_GetProcAddress('glUniformMatrix3fvARB');
if not Assigned(glUniformMatrix3fvARB) then Exit;
@glUniformMatrix4fvARB := SDL_GL_GetProcAddress('glUniformMatrix4fvARB');
if not Assigned(glUniformMatrix4fvARB) then Exit;
@glGetObjectParameterfvARB := SDL_GL_GetProcAddress('glGetObjectParameterfvARB');
if not Assigned(glGetObjectParameterfvARB) then Exit;
@glGetObjectParameterivARB := SDL_GL_GetProcAddress('glGetObjectParameterivARB');
if not Assigned(glGetObjectParameterivARB) then Exit;
@glGetInfoLogARB := SDL_GL_GetProcAddress('glGetInfoLogARB');
if not Assigned(glGetInfoLogARB) then Exit;
@glGetAttachedObjectsARB := SDL_GL_GetProcAddress('glGetAttachedObjectsARB');
if not Assigned(glGetAttachedObjectsARB) then Exit;
@glGetUniformLocationARB := SDL_GL_GetProcAddress('glGetUniformLocationARB');
if not Assigned(glGetUniformLocationARB) then Exit;
@glGetActiveUniformARB := SDL_GL_GetProcAddress('glGetActiveUniformARB');
if not Assigned(glGetActiveUniformARB) then Exit;
@glGetUniformfvARB := SDL_GL_GetProcAddress('glGetUniformfvARB');
if not Assigned(glGetUniformfvARB) then Exit;
@glGetUniformivARB := SDL_GL_GetProcAddress('glGetUniformivARB');
if not Assigned(glGetUniformivARB) then Exit;
@glGetShaderSourceARB := SDL_GL_GetProcAddress('glGetShaderSourceARB');
if not Assigned(glGetShaderSourceARB) then Exit;
Result := TRUE;
end;
end;
function Load_GL_ARB_vertex_shader: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_vertex_shader', extstring) then
begin
@glVertexAttrib1fARB := SDL_GL_GetProcAddress('glVertexAttrib1fARB');
if not Assigned(glVertexAttrib1fARB) then Exit;
@glVertexAttrib1sARB := SDL_GL_GetProcAddress('glVertexAttrib1sARB');
if not Assigned(glVertexAttrib1sARB) then Exit;
@glVertexAttrib1dARB := SDL_GL_GetProcAddress('glVertexAttrib1dARB');
if not Assigned(glVertexAttrib1dARB) then Exit;
@glVertexAttrib2fARB := SDL_GL_GetProcAddress('glVertexAttrib2fARB');
if not Assigned(glVertexAttrib2fARB) then Exit;
@glVertexAttrib2sARB := SDL_GL_GetProcAddress('glVertexAttrib2sARB');
if not Assigned(glVertexAttrib2sARB) then Exit;
@glVertexAttrib2dARB := SDL_GL_GetProcAddress('glVertexAttrib2dARB');
if not Assigned(glVertexAttrib2dARB) then Exit;
@glVertexAttrib3fARB := SDL_GL_GetProcAddress('glVertexAttrib3fARB');
if not Assigned(glVertexAttrib3fARB) then Exit;
@glVertexAttrib3sARB := SDL_GL_GetProcAddress('glVertexAttrib3sARB');
if not Assigned(glVertexAttrib3sARB) then Exit;
@glVertexAttrib3dARB := SDL_GL_GetProcAddress('glVertexAttrib3dARB');
if not Assigned(glVertexAttrib3dARB) then Exit;
@glVertexAttrib4fARB := SDL_GL_GetProcAddress('glVertexAttrib4fARB');
if not Assigned(glVertexAttrib4fARB) then Exit;
@glVertexAttrib4sARB := SDL_GL_GetProcAddress('glVertexAttrib4sARB');
if not Assigned(glVertexAttrib4sARB) then Exit;
@glVertexAttrib4dARB := SDL_GL_GetProcAddress('glVertexAttrib4dARB');
if not Assigned(glVertexAttrib4dARB) then Exit;
@glVertexAttrib4NubARB := SDL_GL_GetProcAddress('glVertexAttrib4NubARB');
if not Assigned(glVertexAttrib4NubARB) then Exit;
@glVertexAttrib1fvARB := SDL_GL_GetProcAddress('glVertexAttrib1fvARB');
if not Assigned(glVertexAttrib1fvARB) then Exit;
@glVertexAttrib1svARB := SDL_GL_GetProcAddress('glVertexAttrib1svARB');
if not Assigned(glVertexAttrib1svARB) then Exit;
@glVertexAttrib1dvARB := SDL_GL_GetProcAddress('glVertexAttrib1dvARB');
if not Assigned(glVertexAttrib1dvARB) then Exit;
@glVertexAttrib2fvARB := SDL_GL_GetProcAddress('glVertexAttrib2fvARB');
if not Assigned(glVertexAttrib2fvARB) then Exit;
@glVertexAttrib2svARB := SDL_GL_GetProcAddress('glVertexAttrib2svARB');
if not Assigned(glVertexAttrib2svARB) then Exit;
@glVertexAttrib2dvARB := SDL_GL_GetProcAddress('glVertexAttrib2dvARB');
if not Assigned(glVertexAttrib2dvARB) then Exit;
@glVertexAttrib3fvARB := SDL_GL_GetProcAddress('glVertexAttrib3fvARB');
if not Assigned(glVertexAttrib3fvARB) then Exit;
@glVertexAttrib3svARB := SDL_GL_GetProcAddress('glVertexAttrib3svARB');
if not Assigned(glVertexAttrib3svARB) then Exit;
@glVertexAttrib3dvARB := SDL_GL_GetProcAddress('glVertexAttrib3dvARB');
if not Assigned(glVertexAttrib3dvARB) then Exit;
@glVertexAttrib4fvARB := SDL_GL_GetProcAddress('glVertexAttrib4fvARB');
if not Assigned(glVertexAttrib4fvARB) then Exit;
@glVertexAttrib4svARB := SDL_GL_GetProcAddress('glVertexAttrib4svARB');
if not Assigned(glVertexAttrib4svARB) then Exit;
@glVertexAttrib4dvARB := SDL_GL_GetProcAddress('glVertexAttrib4dvARB');
if not Assigned(glVertexAttrib4dvARB) then Exit;
@glVertexAttrib4ivARB := SDL_GL_GetProcAddress('glVertexAttrib4ivARB');
if not Assigned(glVertexAttrib4ivARB) then Exit;
@glVertexAttrib4bvARB := SDL_GL_GetProcAddress('glVertexAttrib4bvARB');
if not Assigned(glVertexAttrib4bvARB) then Exit;
@glVertexAttrib4ubvARB := SDL_GL_GetProcAddress('glVertexAttrib4ubvARB');
if not Assigned(glVertexAttrib4ubvARB) then Exit;
@glVertexAttrib4usvARB := SDL_GL_GetProcAddress('glVertexAttrib4usvARB');
if not Assigned(glVertexAttrib4usvARB) then Exit;
@glVertexAttrib4uivARB := SDL_GL_GetProcAddress('glVertexAttrib4uivARB');
if not Assigned(glVertexAttrib4uivARB) then Exit;
@glVertexAttrib4NbvARB := SDL_GL_GetProcAddress('glVertexAttrib4NbvARB');
if not Assigned(glVertexAttrib4NbvARB) then Exit;
@glVertexAttrib4NsvARB := SDL_GL_GetProcAddress('glVertexAttrib4NsvARB');
if not Assigned(glVertexAttrib4NsvARB) then Exit;
@glVertexAttrib4NivARB := SDL_GL_GetProcAddress('glVertexAttrib4NivARB');
if not Assigned(glVertexAttrib4NivARB) then Exit;
@glVertexAttrib4NubvARB := SDL_GL_GetProcAddress('glVertexAttrib4NubvARB');
if not Assigned(glVertexAttrib4NubvARB) then Exit;
@glVertexAttrib4NusvARB := SDL_GL_GetProcAddress('glVertexAttrib4NusvARB');
if not Assigned(glVertexAttrib4NusvARB) then Exit;
@glVertexAttrib4NuivARB := SDL_GL_GetProcAddress('glVertexAttrib4NuivARB');
if not Assigned(glVertexAttrib4NuivARB) then Exit;
@glVertexAttribPointerARB := SDL_GL_GetProcAddress('glVertexAttribPointerARB');
if not Assigned(glVertexAttribPointerARB) then Exit;
@glEnableVertexAttribArrayARB := SDL_GL_GetProcAddress('glEnableVertexAttribArrayARB');
if not Assigned(glEnableVertexAttribArrayARB) then Exit;
@glDisableVertexAttribArrayARB := SDL_GL_GetProcAddress('glDisableVertexAttribArrayARB');
if not Assigned(glDisableVertexAttribArrayARB) then Exit;
@glBindAttribLocationARB := SDL_GL_GetProcAddress('glBindAttribLocationARB');
if not Assigned(glBindAttribLocationARB) then Exit;
@glGetActiveAttribARB := SDL_GL_GetProcAddress('glGetActiveAttribARB');
if not Assigned(glGetActiveAttribARB) then Exit;
@glGetAttribLocationARB := SDL_GL_GetProcAddress('glGetAttribLocationARB');
if not Assigned(glGetAttribLocationARB) then Exit;
@glGetVertexAttribdvARB := SDL_GL_GetProcAddress('glGetVertexAttribdvARB');
if not Assigned(glGetVertexAttribdvARB) then Exit;
@glGetVertexAttribfvARB := SDL_GL_GetProcAddress('glGetVertexAttribfvARB');
if not Assigned(glGetVertexAttribfvARB) then Exit;
@glGetVertexAttribivARB := SDL_GL_GetProcAddress('glGetVertexAttribivARB');
if not Assigned(glGetVertexAttribivARB) then Exit;
@glGetVertexAttribPointervARB := SDL_GL_GetProcAddress('glGetVertexAttribPointervARB');
if not Assigned(glGetVertexAttribPointervARB) then Exit;
Result := TRUE;
end;
end;
function Load_GL_ARB_fragment_shader: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_fragment_shader', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_ARB_shading_language_100: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_shading_language_100', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_ARB_texture_non_power_of_two: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_texture_non_power_of_two', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_ARB_point_sprite: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_point_sprite', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_EXT_depth_bounds_test: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_depth_bounds_test', extstring) then
begin
@glDepthBoundsEXT := SDL_GL_GetProcAddress('glDepthBoundsEXT');
if not Assigned(glDepthBoundsEXT) then Exit;
Result := TRUE;
end;
end;
function Load_GL_EXT_secondary_color: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_secondary_color', extstring) then
begin
@glSecondaryColor3bEXT := SDL_GL_GetProcAddress('glSecondaryColor3bEXT');
if not Assigned(glSecondaryColor3bEXT) then Exit;
@glSecondaryColor3sEXT := SDL_GL_GetProcAddress('glSecondaryColor3sEXT');
if not Assigned(glSecondaryColor3sEXT) then Exit;
@glSecondaryColor3iEXT := SDL_GL_GetProcAddress('glSecondaryColor3iEXT');
if not Assigned(glSecondaryColor3iEXT) then Exit;
@glSecondaryColor3fEXT := SDL_GL_GetProcAddress('glSecondaryColor3fEXT');
if not Assigned(glSecondaryColor3fEXT) then Exit;
@glSecondaryColor3dEXT := SDL_GL_GetProcAddress('glSecondaryColor3dEXT');
if not Assigned(glSecondaryColor3dEXT) then Exit;
@glSecondaryColor3ubEXT := SDL_GL_GetProcAddress('glSecondaryColor3ubEXT');
if not Assigned(glSecondaryColor3ubEXT) then Exit;
@glSecondaryColor3usEXT := SDL_GL_GetProcAddress('glSecondaryColor3usEXT');
if not Assigned(glSecondaryColor3usEXT) then Exit;
@glSecondaryColor3uiEXT := SDL_GL_GetProcAddress('glSecondaryColor3uiEXT');
if not Assigned(glSecondaryColor3uiEXT) then Exit;
@glSecondaryColor3bvEXT := SDL_GL_GetProcAddress('glSecondaryColor3bvEXT');
if not Assigned(glSecondaryColor3bvEXT) then Exit;
@glSecondaryColor3svEXT := SDL_GL_GetProcAddress('glSecondaryColor3svEXT');
if not Assigned(glSecondaryColor3svEXT) then Exit;
@glSecondaryColor3ivEXT := SDL_GL_GetProcAddress('glSecondaryColor3ivEXT');
if not Assigned(glSecondaryColor3ivEXT) then Exit;
@glSecondaryColor3fvEXT := SDL_GL_GetProcAddress('glSecondaryColor3fvEXT');
if not Assigned(glSecondaryColor3fvEXT) then Exit;
@glSecondaryColor3dvEXT := SDL_GL_GetProcAddress('glSecondaryColor3dvEXT');
if not Assigned(glSecondaryColor3dvEXT) then Exit;
@glSecondaryColor3ubvEXT := SDL_GL_GetProcAddress('glSecondaryColor3ubvEXT');
if not Assigned(glSecondaryColor3ubvEXT) then Exit;
@glSecondaryColor3usvEXT := SDL_GL_GetProcAddress('glSecondaryColor3usvEXT');
if not Assigned(glSecondaryColor3usvEXT) then Exit;
@glSecondaryColor3uivEXT := SDL_GL_GetProcAddress('glSecondaryColor3uivEXT');
if not Assigned(glSecondaryColor3uivEXT) then Exit;
@glSecondaryColorPointerEXT := SDL_GL_GetProcAddress('glSecondaryColorPointerEXT');
if not Assigned(glSecondaryColorPointerEXT) then Exit;
Result := TRUE;
end;
end;
function Load_GL_EXT_texture_mirror_clamp: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_texture_mirror_clamp', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_EXT_blend_equation_separate: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_blend_equation_separate', extstring) then
begin
@glBlendEquationSeparateEXT := SDL_GL_GetProcAddress('glBlendEquationSeparateEXT');
if not Assigned(glBlendEquationSeparateEXT) then Exit;
Result := TRUE;
end;
end;
function Load_GL_MESA_pack_invert: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_MESA_pack_invert', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_MESA_ycbcr_texture: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_MESA_ycbcr_texture', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_ARB_fragment_program_shadow: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_ARB_fragment_program_shadow', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_EXT_fog_coord: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_fog_coord', extstring) then
begin
@glFogCoordfEXT := SDL_GL_GetProcAddress('glFogCoordfEXT');
if not Assigned(glFogCoordfEXT) then Exit;
@glFogCoorddEXT := SDL_GL_GetProcAddress('glFogCoorddEXT');
if not Assigned(glFogCoorddEXT) then Exit;
@glFogCoordfvEXT := SDL_GL_GetProcAddress('glFogCoordfvEXT');
if not Assigned(glFogCoordfvEXT) then Exit;
@glFogCoorddvEXT := SDL_GL_GetProcAddress('glFogCoorddvEXT');
if not Assigned(glFogCoorddvEXT) then Exit;
@glFogCoordPointerEXT := SDL_GL_GetProcAddress('glFogCoordPointerEXT');
if not Assigned(glFogCoordPointerEXT) then Exit;
Result := TRUE;
end;
end;
function Load_GL_NV_fragment_program_option: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_fragment_program_option', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_EXT_pixel_buffer_object: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_EXT_pixel_buffer_object', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_NV_fragment_program2: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_fragment_program2', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_NV_vertex_program2_option: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_vertex_program2_option', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_NV_vertex_program3: Boolean;
var
extstring : PChar;
begin
Result := FALSE;
extstring := glGetString( GL_EXTENSIONS );
if glext_ExtensionSupported('GL_NV_vertex_program3', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_ARB_draw_buffers: Boolean;
var
extstring: PChar;
begin
Result := FALSE;
extstring := glGetString(GL_EXTENSIONS);
if glext_ExtensionSupported('GL_ARB_draw_buffers', extstring) then
begin
glDrawBuffersARB := SDL_GL_GetProcAddress('glDrawBuffersARB');
if not Assigned(glDrawBuffersARB) then Exit;
Result := TRUE;
end;
end;
function Load_GL_ARB_texture_rectangle: Boolean;
var
extstring: PChar;
begin
Result := FALSE;
extstring := glGetString(GL_EXTENSIONS);
if glext_ExtensionSupported('GL_ARB_texture_rectangle', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_ARB_color_buffer_float: Boolean;
var
extstring: PChar;
begin
Result := FALSE;
extstring := glGetString(GL_EXTENSIONS);
if glext_ExtensionSupported('GL_ARB_color_buffer_float', extstring) then
begin
glClampColorARB := SDL_GL_GetProcAddress('glClampColorARB');
if not Assigned(glClampColorARB) then Exit;
Result := TRUE;
end;
end;
function Load_GL_ARB_half_float_pixel: Boolean;
var
extstring: PChar;
begin
Result := FALSE;
extstring := glGetString(GL_EXTENSIONS);
if glext_ExtensionSupported('GL_ARB_half_float_pixel', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_ARB_texture_float: Boolean;
var
extstring: PChar;
begin
Result := FALSE;
extstring := glGetString(GL_EXTENSIONS);
if glext_ExtensionSupported('GL_ARB_texture_float', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_EXT_texture_compression_dxt1: Boolean;
var
extstring: PChar;
begin
Result := FALSE;
extstring := glGetString(GL_EXTENSIONS);
if glext_ExtensionSupported('GL_EXT_texture_compression_dxt1', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_ARB_pixel_buffer_object: Boolean;
var
extstring: PChar;
begin
Result := FALSE;
extstring := glGetString(GL_EXTENSIONS);
if glext_ExtensionSupported('GL_ARB_pixel_buffer_object', extstring) then
begin
Result := TRUE;
end;
end;
function Load_GL_EXT_framebuffer_object: Boolean;
var
extstring: PChar;
begin
Result := FALSE;
extstring := glGetString(GL_EXTENSIONS);
if glext_ExtensionSupported('GL_EXT_framebuffer_object', extstring) then
begin
glIsRenderbufferEXT := SDL_GL_GetProcAddress('glIsRenderbufferEXT');
if not Assigned(glIsRenderbufferEXT) then Exit;
glBindRenderbufferEXT := SDL_GL_GetProcAddress('glBindRenderbufferEXT');
if not Assigned(glBindRenderbufferEXT) then Exit;
glDeleteRenderbuffersEXT := SDL_GL_GetProcAddress('glDeleteRenderbuffersEXT');
if not Assigned(glDeleteRenderbuffersEXT) then Exit;
glGenRenderbuffersEXT := SDL_GL_GetProcAddress('glGenRenderbuffersEXT');
if not Assigned(glGenRenderbuffersEXT) then Exit;
glRenderbufferStorageEXT := SDL_GL_GetProcAddress('glRenderbufferStorageEXT');
if not Assigned(glRenderbufferStorageEXT) then Exit;
glGetRenderbufferParameterivEXT := SDL_GL_GetProcAddress('glGetRenderbufferParameterivEXT');
if not Assigned(glGetRenderbufferParameterivEXT) then Exit;
glIsFramebufferEXT := SDL_GL_GetProcAddress('glIsFramebufferEXT');
if not Assigned(glIsFramebufferEXT) then Exit;
glBindFramebufferEXT := SDL_GL_GetProcAddress('glBindFramebufferEXT');
if not Assigned(glBindFramebufferEXT) then Exit;
glDeleteFramebuffersEXT := SDL_GL_GetProcAddress('glDeleteFramebuffersEXT');
if not Assigned(glDeleteFramebuffersEXT) then Exit;
glGenFramebuffersEXT := SDL_GL_GetProcAddress('glGenFramebuffersEXT');
if not Assigned(glGenFramebuffersEXT) then Exit;
glCheckFramebufferStatusEXT := SDL_GL_GetProcAddress('glCheckFramebufferStatusEXT');
if not Assigned(glCheckFramebufferStatusEXT) then Exit;
glFramebufferTexture1DEXT := SDL_GL_GetProcAddress('glFramebufferTexture1DEXT');
if not Assigned(glFramebufferTexture1DEXT) then Exit;
glFramebufferTexture2DEXT := SDL_GL_GetProcAddress('glFramebufferTexture2DEXT');
if not Assigned(glFramebufferTexture2DEXT) then Exit;
glFramebufferTexture3DEXT := SDL_GL_GetProcAddress('glFramebufferTexture3DEXT');
if not Assigned(glFramebufferTexture3DEXT) then Exit;
glFramebufferRenderbufferEXT := SDL_GL_GetProcAddress('glFramebufferRenderbufferEXT');
if not Assigned(glFramebufferRenderbufferEXT) then Exit;
glGetFramebufferAttachmentParameterivEXT := SDL_GL_GetProcAddress('glGetFramebufferAttachmentParameterivEXT');
if not Assigned(glGetFramebufferAttachmentParameterivEXT) then Exit;
glGenerateMipmapEXT := SDL_GL_GetProcAddress('glGenerateMipmapEXT');
if not Assigned(glGenerateMipmapEXT) then Exit;
Result := TRUE;
end;
end;
function Load_GL_version_1_4: Boolean;
var
extstring: String;
begin
Result := FALSE;
extstring := String(PChar(glGetString(GL_EXTENSIONS)));
glBlendFuncSeparate := SDL_GL_GetProcAddress('glBlendFuncSeparate');
if not Assigned(glBlendFuncSeparate) then Exit;
glFogCoordf := SDL_GL_GetProcAddress('glFogCoordf');
if not Assigned(glFogCoordf) then Exit;
glFogCoordfv := SDL_GL_GetProcAddress('glFogCoordfv');
if not Assigned(glFogCoordfv) then Exit;
glFogCoordd := SDL_GL_GetProcAddress('glFogCoordd');
if not Assigned(glFogCoordd) then Exit;
glFogCoorddv := SDL_GL_GetProcAddress('glFogCoorddv');
if not Assigned(glFogCoorddv) then Exit;
glFogCoordPointer := SDL_GL_GetProcAddress('glFogCoordPointer');
if not Assigned(glFogCoordPointer) then Exit;
glMultiDrawArrays := SDL_GL_GetProcAddress('glMultiDrawArrays');
if not Assigned(glMultiDrawArrays) then Exit;
glMultiDrawElements := SDL_GL_GetProcAddress('glMultiDrawElements');
if not Assigned(glMultiDrawElements) then Exit;
glPointParameterf := SDL_GL_GetProcAddress('glPointParameterf');
if not Assigned(glPointParameterf) then Exit;
glPointParameterfv := SDL_GL_GetProcAddress('glPointParameterfv');
if not Assigned(glPointParameterfv) then Exit;
glPointParameteri := SDL_GL_GetProcAddress('glPointParameteri');
if not Assigned(glPointParameteri) then Exit;
glPointParameteriv := SDL_GL_GetProcAddress('glPointParameteriv');
if not Assigned(glPointParameteriv) then Exit;
glSecondaryColor3b := SDL_GL_GetProcAddress('glSecondaryColor3b');
if not Assigned(glSecondaryColor3b) then Exit;
glSecondaryColor3bv := SDL_GL_GetProcAddress('glSecondaryColor3bv');
if not Assigned(glSecondaryColor3bv) then Exit;
glSecondaryColor3d := SDL_GL_GetProcAddress('glSecondaryColor3d');
if not Assigned(glSecondaryColor3d) then Exit;
glSecondaryColor3dv := SDL_GL_GetProcAddress('glSecondaryColor3dv');
if not Assigned(glSecondaryColor3dv) then Exit;
glSecondaryColor3f := SDL_GL_GetProcAddress('glSecondaryColor3f');
if not Assigned(glSecondaryColor3f) then Exit;
glSecondaryColor3fv := SDL_GL_GetProcAddress('glSecondaryColor3fv');
if not Assigned(glSecondaryColor3fv) then Exit;
glSecondaryColor3i := SDL_GL_GetProcAddress('glSecondaryColor3i');
if not Assigned(glSecondaryColor3i) then Exit;
glSecondaryColor3iv := SDL_GL_GetProcAddress('glSecondaryColor3iv');
if not Assigned(glSecondaryColor3iv) then Exit;
glSecondaryColor3s := SDL_GL_GetProcAddress('glSecondaryColor3s');
if not Assigned(glSecondaryColor3s) then Exit;
glSecondaryColor3sv := SDL_GL_GetProcAddress('glSecondaryColor3sv');
if not Assigned(glSecondaryColor3sv) then Exit;
glSecondaryColor3ub := SDL_GL_GetProcAddress('glSecondaryColor3ub');
if not Assigned(glSecondaryColor3ub) then Exit;
glSecondaryColor3ubv := SDL_GL_GetProcAddress('glSecondaryColor3ubv');
if not Assigned(glSecondaryColor3ubv) then Exit;
glSecondaryColor3ui := SDL_GL_GetProcAddress('glSecondaryColor3ui');
if not Assigned(glSecondaryColor3ui) then Exit;
glSecondaryColor3uiv := SDL_GL_GetProcAddress('glSecondaryColor3uiv');
if not Assigned(glSecondaryColor3uiv) then Exit;
glSecondaryColor3us := SDL_GL_GetProcAddress('glSecondaryColor3us');
if not Assigned(glSecondaryColor3us) then Exit;
glSecondaryColor3usv := SDL_GL_GetProcAddress('glSecondaryColor3usv');
if not Assigned(glSecondaryColor3usv) then Exit;
glSecondaryColorPointer := SDL_GL_GetProcAddress('glSecondaryColorPointer');
if not Assigned(glSecondaryColorPointer) then Exit;
glWindowPos2d := SDL_GL_GetProcAddress('glWindowPos2d');
if not Assigned(glWindowPos2d) then Exit;
glWindowPos2dv := SDL_GL_GetProcAddress('glWindowPos2dv');
if not Assigned(glWindowPos2dv) then Exit;
glWindowPos2f := SDL_GL_GetProcAddress('glWindowPos2f');
if not Assigned(glWindowPos2f) then Exit;
glWindowPos2fv := SDL_GL_GetProcAddress('glWindowPos2fv');
if not Assigned(glWindowPos2fv) then Exit;
glWindowPos2i := SDL_GL_GetProcAddress('glWindowPos2i');
if not Assigned(glWindowPos2i) then Exit;
glWindowPos2iv := SDL_GL_GetProcAddress('glWindowPos2iv');
if not Assigned(glWindowPos2iv) then Exit;
glWindowPos2s := SDL_GL_GetProcAddress('glWindowPos2s');
if not Assigned(glWindowPos2s) then Exit;
glWindowPos2sv := SDL_GL_GetProcAddress('glWindowPos2sv');
if not Assigned(glWindowPos2sv) then Exit;
glWindowPos3d := SDL_GL_GetProcAddress('glWindowPos3d');
if not Assigned(glWindowPos3d) then Exit;
glWindowPos3dv := SDL_GL_GetProcAddress('glWindowPos3dv');
if not Assigned(glWindowPos3dv) then Exit;
glWindowPos3f := SDL_GL_GetProcAddress('glWindowPos3f');
if not Assigned(glWindowPos3f) then Exit;
glWindowPos3fv := SDL_GL_GetProcAddress('glWindowPos3fv');
if not Assigned(glWindowPos3fv) then Exit;
glWindowPos3i := SDL_GL_GetProcAddress('glWindowPos3i');
if not Assigned(glWindowPos3i) then Exit;
glWindowPos3iv := SDL_GL_GetProcAddress('glWindowPos3iv');
if not Assigned(glWindowPos3iv) then Exit;
glWindowPos3s := SDL_GL_GetProcAddress('glWindowPos3s');
if not Assigned(glWindowPos3s) then Exit;
glWindowPos3sv := SDL_GL_GetProcAddress('glWindowPos3sv');
if not Assigned(glWindowPos3sv) then Exit;
Result := TRUE;
end;
function Load_GL_version_1_5: Boolean;
var
extstring: String;
begin
Result := FALSE;
extstring := String(PChar(glGetString(GL_EXTENSIONS)));
glGenQueries := SDL_GL_GetProcAddress('glGenQueries');
if not Assigned(glGenQueries) then Exit;
glDeleteQueries := SDL_GL_GetProcAddress('glDeleteQueries');
if not Assigned(glDeleteQueries) then Exit;
glIsQuery := SDL_GL_GetProcAddress('glIsQuery');
if not Assigned(glIsQuery) then Exit;
glBeginQuery := SDL_GL_GetProcAddress('glBeginQuery');
if not Assigned(glBeginQuery) then Exit;
glEndQuery := SDL_GL_GetProcAddress('glEndQuery');
if not Assigned(glEndQuery) then Exit;
glGetQueryiv := SDL_GL_GetProcAddress('glGetQueryiv');
if not Assigned(glGetQueryiv) then Exit;
glGetQueryObjectiv := SDL_GL_GetProcAddress('glGetQueryObjectiv');
if not Assigned(glGetQueryObjectiv) then Exit;
glGetQueryObjectuiv := SDL_GL_GetProcAddress('glGetQueryObjectuiv');
if not Assigned(glGetQueryObjectuiv) then Exit;
glBindBuffer := SDL_GL_GetProcAddress('glBindBuffer');
if not Assigned(glBindBuffer) then Exit;
glDeleteBuffers := SDL_GL_GetProcAddress('glDeleteBuffers');
if not Assigned(glDeleteBuffers) then Exit;
glGenBuffers := SDL_GL_GetProcAddress('glGenBuffers');
if not Assigned(glGenBuffers) then Exit;
glIsBuffer := SDL_GL_GetProcAddress('glIsBuffer');
if not Assigned(glIsBuffer) then Exit;
glBufferData := SDL_GL_GetProcAddress('glBufferData');
if not Assigned(glBufferData) then Exit;
glBufferSubData := SDL_GL_GetProcAddress('glBufferSubData');
if not Assigned(glBufferSubData) then Exit;
glGetBufferSubData := SDL_GL_GetProcAddress('glGetBufferSubData');
if not Assigned(glGetBufferSubData) then Exit;
glMapBuffer := SDL_GL_GetProcAddress('glMapBuffer');
if not Assigned(glMapBuffer) then Exit;
glUnmapBuffer := SDL_GL_GetProcAddress('glUnmapBuffer');
if not Assigned(glUnmapBuffer) then Exit;
glGetBufferParameteriv := SDL_GL_GetProcAddress('glGetBufferParameteriv');
if not Assigned(glGetBufferParameteriv) then Exit;
glGetBufferPointerv := SDL_GL_GetProcAddress('glGetBufferPointerv');
if not Assigned(glGetBufferPointerv) then Exit;
Result := TRUE;
end;
function Load_GL_version_2_0: Boolean;
var
extstring: String;
begin
Result := FALSE;
extstring := String(PChar(glGetString(GL_EXTENSIONS)));
glBlendEquationSeparate := SDL_GL_GetProcAddress('glBlendEquationSeparate');
if not Assigned(glBlendEquationSeparate) then Exit;
glDrawBuffers := SDL_GL_GetProcAddress('glDrawBuffers');
if not Assigned(glDrawBuffers) then Exit;
glStencilOpSeparate := SDL_GL_GetProcAddress('glStencilOpSeparate');
if not Assigned(glStencilOpSeparate) then Exit;
glStencilFuncSeparate := SDL_GL_GetProcAddress('glStencilFuncSeparate');
if not Assigned(glStencilFuncSeparate) then Exit;
glStencilMaskSeparate := SDL_GL_GetProcAddress('glStencilMaskSeparate');
if not Assigned(glStencilMaskSeparate) then Exit;
glAttachShader := SDL_GL_GetProcAddress('glAttachShader');
if not Assigned(glAttachShader) then Exit;
glBindAttribLocation := SDL_GL_GetProcAddress('glBindAttribLocation');
if not Assigned(glBindAttribLocation) then Exit;
glCompileShader := SDL_GL_GetProcAddress('glCompileShader');
if not Assigned(glCompileShader) then Exit;
glCreateProgram := SDL_GL_GetProcAddress('glCreateProgram');
if not Assigned(glCreateProgram) then Exit;
glCreateShader := SDL_GL_GetProcAddress('glCreateShader');
if not Assigned(glCreateShader) then Exit;
glDeleteProgram := SDL_GL_GetProcAddress('glDeleteProgram');
if not Assigned(glDeleteProgram) then Exit;
glDeleteShader := SDL_GL_GetProcAddress('glDeleteShader');
if not Assigned(glDeleteShader) then Exit;
glDetachShader := SDL_GL_GetProcAddress('glDetachShader');
if not Assigned(glDetachShader) then Exit;
glDisableVertexAttribArray := SDL_GL_GetProcAddress('glDisableVertexAttribArray');
if not Assigned(glDisableVertexAttribArray) then Exit;
glEnableVertexAttribArray := SDL_GL_GetProcAddress('glEnableVertexAttribArray');
if not Assigned(glEnableVertexAttribArray) then Exit;
glGetActiveAttrib := SDL_GL_GetProcAddress('glGetActiveAttrib');
if not Assigned(glGetActiveAttrib) then Exit;
glGetActiveUniform := SDL_GL_GetProcAddress('glGetActiveUniform');
if not Assigned(glGetActiveUniform) then Exit;
glGetAttachedShaders := SDL_GL_GetProcAddress('glGetAttachedShaders');
if not Assigned(glGetAttachedShaders) then Exit;
glGetAttribLocation := SDL_GL_GetProcAddress('glGetAttribLocation');
if not Assigned(glGetAttribLocation) then Exit;
glGetProgramiv := SDL_GL_GetProcAddress('glGetProgramiv');
if not Assigned(glGetProgramiv) then Exit;
glGetProgramInfoLog := SDL_GL_GetProcAddress('glGetProgramInfoLog');
if not Assigned(glGetProgramInfoLog) then Exit;
glGetShaderiv := SDL_GL_GetProcAddress('glGetShaderiv');
if not Assigned(glGetShaderiv) then Exit;
glGetShaderInfoLog := SDL_GL_GetProcAddress('glGetShaderInfoLog');
if not Assigned(glGetShaderInfoLog) then Exit;
glGetShaderSource := SDL_GL_GetProcAddress('glGetShaderSource');
if not Assigned(glGetShaderSource) then Exit;
glGetUniformLocation := SDL_GL_GetProcAddress('glGetUniformLocation');
if not Assigned(glGetUniformLocation) then Exit;
glGetUniformfv := SDL_GL_GetProcAddress('glGetUniformfv');
if not Assigned(glGetUniformfv) then Exit;
glGetUniformiv := SDL_GL_GetProcAddress('glGetUniformiv');
if not Assigned(glGetUniformiv) then Exit;
glGetVertexAttribdv := SDL_GL_GetProcAddress('glGetVertexAttribdv');
if not Assigned(glGetVertexAttribdv) then Exit;
glGetVertexAttribfv := SDL_GL_GetProcAddress('glGetVertexAttribfv');
if not Assigned(glGetVertexAttribfv) then Exit;
glGetVertexAttribiv := SDL_GL_GetProcAddress('glGetVertexAttribiv');
if not Assigned(glGetVertexAttribiv) then Exit;
glGetVertexAttribPointerv := SDL_GL_GetProcAddress('glGetVertexAttribPointerv');
if not Assigned(glGetVertexAttribPointerv) then Exit;
glIsProgram := SDL_GL_GetProcAddress('glIsProgram');
if not Assigned(glIsProgram) then Exit;
glIsShader := SDL_GL_GetProcAddress('glIsShader');
if not Assigned(glIsShader) then Exit;
glLinkProgram := SDL_GL_GetProcAddress('glLinkProgram');
if not Assigned(glLinkProgram) then Exit;
glShaderSource := SDL_GL_GetProcAddress('glShaderSource');
if not Assigned(glShaderSource) then Exit;
glUseProgram := SDL_GL_GetProcAddress('glUseProgram');
if not Assigned(glUseProgram) then Exit;
glUniform1f := SDL_GL_GetProcAddress('glUniform1f');
if not Assigned(glUniform1f) then Exit;
glUniform2f := SDL_GL_GetProcAddress('glUniform2f');
if not Assigned(glUniform2f) then Exit;
glUniform3f := SDL_GL_GetProcAddress('glUniform3f');
if not Assigned(glUniform3f) then Exit;
glUniform4f := SDL_GL_GetProcAddress('glUniform4f');
if not Assigned(glUniform4f) then Exit;
glUniform1i := SDL_GL_GetProcAddress('glUniform1i');
if not Assigned(glUniform1i) then Exit;
glUniform2i := SDL_GL_GetProcAddress('glUniform2i');
if not Assigned(glUniform2i) then Exit;
glUniform3i := SDL_GL_GetProcAddress('glUniform3i');
if not Assigned(glUniform3i) then Exit;
glUniform4i := SDL_GL_GetProcAddress('glUniform4i');
if not Assigned(glUniform4i) then Exit;
glUniform1fv := SDL_GL_GetProcAddress('glUniform1fv');
if not Assigned(glUniform1fv) then Exit;
glUniform2fv := SDL_GL_GetProcAddress('glUniform2fv');
if not Assigned(glUniform2fv) then Exit;
glUniform3fv := SDL_GL_GetProcAddress('glUniform3fv');
if not Assigned(glUniform3fv) then Exit;
glUniform4fv := SDL_GL_GetProcAddress('glUniform4fv');
if not Assigned(glUniform4fv) then Exit;
glUniform1iv := SDL_GL_GetProcAddress('glUniform1iv');
if not Assigned(glUniform1iv) then Exit;
glUniform2iv := SDL_GL_GetProcAddress('glUniform2iv');
if not Assigned(glUniform2iv) then Exit;
glUniform3iv := SDL_GL_GetProcAddress('glUniform3iv');
if not Assigned(glUniform3iv) then Exit;
glUniform4iv := SDL_GL_GetProcAddress('glUniform4iv');
if not Assigned(glUniform4iv) then Exit;
glUniformMatrix2fv := SDL_GL_GetProcAddress('glUniformMatrix2fv');
if not Assigned(glUniformMatrix2fv) then Exit;
glUniformMatrix3fv := SDL_GL_GetProcAddress('glUniformMatrix3fv');
if not Assigned(glUniformMatrix3fv) then Exit;
glUniformMatrix4fv := SDL_GL_GetProcAddress('glUniformMatrix4fv');
if not Assigned(glUniformMatrix4fv) then Exit;
glValidateProgram := SDL_GL_GetProcAddress('glValidateProgram');
if not Assigned(glValidateProgram) then Exit;
glVertexAttrib1d := SDL_GL_GetProcAddress('glVertexAttrib1d');
if not Assigned(glVertexAttrib1d) then Exit;
glVertexAttrib1dv := SDL_GL_GetProcAddress('glVertexAttrib1dv');
if not Assigned(glVertexAttrib1dv) then Exit;
glVertexAttrib1f := SDL_GL_GetProcAddress('glVertexAttrib1f');
if not Assigned(glVertexAttrib1f) then Exit;
glVertexAttrib1fv := SDL_GL_GetProcAddress('glVertexAttrib1fv');
if not Assigned(glVertexAttrib1fv) then Exit;
glVertexAttrib1s := SDL_GL_GetProcAddress('glVertexAttrib1s');
if not Assigned(glVertexAttrib1s) then Exit;
glVertexAttrib1sv := SDL_GL_GetProcAddress('glVertexAttrib1sv');
if not Assigned(glVertexAttrib1sv) then Exit;
glVertexAttrib2d := SDL_GL_GetProcAddress('glVertexAttrib2d');
if not Assigned(glVertexAttrib2d) then Exit;
glVertexAttrib2dv := SDL_GL_GetProcAddress('glVertexAttrib2dv');
if not Assigned(glVertexAttrib2dv) then Exit;
glVertexAttrib2f := SDL_GL_GetProcAddress('glVertexAttrib2f');
if not Assigned(glVertexAttrib2f) then Exit;
glVertexAttrib2fv := SDL_GL_GetProcAddress('glVertexAttrib2fv');
if not Assigned(glVertexAttrib2fv) then Exit;
glVertexAttrib2s := SDL_GL_GetProcAddress('glVertexAttrib2s');
if not Assigned(glVertexAttrib2s) then Exit;
glVertexAttrib2sv := SDL_GL_GetProcAddress('glVertexAttrib2sv');
if not Assigned(glVertexAttrib2sv) then Exit;
glVertexAttrib3d := SDL_GL_GetProcAddress('glVertexAttrib3d');
if not Assigned(glVertexAttrib3d) then Exit;
glVertexAttrib3dv := SDL_GL_GetProcAddress('glVertexAttrib3dv');
if not Assigned(glVertexAttrib3dv) then Exit;
glVertexAttrib3f := SDL_GL_GetProcAddress('glVertexAttrib3f');
if not Assigned(glVertexAttrib3f) then Exit;
glVertexAttrib3fv := SDL_GL_GetProcAddress('glVertexAttrib3fv');
if not Assigned(glVertexAttrib3fv) then Exit;
glVertexAttrib3s := SDL_GL_GetProcAddress('glVertexAttrib3s');
if not Assigned(glVertexAttrib3s) then Exit;
glVertexAttrib3sv := SDL_GL_GetProcAddress('glVertexAttrib3sv');
if not Assigned(glVertexAttrib3sv) then Exit;
glVertexAttrib4Nbv := SDL_GL_GetProcAddress('glVertexAttrib4Nbv');
if not Assigned(glVertexAttrib4Nbv) then Exit;
glVertexAttrib4Niv := SDL_GL_GetProcAddress('glVertexAttrib4Niv');
if not Assigned(glVertexAttrib4Niv) then Exit;
glVertexAttrib4Nsv := SDL_GL_GetProcAddress('glVertexAttrib4Nsv');
if not Assigned(glVertexAttrib4Nsv) then Exit;
glVertexAttrib4Nub := SDL_GL_GetProcAddress('glVertexAttrib4Nub');
if not Assigned(glVertexAttrib4Nub) then Exit;
glVertexAttrib4Nubv := SDL_GL_GetProcAddress('glVertexAttrib4Nubv');
if not Assigned(glVertexAttrib4Nubv) then Exit;
glVertexAttrib4Nuiv := SDL_GL_GetProcAddress('glVertexAttrib4Nuiv');
if not Assigned(glVertexAttrib4Nuiv) then Exit;
glVertexAttrib4Nusv := SDL_GL_GetProcAddress('glVertexAttrib4Nusv');
if not Assigned(glVertexAttrib4Nusv) then Exit;
glVertexAttrib4bv := SDL_GL_GetProcAddress('glVertexAttrib4bv');
if not Assigned(glVertexAttrib4bv) then Exit;
glVertexAttrib4d := SDL_GL_GetProcAddress('glVertexAttrib4d');
if not Assigned(glVertexAttrib4d) then Exit;
glVertexAttrib4dv := SDL_GL_GetProcAddress('glVertexAttrib4dv');
if not Assigned(glVertexAttrib4dv) then Exit;
glVertexAttrib4f := SDL_GL_GetProcAddress('glVertexAttrib4f');
if not Assigned(glVertexAttrib4f) then Exit;
glVertexAttrib4fv := SDL_GL_GetProcAddress('glVertexAttrib4fv');
if not Assigned(glVertexAttrib4fv) then Exit;
glVertexAttrib4iv := SDL_GL_GetProcAddress('glVertexAttrib4iv');
if not Assigned(glVertexAttrib4iv) then Exit;
glVertexAttrib4s := SDL_GL_GetProcAddress('glVertexAttrib4s');
if not Assigned(glVertexAttrib4s) then Exit;
glVertexAttrib4sv := SDL_GL_GetProcAddress('glVertexAttrib4sv');
if not Assigned(glVertexAttrib4sv) then Exit;
glVertexAttrib4ubv := SDL_GL_GetProcAddress('glVertexAttrib4ubv');
if not Assigned(glVertexAttrib4ubv) then Exit;
glVertexAttrib4uiv := SDL_GL_GetProcAddress('glVertexAttrib4uiv');
if not Assigned(glVertexAttrib4uiv) then Exit;
glVertexAttrib4usv := SDL_GL_GetProcAddress('glVertexAttrib4usv');
if not Assigned(glVertexAttrib4usv) then Exit;
glVertexAttribPointer := SDL_GL_GetProcAddress('glVertexAttribPointer');
if not Assigned(glVertexAttribPointer) then Exit;
Result := TRUE;
end;
function glext_LoadExtension(ext: String): Boolean;
begin
Result := FALSE;
if ext = 'GL_version_1_2' then Result := Load_GL_version_1_2
else if ext = 'GL_ARB_imaging' then Result := Load_GL_ARB_imaging
else if ext = 'GL_version_1_3' then Result := Load_GL_version_1_3
else if ext = 'GL_ARB_multitexture' then Result := Load_GL_ARB_multitexture
else if ext = 'GL_ARB_transpose_matrix' then Result := Load_GL_ARB_transpose_matrix
else if ext = 'GL_ARB_multisample' then Result := Load_GL_ARB_multisample
else if ext = 'GL_ARB_texture_env_add' then Result := Load_GL_ARB_texture_env_add
{$IFDEF WINDOWS}
else if ext = 'WGL_ARB_extensions_string' then Result := Load_WGL_ARB_extensions_string
else if ext = 'WGL_ARB_buffer_region' then Result := Load_WGL_ARB_buffer_region
{$ENDIF}
else if ext = 'GL_ARB_texture_cube_map' then Result := Load_GL_ARB_texture_cube_map
else if ext = 'GL_ARB_depth_texture' then Result := Load_GL_ARB_depth_texture
else if ext = 'GL_ARB_point_parameters' then Result := Load_GL_ARB_point_parameters
else if ext = 'GL_ARB_shadow' then Result := Load_GL_ARB_shadow
else if ext = 'GL_ARB_shadow_ambient' then Result := Load_GL_ARB_shadow_ambient
else if ext = 'GL_ARB_texture_border_clamp' then Result := Load_GL_ARB_texture_border_clamp
else if ext = 'GL_ARB_texture_compression' then Result := Load_GL_ARB_texture_compression
else if ext = 'GL_ARB_texture_env_combine' then Result := Load_GL_ARB_texture_env_combine
else if ext = 'GL_ARB_texture_env_crossbar' then Result := Load_GL_ARB_texture_env_crossbar
else if ext = 'GL_ARB_texture_env_dot3' then Result := Load_GL_ARB_texture_env_dot3
else if ext = 'GL_ARB_texture_mirrored_repeat' then Result := Load_GL_ARB_texture_mirrored_repeat
else if ext = 'GL_ARB_vertex_blend' then Result := Load_GL_ARB_vertex_blend
else if ext = 'GL_ARB_vertex_program' then Result := Load_GL_ARB_vertex_program
else if ext = 'GL_ARB_window_pos' then Result := Load_GL_ARB_window_pos
else if ext = 'GL_EXT_422_pixels' then Result := Load_GL_EXT_422_pixels
else if ext = 'GL_EXT_abgr' then Result := Load_GL_EXT_abgr
else if ext = 'GL_EXT_bgra' then Result := Load_GL_EXT_bgra
else if ext = 'GL_EXT_blend_color' then Result := Load_GL_EXT_blend_color
else if ext = 'GL_EXT_blend_func_separate' then Result := Load_GL_EXT_blend_func_separate
else if ext = 'GL_EXT_blend_logic_op' then Result := Load_GL_EXT_blend_logic_op
else if ext = 'GL_EXT_blend_minmax' then Result := Load_GL_EXT_blend_minmax
else if ext = 'GL_EXT_blend_subtract' then Result := Load_GL_EXT_blend_subtract
else if ext = 'GL_EXT_clip_volume_hint' then Result := Load_GL_EXT_clip_volume_hint
else if ext = 'GL_EXT_color_subtable' then Result := Load_GL_EXT_color_subtable
else if ext = 'GL_EXT_compiled_vertex_array' then Result := Load_GL_EXT_compiled_vertex_array
else if ext = 'GL_EXT_convolution' then Result := Load_GL_EXT_convolution
else if ext = 'GL_EXT_histogram' then Result := Load_GL_EXT_histogram
else if ext = 'GL_EXT_multi_draw_arrays' then Result := Load_GL_EXT_multi_draw_arrays
else if ext = 'GL_EXT_packed_pixels' then Result := Load_GL_EXT_packed_pixels
else if ext = 'GL_EXT_paletted_texture' then Result := Load_GL_EXT_paletted_texture
else if ext = 'GL_EXT_point_parameters' then Result := Load_GL_EXT_point_parameters
else if ext = 'GL_EXT_polygon_offset' then Result := Load_GL_EXT_polygon_offset
else if ext = 'GL_EXT_separate_specular_color' then Result := Load_GL_EXT_separate_specular_color
else if ext = 'GL_EXT_shadow_funcs' then Result := Load_GL_EXT_shadow_funcs
else if ext = 'GL_EXT_shared_texture_palette' then Result := Load_GL_EXT_shared_texture_palette
else if ext = 'GL_EXT_stencil_two_side' then Result := Load_GL_EXT_stencil_two_side
else if ext = 'GL_EXT_stencil_wrap' then Result := Load_GL_EXT_stencil_wrap
else if ext = 'GL_EXT_subtexture' then Result := Load_GL_EXT_subtexture
else if ext = 'GL_EXT_texture3D' then Result := Load_GL_EXT_texture3D
else if ext = 'GL_EXT_texture_compression_s3tc' then Result := Load_GL_EXT_texture_compression_s3tc
else if ext = 'GL_EXT_texture_env_add' then Result := Load_GL_EXT_texture_env_add
else if ext = 'GL_EXT_texture_env_combine' then Result := Load_GL_EXT_texture_env_combine
else if ext = 'GL_EXT_texture_env_dot3' then Result := Load_GL_EXT_texture_env_dot3
else if ext = 'GL_EXT_texture_filter_anisotropic' then Result := Load_GL_EXT_texture_filter_anisotropic
else if ext = 'GL_EXT_texture_lod_bias' then Result := Load_GL_EXT_texture_lod_bias
else if ext = 'GL_EXT_texture_object' then Result := Load_GL_EXT_texture_object
else if ext = 'GL_EXT_vertex_array' then Result := Load_GL_EXT_vertex_array
else if ext = 'GL_EXT_vertex_shader' then Result := Load_GL_EXT_vertex_shader
else if ext = 'GL_EXT_vertex_weighting' then Result := Load_GL_EXT_vertex_weighting
else if ext = 'GL_HP_occlusion_test' then Result := Load_GL_HP_occlusion_test
else if ext = 'GL_NV_blend_square' then Result := Load_GL_NV_blend_square
else if ext = 'GL_NV_copy_depth_to_color' then Result := Load_GL_NV_copy_depth_to_color
else if ext = 'GL_NV_depth_clamp' then Result := Load_GL_NV_depth_clamp
else if ext = 'GL_NV_evaluators' then Result := Load_GL_NV_evaluators
else if ext = 'GL_NV_fence' then Result := Load_GL_NV_fence
else if ext = 'GL_NV_fog_distance' then Result := Load_GL_NV_fog_distance
else if ext = 'GL_NV_light_max_exponent' then Result := Load_GL_NV_light_max_exponent
else if ext = 'GL_NV_multisample_filter_hint' then Result := Load_GL_NV_multisample_filter_hint
else if ext = 'GL_NV_occlusion_query' then Result := Load_GL_NV_occlusion_query
else if ext = 'GL_NV_packed_depth_stencil' then Result := Load_GL_NV_packed_depth_stencil
else if ext = 'GL_NV_point_sprite' then Result := Load_GL_NV_point_sprite
else if ext = 'GL_NV_register_combiners' then Result := Load_GL_NV_register_combiners
else if ext = 'GL_NV_register_combiners2' then Result := Load_GL_NV_register_combiners2
else if ext = 'GL_NV_texgen_emboss' then Result := Load_GL_NV_texgen_emboss
else if ext = 'GL_NV_texgen_reflection' then Result := Load_GL_NV_texgen_reflection
else if ext = 'GL_NV_texture_compression_vtc' then Result := Load_GL_NV_texture_compression_vtc
else if ext = 'GL_NV_texture_env_combine4' then Result := Load_GL_NV_texture_env_combine4
else if ext = 'GL_NV_texture_rectangle' then Result := Load_GL_NV_texture_rectangle
else if ext = 'GL_NV_texture_shader' then Result := Load_GL_NV_texture_shader
else if ext = 'GL_NV_texture_shader2' then Result := Load_GL_NV_texture_shader2
else if ext = 'GL_NV_texture_shader3' then Result := Load_GL_NV_texture_shader3
else if ext = 'GL_NV_vertex_array_range' then Result := Load_GL_NV_vertex_array_range
else if ext = 'GL_NV_vertex_array_range2' then Result := Load_GL_NV_vertex_array_range2
else if ext = 'GL_NV_vertex_program' then Result := Load_GL_NV_vertex_program
else if ext = 'GL_NV_vertex_program1_1' then Result := Load_GL_NV_vertex_program1_1
else if ext = 'GL_ATI_element_array' then Result := Load_GL_ATI_element_array
else if ext = 'GL_ATI_envmap_bumpmap' then Result := Load_GL_ATI_envmap_bumpmap
else if ext = 'GL_ATI_fragment_shader' then Result := Load_GL_ATI_fragment_shader
else if ext = 'GL_ATI_pn_triangles' then Result := Load_GL_ATI_pn_triangles
else if ext = 'GL_ATI_texture_mirror_once' then Result := Load_GL_ATI_texture_mirror_once
else if ext = 'GL_ATI_vertex_array_object' then Result := Load_GL_ATI_vertex_array_object
else if ext = 'GL_ATI_vertex_streams' then Result := Load_GL_ATI_vertex_streams
{$IFDEF WINDOWS}
else if ext = 'WGL_I3D_image_buffer' then Result := Load_WGL_I3D_image_buffer
else if ext = 'WGL_I3D_swap_frame_lock' then Result := Load_WGL_I3D_swap_frame_lock
else if ext = 'WGL_I3D_swap_frame_usage' then Result := Load_WGL_I3D_swap_frame_usage
{$ENDIF}
else if ext = 'GL_3DFX_texture_compression_FXT1' then Result := Load_GL_3DFX_texture_compression_FXT1
else if ext = 'GL_IBM_cull_vertex' then Result := Load_GL_IBM_cull_vertex
else if ext = 'GL_IBM_multimode_draw_arrays' then Result := Load_GL_IBM_multimode_draw_arrays
else if ext = 'GL_IBM_raster_pos_clip' then Result := Load_GL_IBM_raster_pos_clip
else if ext = 'GL_IBM_texture_mirrored_repeat' then Result := Load_GL_IBM_texture_mirrored_repeat
else if ext = 'GL_IBM_vertex_array_lists' then Result := Load_GL_IBM_vertex_array_lists
else if ext = 'GL_MESA_resize_buffers' then Result := Load_GL_MESA_resize_buffers
else if ext = 'GL_MESA_window_pos' then Result := Load_GL_MESA_window_pos
else if ext = 'GL_OML_interlace' then Result := Load_GL_OML_interlace
else if ext = 'GL_OML_resample' then Result := Load_GL_OML_resample
else if ext = 'GL_OML_subsample' then Result := Load_GL_OML_subsample
else if ext = 'GL_SGIS_generate_mipmap' then Result := Load_GL_SGIS_generate_mipmap
else if ext = 'GL_SGIS_multisample' then Result := Load_GL_SGIS_multisample
else if ext = 'GL_SGIS_pixel_texture' then Result := Load_GL_SGIS_pixel_texture
else if ext = 'GL_SGIS_texture_border_clamp' then Result := Load_GL_SGIS_texture_border_clamp
else if ext = 'GL_SGIS_texture_color_mask' then Result := Load_GL_SGIS_texture_color_mask
else if ext = 'GL_SGIS_texture_edge_clamp' then Result := Load_GL_SGIS_texture_edge_clamp
else if ext = 'GL_SGIS_texture_lod' then Result := Load_GL_SGIS_texture_lod
else if ext = 'GL_SGIS_depth_texture' then Result := Load_GL_SGIS_depth_texture
else if ext = 'GL_SGIX_fog_offset' then Result := Load_GL_SGIX_fog_offset
else if ext = 'GL_SGIX_interlace' then Result := Load_GL_SGIX_interlace
else if ext = 'GL_SGIX_shadow_ambient' then Result := Load_GL_SGIX_shadow_ambient
else if ext = 'GL_SGI_color_matrix' then Result := Load_GL_SGI_color_matrix
else if ext = 'GL_SGI_color_table' then Result := Load_GL_SGI_color_table
else if ext = 'GL_SGI_texture_color_table' then Result := Load_GL_SGI_texture_color_table
else if ext = 'GL_SUN_vertex' then Result := Load_GL_SUN_vertex
else if ext = 'GL_ARB_fragment_program' then Result := Load_GL_ARB_fragment_program
else if ext = 'GL_ATI_text_fragment_shader' then Result := Load_GL_ATI_text_fragment_shader
else if ext = 'GL_APPLE_client_storage' then Result := Load_GL_APPLE_client_storage
else if ext = 'GL_APPLE_element_array' then Result := Load_GL_APPLE_element_array
else if ext = 'GL_APPLE_fence' then Result := Load_GL_APPLE_fence
else if ext = 'GL_APPLE_vertex_array_object' then Result := Load_GL_APPLE_vertex_array_object
else if ext = 'GL_APPLE_vertex_array_range' then Result := Load_GL_APPLE_vertex_array_range
{$IFDEF WINDOWS}
else if ext = 'WGL_ARB_pixel_format' then Result := Load_WGL_ARB_pixel_format
else if ext = 'WGL_ARB_make_current_read' then Result := Load_WGL_ARB_make_current_read
else if ext = 'WGL_ARB_pbuffer' then Result := Load_WGL_ARB_pbuffer
else if ext = 'WGL_EXT_swap_control' then Result := Load_WGL_EXT_swap_control
else if ext = 'WGL_ARB_render_texture' then Result := Load_WGL_ARB_render_texture
else if ext = 'WGL_EXT_extensions_string' then Result := Load_WGL_EXT_extensions_string
else if ext = 'WGL_EXT_make_current_read' then Result := Load_WGL_EXT_make_current_read
else if ext = 'WGL_EXT_pbuffer' then Result := Load_WGL_EXT_pbuffer
else if ext = 'WGL_EXT_pixel_format' then Result := Load_WGL_EXT_pixel_format
else if ext = 'WGL_I3D_digital_video_control' then Result := Load_WGL_I3D_digital_video_control
else if ext = 'WGL_I3D_gamma' then Result := Load_WGL_I3D_gamma
else if ext = 'WGL_I3D_genlock' then Result := Load_WGL_I3D_genlock
{$ENDIF}
else if ext = 'GL_ARB_matrix_palette' then Result := Load_GL_ARB_matrix_palette
else if ext = 'GL_NV_element_array' then Result := Load_GL_NV_element_array
else if ext = 'GL_NV_float_buffer' then Result := Load_GL_NV_float_buffer
else if ext = 'GL_NV_fragment_program' then Result := Load_GL_NV_fragment_program
else if ext = 'GL_NV_primitive_restart' then Result := Load_GL_NV_primitive_restart
else if ext = 'GL_NV_vertex_program2' then Result := Load_GL_NV_vertex_program2
{$IFDEF WINDOWS}
else if ext = 'WGL_NV_render_texture_rectangle' then Result := Load_WGL_NV_render_texture_rectangle
{$ENDIF}
else if ext = 'GL_NV_pixel_data_range' then Result := Load_GL_NV_pixel_data_range
else if ext = 'GL_EXT_texture_rectangle' then Result := Load_GL_EXT_texture_rectangle
else if ext = 'GL_S3_s3tc' then Result := Load_GL_S3_s3tc
else if ext = 'GL_ATI_draw_buffers' then Result := Load_GL_ATI_draw_buffers
{$IFDEF WINDOWS}
else if ext = 'WGL_ATI_pixel_format_float' then Result := Load_WGL_ATI_pixel_format_float
{$ENDIF}
else if ext = 'GL_ATI_texture_env_combine3' then Result := Load_GL_ATI_texture_env_combine3
else if ext = 'GL_ATI_texture_float' then Result := Load_GL_ATI_texture_float
else if ext = 'GL_NV_texture_expand_normal' then Result := Load_GL_NV_texture_expand_normal
else if ext = 'GL_NV_half_float' then Result := Load_GL_NV_half_float
else if ext = 'GL_ATI_map_object_buffer' then Result := Load_GL_ATI_map_object_buffer
else if ext = 'GL_ATI_separate_stencil' then Result := Load_GL_ATI_separate_stencil
else if ext = 'GL_ATI_vertex_attrib_array_object' then Result := Load_GL_ATI_vertex_attrib_array_object
else if ext = 'GL_ARB_vertex_buffer_object' then Result := Load_GL_ARB_vertex_buffer_object
else if ext = 'GL_ARB_occlusion_query' then Result := Load_GL_ARB_occlusion_query
else if ext = 'GL_ARB_shader_objects' then Result := Load_GL_ARB_shader_objects
else if ext = 'GL_ARB_vertex_shader' then Result := Load_GL_ARB_vertex_shader
else if ext = 'GL_ARB_fragment_shader' then Result := Load_GL_ARB_fragment_shader
else if ext = 'GL_ARB_shading_language_100' then Result := Load_GL_ARB_shading_language_100
else if ext = 'GL_ARB_texture_non_power_of_two' then Result := Load_GL_ARB_texture_non_power_of_two
else if ext = 'GL_ARB_point_sprite' then Result := Load_GL_ARB_point_sprite
else if ext = 'GL_EXT_depth_bounds_test' then Result := Load_GL_EXT_depth_bounds_test
else if ext = 'GL_EXT_secondary_color' then Result := Load_GL_EXT_secondary_color
else if ext = 'GL_EXT_texture_mirror_clamp' then Result := Load_GL_EXT_texture_mirror_clamp
else if ext = 'GL_EXT_blend_equation_separate' then Result := Load_GL_EXT_blend_equation_separate
else if ext = 'GL_MESA_pack_invert' then Result := Load_GL_MESA_pack_invert
else if ext = 'GL_MESA_ycbcr_texture' then Result := Load_GL_MESA_ycbcr_texture
else if ext = 'GL_ARB_fragment_program_shadow' then Result := Load_GL_ARB_fragment_program_shadow
else if ext = 'GL_EXT_fog_coord' then Result := Load_GL_EXT_fog_coord
else if ext = 'GL_NV_fragment_program_option' then Result := Load_GL_NV_fragment_program_option
else if ext = 'GL_EXT_pixel_buffer_object' then Result := Load_GL_EXT_pixel_buffer_object
else if ext = 'GL_NV_fragment_program2' then Result := Load_GL_NV_fragment_program2
else if ext = 'GL_NV_vertex_program2_option' then Result := Load_GL_NV_vertex_program2_option
else if ext = 'GL_NV_vertex_program3' then Result := Load_GL_NV_vertex_program3
else if ext = 'GL_ARB_draw_buffers' then Result := Load_GL_ARB_draw_buffers
else if ext = 'GL_ARB_texture_rectangle' then Result := Load_GL_ARB_texture_rectangle
else if ext = 'GL_ARB_color_buffer_float' then Result := Load_GL_ARB_color_buffer_float
else if ext = 'GL_ARB_half_float_pixel' then Result := Load_GL_ARB_half_float_pixel
else if ext = 'GL_ARB_texture_float' then Result := Load_GL_ARB_texture_float
else if ext = 'GL_EXT_texture_compression_dxt1' then Result := Load_GL_EXT_texture_compression_dxt1
else if ext = 'GL_ARB_pixel_buffer_object' then Result := Load_GL_ARB_pixel_buffer_object
else if ext = 'GL_EXT_framebuffer_object' then Result := Load_GL_EXT_framebuffer_object
else if ext = 'GL_version_1_4' then Result := Load_GL_version_1_4
else if ext = 'GL_version_1_5' then Result := Load_GL_version_1_5
else if ext = 'GL_version_2_0' then Result := Load_GL_version_2_0
end;
end.
