- set svn:eol-style to native

- removed some svn:executable properties from non-executable files

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1144 b956fd51-792f-4845-bead-9b4dfca2ff2c

6 files changed, 15423 insertions, 15423 deletions

diff --git a/Game/Code/lib/JEDI-SDL/OpenGL/Pas/geometry.pas b/Game/Code/lib/JEDI-SDL/OpenGL/Pas/geometry.pas
index 15783515..166ec811 100644
--- a/Game/Code/lib/JEDI-SDL/OpenGL/Pas/geometry.pas
+++ b/Game/Code/lib/JEDI-SDL/OpenGL/Pas/geometry.pas
@@ -1,1994 +1,1994 @@
-unit geometry;

-{

-  $Id: geometry.pas,v 1.1 2004/03/30 21:53:54 savage Exp $

-  

-}

-

-// This unit contains many needed types, functions and procedures for

-// quaternion, vector and matrix arithmetics. It is specifically designed

-// for geometric calculations within R3 (affine vector space)

-// and R4 (homogeneous vector space).

-//

-// Note: The terms 'affine' or 'affine coordinates' are not really correct here

-//       because an 'affine transformation' describes generally a transformation which leads

-//       to a uniquely solvable system of equations and has nothing to do with the dimensionality

-//       of a vector. One could use 'projective coordinates' but this is also not really correct

-//       and since I haven't found a better name (or even any correct one), 'affine' is as good

-//       as any other one.

-//

-// Identifiers containing no dimensionality (like affine or homogeneous)

-// and no datatype (integer..extended) are supposed as R4 representation

-// with 'single' floating point type (examples are TVector, TMatrix,

-// and TQuaternion). The default data type is 'single' ('GLFloat' for OpenGL)

-// and used in all routines (except conversions and trigonometric functions).

-//

-// Routines with an open array as argument can either take Func([1,2,3,4,..]) or Func(Vect).

-// The latter is prefered, since no extra stack operations is required.

-// Note: Be careful while passing open array elements! If you pass more elements

-//       than there's room in the result the behaviour will be unpredictable.

-//

-// If not otherwise stated, all angles are given in radians

-// (instead of degrees). Use RadToDeg or DegToRad to convert between them.

-//

-// Geometry.pas was assembled from different sources (like GraphicGems)

-// and relevant books or based on self written code, respectivly.

-//

-// Note: Some aspects need to be considered when using Delphi and pure

-//       assembler code. Delphi ensures that the direction flag is always

-//       cleared while entering a function and expects it cleared on return.

-//       This is in particular important in routines with (CPU) string commands (MOVSD etc.)

-//       The registers EDI, ESI and EBX (as well as the stack management

-//       registers EBP and ESP) must not be changed! EAX, ECX and EDX are

-//       freely available and mostly used for parameter.

-//

-// Version 2.5

-// last change : 04. January 2000

-//

-// (c) Copyright 1999, Dipl. Ing. Mike Lischke (public@lischke-online.de)

-{

-  $Log: geometry.pas,v $

-  Revision 1.1  2004/03/30 21:53:54  savage

-  Moved to it's own folder.

-

-  Revision 1.1  2004/02/05 00:08:19  savage

-  Module 1.0 release

-

-  

-}

-

-interface

-

-{$I jedi-sdl.inc}

-

-type

-  // data types needed for 3D graphics calculation,

-  // included are 'C like' aliases for each type (to be

-  // conformal with OpenGL types)

-

-  PByte = ^Byte;

-  PWord = ^Word;

-  PInteger = ^Integer;

-  PFloat = ^Single;

-  PDouble = ^Double;

-  PExtended = ^Extended;

-  PPointer = ^Pointer;

-

-  // types to specify continous streams of a specific type

-  // switch off range checking to access values beyond the limits

-  PByteVector = ^TByteVector;

-  PByteArray = PByteVector;

-  TByteVector = array[0..0] of Byte;

-

-  PWordVector = ^TWordVector;

-  PWordArray = PWordVector;  // note: there's a same named type in SysUtils

-  TWordVector = array[0..0] of Word;

-

-  PIntegerVector = ^TIntegerVector;

-  PIntegerArray = PIntegerVector;

-  TIntegerVector = array[0..0] of Integer;

-

-  PFloatVector = ^TFloatVector;

-  PFloatArray = PFloatVector;

-  TFloatVector = array[0..0] of Single;

-

-  PDoubleVector = ^TDoubleVector;

-  PDoubleArray = PDoubleVector;

-  TDoubleVector = array[0..0] of Double;

-

-  PExtendedVector = ^TExtendedVector;

-  PExtendedArray = PExtendedVector;

-  TExtendedVector = array[0..0] of Extended;

-

-  PPointerVector = ^TPointerVector;

-  PPointerArray = PPointerVector;

-  TPointerVector = array[0..0] of Pointer;

-

-  PCardinalVector = ^TCardinalVector;

-  PCardinalArray = PCardinalVector;

-  TCardinalVector = array[0..0] of Cardinal;

-

-  // common vector and matrix types with predefined limits

-  // indices correspond like: x -> 0

-  //                          y -> 1

-  //                          z -> 2

-  //                          w -> 3

-

-  PHomogeneousByteVector = ^THomogeneousByteVector;

-  THomogeneousByteVector = array[0..3] of Byte;

-  TVector4b = THomogeneousByteVector;

-

-  PHomogeneousWordVector = ^THomogeneousWordVector;

-  THomogeneousWordVector = array[0..3] of Word;

-  TVector4w = THomogeneousWordVector;

-

-  PHomogeneousIntVector = ^THomogeneousIntVector;

-  THomogeneousIntVector = array[0..3] of Integer;

-  TVector4i = THomogeneousIntVector;

-

-  PHomogeneousFltVector = ^THomogeneousFltVector;

-  THomogeneousFltVector = array[0..3] of Single;

-  TVector4f = THomogeneousFltVector;

-

-  PHomogeneousDblVector = ^THomogeneousDblVector;

-  THomogeneousDblVector = array[0..3] of Double;

-  TVector4d = THomogeneousDblVector;

-

-  PHomogeneousExtVector = ^THomogeneousExtVector;

-  THomogeneousExtVector = array[0..3] of Extended;

-  TVector4e = THomogeneousExtVector;

-

-  PHomogeneousPtrVector = ^THomogeneousPtrVector;

-  THomogeneousPtrVector = array[0..3] of Pointer;

-  TVector4p = THomogeneousPtrVector;

-

-  PAffineByteVector = ^TAffineByteVector;

-  TAffineByteVector = array[0..2] of Byte;

-  TVector3b = TAffineByteVector;

-

-  PAffineWordVector = ^TAffineWordVector;

-  TAffineWordVector = array[0..2] of Word;

-  TVector3w = TAffineWordVector;

-

-  PAffineIntVector = ^TAffineIntVector;

-  TAffineIntVector = array[0..2] of Integer;

-  TVector3i = TAffineIntVector;

-

-  PAffineFltVector = ^TAffineFltVector;

-  TAffineFltVector = array[0..2] of Single;

-  TVector3f = TAffineFltVector;

-

-  PAffineDblVector = ^TAffineDblVector;

-  TAffineDblVector = array[0..2] of Double;

-  TVector3d = TAffineDblVector;

-

-  PAffineExtVector = ^TAffineExtVector;

-  TAffineExtVector = array[0..2] of Extended;

-  TVector3e = TAffineExtVector;

-

-  PAffinePtrVector = ^TAffinePtrVector;

-  TAffinePtrVector = array[0..2] of Pointer;

-  TVector3p = TAffinePtrVector;

-

-  // some simplified names

-  PVector = ^TVector;

-  TVector = THomogeneousFltVector;

-

-  PHomogeneousVector = ^THomogeneousVector;

-  THomogeneousVector = THomogeneousFltVector;

-

-  PAffineVector = ^TAffineVector;

-  TAffineVector = TAffineFltVector;

-

-  // arrays of vectors

-  PVectorArray = ^TVectorArray;

-  TVectorArray = array[0..0] of TAffineVector;

-

-  // matrices

-  THomogeneousByteMatrix = array[0..3] of THomogeneousByteVector;

-  TMatrix4b = THomogeneousByteMatrix;

-

-  THomogeneousWordMatrix = array[0..3] of THomogeneousWordVector;

-  TMatrix4w = THomogeneousWordMatrix;

-

-  THomogeneousIntMatrix = array[0..3] of THomogeneousIntVector;

-  TMatrix4i = THomogeneousIntMatrix;

-

-  THomogeneousFltMatrix  = array[0..3] of THomogeneousFltVector;

-  TMatrix4f = THomogeneousFltMatrix;

-

-  THomogeneousDblMatrix = array[0..3] of THomogeneousDblVector;

-  TMatrix4d = THomogeneousDblMatrix;

-

-  THomogeneousExtMatrix = array[0..3] of THomogeneousExtVector;

-  TMatrix4e = THomogeneousExtMatrix;

-

-  TAffineByteMatrix = array[0..2] of TAffineByteVector;

-  TMatrix3b = TAffineByteMatrix;

-

-  TAffineWordMatrix = array[0..2] of TAffineWordVector;

-  TMatrix3w = TAffineWordMatrix;

-

-  TAffineIntMatrix = array[0..2] of TAffineIntVector;

-  TMatrix3i = TAffineIntMatrix;

-

-  TAffineFltMatrix = array[0..2] of TAffineFltVector;

-  TMatrix3f = TAffineFltMatrix;

-

-  TAffineDblMatrix = array[0..2] of TAffineDblVector;

-  TMatrix3d = TAffineDblMatrix;

-

-  TAffineExtMatrix = array[0..2] of TAffineExtVector;

-  TMatrix3e = TAffineExtMatrix;

-

-  // some simplified names

-  PMatrix = ^TMatrix;

-  TMatrix = THomogeneousFltMatrix;

-

-  PHomogeneousMatrix = ^THomogeneousMatrix;

-  THomogeneousMatrix = THomogeneousFltMatrix;

-

-  PAffineMatrix = ^TAffineMatrix;

-  TAffineMatrix = TAffineFltMatrix;

-

-  // q = ([x, y, z], w)

-  TQuaternion = record

-    case Integer of

-      0:

-        (ImagPart: TAffineVector;

-         RealPart: Single);

-      1:

-        (Vector: TVector4f);

-  end;

-

-  TRectangle = record

-    Left,

-    Top,

-    Width,

-    Height: Integer;

-  end;

-

-  TTransType = (ttScaleX, ttScaleY, ttScaleZ,

-                ttShearXY, ttShearXZ, ttShearYZ,

-                ttRotateX, ttRotateY, ttRotateZ,

-                ttTranslateX, ttTranslateY, ttTranslateZ,

-                ttPerspectiveX, ttPerspectiveY, ttPerspectiveZ, ttPerspectiveW);

-

-  // used to describe a sequence of transformations in following order:

-  // [Sx][Sy][Sz][ShearXY][ShearXZ][ShearZY][Rx][Ry][Rz][Tx][Ty][Tz][P(x,y,z,w)]

-  // constants are declared for easier access (see MatrixDecompose below)

-  TTransformations  = array[TTransType] of Single;

-

-

-const

-  // useful constants

-

-  // standard vectors

-  XVector: TAffineVector = (1, 0, 0);

-  YVector: TAffineVector = (0, 1, 0);

-  ZVector: TAffineVector = (0, 0, 1);

-  NullVector: TAffineVector = (0, 0, 0);

-

-  IdentityMatrix: TMatrix = ((1, 0, 0, 0),

-                             (0, 1, 0, 0),

-                             (0, 0, 1, 0),

-                             (0, 0, 0, 1));

-  EmptyMatrix: TMatrix = ((0, 0, 0, 0),

-                          (0, 0, 0, 0),

-                          (0, 0, 0, 0),

-                          (0, 0, 0, 0));

-  // some very small numbers

-  EPSILON  = 1e-100;

-  EPSILON2 = 1e-50;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-// vector functions

-function  VectorAdd(V1, V2: TVector): TVector;

-function  VectorAffineAdd(V1, V2: TAffineVector): TAffineVector;

-function  VectorAffineCombine(V1, V2: TAffineVector; F1, F2: Single): TAffineVector;

-function  VectorAffineDotProduct(V1, V2: TAffineVector): Single;

-function  VectorAffineLerp(V1, V2: TAffineVector; t: Single): TAffineVector;

-function  VectorAffineSubtract(V1, V2: TAffineVector): TAffineVector;

-function  VectorAngle(V1, V2: TAffineVector): Single;

-function  VectorCombine(V1, V2: TVector; F1, F2: Single): TVector;

-function  VectorCrossProduct(V1, V2: TAffineVector): TAffineVector;

-function  VectorDotProduct(V1, V2: TVector): Single;

-function  VectorLength(V: array of Single): Single;

-function  VectorLerp(V1, V2: TVector; t: Single): TVector;

-procedure VectorNegate(V: array of Single);

-function  VectorNorm(V: array of Single): Single;

-function  VectorNormalize(V: array of Single): Single;

-function  VectorPerpendicular(V, N: TAffineVector): TAffineVector;

-function  VectorReflect(V, N: TAffineVector): TAffineVector;

-procedure VectorRotate(var Vector: TVector4f; Axis: TVector3f; Angle: Single);

-procedure VectorScale(V: array of Single; Factor: Single);

-function  VectorSubtract(V1, V2: TVector): TVector;

-

-// matrix functions

-function  CreateRotationMatrixX(Sine, Cosine: Single): TMatrix;

-function  CreateRotationMatrixY(Sine, Cosine: Single): TMatrix;

-function  CreateRotationMatrixZ(Sine, Cosine: Single): TMatrix;

-function  CreateScaleMatrix(V: TAffineVector): TMatrix;

-function  CreateTranslationMatrix(V: TVector): TMatrix;

-procedure MatrixAdjoint(var M: TMatrix);

-function  MatrixAffineDeterminant(M: TAffineMatrix): Single;

-procedure MatrixAffineTranspose(var M: TAffineMatrix);

-function  MatrixDeterminant(M: TMatrix): Single;

-procedure MatrixInvert(var M: TMatrix);

-function  MatrixMultiply(M1, M2: TMatrix): TMatrix;

-procedure MatrixScale(var M: TMatrix; Factor: Single);

-procedure MatrixTranspose(var M: TMatrix);

-

-// quaternion functions

-function  QuaternionConjugate(Q: TQuaternion): TQuaternion;

-function  QuaternionFromPoints(V1, V2: TAffineVector): TQuaternion;

-function  QuaternionMultiply(qL, qR: TQuaternion): TQuaternion;

-function  QuaternionSlerp(QStart, QEnd: TQuaternion; Spin: Integer; t: Single): TQuaternion;

-function  QuaternionToMatrix(Q: TQuaternion): TMatrix;

-procedure QuaternionToPoints(Q: TQuaternion; var ArcFrom, ArcTo: TAffineVector);

-

-// mixed functions

-function  ConvertRotation(Angles: TAffineVector): TVector;

-function  CreateRotationMatrix(Axis: TVector3f; Angle: Single): TMatrix;

-function  MatrixDecompose(M: TMatrix; var Tran: TTransformations): Boolean;

-function  VectorAffineTransform(V: TAffineVector; M: TAffineMatrix): TAffineVector;

-function  VectorTransform(V: TVector4f; M: TMatrix): TVector4f; overload;

-function  VectorTransform(V: TVector3f; M: TMatrix): TVector3f; overload;

-

-// miscellaneous functions

-function  MakeAffineDblVector(V: array of Double): TAffineDblVector;

-function  MakeDblVector(V: array of Double): THomogeneousDblVector;

-function  MakeAffineVector(V: array of Single): TAffineVector;

-function  MakeQuaternion(Imag: array of Single; Real: Single): TQuaternion;

-function  MakeVector(V: array of Single): TVector;

-function  PointInPolygon(xp, yp : array of Single; x, y: Single): Boolean;

-function  VectorAffineDblToFlt(V: TAffineDblVector): TAffineVector;

-function  VectorDblToFlt(V: THomogeneousDblVector): THomogeneousVector;

-function  VectorAffineFltToDbl(V: TAffineVector): TAffineDblVector;

-function  VectorFltToDbl(V: TVector): THomogeneousDblVector;

-

-// trigonometric functions

-function  ArcCos(X: Extended): Extended;

-function  ArcSin(X: Extended): Extended;

-function  ArcTan2(Y, X: Extended): Extended;

-function  CoTan(X: Extended): Extended;

-function  DegToRad(Degrees: Extended): Extended;

-function  RadToDeg(Radians: Extended): Extended;

-procedure SinCos(Theta: Extended; var Sin, Cos: Extended);

-function  Tan(X: Extended): Extended;

-

-// coordinate system manipulation functions

-function Turn(Matrix: TMatrix; Angle: Single): TMatrix; overload;

-function Turn(Matrix: TMatrix; MasterUp: TAffineVector; Angle: Single): TMatrix; overload;

-function Pitch(Matrix: TMatrix; Angle: Single): TMatrix; overload;

-function Pitch(Matrix: TMatrix; MasterRight: TAffineVector; Angle: Single): TMatrix; overload;

-function Roll(Matrix: TMatrix; Angle: Single): TMatrix; overload;

-function Roll(Matrix: TMatrix; MasterDirection: TAffineVector; Angle: Single): TMatrix; overload;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-implementation

-

-const

-  // FPU status flags (high order byte)

-  C0 = 1;

-  C1 = 2;

-  C2 = 4;

-  C3 = $40;

-

-  // to be used as descriptive indices

-  X = 0;

-  Y = 1;

-  Z = 2;

-  W = 3;

-

-//----------------- trigonometric helper functions ---------------------------------------------------------------------

-

-function DegToRad(Degrees: Extended): Extended;

-

-begin

-  Result := Degrees * (PI / 180);

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function RadToDeg(Radians: Extended): Extended;

-

-begin

-  Result := Radians * (180 / PI);

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-procedure SinCos(Theta: Extended; var Sin, Cos: Extended); assembler; register;

-

-// calculates sine and cosine from the given angle Theta

-// EAX contains address of Sin

-// EDX contains address of Cos

-// Theta is passed over the stack

-

-asm

-              FLD  Theta

-              FSINCOS

-              FSTP TBYTE PTR [EDX]    // cosine

-              FSTP TBYTE PTR [EAX]    // sine

-              FWAIT

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function ArcCos(X: Extended): Extended;

-

-begin

-  Result := ArcTan2(Sqrt(1 - X * X), X);

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function ArcSin(X: Extended): Extended;

-

-begin

-  Result := ArcTan2(X, Sqrt(1 - X * X))

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function ArcTan2(Y, X: Extended): Extended;

-

-asm

-              FLD  Y

-              FLD  X

-              FPATAN

-              FWAIT

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function Tan(X: Extended): Extended;

-

-asm

-              FLD  X

-              FPTAN

-              FSTP ST(0)      // FPTAN pushes 1.0 after result

-              FWAIT

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function CoTan(X: Extended): Extended;

-

-asm

-              FLD  X

-              FPTAN

-              FDIVRP

-              FWAIT

-end;

-

-//----------------- miscellaneous vector functions ---------------------------------------------------------------------

-

-function MakeAffineDblVector(V: array of Double): TAffineDblVector; assembler;

-

-// creates a vector from given values

-// EAX contains address of V

-// ECX contains address to result vector

-// EDX contains highest index of V

-

-asm

-              PUSH EDI

-              PUSH ESI

-              MOV EDI, ECX

-              MOV ESI, EAX

-              MOV ECX, EDX

-              ADD ECX, 2

-              REP MOVSD

-              POP ESI

-              POP EDI

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function MakeDblVector(V: array of Double): THomogeneousDblVector; assembler;

-

-// creates a vector from given values

-// EAX contains address of V

-// ECX contains address to result vector

-// EDX contains highest index of V

-

-asm

-              PUSH EDI

-              PUSH ESI

-              MOV EDI, ECX

-              MOV ESI, EAX

-              MOV ECX, EDX

-              ADD ECX, 2

-              REP MOVSD

-              POP ESI

-              POP EDI

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function MakeAffineVector(V: array of Single): TAffineVector; assembler;

-

-// creates a vector from given values

-// EAX contains address of V

-// ECX contains address to result vector

-// EDX contains highest index of V

-

-asm

-              PUSH EDI

-              PUSH ESI

-              MOV EDI, ECX

-              MOV ESI, EAX

-              MOV ECX, EDX

-              INC ECX

-              CMP ECX, 3

-              JB  @@1

-              MOV ECX, 3

-@@1:          REP MOVSD                     // copy given values

-              MOV ECX, 2

-              SUB ECX, EDX                   // determine missing entries

-              JS  @@Finish

-              XOR EAX, EAX

-              REP STOSD                     // set remaining fields to 0

-@@Finish:     POP ESI

-              POP EDI

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function MakeQuaternion(Imag: array of Single; Real: Single): TQuaternion; assembler;

-

-// creates a quaternion from the given values

-// EAX contains address of Imag

-// ECX contains address to result vector

-// EDX contains highest index of Imag

-// Real part is passed on the stack

-

-asm

-              PUSH EDI

-              PUSH ESI

-              MOV EDI, ECX

-              MOV ESI, EAX

-              MOV ECX, EDX

-              INC ECX

-              REP MOVSD

-              MOV EAX, [Real]

-              MOV [EDI], EAX

-              POP ESI

-              POP EDI

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function MakeVector(V: array of Single): TVector; assembler;

-

-// creates a vector from given values

-// EAX contains address of V

-// ECX contains address to result vector

-// EDX contains highest index of V

-

-asm

-              PUSH EDI

-              PUSH ESI

-              MOV EDI, ECX

-              MOV ESI, EAX

-              MOV ECX, EDX

-              INC ECX

-              CMP ECX, 4

-              JB  @@1

-              MOV ECX, 4

-@@1:          REP MOVSD                     // copy given values

-              MOV ECX, 3

-              SUB ECX, EDX                   // determine missing entries

-              JS  @@Finish

-              XOR EAX, EAX

-              REP STOSD                     // set remaining fields to 0

-@@Finish:     POP ESI

-              POP EDI

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function VectorLength(V: array of Single): Single; assembler;

-

-// calculates the length of a vector following the equation: sqrt(x * x + y * y + ...)

-// Note: The parameter of this function is declared as open array. Thus

-// there's no restriction about the number of the components of the vector.

-//

-// EAX contains address of V

-// EDX contains the highest index of V

-// the result is returned in ST(0)

-

-asm

-              FLDZ                           // initialize sum

-@@Loop:       FLD  DWORD PTR [EAX  +  4 * EDX] // load a component

-              FMUL ST, ST

-              FADDP

-              SUB  EDX, 1

-              JNL  @@Loop

-              FSQRT

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function VectorAngle(V1, V2: TAffineVector): Single; assembler;

-

-// calculates the cosine of the angle between Vector1 and Vector2

-// Result = DotProduct(V1, V2) / (Length(V1) * Length(V2))

-//

-// EAX contains address of Vector1

-// EDX contains address of Vector2

-

-asm

-              FLD DWORD PTR [EAX]           // V1[0]

-              FLD ST                        // double V1[0]

-              FMUL ST, ST                   // V1[0]^2 (prep. for divisor)

-              FLD DWORD PTR [EDX]           // V2[0]

-              FMUL ST(2), ST                // ST(2) := V1[0] * V2[0]

-              FMUL ST, ST                   // V2[0]^2 (prep. for divisor)

-              FLD DWORD PTR [EAX + 4]       // V1[1]

-              FLD ST                        // double V1[1]

-              FMUL ST, ST                   // ST(0) := V1[1]^2

-              FADDP ST(3), ST               // ST(2) := V1[0]^2 + V1[1] *  * 2

-              FLD DWORD PTR [EDX + 4]       // V2[1]

-              FMUL ST(1), ST                // ST(1) := V1[1] * V2[1]

-              FMUL ST, ST                   // ST(0) := V2[1]^2

-              FADDP ST(2), ST               // ST(1) := V2[0]^2 + V2[1]^2

-              FADDP ST(3), ST               // ST(2) := V1[0] * V2[0] + V1[1] * V2[1]

-              FLD DWORD PTR [EAX + 8]       // load V2[1]

-              FLD ST                        // same calcs go here

-              FMUL ST, ST                   // (compare above)

-              FADDP ST(3), ST

-              FLD DWORD PTR [EDX + 8]

-              FMUL ST(1), ST

-              FMUL ST, ST

-              FADDP ST(2), ST

-              FADDP ST(3), ST

-              FMULP                         // ST(0) := (V1[0]^2 + V1[1]^2 + V1[2]) *

-                                            //          (V2[0]^2 + V2[1]^2 + V2[2])

-              FSQRT                         // sqrt(ST(0))

-              FDIVP                         // ST(0) := Result := ST(1) / ST(0)

-  // the result is expected in ST(0), if it's invalid, an error is raised

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function VectorNorm(V: array of Single): Single; assembler; register;

-

-// calculates norm of a vector which is defined as norm = x * x + y * y + ...

-// EAX contains address of V

-// EDX contains highest index in V

-// result is passed in ST(0)

-

-asm

-              FLDZ                           // initialize sum

-@@Loop:       FLD  DWORD PTR [EAX + 4 * EDX] // load a component

-              FMUL ST, ST                    // make square

-              FADDP                          // add previous calculated sum

-              SUB  EDX, 1

-              JNL  @@Loop

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function VectorNormalize(V: array of Single): Single; assembler; register;

-

-// transforms a vector to unit length and return length

-// EAX contains address of V

-// EDX contains the highest index in V

-// return former length of V in ST

-

-asm

-              PUSH EBX

-              MOV ECX, EDX                  // save size of V

-              CALL VectorLength             // calculate length of vector

-              FTST                          // test if length = 0

-              MOV EBX, EAX                  // save parameter address

-              FSTSW AX                      // get test result

-              TEST AH, C3                   // check the test result

-              JNZ @@Finish

-              SUB EBX, 4                    // simplyfied address calculation

-              INC ECX

-              FLD1                          // calculate reciprocal of length

-              FDIV ST, ST(1)

-@@1:          FLD ST                        // double reciprocal

-              FMUL DWORD PTR [EBX + 4 * ECX] // scale component

-              WAIT

-              FSTP DWORD PTR [EBX + 4 * ECX] // store result

-              LOOP @@1

-              FSTP ST                       // remove reciprocal from FPU stack

-@@Finish:     POP EBX

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function VectorAffineSubtract(V1, V2: TAffineVector): TAffineVector; assembler; register;

-

-// returns v1 minus v2

-// EAX contains address of V1

-// EDX contains address of V2

-// ECX contains address of the result

-

-asm

-  {Result[X] := V1[X]-V2[X];

-  Result[Y] := V1[Y]-V2[Y];

-  Result[Z] := V1[Z]-V2[Z];}

-

-                   FLD DWORD PTR [EAX]

-                   FSUB DWORD PTR [EDX]

-                   FSTP DWORD PTR [ECX]

-                   FLD DWORD PTR [EAX + 4]

-                   FSUB DWORD PTR [EDX + 4]

-                   FSTP DWORD PTR [ECX + 4]

-                   FLD DWORD PTR [EAX + 8]

-                   FSUB DWORD PTR [EDX + 8]

-                   FSTP DWORD PTR [ECX + 8]

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function VectorReflect(V, N: TAffineVector): TAffineVector; assembler; register;

-

-// reflects vector V against N (assumes N is normalized)

-// EAX contains address of V

-// EDX contains address of N

-// ECX contains address of the result

-

-//var Dot : Single;

-

-asm

-   {Dot := VectorAffineDotProduct(V, N);

-   Result[X] := V[X]-2 * Dot * N[X];

-   Result[Y] := V[Y]-2 * Dot * N[Y];

-   Result[Z] := V[Z]-2 * Dot * N[Z];}

-

-                   CALL VectorAffineDotProduct   // dot is now in ST(0)

-                   FCHS                          // -dot

-                   FADD ST, ST                   // -dot * 2

-                   FLD DWORD PTR [EDX]           // ST := N[X]

-                   FMUL ST, ST(1)                // ST := -2 * dot * N[X]

-                   FADD DWORD PTR[EAX]           // ST := V[X] - 2 * dot * N[X]

-                   FSTP DWORD PTR [ECX]          // store result

-                   FLD DWORD PTR [EDX + 4]       // etc.

-                   FMUL ST, ST(1)

-                   FADD DWORD PTR[EAX + 4]

-                   FSTP DWORD PTR [ECX + 4]

-                   FLD DWORD PTR [EDX + 8]

-                   FMUL ST, ST(1)

-                   FADD DWORD PTR[EAX + 8]

-                   FSTP DWORD PTR [ECX + 8]

-                   FSTP ST                       // clean FPU stack

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-procedure VectorRotate(var Vector: TVector4f; Axis: TVector3f; Angle: Single);

-

-// rotates Vector about Axis with Angle radiants

-

-var RotMatrix : TMatrix4f;

-

-begin

-  RotMatrix := CreateRotationMatrix(Axis, Angle);

-  Vector := VectorTransform(Vector, RotMatrix);

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-procedure VectorScale(V: array of Single; Factor: Single); assembler; register;

-

-// returns a vector scaled by a factor

-// EAX contains address of V

-// EDX contains highest index in V

-// Factor is located on the stack

-

-asm

-  {for I := Low(V) to High(V) do V[I] := V[I] * Factor;}

-

-              FLD DWORD PTR [Factor]        // load factor

-@@Loop:       FLD DWORD PTR [EAX + 4 * EDX] // load a component

-              FMUL ST, ST(1)                // multiply it with the factor

-              WAIT

-              FSTP DWORD PTR [EAX + 4 * EDX] // store the result

-              DEC EDX                       // do the entire array

-              JNS @@Loop

-              FSTP ST(0)                    // clean the FPU stack

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-procedure VectorNegate(V: array of Single); assembler; register;

-

-// returns a negated vector

-// EAX contains address of V

-// EDX contains highest index in V

-

-asm

-  {V[X] := -V[X];

-  V[Y] := -V[Y];

-  V[Z] := -V[Z];}

-

-@@Loop:       FLD DWORD PTR [EAX + 4 * EDX]

-              FCHS

-              WAIT

-              FSTP DWORD PTR [EAX + 4 * EDX]

-              DEC EDX

-              JNS @@Loop

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function VectorAdd(V1, V2: TVector): TVector; register;

-

-// returns the sum of two vectors

-

-begin

-  Result[X] := V1[X] + V2[X];

-  Result[Y] := V1[Y] + V2[Y];

-  Result[Z] := V1[Z] + V2[Z];

-  Result[W] := V1[W] + V2[W];

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function VectorAffineAdd(V1, V2: TAffineVector): TAffineVector; register;

-

-// returns the sum of two vectors

-

-begin

-  Result[X] := V1[X] + V2[X];

-  Result[Y] := V1[Y] + V2[Y];

-  Result[Z] := V1[Z] + V2[Z];

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function VectorSubtract(V1, V2: TVector): TVector; register;

-

-// returns the difference of two vectors

-

-begin

-  Result[X] := V1[X] - V2[X];

-  Result[Y] := V1[Y] - V2[Y];

-  Result[Z] := V1[Z] - V2[Z];

-  Result[W] := V1[W] - V2[W];

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function VectorDotProduct(V1, V2: TVector): Single; register;

-

-begin

-  Result := V1[X] * V2[X] + V1[Y] * V2[Y] + V1[Z] * V2[Z] + V1[W] * V2[W];

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function VectorAffineDotProduct(V1, V2: TAffineVector): Single; assembler; register;

-

-// calculates the dot product between V1 and V2

-// EAX contains address of V1

-// EDX contains address of V2

-// result is stored in ST(0)

-

-asm

-  //Result := V1[X] * V2[X] + V1[Y] * V2[Y] + V1[Z] * V2[Z];

-

-                   FLD DWORD PTR [EAX]

-                   FMUL DWORD PTR [EDX]

-                   FLD DWORD PTR [EAX + 4]

-                   FMUL DWORD PTR [EDX + 4]

-                   FADDP

-                   FLD DWORD PTR [EAX + 8]

-                   FMUL DWORD PTR [EDX + 8]

-                   FADDP

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function VectorCrossProduct(V1, V2: TAffineVector): TAffineVector;

-

-// calculates the cross product between vector 1 and 2, Temp is necessary because

-// either V1 or V2 could also be the result vector

-//

-// EAX contains address of V1

-// EDX contains address of V2

-// ECX contains address of result

-

-var Temp: TAffineVector;

-

-asm

-  {Temp[X] := V1[Y] * V2[Z]-V1[Z] * V2[Y];

-  Temp[Y] := V1[Z] * V2[X]-V1[X] * V2[Z];

-  Temp[Z] := V1[X] * V2[Y]-V1[Y] * V2[X];

-  Result := Temp;}

-

-              PUSH EBX                      // save EBX, must be restored to original value

-              LEA EBX, [Temp]

-              FLD DWORD PTR [EDX + 8]       // first load both vectors onto FPU register stack

-              FLD DWORD PTR [EDX + 4]

-              FLD DWORD PTR [EDX + 0]

-              FLD DWORD PTR [EAX + 8]

-              FLD DWORD PTR [EAX + 4]

-              FLD DWORD PTR [EAX + 0]

-

-              FLD ST(1)                     // ST(0) := V1[Y]

-              FMUL ST, ST(6)                // ST(0) := V1[Y] * V2[Z]

-              FLD ST(3)                     // ST(0) := V1[Z]

-              FMUL ST, ST(6)                // ST(0) := V1[Z] * V2[Y]

-              FSUBP ST(1), ST               // ST(0) := ST(1)-ST(0)

-              FSTP DWORD [EBX]              // Temp[X] := ST(0)

-              FLD ST(2)                     // ST(0) := V1[Z]

-              FMUL ST, ST(4)                // ST(0) := V1[Z] * V2[X]

-              FLD ST(1)                     // ST(0) := V1[X]

-              FMUL ST, ST(7)                // ST(0) := V1[X] * V2[Z]

-              FSUBP ST(1), ST               // ST(0) := ST(1)-ST(0)

-              FSTP DWORD [EBX + 4]          // Temp[Y] := ST(0)

-              FLD ST                        // ST(0) := V1[X]

-              FMUL ST, ST(5)                // ST(0) := V1[X] * V2[Y]

-              FLD ST(2)                     // ST(0) := V1[Y]

-              FMUL ST, ST(5)                // ST(0) := V1[Y] * V2[X]

-              FSUBP ST(1), ST               // ST(0) := ST(1)-ST(0)

-              FSTP DWORD [EBX + 8]          // Temp[Z] := ST(0)

-              FSTP ST(0)                    // clear FPU register stack

-              FSTP ST(0)

-              FSTP ST(0)

-              FSTP ST(0)

-              FSTP ST(0)

-              FSTP ST(0)

-              MOV EAX, [EBX]                // copy Temp to Result

-              MOV [ECX], EAX

-              MOV EAX, [EBX + 4]

-              MOV [ECX + 4], EAX

-              MOV EAX, [EBX + 8]

-              MOV [ECX + 8], EAX

-              POP EBX

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function VectorPerpendicular(V, N: TAffineVector): TAffineVector;

-

-// calculates a vector perpendicular to N (N is assumed to be of unit length)

-// subtract out any component parallel to N

-

-var Dot: Single;

-

-begin

-   Dot := VectorAffineDotProduct(V, N);

-   Result[X] := V[X]-Dot * N[X];

-   Result[Y] := V[Y]-Dot * N[Y];

-   Result[Z] := V[Z]-Dot * N[Z];

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function VectorTransform(V: TVector4f; M: TMatrix): TVector4f; register;

-

-// transforms a homogeneous vector by multiplying it with a matrix

-

-var TV: TVector4f;

-

-begin

-  TV[X] := V[X] * M[X, X] + V[Y] * M[Y, X] + V[Z] * M[Z, X] + V[W] * M[W, X];

-  TV[Y] := V[X] * M[X, Y] + V[Y] * M[Y, Y] + V[Z] * M[Z, Y] + V[W] * M[W, Y];

-  TV[Z] := V[X] * M[X, Z] + V[Y] * M[Y, Z] + V[Z] * M[Z, Z] + V[W] * M[W, Z];

-  TV[W] := V[X] * M[X, W] + V[Y] * M[Y, W] + V[Z] * M[Z, W] + V[W] * M[W, W];

-  Result := TV

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function  VectorTransform(V: TVector3f; M: TMatrix): TVector3f;

-

-// transforms an affine vector by multiplying it with a (homogeneous) matrix

-

-var TV: TVector3f;

-

-begin

-  TV[X] := V[X] * M[X, X] + V[Y] * M[Y, X] + V[Z] * M[Z, X] + M[W, X];

-  TV[Y] := V[X] * M[X, Y] + V[Y] * M[Y, Y] + V[Z] * M[Z, Y] + M[W, Y];

-  TV[Z] := V[X] * M[X, Z] + V[Y] * M[Y, Z] + V[Z] * M[Z, Z] + M[W, Z];

-  Result := TV;

-end;

-

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function VectorAffineTransform(V: TAffineVector; M: TAffineMatrix): TAffineVector; register;

-

-// transforms an affine vector by multiplying it with a matrix

-

-var TV: TAffineVector;

-

-begin

-  TV[X] := V[X] * M[X, X] + V[Y] * M[Y, X] + V[Z] * M[Z, X];

-  TV[Y] := V[X] * M[X, Y] + V[Y] * M[Y, Y] + V[Z] * M[Z, Y];

-  TV[Z] := V[X] * M[X, Z] + V[Y] * M[Y, Z] + V[Z] * M[Z, Z];

-  Result := TV;

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function PointInPolygon(xp, yp : array of Single; x, y: Single): Boolean;

-

-// The code below is from Wm. Randolph Franklin <wrf@ecse.rpi.edu>

-// with some minor modifications for speed.  It returns 1 for strictly

-// interior points, 0 for strictly exterior, and 0 or 1 for points on

-// the boundary.

-// This code is not yet tested!

-

-var I, J: Integer;

-

-begin

-  Result := False;

-  if High(XP) <> High(YP) then Exit;

-  J := High(XP);

-  for I := 0 to High(XP) do

-  begin

-    if ((((yp[I] <= y) and (y < yp[J])) or ((yp[J] <= y) and (y < yp[I]))) and

-        (x < (xp[J] - xp[I]) * (y - yp[I]) / (yp[J] - yp[I]) + xp[I]))

-    then Result := not Result;

-    J := I + 1;

-  end;

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function QuaternionConjugate(Q: TQuaternion): TQuaternion; assembler;

-

-// returns the conjugate of a quaternion

-// EAX contains address of Q

-// EDX contains address of result

-

-asm

-              FLD DWORD PTR [EAX]

-              FCHS

-              WAIT

-              FSTP DWORD PTR [EDX]

-              FLD DWORD PTR [EAX + 4]

-              FCHS

-              WAIT

-              FSTP DWORD PTR [EDX + 4]

-              FLD DWORD PTR [EAX + 8]

-              FCHS

-              WAIT

-              FSTP DWORD PTR [EDX + 8]

-              MOV EAX, [EAX + 12]

-              MOV [EDX + 12], EAX

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function QuaternionFromPoints(V1, V2: TAffineVector): TQuaternion; assembler;

-

-// constructs a unit quaternion from two points on unit sphere

-// EAX contains address of V1

-// ECX contains address to result

-// EDX contains address of V2

-

-asm

-  {Result.ImagPart := VectorCrossProduct(V1, V2);

-   Result.RealPart :=  Sqrt((VectorAffineDotProduct(V1, V2) + 1)/2);}

-

-              PUSH EAX

-              CALL VectorCrossProduct       // determine axis to rotate about

-              POP EAX

-              FLD1                          // prepare next calculation

-              Call VectorAffineDotProduct   // calculate cos(angle between V1 and V2)

-              FADD ST, ST(1)                // transform angle to angle/2 by: cos(a/2)=sqrt((1 + cos(a))/2)

-              FXCH ST(1)

-              FADD ST, ST

-              FDIVP ST(1), ST

-              FSQRT

-              FSTP DWORD PTR [ECX + 12]     // Result.RealPart := ST(0)

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function QuaternionMultiply(qL, qR: TQuaternion): TQuaternion;

-

-// Returns quaternion product qL * qR.  Note: order is important!

-// To combine rotations, use the product QuaternionMuliply(qSecond, qFirst),

-// which gives the effect of rotating by qFirst then qSecond.

-

-var Temp : TQuaternion;

-

-begin

-  Temp.RealPart := qL.RealPart * qR.RealPart - qL.ImagPart[X] * qR.ImagPart[X] -

-                   qL.ImagPart[Y] * qR.ImagPart[Y] - qL.ImagPart[Z] * qR.ImagPart[Z];

-  Temp.ImagPart[X] := qL.RealPart * qR.ImagPart[X] + qL.ImagPart[X] * qR.RealPart +

-                      qL.ImagPart[Y] * qR.ImagPart[Z] - qL.ImagPart[Z] * qR.ImagPart[Y];

-  Temp.ImagPart[Y] := qL.RealPart * qR.ImagPart[Y] + qL.ImagPart[Y] * qR.RealPart +

-                      qL.ImagPart[Z] * qR.ImagPart[X] - qL.ImagPart[X] * qR.ImagPart[Z];

-  Temp.ImagPart[Z] := qL.RealPart * qR.ImagPart[Z] + qL.ImagPart[Z] * qR.RealPart +

-                      qL.ImagPart[X] * qR.ImagPart[Y] - qL.ImagPart[Y] * qR.ImagPart[X];

-  Result := Temp;

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function QuaternionToMatrix(Q: TQuaternion): TMatrix;

-

-// Constructs rotation matrix from (possibly non-unit) quaternion.

-// Assumes matrix is used to multiply column vector on the left:

-// vnew = mat vold.  Works correctly for right-handed coordinate system

-// and right-handed rotations.

-

-// Essentially, this function is the same as CreateRotationMatrix and you can consider it as

-// being for reference here.

-

-{var Norm, S,

-    XS, YS, ZS,

-    WX, WY, WZ,

-    XX, XY, XZ,

-    YY, YZ, ZZ   : Single;

-

-begin

-  Norm := Q.Vector[X] * Q.Vector[X] + Q.Vector[Y] * Q.Vector[Y] + Q.Vector[Z] * Q.Vector[Z] + Q.RealPart * Q.RealPart;

-  if Norm > 0 then S := 2 / Norm

-              else S := 0;

-

-  XS := Q.Vector[X] * S;   YS := Q.Vector[Y] * S;   ZS := Q.Vector[Z] * S;

-  WX := Q.RealPart * XS;   WY := Q.RealPart * YS;   WZ := Q.RealPart * ZS;

-  XX := Q.Vector[X] * XS;  XY := Q.Vector[X] * YS;  XZ := Q.Vector[X] * ZS;

-  YY := Q.Vector[Y] * YS;  YZ := Q.Vector[Y] * ZS;  ZZ := Q.Vector[Z] * ZS;

-

-  Result[X, X] := 1 - (YY + ZZ); Result[Y, X] := XY + WZ;       Result[Z, X] := XZ - WY;       Result[W, X] := 0;

-  Result[X, Y] := XY - WZ;       Result[Y, Y] := 1 - (XX + ZZ); Result[Z, Y] := YZ + WX;       Result[W, Y] := 0;

-  Result[X, Z] := XZ + WY;       Result[Y, Z] := YZ - WX;       Result[Z, Z] := 1 - (XX + YY); Result[W, Z] := 0;

-  Result[X, W] := 0;             Result[Y, W] := 0;             Result[Z, W] := 0;             Result[W, W] := 1;}

-

-var

-  V: TAffineVector;

-  SinA, CosA,

-  A, B, C: Extended;

-

-begin

-  V := Q.ImagPart;

-  VectorNormalize(V);

-  SinCos(Q.RealPart / 2, SinA, CosA);

-  A := V[X] * SinA;

-  B := V[Y] * SinA;

-  C := V[Z] * SinA;

-

-  Result := IdentityMatrix;

-  Result[X, X] := 1 - 2 * B * B - 2 * C * C;

-  Result[X, Y] := 2 * A * B - 2 * CosA * C;

-  Result[X, Z] := 2 * A * C + 2 * CosA * B;

-

-  Result[Y, X] := 2 * A * B + 2 * CosA * C;

-  Result[Y, Y] := 1 - 2 * A * A - 2 * C * C;

-  Result[Y, Z] := 2 * B * C - 2 * CosA * A;

-

-  Result[Z, X] := 2 * A * C - 2 * CosA * B;

-  Result[Z, Y] := 2 * B * C + 2 * CosA * A;

-  Result[Z, Z] := 1 - 2 * A * A - 2 * B * B;

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-procedure QuaternionToPoints(Q: TQuaternion; var ArcFrom, ArcTo: TAffineVector); register;

-

-// converts a unit quaternion into two points on a unit sphere

-

-var S: Single;

-

-begin

-  S := Sqrt(Q.ImagPart[X] * Q.ImagPart[X] + Q.ImagPart[Y] * Q.ImagPart[Y]);

-  if S = 0 then ArcFrom := MakeAffineVector([0, 1, 0])

-           else ArcFrom := MakeAffineVector([-Q.ImagPart[Y] / S, Q.ImagPart[X] / S, 0]);

-  ArcTo[X] := Q.RealPart * ArcFrom[X] - Q.ImagPart[Z] * ArcFrom[Y];

-  ArcTo[Y] := Q.RealPart * ArcFrom[Y] + Q.ImagPart[Z] * ArcFrom[X];

-  ArcTo[Z] := Q.ImagPart[X] * ArcFrom[Y] - Q.ImagPart[Y] * ArcFrom[X];

-  if Q.RealPart < 0 then ArcFrom := MakeAffineVector([-ArcFrom[X], -ArcFrom[Y], 0]);

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function MatrixAffineDeterminant(M: TAffineMatrix): Single; register;

-

-// determinant of a 3x3 matrix

-

-begin

-  Result := M[X, X] * (M[Y, Y] * M[Z, Z] - M[Z, Y] * M[Y, Z]) -

-            M[X, Y] * (M[Y, X] * M[Z, Z] - M[Z, X] * M[Y, Z]) +

-            M[X, Z] * (M[Y, X] * M[Z, Y] - M[Z, X] * M[Y, Y]);

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function MatrixDetInternal(a1, a2, a3, b1, b2, b3, c1, c2, c3: Single): Single;

-

-// internal version for the determinant of a 3x3 matrix

-

-begin

-  Result := a1 * (b2 * c3 - b3 * c2) -

-            b1 * (a2 * c3 - a3 * c2) +

-            c1 * (a2 * b3 - a3 * b2);

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-procedure MatrixAdjoint(var M: TMatrix); register;

-

-// Adjoint of a 4x4 matrix - used in the computation of the inverse

-// of a 4x4 matrix

-

-var a1, a2, a3, a4,

-    b1, b2, b3, b4,

-    c1, c2, c3, c4,

-    d1, d2, d3, d4: Single;

-

-

-begin

-    a1 :=  M[X, X]; b1 :=  M[X, Y];

-    c1 :=  M[X, Z]; d1 :=  M[X, W];

-    a2 :=  M[Y, X]; b2 :=  M[Y, Y];

-    c2 :=  M[Y, Z]; d2 :=  M[Y, W];

-    a3 :=  M[Z, X]; b3 :=  M[Z, Y];

-    c3 :=  M[Z, Z]; d3 :=  M[Z, W];

-    a4 :=  M[W, X]; b4 :=  M[W, Y];

-    c4 :=  M[W, Z]; d4 :=  M[W, W];

-

-    // row column labeling reversed since we transpose rows & columns

-    M[X, X] :=  MatrixDetInternal(b2, b3, b4, c2, c3, c4, d2, d3, d4);

-    M[Y, X] := -MatrixDetInternal(a2, a3, a4, c2, c3, c4, d2, d3, d4);

-    M[Z, X] :=  MatrixDetInternal(a2, a3, a4, b2, b3, b4, d2, d3, d4);

-    M[W, X] := -MatrixDetInternal(a2, a3, a4, b2, b3, b4, c2, c3, c4);

-

-    M[X, Y] := -MatrixDetInternal(b1, b3, b4, c1, c3, c4, d1, d3, d4);

-    M[Y, Y] :=  MatrixDetInternal(a1, a3, a4, c1, c3, c4, d1, d3, d4);

-    M[Z, Y] := -MatrixDetInternal(a1, a3, a4, b1, b3, b4, d1, d3, d4);

-    M[W, Y] :=  MatrixDetInternal(a1, a3, a4, b1, b3, b4, c1, c3, c4);

-

-    M[X, Z] :=  MatrixDetInternal(b1, b2, b4, c1, c2, c4, d1, d2, d4);

-    M[Y, Z] := -MatrixDetInternal(a1, a2, a4, c1, c2, c4, d1, d2, d4);

-    M[Z, Z] :=  MatrixDetInternal(a1, a2, a4, b1, b2, b4, d1, d2, d4);

-    M[W, Z] := -MatrixDetInternal(a1, a2, a4, b1, b2, b4, c1, c2, c4);

-

-    M[X, W] := -MatrixDetInternal(b1, b2, b3, c1, c2, c3, d1, d2, d3);

-    M[Y, W] :=  MatrixDetInternal(a1, a2, a3, c1, c2, c3, d1, d2, d3);

-    M[Z, W] := -MatrixDetInternal(a1, a2, a3, b1, b2, b3, d1, d2, d3);

-    M[W, W] :=  MatrixDetInternal(a1, a2, a3, b1, b2, b3, c1, c2, c3);

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function MatrixDeterminant(M: TMatrix): Single; register;

-

-// Determinant of a 4x4 matrix

-

-var a1, a2, a3, a4,

-    b1, b2, b3, b4,

-    c1, c2, c3, c4,

-    d1, d2, d3, d4  : Single;

-

-begin

-  a1 := M[X, X];  b1 := M[X, Y];  c1 := M[X, Z];  d1 := M[X, W];

-  a2 := M[Y, X];  b2 := M[Y, Y];  c2 := M[Y, Z];  d2 := M[Y, W];

-  a3 := M[Z, X];  b3 := M[Z, Y];  c3 := M[Z, Z];  d3 := M[Z, W];

-  a4 := M[W, X];  b4 := M[W, Y];  c4 := M[W, Z];  d4 := M[W, W];

-

-  Result := a1 * MatrixDetInternal(b2, b3, b4, c2, c3, c4, d2, d3, d4) -

-            b1 * MatrixDetInternal(a2, a3, a4, c2, c3, c4, d2, d3, d4) +

-            c1 * MatrixDetInternal(a2, a3, a4, b2, b3, b4, d2, d3, d4) -

-            d1 * MatrixDetInternal(a2, a3, a4, b2, b3, b4, c2, c3, c4);

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-procedure MatrixScale(var M: TMatrix; Factor: Single); register;

-

-// multiplies all elements of a 4x4 matrix with a factor

-

-var I, J: Integer;

-

-begin

-  for I := 0 to 3 do

-    for J := 0 to 3 do M[I, J] := M[I, J] * Factor;

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-procedure MatrixInvert(var M: TMatrix); register;

-

-// finds the inverse of a 4x4 matrix

-

-var Det: Single;

-

-begin

-  Det := MatrixDeterminant(M);

-  if Abs(Det) < EPSILON then M := IdentityMatrix

-                        else

-  begin

-    MatrixAdjoint(M);

-    MatrixScale(M, 1 / Det);

-  end;

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-procedure MatrixTranspose(var M: TMatrix); register;

-

-// computes transpose of 4x4 matrix

-

-var I, J: Integer;

-    TM: TMatrix;

-

-begin

-  for I := 0 to 3 do

-    for J := 0 to 3 do TM[J, I] := M[I, J];

-  M := TM;

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-procedure MatrixAffineTranspose(var M: TAffineMatrix); register;

-

-// computes transpose of 3x3 matrix

-

-var I, J: Integer;

-    TM: TAffineMatrix;

-

-begin

-  for I := 0 to 2 do

-    for J := 0 to 2 do TM[J, I] := M[I, J];

-  M := TM;

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function MatrixMultiply(M1, M2: TMatrix): TMatrix; register;

-

-// multiplies two 4x4 matrices

-

-var I, J: Integer;

-    TM: TMatrix;

-

-begin

-  for I := 0 to 3 do

-    for J := 0 to 3 do

-      TM[I, J] := M1[I, X] * M2[X, J] +

-                  M1[I, Y] * M2[Y, J] +

-                  M1[I, Z] * M2[Z, J] +

-                  M1[I, W] * M2[W, J];

-  Result := TM;

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function CreateRotationMatrix(Axis: TVector3f; Angle: Single): TMatrix; register;

-

-// Creates a rotation matrix along the given Axis by the given Angle in radians.

-

-var cosine,

-    sine,

-    Len,

-    one_minus_cosine: Extended;

-

-begin

-  SinCos(Angle, Sine, Cosine);

-  one_minus_cosine := 1 - cosine;

-  Len := VectorNormalize(Axis);

-

-  if Len = 0 then Result := IdentityMatrix

-             else

-  begin

-    Result[X, X] := (one_minus_cosine * Sqr(Axis[0])) + Cosine;

-    Result[X, Y] := (one_minus_cosine * Axis[0] * Axis[1]) - (Axis[2] * Sine);

-    Result[X, Z] := (one_minus_cosine * Axis[2] * Axis[0]) + (Axis[1] * Sine);

-    Result[X, W] := 0;

-

-    Result[Y, X] := (one_minus_cosine * Axis[0] * Axis[1]) + (Axis[2] * Sine);

-    Result[Y, Y] := (one_minus_cosine * Sqr(Axis[1])) + Cosine;

-    Result[Y, Z] := (one_minus_cosine * Axis[1] * Axis[2]) - (Axis[0] * Sine);

-    Result[Y, W] := 0;

-

-    Result[Z, X] := (one_minus_cosine * Axis[2] * Axis[0]) - (Axis[1] * Sine);

-    Result[Z, Y] := (one_minus_cosine * Axis[1] * Axis[2]) + (Axis[0] * Sine);

-    Result[Z, Z] := (one_minus_cosine * Sqr(Axis[2])) + Cosine;

-    Result[Z, W] := 0;

-

-    Result[W, X] := 0;

-    Result[W, Y] := 0;

-    Result[W, Z] := 0;

-    Result[W, W] := 1;

-  end;

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function ConvertRotation(Angles: TAffineVector): TVector; register;

-

-{ Turn a triplet of rotations about x, y, and z (in that order) into an

-   equivalent rotation around a single axis (all in radians).

-

-   Rotation of the Angle t about the axis (X, Y, Z) is given by:

-

-     | X^2 + (1-X^2) Cos(t),    XY(1-Cos(t))  +  Z Sin(t), XZ(1-Cos(t))-Y Sin(t) |

- M = | XY(1-Cos(t))-Z Sin(t), Y^2 + (1-Y^2) Cos(t),      YZ(1-Cos(t)) + X Sin(t) |

-     | XZ(1-Cos(t)) + Y Sin(t), YZ(1-Cos(t))-X Sin(t),   Z^2 + (1-Z^2) Cos(t)    |

-

-   Rotation about the three axes (Angles a1, a2, a3) can be represented as

-   the product of the individual rotation matrices:

-

-      | 1  0       0       | | Cos(a2) 0 -Sin(a2) | |  Cos(a3) Sin(a3) 0 |

-      | 0  Cos(a1) Sin(a1) | * | 0       1  0       | * | -Sin(a3) Cos(a3) 0 |

-      | 0 -Sin(a1) Cos(a1) | | Sin(a2) 0  Cos(a2) | |  0       0       1 |

-	     Mx                       My                     Mz

-

-   We now want to solve for X, Y, Z, and t given 9 equations in 4 unknowns.

-   Using the diagonal elements of the two matrices, we get:

-

-      X^2 + (1-X^2) Cos(t) = M[0][0]

-      Y^2 + (1-Y^2) Cos(t) = M[1][1]

-      Z^2 + (1-Z^2) Cos(t) = M[2][2]

-

-   Adding the three equations, we get:

-

-      X^2  +  Y^2  +  Z^2 - (M[0][0]  +  M[1][1]  +  M[2][2]) =

-	 - (3 - X^2 - Y^2 - Z^2) Cos(t)

-

-   Since (X^2  +  Y^2  +  Z^2) = 1, we can rewrite as:

-

-      Cos(t) = (1 - (M[0][0]  +  M[1][1]  +  M[2][2])) / 2

-

-   Solving for t, we get:

-

-      t = Acos(((M[0][0]  +  M[1][1]  +  M[2][2]) - 1) / 2)

-

-    We can substitute t into the equations for X^2, Y^2, and Z^2 above

-    to get the values for X, Y, and Z.  To find the proper signs we note

-    that:

-

-	2 X Sin(t) = M[1][2] - M[2][1]

-	2 Y Sin(t) = M[2][0] - M[0][2]

-	2 Z Sin(t) = M[0][1] - M[1][0]

-}

-

-var Axis1, Axis2: TVector3f;

-    M, M1, M2: TMatrix;

-    cost, cost1,

-    sint,

-    s1, s2, s3: Single;

-    I: Integer;

-

-

-begin

-  // see if we are only rotating about a single Axis

-  if Abs(Angles[X]) < EPSILON then

-  begin

-    if Abs(Angles[Y]) < EPSILON then

-    begin

-      Result := MakeVector([0, 0, 1, Angles[Z]]);

-      Exit;

-    end

-    else

-      if Abs(Angles[Z]) < EPSILON then

-      begin

-        Result := MakeVector([0, 1, 0, Angles[Y]]);

-        Exit;

-      end

-   end

-   else

-     if (Abs(Angles[Y]) < EPSILON) and

-        (Abs(Angles[Z]) < EPSILON) then

-     begin

-       Result := MakeVector([1, 0, 0, Angles[X]]);

-       Exit;

-     end;

-

-  // make the rotation matrix

-  Axis1 := MakeAffineVector([1, 0, 0]);

-  M := CreateRotationMatrix(Axis1, Angles[X]);

-

-  Axis2 := MakeAffineVector([0, 1, 0]);

-  M2 := CreateRotationMatrix(Axis2, Angles[Y]);

-  M1 := MatrixMultiply(M, M2);

-

-  Axis2 := MakeAffineVector([0, 0, 1]);

-  M2 := CreateRotationMatrix(Axis2, Angles[Z]);

-  M := MatrixMultiply(M1, M2);

-

-  cost := ((M[X, X] + M[Y, Y] + M[Z, Z])-1) / 2;

-  if cost < -1 then cost := -1

-               else

-    if cost > 1 - EPSILON then

-    begin

-      // Bad Angle - this would cause a crash

-      Result := MakeVector([1, 0, 0, 0]);

-      Exit;

-    end;

-

-  cost1 := 1 - cost;

-  Result := Makevector([Sqrt((M[X, X]-cost) / cost1),

-                      Sqrt((M[Y, Y]-cost) / cost1),

-                      sqrt((M[Z, Z]-cost) / cost1),

-                      arccos(cost)]);

-

-  sint := 2 * Sqrt(1 - cost * cost); // This is actually 2 Sin(t)

-

-  // Determine the proper signs

-  for I := 0 to 7 do

-  begin

-    if (I and 1) > 1 then s1 := -1 else s1 := 1;

-    if (I and 2) > 1 then s2 := -1 else s2 := 1;

-    if (I and 4) > 1 then s3 := -1 else s3 := 1;

-    if (Abs(s1 * Result[X] * sint-M[Y, Z] + M[Z, Y]) < EPSILON2) and

-       (Abs(s2 * Result[Y] * sint-M[Z, X] + M[X, Z]) < EPSILON2) and

-       (Abs(s3 * Result[Z] * sint-M[X, Y] + M[Y, X]) < EPSILON2) then

-        begin

-          // We found the right combination of signs

-          Result[X] := Result[X] * s1;

-          Result[Y] := Result[Y] * s2;

-          Result[Z] := Result[Z] * s3;

-          Exit;

-        end;

-  end;

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function CreateRotationMatrixX(Sine, Cosine: Single): TMatrix; register;

-

-// creates matrix for rotation about x-axis

-

-begin

-  Result := EmptyMatrix;

-  Result[X, X] := 1;

-  Result[Y, Y] := Cosine;

-  Result[Y, Z] := Sine;

-  Result[Z, Y] := -Sine;

-  Result[Z, Z] := Cosine;

-  Result[W, W] := 1;

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function CreateRotationMatrixY(Sine, Cosine: Single): TMatrix; register;

-

-// creates matrix for rotation about y-axis

-

-begin

-  Result := EmptyMatrix;

-  Result[X, X] := Cosine;

-  Result[X, Z] := -Sine;

-  Result[Y, Y] := 1;

-  Result[Z, X] := Sine;

-  Result[Z, Z] := Cosine;

-  Result[W, W] := 1;

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function CreateRotationMatrixZ(Sine, Cosine: Single): TMatrix; register;

-

-// creates matrix for rotation about z-axis

-

-begin

-  Result := EmptyMatrix;

-  Result[X, X] := Cosine;

-  Result[X, Y] := Sine;

-  Result[Y, X] := -Sine;

-  Result[Y, Y] := Cosine;

-  Result[Z, Z] := 1;

-  Result[W, W] := 1;

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function CreateScaleMatrix(V: TAffineVector): TMatrix; register;

-

-// creates scaling matrix

-

-begin

-  Result := IdentityMatrix;

-  Result[X, X] := V[X];

-  Result[Y, Y] := V[Y];

-  Result[Z, Z] := V[Z];

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function CreateTranslationMatrix(V: TVector): TMatrix; register;

-

-// creates translation matrix

-

-begin

-  Result := IdentityMatrix;

-  Result[W, X] := V[X];

-  Result[W, Y] := V[Y];

-  Result[W, Z] := V[Z];

-  Result[W, W] := V[W];

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function Lerp(Start, Stop, t: Single): Single;

-

-// calculates linear interpolation between start and stop at point t

-

-begin

-  Result := Start + (Stop - Start) * t;

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function VectorAffineLerp(V1, V2: TAffineVector; t: Single): TAffineVector;

-

-// calculates linear interpolation between vector1 and vector2 at point t

-

-begin

-  Result[X] := Lerp(V1[X], V2[X], t);

-  Result[Y] := Lerp(V1[Y], V2[Y], t);

-  Result[Z] := Lerp(V1[Z], V2[Z], t);

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function VectorLerp(V1, V2: TVector; t: Single): TVector;

-

-// calculates linear interpolation between vector1 and vector2 at point t

-

-begin

-  Result[X] := Lerp(V1[X], V2[X], t);

-  Result[Y] := Lerp(V1[Y], V2[Y], t);

-  Result[Z] := Lerp(V1[Z], V2[Z], t);

-  Result[W] := Lerp(V1[W], V2[W], t);

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function QuaternionSlerp(QStart, QEnd: TQuaternion; Spin: Integer; t: Single): TQuaternion;

-

-// spherical linear interpolation of unit quaternions with spins

-// QStart, QEnd - start and end unit quaternions

-// t            - interpolation parameter (0 to 1)

-// Spin         - number of extra spin rotations to involve

-

-var beta,                   // complementary interp parameter

-    theta,                  // Angle between A and B

-    sint, cost,             // sine, cosine of theta

-    phi: Single;            // theta plus spins

-    bflip: Boolean;         // use negativ t?

-

-

-begin

-  // cosine theta

-  cost := VectorAngle(QStart.ImagPart, QEnd.ImagPart);

-

-  // if QEnd is on opposite hemisphere from QStart, use -QEnd instead

-  if cost < 0 then

-  begin

-    cost := -cost;

-    bflip := True;

-  end

-  else bflip := False;

-

-  // if QEnd is (within precision limits) the same as QStart,

-  // just linear interpolate between QStart and QEnd.

-  // Can't do spins, since we don't know what direction to spin.

-

-  if (1 - cost) < EPSILON then beta := 1 - t

-                          else

-  begin

-    // normal case

-    theta := arccos(cost);

-    phi := theta + Spin * Pi;

-    sint := sin(theta);

-    beta := sin(theta - t * phi) / sint;

-    t := sin(t * phi) / sint;

-  end;

-

-  if bflip then t := -t;

-

-  // interpolate

-  Result.ImagPart[X] := beta * QStart.ImagPart[X] + t * QEnd.ImagPart[X];

-  Result.ImagPart[Y] := beta * QStart.ImagPart[Y] + t * QEnd.ImagPart[Y];

-  Result.ImagPart[Z] := beta * QStart.ImagPart[Z] + t * QEnd.ImagPart[Z];

-  Result.RealPart := beta * QStart.RealPart + t * QEnd.RealPart;

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function VectorAffineCombine(V1, V2: TAffineVector; F1, F2: Single): TAffineVector;

-

-// makes a linear combination of two vectors and return the result

-

-begin

-  Result[X] := (F1 * V1[X]) + (F2 * V2[X]);

-  Result[Y] := (F1 * V1[Y]) + (F2 * V2[Y]);

-  Result[Z] := (F1 * V1[Z]) + (F2 * V2[Z]);

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function VectorCombine(V1, V2: TVector; F1, F2: Single): TVector;

-

-// makes a linear combination of two vectors and return the result

-

-begin

-  Result[X] := (F1 * V1[X]) + (F2 * V2[X]);

-  Result[Y] := (F1 * V1[Y]) + (F2 * V2[Y]);

-  Result[Z] := (F1 * V1[Z]) + (F2 * V2[Z]);

-  Result[W] := (F1 * V1[W]) + (F2 * V2[W]);

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function MatrixDecompose(M: TMatrix; var Tran: TTransformations): Boolean; register;

-

-// Author: Spencer W. Thomas, University of Michigan

-//

-// MatrixDecompose - Decompose a non-degenerated 4x4 transformation matrix into

-// the sequence of transformations that produced it.

-//

-// The coefficient of each transformation is returned in the corresponding

-// element of the vector Tran.

-//

-// Returns true upon success, false if the matrix is singular.

-

-var I, J: Integer;

-    LocMat,

-    pmat,

-    invpmat,

-    tinvpmat: TMatrix;

-    prhs,

-    psol: TVector;

-    Row: array[0..2] of TAffineVector;

-

-begin

-  Result := False;

-  locmat := M;

-  // normalize the matrix

-  if locmat[W, W] = 0 then Exit;

-  for I := 0 to 3 do

-    for J := 0 to 3 do

-      locmat[I, J] := locmat[I, J] / locmat[W, W];

-

-  // pmat is used to solve for perspective, but it also provides

-  // an easy way to test for singularity of the upper 3x3 component.

-

-  pmat := locmat;

-  for I := 0 to 2 do pmat[I, W] := 0;

-  pmat[W, W] := 1;

-

-  if MatrixDeterminant(pmat) = 0 then Exit;

-

-  // First, isolate perspective.  This is the messiest.

-  if (locmat[X, W] <> 0) or

-     (locmat[Y, W] <> 0) or

-     (locmat[Z, W] <> 0) then

-  begin

-    // prhs is the right hand side of the equation.

-    prhs[X] := locmat[X, W];

-    prhs[Y] := locmat[Y, W];

-    prhs[Z] := locmat[Z, W];

-    prhs[W] := locmat[W, W];

-

-    // Solve the equation by inverting pmat and multiplying

-    // prhs by the inverse.  (This is the easiest way, not

-    // necessarily the best.)

-

-    invpmat := pmat;

-    MatrixInvert(invpmat);

-    MatrixTranspose(invpmat);

-    psol := VectorTransform(prhs, tinvpmat);

-

-    // stuff the answer away

-    Tran[ttPerspectiveX] := psol[X];

-    Tran[ttPerspectiveY] := psol[Y];

-    Tran[ttPerspectiveZ] := psol[Z];

-    Tran[ttPerspectiveW] := psol[W];

-

-    // clear the perspective partition

-    locmat[X, W] := 0;

-    locmat[Y, W] := 0;

-    locmat[Z, W] := 0;

-    locmat[W, W] := 1;

-  end

-  else

-  begin

-    // no perspective

-    Tran[ttPerspectiveX] := 0;

-    Tran[ttPerspectiveY] := 0;

-    Tran[ttPerspectiveZ] := 0;

-    Tran[ttPerspectiveW] := 0;

-  end;

-

-  // next take care of translation (easy)

-  for I := 0 to 2 do

-  begin

-    Tran[TTransType(Ord(ttTranslateX) + I)] := locmat[W, I];

-    locmat[W, I] := 0;

-  end;

-

-  // now get scale and shear

-  for I := 0 to 2 do

-  begin

-    row[I, X] := locmat[I, X];

-    row[I, Y] := locmat[I, Y];

-    row[I, Z] := locmat[I, Z];

-  end;

-

-  // compute X scale factor and normalize first row

-  Tran[ttScaleX] := Sqr(VectorNormalize(row[0])); // ml: calculation optimized

-

-  // compute XY shear factor and make 2nd row orthogonal to 1st

-  Tran[ttShearXY] := VectorAffineDotProduct(row[0], row[1]);

-  row[1] := VectorAffineCombine(row[1], row[0], 1, -Tran[ttShearXY]);

-

-  // now, compute Y scale and normalize 2nd row

-  Tran[ttScaleY] := Sqr(VectorNormalize(row[1])); // ml: calculation optimized

-  Tran[ttShearXY] := Tran[ttShearXY]/Tran[ttScaleY];

-

-  // compute XZ and YZ shears, orthogonalize 3rd row

-  Tran[ttShearXZ] := VectorAffineDotProduct(row[0], row[2]);

-  row[2] := VectorAffineCombine(row[2], row[0], 1, -Tran[ttShearXZ]);

-  Tran[ttShearYZ] := VectorAffineDotProduct(row[1], row[2]);

-  row[2] := VectorAffineCombine(row[2], row[1], 1, -Tran[ttShearYZ]);

-

-  // next, get Z scale and normalize 3rd row

-  Tran[ttScaleZ] := Sqr(VectorNormalize(row[1])); // (ML) calc. optimized

-  Tran[ttShearXZ] := Tran[ttShearXZ] / tran[ttScaleZ];

-  Tran[ttShearYZ] := Tran[ttShearYZ] / Tran[ttScaleZ];

-

-  // At this point, the matrix (in rows[]) is orthonormal.

-  // Check for a coordinate system flip.  If the determinant

-  // is -1, then negate the matrix and the scaling factors.

-  if VectorAffineDotProduct(row[0], VectorCrossProduct(row[1], row[2])) < 0 then

-    for I := 0 to 2 do

-    begin

-      Tran[TTransType(Ord(ttScaleX) + I)] := -Tran[TTransType(Ord(ttScaleX) + I)];

-      row[I, X] := -row[I, X];

-      row[I, Y] := -row[I, Y];

-      row[I, Z] := -row[I, Z];

-    end;

-

-  // now, get the rotations out, as described in the gem

-  Tran[ttRotateY] := arcsin(-row[0, Z]);

-  if cos(Tran[ttRotateY]) <> 0 then

-  begin

-    Tran[ttRotateX] := arctan2(row[1, Z], row[2, Z]);

-    Tran[ttRotateZ] := arctan2(row[0, Y], row[0, X]);

-  end

-  else

-  begin

-    tran[ttRotateX] := arctan2(row[1, X], row[1, Y]);

-    tran[ttRotateZ] := 0;

-  end;

-  // All done!

-  Result := True;

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function VectorDblToFlt(V: THomogeneousDblVector): THomogeneousVector; assembler;

-

-// converts a vector containing double sized values into a vector with single sized values

-

-asm

-              FLD  QWORD PTR [EAX]

-              FSTP DWORD PTR [EDX]

-              FLD  QWORD PTR [EAX + 8]

-              FSTP DWORD PTR [EDX + 4]

-              FLD  QWORD PTR [EAX + 16]

-              FSTP DWORD PTR [EDX + 8]

-              FLD  QWORD PTR [EAX + 24]

-              FSTP DWORD PTR [EDX + 12]

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function VectorAffineDblToFlt(V: TAffineDblVector): TAffineVector; assembler;

-

-// converts a vector containing double sized values into a vector with single sized values

-

-asm

-              FLD  QWORD PTR [EAX]

-              FSTP DWORD PTR [EDX]

-              FLD  QWORD PTR [EAX + 8]

-              FSTP DWORD PTR [EDX + 4]

-              FLD  QWORD PTR [EAX + 16]

-              FSTP DWORD PTR [EDX + 8]

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function VectorAffineFltToDbl(V: TAffineVector): TAffineDblVector; assembler;

-

-// converts a vector containing single sized values into a vector with double sized values

-

-asm

-              FLD  DWORD PTR [EAX]

-              FSTP QWORD PTR [EDX]

-              FLD  DWORD PTR [EAX + 8]

-              FSTP QWORD PTR [EDX + 4]

-              FLD  DWORD PTR [EAX + 16]

-              FSTP QWORD PTR [EDX + 8]

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function VectorFltToDbl(V: TVector): THomogeneousDblVector; assembler;

-

-// converts a vector containing single sized values into a vector with double sized values

-

-asm

-              FLD  DWORD PTR [EAX]

-              FSTP QWORD PTR [EDX]

-              FLD  DWORD PTR [EAX + 8]

-              FSTP QWORD PTR [EDX + 4]

-              FLD  DWORD PTR [EAX + 16]

-              FSTP QWORD PTR [EDX + 8]

-              FLD  DWORD PTR [EAX + 24]

-              FSTP QWORD PTR [EDX + 12]

-end;

-

-//----------------- coordinate system manipulation functions -----------------------------------------------------------

-

-function Turn(Matrix: TMatrix; Angle: Single): TMatrix;

-

-// rotates the given coordinate system (represented by the matrix) around its Y-axis

-

-begin

-  Result := MatrixMultiply(Matrix, CreateRotationMatrix(MakeAffineVector(Matrix[1]), Angle));

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function Turn(Matrix: TMatrix; MasterUp: TAffineVector; Angle: Single): TMatrix;

-

-// rotates the given coordinate system (represented by the matrix) around MasterUp

-

-begin

-  Result := MatrixMultiply(Matrix, CreateRotationMatrix(MasterUp, Angle));

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function Pitch(Matrix: TMatrix; Angle: Single): TMatrix;

-

-// rotates the given coordinate system (represented by the matrix) around its X-axis

-

-begin

-  Result := MatrixMultiply(Matrix, CreateRotationMatrix(MakeAffineVector(Matrix[0]), Angle));

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function Pitch(Matrix: TMatrix; MasterRight: TAffineVector; Angle: Single): TMatrix; overload;

-

-// rotates the given coordinate system (represented by the matrix) around MasterRight

-

-begin

-  Result := MatrixMultiply(Matrix, CreateRotationMatrix(MasterRight, Angle));

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function Roll(Matrix: TMatrix; Angle: Single): TMatrix;

-

-// rotates the given coordinate system (represented by the matrix) around its Z-axis

-

-begin

-  Result := MatrixMultiply(Matrix, CreateRotationMatrix(MakeAffineVector(Matrix[2]), Angle));

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-function Roll(Matrix: TMatrix; MasterDirection: TAffineVector; Angle: Single): TMatrix; overload;

-

-// rotates the given coordinate system (represented by the matrix) around MasterDirection

-

-begin

-  Result := MatrixMultiply(Matrix, CreateRotationMatrix(MasterDirection, Angle));

-end;

-

-//----------------------------------------------------------------------------------------------------------------------

-

-end.

-

-

+unit geometry;
+{
+  $Id: geometry.pas,v 1.1 2004/03/30 21:53:54 savage Exp $
+  
+}
+
+// This unit contains many needed types, functions and procedures for
+// quaternion, vector and matrix arithmetics. It is specifically designed
+// for geometric calculations within R3 (affine vector space)
+// and R4 (homogeneous vector space).
+//
+// Note: The terms 'affine' or 'affine coordinates' are not really correct here
+//       because an 'affine transformation' describes generally a transformation which leads
+//       to a uniquely solvable system of equations and has nothing to do with the dimensionality
+//       of a vector. One could use 'projective coordinates' but this is also not really correct
+//       and since I haven't found a better name (or even any correct one), 'affine' is as good
+//       as any other one.
+//
+// Identifiers containing no dimensionality (like affine or homogeneous)
+// and no datatype (integer..extended) are supposed as R4 representation
+// with 'single' floating point type (examples are TVector, TMatrix,
+// and TQuaternion). The default data type is 'single' ('GLFloat' for OpenGL)
+// and used in all routines (except conversions and trigonometric functions).
+//
+// Routines with an open array as argument can either take Func([1,2,3,4,..]) or Func(Vect).
+// The latter is prefered, since no extra stack operations is required.
+// Note: Be careful while passing open array elements! If you pass more elements
+//       than there's room in the result the behaviour will be unpredictable.
+//
+// If not otherwise stated, all angles are given in radians
+// (instead of degrees). Use RadToDeg or DegToRad to convert between them.
+//
+// Geometry.pas was assembled from different sources (like GraphicGems)
+// and relevant books or based on self written code, respectivly.
+//
+// Note: Some aspects need to be considered when using Delphi and pure
+//       assembler code. Delphi ensures that the direction flag is always
+//       cleared while entering a function and expects it cleared on return.
+//       This is in particular important in routines with (CPU) string commands (MOVSD etc.)
+//       The registers EDI, ESI and EBX (as well as the stack management
+//       registers EBP and ESP) must not be changed! EAX, ECX and EDX are
+//       freely available and mostly used for parameter.
+//
+// Version 2.5
+// last change : 04. January 2000
+//
+// (c) Copyright 1999, Dipl. Ing. Mike Lischke (public@lischke-online.de)
+{
+  $Log: geometry.pas,v $
+  Revision 1.1  2004/03/30 21:53:54  savage
+  Moved to it's own folder.
+
+  Revision 1.1  2004/02/05 00:08:19  savage
+  Module 1.0 release
+
+  
+}
+
+interface
+
+{$I jedi-sdl.inc}
+
+type
+  // data types needed for 3D graphics calculation,
+  // included are 'C like' aliases for each type (to be
+  // conformal with OpenGL types)
+
+  PByte = ^Byte;
+  PWord = ^Word;
+  PInteger = ^Integer;
+  PFloat = ^Single;
+  PDouble = ^Double;
+  PExtended = ^Extended;
+  PPointer = ^Pointer;
+
+  // types to specify continous streams of a specific type
+  // switch off range checking to access values beyond the limits
+  PByteVector = ^TByteVector;
+  PByteArray = PByteVector;
+  TByteVector = array[0..0] of Byte;
+
+  PWordVector = ^TWordVector;
+  PWordArray = PWordVector;  // note: there's a same named type in SysUtils
+  TWordVector = array[0..0] of Word;
+
+  PIntegerVector = ^TIntegerVector;
+  PIntegerArray = PIntegerVector;
+  TIntegerVector = array[0..0] of Integer;
+
+  PFloatVector = ^TFloatVector;
+  PFloatArray = PFloatVector;
+  TFloatVector = array[0..0] of Single;
+
+  PDoubleVector = ^TDoubleVector;
+  PDoubleArray = PDoubleVector;
+  TDoubleVector = array[0..0] of Double;
+
+  PExtendedVector = ^TExtendedVector;
+  PExtendedArray = PExtendedVector;
+  TExtendedVector = array[0..0] of Extended;
+
+  PPointerVector = ^TPointerVector;
+  PPointerArray = PPointerVector;
+  TPointerVector = array[0..0] of Pointer;
+
+  PCardinalVector = ^TCardinalVector;
+  PCardinalArray = PCardinalVector;
+  TCardinalVector = array[0..0] of Cardinal;
+
+  // common vector and matrix types with predefined limits
+  // indices correspond like: x -> 0
+  //                          y -> 1
+  //                          z -> 2
+  //                          w -> 3
+
+  PHomogeneousByteVector = ^THomogeneousByteVector;
+  THomogeneousByteVector = array[0..3] of Byte;
+  TVector4b = THomogeneousByteVector;
+
+  PHomogeneousWordVector = ^THomogeneousWordVector;
+  THomogeneousWordVector = array[0..3] of Word;
+  TVector4w = THomogeneousWordVector;
+
+  PHomogeneousIntVector = ^THomogeneousIntVector;
+  THomogeneousIntVector = array[0..3] of Integer;
+  TVector4i = THomogeneousIntVector;
+
+  PHomogeneousFltVector = ^THomogeneousFltVector;
+  THomogeneousFltVector = array[0..3] of Single;
+  TVector4f = THomogeneousFltVector;
+
+  PHomogeneousDblVector = ^THomogeneousDblVector;
+  THomogeneousDblVector = array[0..3] of Double;
+  TVector4d = THomogeneousDblVector;
+
+  PHomogeneousExtVector = ^THomogeneousExtVector;
+  THomogeneousExtVector = array[0..3] of Extended;
+  TVector4e = THomogeneousExtVector;
+
+  PHomogeneousPtrVector = ^THomogeneousPtrVector;
+  THomogeneousPtrVector = array[0..3] of Pointer;
+  TVector4p = THomogeneousPtrVector;
+
+  PAffineByteVector = ^TAffineByteVector;
+  TAffineByteVector = array[0..2] of Byte;
+  TVector3b = TAffineByteVector;
+
+  PAffineWordVector = ^TAffineWordVector;
+  TAffineWordVector = array[0..2] of Word;
+  TVector3w = TAffineWordVector;
+
+  PAffineIntVector = ^TAffineIntVector;
+  TAffineIntVector = array[0..2] of Integer;
+  TVector3i = TAffineIntVector;
+
+  PAffineFltVector = ^TAffineFltVector;
+  TAffineFltVector = array[0..2] of Single;
+  TVector3f = TAffineFltVector;
+
+  PAffineDblVector = ^TAffineDblVector;
+  TAffineDblVector = array[0..2] of Double;
+  TVector3d = TAffineDblVector;
+
+  PAffineExtVector = ^TAffineExtVector;
+  TAffineExtVector = array[0..2] of Extended;
+  TVector3e = TAffineExtVector;
+
+  PAffinePtrVector = ^TAffinePtrVector;
+  TAffinePtrVector = array[0..2] of Pointer;
+  TVector3p = TAffinePtrVector;
+
+  // some simplified names
+  PVector = ^TVector;
+  TVector = THomogeneousFltVector;
+
+  PHomogeneousVector = ^THomogeneousVector;
+  THomogeneousVector = THomogeneousFltVector;
+
+  PAffineVector = ^TAffineVector;
+  TAffineVector = TAffineFltVector;
+
+  // arrays of vectors
+  PVectorArray = ^TVectorArray;
+  TVectorArray = array[0..0] of TAffineVector;
+
+  // matrices
+  THomogeneousByteMatrix = array[0..3] of THomogeneousByteVector;
+  TMatrix4b = THomogeneousByteMatrix;
+
+  THomogeneousWordMatrix = array[0..3] of THomogeneousWordVector;
+  TMatrix4w = THomogeneousWordMatrix;
+
+  THomogeneousIntMatrix = array[0..3] of THomogeneousIntVector;
+  TMatrix4i = THomogeneousIntMatrix;
+
+  THomogeneousFltMatrix  = array[0..3] of THomogeneousFltVector;
+  TMatrix4f = THomogeneousFltMatrix;
+
+  THomogeneousDblMatrix = array[0..3] of THomogeneousDblVector;
+  TMatrix4d = THomogeneousDblMatrix;
+
+  THomogeneousExtMatrix = array[0..3] of THomogeneousExtVector;
+  TMatrix4e = THomogeneousExtMatrix;
+
+  TAffineByteMatrix = array[0..2] of TAffineByteVector;
+  TMatrix3b = TAffineByteMatrix;
+
+  TAffineWordMatrix = array[0..2] of TAffineWordVector;
+  TMatrix3w = TAffineWordMatrix;
+
+  TAffineIntMatrix = array[0..2] of TAffineIntVector;
+  TMatrix3i = TAffineIntMatrix;
+
+  TAffineFltMatrix = array[0..2] of TAffineFltVector;
+  TMatrix3f = TAffineFltMatrix;
+
+  TAffineDblMatrix = array[0..2] of TAffineDblVector;
+  TMatrix3d = TAffineDblMatrix;
+
+  TAffineExtMatrix = array[0..2] of TAffineExtVector;
+  TMatrix3e = TAffineExtMatrix;
+
+  // some simplified names
+  PMatrix = ^TMatrix;
+  TMatrix = THomogeneousFltMatrix;
+
+  PHomogeneousMatrix = ^THomogeneousMatrix;
+  THomogeneousMatrix = THomogeneousFltMatrix;
+
+  PAffineMatrix = ^TAffineMatrix;
+  TAffineMatrix = TAffineFltMatrix;
+
+  // q = ([x, y, z], w)
+  TQuaternion = record
+    case Integer of
+      0:
+        (ImagPart: TAffineVector;
+         RealPart: Single);
+      1:
+        (Vector: TVector4f);
+  end;
+
+  TRectangle = record
+    Left,
+    Top,
+    Width,
+    Height: Integer;
+  end;
+
+  TTransType = (ttScaleX, ttScaleY, ttScaleZ,
+                ttShearXY, ttShearXZ, ttShearYZ,
+                ttRotateX, ttRotateY, ttRotateZ,
+                ttTranslateX, ttTranslateY, ttTranslateZ,
+                ttPerspectiveX, ttPerspectiveY, ttPerspectiveZ, ttPerspectiveW);
+
+  // used to describe a sequence of transformations in following order:
+  // [Sx][Sy][Sz][ShearXY][ShearXZ][ShearZY][Rx][Ry][Rz][Tx][Ty][Tz][P(x,y,z,w)]
+  // constants are declared for easier access (see MatrixDecompose below)
+  TTransformations  = array[TTransType] of Single;
+
+
+const
+  // useful constants
+
+  // standard vectors
+  XVector: TAffineVector = (1, 0, 0);
+  YVector: TAffineVector = (0, 1, 0);
+  ZVector: TAffineVector = (0, 0, 1);
+  NullVector: TAffineVector = (0, 0, 0);
+
+  IdentityMatrix: TMatrix = ((1, 0, 0, 0),
+                             (0, 1, 0, 0),
+                             (0, 0, 1, 0),
+                             (0, 0, 0, 1));
+  EmptyMatrix: TMatrix = ((0, 0, 0, 0),
+                          (0, 0, 0, 0),
+                          (0, 0, 0, 0),
+                          (0, 0, 0, 0));
+  // some very small numbers
+  EPSILON  = 1e-100;
+  EPSILON2 = 1e-50;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+// vector functions
+function  VectorAdd(V1, V2: TVector): TVector;
+function  VectorAffineAdd(V1, V2: TAffineVector): TAffineVector;
+function  VectorAffineCombine(V1, V2: TAffineVector; F1, F2: Single): TAffineVector;
+function  VectorAffineDotProduct(V1, V2: TAffineVector): Single;
+function  VectorAffineLerp(V1, V2: TAffineVector; t: Single): TAffineVector;
+function  VectorAffineSubtract(V1, V2: TAffineVector): TAffineVector;
+function  VectorAngle(V1, V2: TAffineVector): Single;
+function  VectorCombine(V1, V2: TVector; F1, F2: Single): TVector;
+function  VectorCrossProduct(V1, V2: TAffineVector): TAffineVector;
+function  VectorDotProduct(V1, V2: TVector): Single;
+function  VectorLength(V: array of Single): Single;
+function  VectorLerp(V1, V2: TVector; t: Single): TVector;
+procedure VectorNegate(V: array of Single);
+function  VectorNorm(V: array of Single): Single;
+function  VectorNormalize(V: array of Single): Single;
+function  VectorPerpendicular(V, N: TAffineVector): TAffineVector;
+function  VectorReflect(V, N: TAffineVector): TAffineVector;
+procedure VectorRotate(var Vector: TVector4f; Axis: TVector3f; Angle: Single);
+procedure VectorScale(V: array of Single; Factor: Single);
+function  VectorSubtract(V1, V2: TVector): TVector;
+
+// matrix functions
+function  CreateRotationMatrixX(Sine, Cosine: Single): TMatrix;
+function  CreateRotationMatrixY(Sine, Cosine: Single): TMatrix;
+function  CreateRotationMatrixZ(Sine, Cosine: Single): TMatrix;
+function  CreateScaleMatrix(V: TAffineVector): TMatrix;
+function  CreateTranslationMatrix(V: TVector): TMatrix;
+procedure MatrixAdjoint(var M: TMatrix);
+function  MatrixAffineDeterminant(M: TAffineMatrix): Single;
+procedure MatrixAffineTranspose(var M: TAffineMatrix);
+function  MatrixDeterminant(M: TMatrix): Single;
+procedure MatrixInvert(var M: TMatrix);
+function  MatrixMultiply(M1, M2: TMatrix): TMatrix;
+procedure MatrixScale(var M: TMatrix; Factor: Single);
+procedure MatrixTranspose(var M: TMatrix);
+
+// quaternion functions
+function  QuaternionConjugate(Q: TQuaternion): TQuaternion;
+function  QuaternionFromPoints(V1, V2: TAffineVector): TQuaternion;
+function  QuaternionMultiply(qL, qR: TQuaternion): TQuaternion;
+function  QuaternionSlerp(QStart, QEnd: TQuaternion; Spin: Integer; t: Single): TQuaternion;
+function  QuaternionToMatrix(Q: TQuaternion): TMatrix;
+procedure QuaternionToPoints(Q: TQuaternion; var ArcFrom, ArcTo: TAffineVector);
+
+// mixed functions
+function  ConvertRotation(Angles: TAffineVector): TVector;
+function  CreateRotationMatrix(Axis: TVector3f; Angle: Single): TMatrix;
+function  MatrixDecompose(M: TMatrix; var Tran: TTransformations): Boolean;
+function  VectorAffineTransform(V: TAffineVector; M: TAffineMatrix): TAffineVector;
+function  VectorTransform(V: TVector4f; M: TMatrix): TVector4f; overload;
+function  VectorTransform(V: TVector3f; M: TMatrix): TVector3f; overload;
+
+// miscellaneous functions
+function  MakeAffineDblVector(V: array of Double): TAffineDblVector;
+function  MakeDblVector(V: array of Double): THomogeneousDblVector;
+function  MakeAffineVector(V: array of Single): TAffineVector;
+function  MakeQuaternion(Imag: array of Single; Real: Single): TQuaternion;
+function  MakeVector(V: array of Single): TVector;
+function  PointInPolygon(xp, yp : array of Single; x, y: Single): Boolean;
+function  VectorAffineDblToFlt(V: TAffineDblVector): TAffineVector;
+function  VectorDblToFlt(V: THomogeneousDblVector): THomogeneousVector;
+function  VectorAffineFltToDbl(V: TAffineVector): TAffineDblVector;
+function  VectorFltToDbl(V: TVector): THomogeneousDblVector;
+
+// trigonometric functions
+function  ArcCos(X: Extended): Extended;
+function  ArcSin(X: Extended): Extended;
+function  ArcTan2(Y, X: Extended): Extended;
+function  CoTan(X: Extended): Extended;
+function  DegToRad(Degrees: Extended): Extended;
+function  RadToDeg(Radians: Extended): Extended;
+procedure SinCos(Theta: Extended; var Sin, Cos: Extended);
+function  Tan(X: Extended): Extended;
+
+// coordinate system manipulation functions
+function Turn(Matrix: TMatrix; Angle: Single): TMatrix; overload;
+function Turn(Matrix: TMatrix; MasterUp: TAffineVector; Angle: Single): TMatrix; overload;
+function Pitch(Matrix: TMatrix; Angle: Single): TMatrix; overload;
+function Pitch(Matrix: TMatrix; MasterRight: TAffineVector; Angle: Single): TMatrix; overload;
+function Roll(Matrix: TMatrix; Angle: Single): TMatrix; overload;
+function Roll(Matrix: TMatrix; MasterDirection: TAffineVector; Angle: Single): TMatrix; overload;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+implementation
+
+const
+  // FPU status flags (high order byte)
+  C0 = 1;
+  C1 = 2;
+  C2 = 4;
+  C3 = $40;
+
+  // to be used as descriptive indices
+  X = 0;
+  Y = 1;
+  Z = 2;
+  W = 3;
+
+//----------------- trigonometric helper functions ---------------------------------------------------------------------
+
+function DegToRad(Degrees: Extended): Extended;
+
+begin
+  Result := Degrees * (PI / 180);
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function RadToDeg(Radians: Extended): Extended;
+
+begin
+  Result := Radians * (180 / PI);
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+procedure SinCos(Theta: Extended; var Sin, Cos: Extended); assembler; register;
+
+// calculates sine and cosine from the given angle Theta
+// EAX contains address of Sin
+// EDX contains address of Cos
+// Theta is passed over the stack
+
+asm
+              FLD  Theta
+              FSINCOS
+              FSTP TBYTE PTR [EDX]    // cosine
+              FSTP TBYTE PTR [EAX]    // sine
+              FWAIT
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function ArcCos(X: Extended): Extended;
+
+begin
+  Result := ArcTan2(Sqrt(1 - X * X), X);
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function ArcSin(X: Extended): Extended;
+
+begin
+  Result := ArcTan2(X, Sqrt(1 - X * X))
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function ArcTan2(Y, X: Extended): Extended;
+
+asm
+              FLD  Y
+              FLD  X
+              FPATAN
+              FWAIT
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function Tan(X: Extended): Extended;
+
+asm
+              FLD  X
+              FPTAN
+              FSTP ST(0)      // FPTAN pushes 1.0 after result
+              FWAIT
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function CoTan(X: Extended): Extended;
+
+asm
+              FLD  X
+              FPTAN
+              FDIVRP
+              FWAIT
+end;
+
+//----------------- miscellaneous vector functions ---------------------------------------------------------------------
+
+function MakeAffineDblVector(V: array of Double): TAffineDblVector; assembler;
+
+// creates a vector from given values
+// EAX contains address of V
+// ECX contains address to result vector
+// EDX contains highest index of V
+
+asm
+              PUSH EDI
+              PUSH ESI
+              MOV EDI, ECX
+              MOV ESI, EAX
+              MOV ECX, EDX
+              ADD ECX, 2
+              REP MOVSD
+              POP ESI
+              POP EDI
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function MakeDblVector(V: array of Double): THomogeneousDblVector; assembler;
+
+// creates a vector from given values
+// EAX contains address of V
+// ECX contains address to result vector
+// EDX contains highest index of V
+
+asm
+              PUSH EDI
+              PUSH ESI
+              MOV EDI, ECX
+              MOV ESI, EAX
+              MOV ECX, EDX
+              ADD ECX, 2
+              REP MOVSD
+              POP ESI
+              POP EDI
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function MakeAffineVector(V: array of Single): TAffineVector; assembler;
+
+// creates a vector from given values
+// EAX contains address of V
+// ECX contains address to result vector
+// EDX contains highest index of V
+
+asm
+              PUSH EDI
+              PUSH ESI
+              MOV EDI, ECX
+              MOV ESI, EAX
+              MOV ECX, EDX
+              INC ECX
+              CMP ECX, 3
+              JB  @@1
+              MOV ECX, 3
+@@1:          REP MOVSD                     // copy given values
+              MOV ECX, 2
+              SUB ECX, EDX                   // determine missing entries
+              JS  @@Finish
+              XOR EAX, EAX
+              REP STOSD                     // set remaining fields to 0
+@@Finish:     POP ESI
+              POP EDI
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function MakeQuaternion(Imag: array of Single; Real: Single): TQuaternion; assembler;
+
+// creates a quaternion from the given values
+// EAX contains address of Imag
+// ECX contains address to result vector
+// EDX contains highest index of Imag
+// Real part is passed on the stack
+
+asm
+              PUSH EDI
+              PUSH ESI
+              MOV EDI, ECX
+              MOV ESI, EAX
+              MOV ECX, EDX
+              INC ECX
+              REP MOVSD
+              MOV EAX, [Real]
+              MOV [EDI], EAX
+              POP ESI
+              POP EDI
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function MakeVector(V: array of Single): TVector; assembler;
+
+// creates a vector from given values
+// EAX contains address of V
+// ECX contains address to result vector
+// EDX contains highest index of V
+
+asm
+              PUSH EDI
+              PUSH ESI
+              MOV EDI, ECX
+              MOV ESI, EAX
+              MOV ECX, EDX
+              INC ECX
+              CMP ECX, 4
+              JB  @@1
+              MOV ECX, 4
+@@1:          REP MOVSD                     // copy given values
+              MOV ECX, 3
+              SUB ECX, EDX                   // determine missing entries
+              JS  @@Finish
+              XOR EAX, EAX
+              REP STOSD                     // set remaining fields to 0
+@@Finish:     POP ESI
+              POP EDI
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function VectorLength(V: array of Single): Single; assembler;
+
+// calculates the length of a vector following the equation: sqrt(x * x + y * y + ...)
+// Note: The parameter of this function is declared as open array. Thus
+// there's no restriction about the number of the components of the vector.
+//
+// EAX contains address of V
+// EDX contains the highest index of V
+// the result is returned in ST(0)
+
+asm
+              FLDZ                           // initialize sum
+@@Loop:       FLD  DWORD PTR [EAX  +  4 * EDX] // load a component
+              FMUL ST, ST
+              FADDP
+              SUB  EDX, 1
+              JNL  @@Loop
+              FSQRT
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function VectorAngle(V1, V2: TAffineVector): Single; assembler;
+
+// calculates the cosine of the angle between Vector1 and Vector2
+// Result = DotProduct(V1, V2) / (Length(V1) * Length(V2))
+//
+// EAX contains address of Vector1
+// EDX contains address of Vector2
+
+asm
+              FLD DWORD PTR [EAX]           // V1[0]
+              FLD ST                        // double V1[0]
+              FMUL ST, ST                   // V1[0]^2 (prep. for divisor)
+              FLD DWORD PTR [EDX]           // V2[0]
+              FMUL ST(2), ST                // ST(2) := V1[0] * V2[0]
+              FMUL ST, ST                   // V2[0]^2 (prep. for divisor)
+              FLD DWORD PTR [EAX + 4]       // V1[1]
+              FLD ST                        // double V1[1]
+              FMUL ST, ST                   // ST(0) := V1[1]^2
+              FADDP ST(3), ST               // ST(2) := V1[0]^2 + V1[1] *  * 2
+              FLD DWORD PTR [EDX + 4]       // V2[1]
+              FMUL ST(1), ST                // ST(1) := V1[1] * V2[1]
+              FMUL ST, ST                   // ST(0) := V2[1]^2
+              FADDP ST(2), ST               // ST(1) := V2[0]^2 + V2[1]^2
+              FADDP ST(3), ST               // ST(2) := V1[0] * V2[0] + V1[1] * V2[1]
+              FLD DWORD PTR [EAX + 8]       // load V2[1]
+              FLD ST                        // same calcs go here
+              FMUL ST, ST                   // (compare above)
+              FADDP ST(3), ST
+              FLD DWORD PTR [EDX + 8]
+              FMUL ST(1), ST
+              FMUL ST, ST
+              FADDP ST(2), ST
+              FADDP ST(3), ST
+              FMULP                         // ST(0) := (V1[0]^2 + V1[1]^2 + V1[2]) *
+                                            //          (V2[0]^2 + V2[1]^2 + V2[2])
+              FSQRT                         // sqrt(ST(0))
+              FDIVP                         // ST(0) := Result := ST(1) / ST(0)
+  // the result is expected in ST(0), if it's invalid, an error is raised
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function VectorNorm(V: array of Single): Single; assembler; register;
+
+// calculates norm of a vector which is defined as norm = x * x + y * y + ...
+// EAX contains address of V
+// EDX contains highest index in V
+// result is passed in ST(0)
+
+asm
+              FLDZ                           // initialize sum
+@@Loop:       FLD  DWORD PTR [EAX + 4 * EDX] // load a component
+              FMUL ST, ST                    // make square
+              FADDP                          // add previous calculated sum
+              SUB  EDX, 1
+              JNL  @@Loop
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function VectorNormalize(V: array of Single): Single; assembler; register;
+
+// transforms a vector to unit length and return length
+// EAX contains address of V
+// EDX contains the highest index in V
+// return former length of V in ST
+
+asm
+              PUSH EBX
+              MOV ECX, EDX                  // save size of V
+              CALL VectorLength             // calculate length of vector
+              FTST                          // test if length = 0
+              MOV EBX, EAX                  // save parameter address
+              FSTSW AX                      // get test result
+              TEST AH, C3                   // check the test result
+              JNZ @@Finish
+              SUB EBX, 4                    // simplyfied address calculation
+              INC ECX
+              FLD1                          // calculate reciprocal of length
+              FDIV ST, ST(1)
+@@1:          FLD ST                        // double reciprocal
+              FMUL DWORD PTR [EBX + 4 * ECX] // scale component
+              WAIT
+              FSTP DWORD PTR [EBX + 4 * ECX] // store result
+              LOOP @@1
+              FSTP ST                       // remove reciprocal from FPU stack
+@@Finish:     POP EBX
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function VectorAffineSubtract(V1, V2: TAffineVector): TAffineVector; assembler; register;
+
+// returns v1 minus v2
+// EAX contains address of V1
+// EDX contains address of V2
+// ECX contains address of the result
+
+asm
+  {Result[X] := V1[X]-V2[X];
+  Result[Y] := V1[Y]-V2[Y];
+  Result[Z] := V1[Z]-V2[Z];}
+
+                   FLD DWORD PTR [EAX]
+                   FSUB DWORD PTR [EDX]
+                   FSTP DWORD PTR [ECX]
+                   FLD DWORD PTR [EAX + 4]
+                   FSUB DWORD PTR [EDX + 4]
+                   FSTP DWORD PTR [ECX + 4]
+                   FLD DWORD PTR [EAX + 8]
+                   FSUB DWORD PTR [EDX + 8]
+                   FSTP DWORD PTR [ECX + 8]
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function VectorReflect(V, N: TAffineVector): TAffineVector; assembler; register;
+
+// reflects vector V against N (assumes N is normalized)
+// EAX contains address of V
+// EDX contains address of N
+// ECX contains address of the result
+
+//var Dot : Single;
+
+asm
+   {Dot := VectorAffineDotProduct(V, N);
+   Result[X] := V[X]-2 * Dot * N[X];
+   Result[Y] := V[Y]-2 * Dot * N[Y];
+   Result[Z] := V[Z]-2 * Dot * N[Z];}
+
+                   CALL VectorAffineDotProduct   // dot is now in ST(0)
+                   FCHS                          // -dot
+                   FADD ST, ST                   // -dot * 2
+                   FLD DWORD PTR [EDX]           // ST := N[X]
+                   FMUL ST, ST(1)                // ST := -2 * dot * N[X]
+                   FADD DWORD PTR[EAX]           // ST := V[X] - 2 * dot * N[X]
+                   FSTP DWORD PTR [ECX]          // store result
+                   FLD DWORD PTR [EDX + 4]       // etc.
+                   FMUL ST, ST(1)
+                   FADD DWORD PTR[EAX + 4]
+                   FSTP DWORD PTR [ECX + 4]
+                   FLD DWORD PTR [EDX + 8]
+                   FMUL ST, ST(1)
+                   FADD DWORD PTR[EAX + 8]
+                   FSTP DWORD PTR [ECX + 8]
+                   FSTP ST                       // clean FPU stack
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+procedure VectorRotate(var Vector: TVector4f; Axis: TVector3f; Angle: Single);
+
+// rotates Vector about Axis with Angle radiants
+
+var RotMatrix : TMatrix4f;
+
+begin
+  RotMatrix := CreateRotationMatrix(Axis, Angle);
+  Vector := VectorTransform(Vector, RotMatrix);
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+procedure VectorScale(V: array of Single; Factor: Single); assembler; register;
+
+// returns a vector scaled by a factor
+// EAX contains address of V
+// EDX contains highest index in V
+// Factor is located on the stack
+
+asm
+  {for I := Low(V) to High(V) do V[I] := V[I] * Factor;}
+
+              FLD DWORD PTR [Factor]        // load factor
+@@Loop:       FLD DWORD PTR [EAX + 4 * EDX] // load a component
+              FMUL ST, ST(1)                // multiply it with the factor
+              WAIT
+              FSTP DWORD PTR [EAX + 4 * EDX] // store the result
+              DEC EDX                       // do the entire array
+              JNS @@Loop
+              FSTP ST(0)                    // clean the FPU stack
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+procedure VectorNegate(V: array of Single); assembler; register;
+
+// returns a negated vector
+// EAX contains address of V
+// EDX contains highest index in V
+
+asm
+  {V[X] := -V[X];
+  V[Y] := -V[Y];
+  V[Z] := -V[Z];}
+
+@@Loop:       FLD DWORD PTR [EAX + 4 * EDX]
+              FCHS
+              WAIT
+              FSTP DWORD PTR [EAX + 4 * EDX]
+              DEC EDX
+              JNS @@Loop
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function VectorAdd(V1, V2: TVector): TVector; register;
+
+// returns the sum of two vectors
+
+begin
+  Result[X] := V1[X] + V2[X];
+  Result[Y] := V1[Y] + V2[Y];
+  Result[Z] := V1[Z] + V2[Z];
+  Result[W] := V1[W] + V2[W];
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function VectorAffineAdd(V1, V2: TAffineVector): TAffineVector; register;
+
+// returns the sum of two vectors
+
+begin
+  Result[X] := V1[X] + V2[X];
+  Result[Y] := V1[Y] + V2[Y];
+  Result[Z] := V1[Z] + V2[Z];
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function VectorSubtract(V1, V2: TVector): TVector; register;
+
+// returns the difference of two vectors
+
+begin
+  Result[X] := V1[X] - V2[X];
+  Result[Y] := V1[Y] - V2[Y];
+  Result[Z] := V1[Z] - V2[Z];
+  Result[W] := V1[W] - V2[W];
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function VectorDotProduct(V1, V2: TVector): Single; register;
+
+begin
+  Result := V1[X] * V2[X] + V1[Y] * V2[Y] + V1[Z] * V2[Z] + V1[W] * V2[W];
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function VectorAffineDotProduct(V1, V2: TAffineVector): Single; assembler; register;
+
+// calculates the dot product between V1 and V2
+// EAX contains address of V1
+// EDX contains address of V2
+// result is stored in ST(0)
+
+asm
+  //Result := V1[X] * V2[X] + V1[Y] * V2[Y] + V1[Z] * V2[Z];
+
+                   FLD DWORD PTR [EAX]
+                   FMUL DWORD PTR [EDX]
+                   FLD DWORD PTR [EAX + 4]
+                   FMUL DWORD PTR [EDX + 4]
+                   FADDP
+                   FLD DWORD PTR [EAX + 8]
+                   FMUL DWORD PTR [EDX + 8]
+                   FADDP
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function VectorCrossProduct(V1, V2: TAffineVector): TAffineVector;
+
+// calculates the cross product between vector 1 and 2, Temp is necessary because
+// either V1 or V2 could also be the result vector
+//
+// EAX contains address of V1
+// EDX contains address of V2
+// ECX contains address of result
+
+var Temp: TAffineVector;
+
+asm
+  {Temp[X] := V1[Y] * V2[Z]-V1[Z] * V2[Y];
+  Temp[Y] := V1[Z] * V2[X]-V1[X] * V2[Z];
+  Temp[Z] := V1[X] * V2[Y]-V1[Y] * V2[X];
+  Result := Temp;}
+
+              PUSH EBX                      // save EBX, must be restored to original value
+              LEA EBX, [Temp]
+              FLD DWORD PTR [EDX + 8]       // first load both vectors onto FPU register stack
+              FLD DWORD PTR [EDX + 4]
+              FLD DWORD PTR [EDX + 0]
+              FLD DWORD PTR [EAX + 8]
+              FLD DWORD PTR [EAX + 4]
+              FLD DWORD PTR [EAX + 0]
+
+              FLD ST(1)                     // ST(0) := V1[Y]
+              FMUL ST, ST(6)                // ST(0) := V1[Y] * V2[Z]
+              FLD ST(3)                     // ST(0) := V1[Z]
+              FMUL ST, ST(6)                // ST(0) := V1[Z] * V2[Y]
+              FSUBP ST(1), ST               // ST(0) := ST(1)-ST(0)
+              FSTP DWORD [EBX]              // Temp[X] := ST(0)
+              FLD ST(2)                     // ST(0) := V1[Z]
+              FMUL ST, ST(4)                // ST(0) := V1[Z] * V2[X]
+              FLD ST(1)                     // ST(0) := V1[X]
+              FMUL ST, ST(7)                // ST(0) := V1[X] * V2[Z]
+              FSUBP ST(1), ST               // ST(0) := ST(1)-ST(0)
+              FSTP DWORD [EBX + 4]          // Temp[Y] := ST(0)
+              FLD ST                        // ST(0) := V1[X]
+              FMUL ST, ST(5)                // ST(0) := V1[X] * V2[Y]
+              FLD ST(2)                     // ST(0) := V1[Y]
+              FMUL ST, ST(5)                // ST(0) := V1[Y] * V2[X]
+              FSUBP ST(1), ST               // ST(0) := ST(1)-ST(0)
+              FSTP DWORD [EBX + 8]          // Temp[Z] := ST(0)
+              FSTP ST(0)                    // clear FPU register stack
+              FSTP ST(0)
+              FSTP ST(0)
+              FSTP ST(0)
+              FSTP ST(0)
+              FSTP ST(0)
+              MOV EAX, [EBX]                // copy Temp to Result
+              MOV [ECX], EAX
+              MOV EAX, [EBX + 4]
+              MOV [ECX + 4], EAX
+              MOV EAX, [EBX + 8]
+              MOV [ECX + 8], EAX
+              POP EBX
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function VectorPerpendicular(V, N: TAffineVector): TAffineVector;
+
+// calculates a vector perpendicular to N (N is assumed to be of unit length)
+// subtract out any component parallel to N
+
+var Dot: Single;
+
+begin
+   Dot := VectorAffineDotProduct(V, N);
+   Result[X] := V[X]-Dot * N[X];
+   Result[Y] := V[Y]-Dot * N[Y];
+   Result[Z] := V[Z]-Dot * N[Z];
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function VectorTransform(V: TVector4f; M: TMatrix): TVector4f; register;
+
+// transforms a homogeneous vector by multiplying it with a matrix
+
+var TV: TVector4f;
+
+begin
+  TV[X] := V[X] * M[X, X] + V[Y] * M[Y, X] + V[Z] * M[Z, X] + V[W] * M[W, X];
+  TV[Y] := V[X] * M[X, Y] + V[Y] * M[Y, Y] + V[Z] * M[Z, Y] + V[W] * M[W, Y];
+  TV[Z] := V[X] * M[X, Z] + V[Y] * M[Y, Z] + V[Z] * M[Z, Z] + V[W] * M[W, Z];
+  TV[W] := V[X] * M[X, W] + V[Y] * M[Y, W] + V[Z] * M[Z, W] + V[W] * M[W, W];
+  Result := TV
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function  VectorTransform(V: TVector3f; M: TMatrix): TVector3f;
+
+// transforms an affine vector by multiplying it with a (homogeneous) matrix
+
+var TV: TVector3f;
+
+begin
+  TV[X] := V[X] * M[X, X] + V[Y] * M[Y, X] + V[Z] * M[Z, X] + M[W, X];
+  TV[Y] := V[X] * M[X, Y] + V[Y] * M[Y, Y] + V[Z] * M[Z, Y] + M[W, Y];
+  TV[Z] := V[X] * M[X, Z] + V[Y] * M[Y, Z] + V[Z] * M[Z, Z] + M[W, Z];
+  Result := TV;
+end;
+
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function VectorAffineTransform(V: TAffineVector; M: TAffineMatrix): TAffineVector; register;
+
+// transforms an affine vector by multiplying it with a matrix
+
+var TV: TAffineVector;
+
+begin
+  TV[X] := V[X] * M[X, X] + V[Y] * M[Y, X] + V[Z] * M[Z, X];
+  TV[Y] := V[X] * M[X, Y] + V[Y] * M[Y, Y] + V[Z] * M[Z, Y];
+  TV[Z] := V[X] * M[X, Z] + V[Y] * M[Y, Z] + V[Z] * M[Z, Z];
+  Result := TV;
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function PointInPolygon(xp, yp : array of Single; x, y: Single): Boolean;
+
+// The code below is from Wm. Randolph Franklin <wrf@ecse.rpi.edu>
+// with some minor modifications for speed.  It returns 1 for strictly
+// interior points, 0 for strictly exterior, and 0 or 1 for points on
+// the boundary.
+// This code is not yet tested!
+
+var I, J: Integer;
+
+begin
+  Result := False;
+  if High(XP) <> High(YP) then Exit;
+  J := High(XP);
+  for I := 0 to High(XP) do
+  begin
+    if ((((yp[I] <= y) and (y < yp[J])) or ((yp[J] <= y) and (y < yp[I]))) and
+        (x < (xp[J] - xp[I]) * (y - yp[I]) / (yp[J] - yp[I]) + xp[I]))
+    then Result := not Result;
+    J := I + 1;
+  end;
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function QuaternionConjugate(Q: TQuaternion): TQuaternion; assembler;
+
+// returns the conjugate of a quaternion
+// EAX contains address of Q
+// EDX contains address of result
+
+asm
+              FLD DWORD PTR [EAX]
+              FCHS
+              WAIT
+              FSTP DWORD PTR [EDX]
+              FLD DWORD PTR [EAX + 4]
+              FCHS
+              WAIT
+              FSTP DWORD PTR [EDX + 4]
+              FLD DWORD PTR [EAX + 8]
+              FCHS
+              WAIT
+              FSTP DWORD PTR [EDX + 8]
+              MOV EAX, [EAX + 12]
+              MOV [EDX + 12], EAX
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function QuaternionFromPoints(V1, V2: TAffineVector): TQuaternion; assembler;
+
+// constructs a unit quaternion from two points on unit sphere
+// EAX contains address of V1
+// ECX contains address to result
+// EDX contains address of V2
+
+asm
+  {Result.ImagPart := VectorCrossProduct(V1, V2);
+   Result.RealPart :=  Sqrt((VectorAffineDotProduct(V1, V2) + 1)/2);}
+
+              PUSH EAX
+              CALL VectorCrossProduct       // determine axis to rotate about
+              POP EAX
+              FLD1                          // prepare next calculation
+              Call VectorAffineDotProduct   // calculate cos(angle between V1 and V2)
+              FADD ST, ST(1)                // transform angle to angle/2 by: cos(a/2)=sqrt((1 + cos(a))/2)
+              FXCH ST(1)
+              FADD ST, ST
+              FDIVP ST(1), ST
+              FSQRT
+              FSTP DWORD PTR [ECX + 12]     // Result.RealPart := ST(0)
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function QuaternionMultiply(qL, qR: TQuaternion): TQuaternion;
+
+// Returns quaternion product qL * qR.  Note: order is important!
+// To combine rotations, use the product QuaternionMuliply(qSecond, qFirst),
+// which gives the effect of rotating by qFirst then qSecond.
+
+var Temp : TQuaternion;
+
+begin
+  Temp.RealPart := qL.RealPart * qR.RealPart - qL.ImagPart[X] * qR.ImagPart[X] -
+                   qL.ImagPart[Y] * qR.ImagPart[Y] - qL.ImagPart[Z] * qR.ImagPart[Z];
+  Temp.ImagPart[X] := qL.RealPart * qR.ImagPart[X] + qL.ImagPart[X] * qR.RealPart +
+                      qL.ImagPart[Y] * qR.ImagPart[Z] - qL.ImagPart[Z] * qR.ImagPart[Y];
+  Temp.ImagPart[Y] := qL.RealPart * qR.ImagPart[Y] + qL.ImagPart[Y] * qR.RealPart +
+                      qL.ImagPart[Z] * qR.ImagPart[X] - qL.ImagPart[X] * qR.ImagPart[Z];
+  Temp.ImagPart[Z] := qL.RealPart * qR.ImagPart[Z] + qL.ImagPart[Z] * qR.RealPart +
+                      qL.ImagPart[X] * qR.ImagPart[Y] - qL.ImagPart[Y] * qR.ImagPart[X];
+  Result := Temp;
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function QuaternionToMatrix(Q: TQuaternion): TMatrix;
+
+// Constructs rotation matrix from (possibly non-unit) quaternion.
+// Assumes matrix is used to multiply column vector on the left:
+// vnew = mat vold.  Works correctly for right-handed coordinate system
+// and right-handed rotations.
+
+// Essentially, this function is the same as CreateRotationMatrix and you can consider it as
+// being for reference here.
+
+{var Norm, S,
+    XS, YS, ZS,
+    WX, WY, WZ,
+    XX, XY, XZ,
+    YY, YZ, ZZ   : Single;
+
+begin
+  Norm := Q.Vector[X] * Q.Vector[X] + Q.Vector[Y] * Q.Vector[Y] + Q.Vector[Z] * Q.Vector[Z] + Q.RealPart * Q.RealPart;
+  if Norm > 0 then S := 2 / Norm
+              else S := 0;
+
+  XS := Q.Vector[X] * S;   YS := Q.Vector[Y] * S;   ZS := Q.Vector[Z] * S;
+  WX := Q.RealPart * XS;   WY := Q.RealPart * YS;   WZ := Q.RealPart * ZS;
+  XX := Q.Vector[X] * XS;  XY := Q.Vector[X] * YS;  XZ := Q.Vector[X] * ZS;
+  YY := Q.Vector[Y] * YS;  YZ := Q.Vector[Y] * ZS;  ZZ := Q.Vector[Z] * ZS;
+
+  Result[X, X] := 1 - (YY + ZZ); Result[Y, X] := XY + WZ;       Result[Z, X] := XZ - WY;       Result[W, X] := 0;
+  Result[X, Y] := XY - WZ;       Result[Y, Y] := 1 - (XX + ZZ); Result[Z, Y] := YZ + WX;       Result[W, Y] := 0;
+  Result[X, Z] := XZ + WY;       Result[Y, Z] := YZ - WX;       Result[Z, Z] := 1 - (XX + YY); Result[W, Z] := 0;
+  Result[X, W] := 0;             Result[Y, W] := 0;             Result[Z, W] := 0;             Result[W, W] := 1;}
+
+var
+  V: TAffineVector;
+  SinA, CosA,
+  A, B, C: Extended;
+
+begin
+  V := Q.ImagPart;
+  VectorNormalize(V);
+  SinCos(Q.RealPart / 2, SinA, CosA);
+  A := V[X] * SinA;
+  B := V[Y] * SinA;
+  C := V[Z] * SinA;
+
+  Result := IdentityMatrix;
+  Result[X, X] := 1 - 2 * B * B - 2 * C * C;
+  Result[X, Y] := 2 * A * B - 2 * CosA * C;
+  Result[X, Z] := 2 * A * C + 2 * CosA * B;
+
+  Result[Y, X] := 2 * A * B + 2 * CosA * C;
+  Result[Y, Y] := 1 - 2 * A * A - 2 * C * C;
+  Result[Y, Z] := 2 * B * C - 2 * CosA * A;
+
+  Result[Z, X] := 2 * A * C - 2 * CosA * B;
+  Result[Z, Y] := 2 * B * C + 2 * CosA * A;
+  Result[Z, Z] := 1 - 2 * A * A - 2 * B * B;
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+procedure QuaternionToPoints(Q: TQuaternion; var ArcFrom, ArcTo: TAffineVector); register;
+
+// converts a unit quaternion into two points on a unit sphere
+
+var S: Single;
+
+begin
+  S := Sqrt(Q.ImagPart[X] * Q.ImagPart[X] + Q.ImagPart[Y] * Q.ImagPart[Y]);
+  if S = 0 then ArcFrom := MakeAffineVector([0, 1, 0])
+           else ArcFrom := MakeAffineVector([-Q.ImagPart[Y] / S, Q.ImagPart[X] / S, 0]);
+  ArcTo[X] := Q.RealPart * ArcFrom[X] - Q.ImagPart[Z] * ArcFrom[Y];
+  ArcTo[Y] := Q.RealPart * ArcFrom[Y] + Q.ImagPart[Z] * ArcFrom[X];
+  ArcTo[Z] := Q.ImagPart[X] * ArcFrom[Y] - Q.ImagPart[Y] * ArcFrom[X];
+  if Q.RealPart < 0 then ArcFrom := MakeAffineVector([-ArcFrom[X], -ArcFrom[Y], 0]);
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function MatrixAffineDeterminant(M: TAffineMatrix): Single; register;
+
+// determinant of a 3x3 matrix
+
+begin
+  Result := M[X, X] * (M[Y, Y] * M[Z, Z] - M[Z, Y] * M[Y, Z]) -
+            M[X, Y] * (M[Y, X] * M[Z, Z] - M[Z, X] * M[Y, Z]) +
+            M[X, Z] * (M[Y, X] * M[Z, Y] - M[Z, X] * M[Y, Y]);
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function MatrixDetInternal(a1, a2, a3, b1, b2, b3, c1, c2, c3: Single): Single;
+
+// internal version for the determinant of a 3x3 matrix
+
+begin
+  Result := a1 * (b2 * c3 - b3 * c2) -
+            b1 * (a2 * c3 - a3 * c2) +
+            c1 * (a2 * b3 - a3 * b2);
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+procedure MatrixAdjoint(var M: TMatrix); register;
+
+// Adjoint of a 4x4 matrix - used in the computation of the inverse
+// of a 4x4 matrix
+
+var a1, a2, a3, a4,
+    b1, b2, b3, b4,
+    c1, c2, c3, c4,
+    d1, d2, d3, d4: Single;
+
+
+begin
+    a1 :=  M[X, X]; b1 :=  M[X, Y];
+    c1 :=  M[X, Z]; d1 :=  M[X, W];
+    a2 :=  M[Y, X]; b2 :=  M[Y, Y];
+    c2 :=  M[Y, Z]; d2 :=  M[Y, W];
+    a3 :=  M[Z, X]; b3 :=  M[Z, Y];
+    c3 :=  M[Z, Z]; d3 :=  M[Z, W];
+    a4 :=  M[W, X]; b4 :=  M[W, Y];
+    c4 :=  M[W, Z]; d4 :=  M[W, W];
+
+    // row column labeling reversed since we transpose rows & columns
+    M[X, X] :=  MatrixDetInternal(b2, b3, b4, c2, c3, c4, d2, d3, d4);
+    M[Y, X] := -MatrixDetInternal(a2, a3, a4, c2, c3, c4, d2, d3, d4);
+    M[Z, X] :=  MatrixDetInternal(a2, a3, a4, b2, b3, b4, d2, d3, d4);
+    M[W, X] := -MatrixDetInternal(a2, a3, a4, b2, b3, b4, c2, c3, c4);
+
+    M[X, Y] := -MatrixDetInternal(b1, b3, b4, c1, c3, c4, d1, d3, d4);
+    M[Y, Y] :=  MatrixDetInternal(a1, a3, a4, c1, c3, c4, d1, d3, d4);
+    M[Z, Y] := -MatrixDetInternal(a1, a3, a4, b1, b3, b4, d1, d3, d4);
+    M[W, Y] :=  MatrixDetInternal(a1, a3, a4, b1, b3, b4, c1, c3, c4);
+
+    M[X, Z] :=  MatrixDetInternal(b1, b2, b4, c1, c2, c4, d1, d2, d4);
+    M[Y, Z] := -MatrixDetInternal(a1, a2, a4, c1, c2, c4, d1, d2, d4);
+    M[Z, Z] :=  MatrixDetInternal(a1, a2, a4, b1, b2, b4, d1, d2, d4);
+    M[W, Z] := -MatrixDetInternal(a1, a2, a4, b1, b2, b4, c1, c2, c4);
+
+    M[X, W] := -MatrixDetInternal(b1, b2, b3, c1, c2, c3, d1, d2, d3);
+    M[Y, W] :=  MatrixDetInternal(a1, a2, a3, c1, c2, c3, d1, d2, d3);
+    M[Z, W] := -MatrixDetInternal(a1, a2, a3, b1, b2, b3, d1, d2, d3);
+    M[W, W] :=  MatrixDetInternal(a1, a2, a3, b1, b2, b3, c1, c2, c3);
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function MatrixDeterminant(M: TMatrix): Single; register;
+
+// Determinant of a 4x4 matrix
+
+var a1, a2, a3, a4,
+    b1, b2, b3, b4,
+    c1, c2, c3, c4,
+    d1, d2, d3, d4  : Single;
+
+begin
+  a1 := M[X, X];  b1 := M[X, Y];  c1 := M[X, Z];  d1 := M[X, W];
+  a2 := M[Y, X];  b2 := M[Y, Y];  c2 := M[Y, Z];  d2 := M[Y, W];
+  a3 := M[Z, X];  b3 := M[Z, Y];  c3 := M[Z, Z];  d3 := M[Z, W];
+  a4 := M[W, X];  b4 := M[W, Y];  c4 := M[W, Z];  d4 := M[W, W];
+
+  Result := a1 * MatrixDetInternal(b2, b3, b4, c2, c3, c4, d2, d3, d4) -
+            b1 * MatrixDetInternal(a2, a3, a4, c2, c3, c4, d2, d3, d4) +
+            c1 * MatrixDetInternal(a2, a3, a4, b2, b3, b4, d2, d3, d4) -
+            d1 * MatrixDetInternal(a2, a3, a4, b2, b3, b4, c2, c3, c4);
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+procedure MatrixScale(var M: TMatrix; Factor: Single); register;
+
+// multiplies all elements of a 4x4 matrix with a factor
+
+var I, J: Integer;
+
+begin
+  for I := 0 to 3 do
+    for J := 0 to 3 do M[I, J] := M[I, J] * Factor;
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+procedure MatrixInvert(var M: TMatrix); register;
+
+// finds the inverse of a 4x4 matrix
+
+var Det: Single;
+
+begin
+  Det := MatrixDeterminant(M);
+  if Abs(Det) < EPSILON then M := IdentityMatrix
+                        else
+  begin
+    MatrixAdjoint(M);
+    MatrixScale(M, 1 / Det);
+  end;
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+procedure MatrixTranspose(var M: TMatrix); register;
+
+// computes transpose of 4x4 matrix
+
+var I, J: Integer;
+    TM: TMatrix;
+
+begin
+  for I := 0 to 3 do
+    for J := 0 to 3 do TM[J, I] := M[I, J];
+  M := TM;
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+procedure MatrixAffineTranspose(var M: TAffineMatrix); register;
+
+// computes transpose of 3x3 matrix
+
+var I, J: Integer;
+    TM: TAffineMatrix;
+
+begin
+  for I := 0 to 2 do
+    for J := 0 to 2 do TM[J, I] := M[I, J];
+  M := TM;
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function MatrixMultiply(M1, M2: TMatrix): TMatrix; register;
+
+// multiplies two 4x4 matrices
+
+var I, J: Integer;
+    TM: TMatrix;
+
+begin
+  for I := 0 to 3 do
+    for J := 0 to 3 do
+      TM[I, J] := M1[I, X] * M2[X, J] +
+                  M1[I, Y] * M2[Y, J] +
+                  M1[I, Z] * M2[Z, J] +
+                  M1[I, W] * M2[W, J];
+  Result := TM;
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function CreateRotationMatrix(Axis: TVector3f; Angle: Single): TMatrix; register;
+
+// Creates a rotation matrix along the given Axis by the given Angle in radians.
+
+var cosine,
+    sine,
+    Len,
+    one_minus_cosine: Extended;
+
+begin
+  SinCos(Angle, Sine, Cosine);
+  one_minus_cosine := 1 - cosine;
+  Len := VectorNormalize(Axis);
+
+  if Len = 0 then Result := IdentityMatrix
+             else
+  begin
+    Result[X, X] := (one_minus_cosine * Sqr(Axis[0])) + Cosine;
+    Result[X, Y] := (one_minus_cosine * Axis[0] * Axis[1]) - (Axis[2] * Sine);
+    Result[X, Z] := (one_minus_cosine * Axis[2] * Axis[0]) + (Axis[1] * Sine);
+    Result[X, W] := 0;
+
+    Result[Y, X] := (one_minus_cosine * Axis[0] * Axis[1]) + (Axis[2] * Sine);
+    Result[Y, Y] := (one_minus_cosine * Sqr(Axis[1])) + Cosine;
+    Result[Y, Z] := (one_minus_cosine * Axis[1] * Axis[2]) - (Axis[0] * Sine);
+    Result[Y, W] := 0;
+
+    Result[Z, X] := (one_minus_cosine * Axis[2] * Axis[0]) - (Axis[1] * Sine);
+    Result[Z, Y] := (one_minus_cosine * Axis[1] * Axis[2]) + (Axis[0] * Sine);
+    Result[Z, Z] := (one_minus_cosine * Sqr(Axis[2])) + Cosine;
+    Result[Z, W] := 0;
+
+    Result[W, X] := 0;
+    Result[W, Y] := 0;
+    Result[W, Z] := 0;
+    Result[W, W] := 1;
+  end;
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function ConvertRotation(Angles: TAffineVector): TVector; register;
+
+{ Turn a triplet of rotations about x, y, and z (in that order) into an
+   equivalent rotation around a single axis (all in radians).
+
+   Rotation of the Angle t about the axis (X, Y, Z) is given by:
+
+     | X^2 + (1-X^2) Cos(t),    XY(1-Cos(t))  +  Z Sin(t), XZ(1-Cos(t))-Y Sin(t) |
+ M = | XY(1-Cos(t))-Z Sin(t), Y^2 + (1-Y^2) Cos(t),      YZ(1-Cos(t)) + X Sin(t) |
+     | XZ(1-Cos(t)) + Y Sin(t), YZ(1-Cos(t))-X Sin(t),   Z^2 + (1-Z^2) Cos(t)    |
+
+   Rotation about the three axes (Angles a1, a2, a3) can be represented as
+   the product of the individual rotation matrices:
+
+      | 1  0       0       | | Cos(a2) 0 -Sin(a2) | |  Cos(a3) Sin(a3) 0 |
+      | 0  Cos(a1) Sin(a1) | * | 0       1  0       | * | -Sin(a3) Cos(a3) 0 |
+      | 0 -Sin(a1) Cos(a1) | | Sin(a2) 0  Cos(a2) | |  0       0       1 |
+	     Mx                       My                     Mz
+
+   We now want to solve for X, Y, Z, and t given 9 equations in 4 unknowns.
+   Using the diagonal elements of the two matrices, we get:
+
+      X^2 + (1-X^2) Cos(t) = M[0][0]
+      Y^2 + (1-Y^2) Cos(t) = M[1][1]
+      Z^2 + (1-Z^2) Cos(t) = M[2][2]
+
+   Adding the three equations, we get:
+
+      X^2  +  Y^2  +  Z^2 - (M[0][0]  +  M[1][1]  +  M[2][2]) =
+	 - (3 - X^2 - Y^2 - Z^2) Cos(t)
+
+   Since (X^2  +  Y^2  +  Z^2) = 1, we can rewrite as:
+
+      Cos(t) = (1 - (M[0][0]  +  M[1][1]  +  M[2][2])) / 2
+
+   Solving for t, we get:
+
+      t = Acos(((M[0][0]  +  M[1][1]  +  M[2][2]) - 1) / 2)
+
+    We can substitute t into the equations for X^2, Y^2, and Z^2 above
+    to get the values for X, Y, and Z.  To find the proper signs we note
+    that:
+
+	2 X Sin(t) = M[1][2] - M[2][1]
+	2 Y Sin(t) = M[2][0] - M[0][2]
+	2 Z Sin(t) = M[0][1] - M[1][0]
+}
+
+var Axis1, Axis2: TVector3f;
+    M, M1, M2: TMatrix;
+    cost, cost1,
+    sint,
+    s1, s2, s3: Single;
+    I: Integer;
+
+
+begin
+  // see if we are only rotating about a single Axis
+  if Abs(Angles[X]) < EPSILON then
+  begin
+    if Abs(Angles[Y]) < EPSILON then
+    begin
+      Result := MakeVector([0, 0, 1, Angles[Z]]);
+      Exit;
+    end
+    else
+      if Abs(Angles[Z]) < EPSILON then
+      begin
+        Result := MakeVector([0, 1, 0, Angles[Y]]);
+        Exit;
+      end
+   end
+   else
+     if (Abs(Angles[Y]) < EPSILON) and
+        (Abs(Angles[Z]) < EPSILON) then
+     begin
+       Result := MakeVector([1, 0, 0, Angles[X]]);
+       Exit;
+     end;
+
+  // make the rotation matrix
+  Axis1 := MakeAffineVector([1, 0, 0]);
+  M := CreateRotationMatrix(Axis1, Angles[X]);
+
+  Axis2 := MakeAffineVector([0, 1, 0]);
+  M2 := CreateRotationMatrix(Axis2, Angles[Y]);
+  M1 := MatrixMultiply(M, M2);
+
+  Axis2 := MakeAffineVector([0, 0, 1]);
+  M2 := CreateRotationMatrix(Axis2, Angles[Z]);
+  M := MatrixMultiply(M1, M2);
+
+  cost := ((M[X, X] + M[Y, Y] + M[Z, Z])-1) / 2;
+  if cost < -1 then cost := -1
+               else
+    if cost > 1 - EPSILON then
+    begin
+      // Bad Angle - this would cause a crash
+      Result := MakeVector([1, 0, 0, 0]);
+      Exit;
+    end;
+
+  cost1 := 1 - cost;
+  Result := Makevector([Sqrt((M[X, X]-cost) / cost1),
+                      Sqrt((M[Y, Y]-cost) / cost1),
+                      sqrt((M[Z, Z]-cost) / cost1),
+                      arccos(cost)]);
+
+  sint := 2 * Sqrt(1 - cost * cost); // This is actually 2 Sin(t)
+
+  // Determine the proper signs
+  for I := 0 to 7 do
+  begin
+    if (I and 1) > 1 then s1 := -1 else s1 := 1;
+    if (I and 2) > 1 then s2 := -1 else s2 := 1;
+    if (I and 4) > 1 then s3 := -1 else s3 := 1;
+    if (Abs(s1 * Result[X] * sint-M[Y, Z] + M[Z, Y]) < EPSILON2) and
+       (Abs(s2 * Result[Y] * sint-M[Z, X] + M[X, Z]) < EPSILON2) and
+       (Abs(s3 * Result[Z] * sint-M[X, Y] + M[Y, X]) < EPSILON2) then
+        begin
+          // We found the right combination of signs
+          Result[X] := Result[X] * s1;
+          Result[Y] := Result[Y] * s2;
+          Result[Z] := Result[Z] * s3;
+          Exit;
+        end;
+  end;
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function CreateRotationMatrixX(Sine, Cosine: Single): TMatrix; register;
+
+// creates matrix for rotation about x-axis
+
+begin
+  Result := EmptyMatrix;
+  Result[X, X] := 1;
+  Result[Y, Y] := Cosine;
+  Result[Y, Z] := Sine;
+  Result[Z, Y] := -Sine;
+  Result[Z, Z] := Cosine;
+  Result[W, W] := 1;
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function CreateRotationMatrixY(Sine, Cosine: Single): TMatrix; register;
+
+// creates matrix for rotation about y-axis
+
+begin
+  Result := EmptyMatrix;
+  Result[X, X] := Cosine;
+  Result[X, Z] := -Sine;
+  Result[Y, Y] := 1;
+  Result[Z, X] := Sine;
+  Result[Z, Z] := Cosine;
+  Result[W, W] := 1;
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function CreateRotationMatrixZ(Sine, Cosine: Single): TMatrix; register;
+
+// creates matrix for rotation about z-axis
+
+begin
+  Result := EmptyMatrix;
+  Result[X, X] := Cosine;
+  Result[X, Y] := Sine;
+  Result[Y, X] := -Sine;
+  Result[Y, Y] := Cosine;
+  Result[Z, Z] := 1;
+  Result[W, W] := 1;
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function CreateScaleMatrix(V: TAffineVector): TMatrix; register;
+
+// creates scaling matrix
+
+begin
+  Result := IdentityMatrix;
+  Result[X, X] := V[X];
+  Result[Y, Y] := V[Y];
+  Result[Z, Z] := V[Z];
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function CreateTranslationMatrix(V: TVector): TMatrix; register;
+
+// creates translation matrix
+
+begin
+  Result := IdentityMatrix;
+  Result[W, X] := V[X];
+  Result[W, Y] := V[Y];
+  Result[W, Z] := V[Z];
+  Result[W, W] := V[W];
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function Lerp(Start, Stop, t: Single): Single;
+
+// calculates linear interpolation between start and stop at point t
+
+begin
+  Result := Start + (Stop - Start) * t;
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function VectorAffineLerp(V1, V2: TAffineVector; t: Single): TAffineVector;
+
+// calculates linear interpolation between vector1 and vector2 at point t
+
+begin
+  Result[X] := Lerp(V1[X], V2[X], t);
+  Result[Y] := Lerp(V1[Y], V2[Y], t);
+  Result[Z] := Lerp(V1[Z], V2[Z], t);
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function VectorLerp(V1, V2: TVector; t: Single): TVector;
+
+// calculates linear interpolation between vector1 and vector2 at point t
+
+begin
+  Result[X] := Lerp(V1[X], V2[X], t);
+  Result[Y] := Lerp(V1[Y], V2[Y], t);
+  Result[Z] := Lerp(V1[Z], V2[Z], t);
+  Result[W] := Lerp(V1[W], V2[W], t);
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function QuaternionSlerp(QStart, QEnd: TQuaternion; Spin: Integer; t: Single): TQuaternion;
+
+// spherical linear interpolation of unit quaternions with spins
+// QStart, QEnd - start and end unit quaternions
+// t            - interpolation parameter (0 to 1)
+// Spin         - number of extra spin rotations to involve
+
+var beta,                   // complementary interp parameter
+    theta,                  // Angle between A and B
+    sint, cost,             // sine, cosine of theta
+    phi: Single;            // theta plus spins
+    bflip: Boolean;         // use negativ t?
+
+
+begin
+  // cosine theta
+  cost := VectorAngle(QStart.ImagPart, QEnd.ImagPart);
+
+  // if QEnd is on opposite hemisphere from QStart, use -QEnd instead
+  if cost < 0 then
+  begin
+    cost := -cost;
+    bflip := True;
+  end
+  else bflip := False;
+
+  // if QEnd is (within precision limits) the same as QStart,
+  // just linear interpolate between QStart and QEnd.
+  // Can't do spins, since we don't know what direction to spin.
+
+  if (1 - cost) < EPSILON then beta := 1 - t
+                          else
+  begin
+    // normal case
+    theta := arccos(cost);
+    phi := theta + Spin * Pi;
+    sint := sin(theta);
+    beta := sin(theta - t * phi) / sint;
+    t := sin(t * phi) / sint;
+  end;
+
+  if bflip then t := -t;
+
+  // interpolate
+  Result.ImagPart[X] := beta * QStart.ImagPart[X] + t * QEnd.ImagPart[X];
+  Result.ImagPart[Y] := beta * QStart.ImagPart[Y] + t * QEnd.ImagPart[Y];
+  Result.ImagPart[Z] := beta * QStart.ImagPart[Z] + t * QEnd.ImagPart[Z];
+  Result.RealPart := beta * QStart.RealPart + t * QEnd.RealPart;
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function VectorAffineCombine(V1, V2: TAffineVector; F1, F2: Single): TAffineVector;
+
+// makes a linear combination of two vectors and return the result
+
+begin
+  Result[X] := (F1 * V1[X]) + (F2 * V2[X]);
+  Result[Y] := (F1 * V1[Y]) + (F2 * V2[Y]);
+  Result[Z] := (F1 * V1[Z]) + (F2 * V2[Z]);
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function VectorCombine(V1, V2: TVector; F1, F2: Single): TVector;
+
+// makes a linear combination of two vectors and return the result
+
+begin
+  Result[X] := (F1 * V1[X]) + (F2 * V2[X]);
+  Result[Y] := (F1 * V1[Y]) + (F2 * V2[Y]);
+  Result[Z] := (F1 * V1[Z]) + (F2 * V2[Z]);
+  Result[W] := (F1 * V1[W]) + (F2 * V2[W]);
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function MatrixDecompose(M: TMatrix; var Tran: TTransformations): Boolean; register;
+
+// Author: Spencer W. Thomas, University of Michigan
+//
+// MatrixDecompose - Decompose a non-degenerated 4x4 transformation matrix into
+// the sequence of transformations that produced it.
+//
+// The coefficient of each transformation is returned in the corresponding
+// element of the vector Tran.
+//
+// Returns true upon success, false if the matrix is singular.
+
+var I, J: Integer;
+    LocMat,
+    pmat,
+    invpmat,
+    tinvpmat: TMatrix;
+    prhs,
+    psol: TVector;
+    Row: array[0..2] of TAffineVector;
+
+begin
+  Result := False;
+  locmat := M;
+  // normalize the matrix
+  if locmat[W, W] = 0 then Exit;
+  for I := 0 to 3 do
+    for J := 0 to 3 do
+      locmat[I, J] := locmat[I, J] / locmat[W, W];
+
+  // pmat is used to solve for perspective, but it also provides
+  // an easy way to test for singularity of the upper 3x3 component.
+
+  pmat := locmat;
+  for I := 0 to 2 do pmat[I, W] := 0;
+  pmat[W, W] := 1;
+
+  if MatrixDeterminant(pmat) = 0 then Exit;
+
+  // First, isolate perspective.  This is the messiest.
+  if (locmat[X, W] <> 0) or
+     (locmat[Y, W] <> 0) or
+     (locmat[Z, W] <> 0) then
+  begin
+    // prhs is the right hand side of the equation.
+    prhs[X] := locmat[X, W];
+    prhs[Y] := locmat[Y, W];
+    prhs[Z] := locmat[Z, W];
+    prhs[W] := locmat[W, W];
+
+    // Solve the equation by inverting pmat and multiplying
+    // prhs by the inverse.  (This is the easiest way, not
+    // necessarily the best.)
+
+    invpmat := pmat;
+    MatrixInvert(invpmat);
+    MatrixTranspose(invpmat);
+    psol := VectorTransform(prhs, tinvpmat);
+
+    // stuff the answer away
+    Tran[ttPerspectiveX] := psol[X];
+    Tran[ttPerspectiveY] := psol[Y];
+    Tran[ttPerspectiveZ] := psol[Z];
+    Tran[ttPerspectiveW] := psol[W];
+
+    // clear the perspective partition
+    locmat[X, W] := 0;
+    locmat[Y, W] := 0;
+    locmat[Z, W] := 0;
+    locmat[W, W] := 1;
+  end
+  else
+  begin
+    // no perspective
+    Tran[ttPerspectiveX] := 0;
+    Tran[ttPerspectiveY] := 0;
+    Tran[ttPerspectiveZ] := 0;
+    Tran[ttPerspectiveW] := 0;
+  end;
+
+  // next take care of translation (easy)
+  for I := 0 to 2 do
+  begin
+    Tran[TTransType(Ord(ttTranslateX) + I)] := locmat[W, I];
+    locmat[W, I] := 0;
+  end;
+
+  // now get scale and shear
+  for I := 0 to 2 do
+  begin
+    row[I, X] := locmat[I, X];
+    row[I, Y] := locmat[I, Y];
+    row[I, Z] := locmat[I, Z];
+  end;
+
+  // compute X scale factor and normalize first row
+  Tran[ttScaleX] := Sqr(VectorNormalize(row[0])); // ml: calculation optimized
+
+  // compute XY shear factor and make 2nd row orthogonal to 1st
+  Tran[ttShearXY] := VectorAffineDotProduct(row[0], row[1]);
+  row[1] := VectorAffineCombine(row[1], row[0], 1, -Tran[ttShearXY]);
+
+  // now, compute Y scale and normalize 2nd row
+  Tran[ttScaleY] := Sqr(VectorNormalize(row[1])); // ml: calculation optimized
+  Tran[ttShearXY] := Tran[ttShearXY]/Tran[ttScaleY];
+
+  // compute XZ and YZ shears, orthogonalize 3rd row
+  Tran[ttShearXZ] := VectorAffineDotProduct(row[0], row[2]);
+  row[2] := VectorAffineCombine(row[2], row[0], 1, -Tran[ttShearXZ]);
+  Tran[ttShearYZ] := VectorAffineDotProduct(row[1], row[2]);
+  row[2] := VectorAffineCombine(row[2], row[1], 1, -Tran[ttShearYZ]);
+
+  // next, get Z scale and normalize 3rd row
+  Tran[ttScaleZ] := Sqr(VectorNormalize(row[1])); // (ML) calc. optimized
+  Tran[ttShearXZ] := Tran[ttShearXZ] / tran[ttScaleZ];
+  Tran[ttShearYZ] := Tran[ttShearYZ] / Tran[ttScaleZ];
+
+  // At this point, the matrix (in rows[]) is orthonormal.
+  // Check for a coordinate system flip.  If the determinant
+  // is -1, then negate the matrix and the scaling factors.
+  if VectorAffineDotProduct(row[0], VectorCrossProduct(row[1], row[2])) < 0 then
+    for I := 0 to 2 do
+    begin
+      Tran[TTransType(Ord(ttScaleX) + I)] := -Tran[TTransType(Ord(ttScaleX) + I)];
+      row[I, X] := -row[I, X];
+      row[I, Y] := -row[I, Y];
+      row[I, Z] := -row[I, Z];
+    end;
+
+  // now, get the rotations out, as described in the gem
+  Tran[ttRotateY] := arcsin(-row[0, Z]);
+  if cos(Tran[ttRotateY]) <> 0 then
+  begin
+    Tran[ttRotateX] := arctan2(row[1, Z], row[2, Z]);
+    Tran[ttRotateZ] := arctan2(row[0, Y], row[0, X]);
+  end
+  else
+  begin
+    tran[ttRotateX] := arctan2(row[1, X], row[1, Y]);
+    tran[ttRotateZ] := 0;
+  end;
+  // All done!
+  Result := True;
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function VectorDblToFlt(V: THomogeneousDblVector): THomogeneousVector; assembler;
+
+// converts a vector containing double sized values into a vector with single sized values
+
+asm
+              FLD  QWORD PTR [EAX]
+              FSTP DWORD PTR [EDX]
+              FLD  QWORD PTR [EAX + 8]
+              FSTP DWORD PTR [EDX + 4]
+              FLD  QWORD PTR [EAX + 16]
+              FSTP DWORD PTR [EDX + 8]
+              FLD  QWORD PTR [EAX + 24]
+              FSTP DWORD PTR [EDX + 12]
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function VectorAffineDblToFlt(V: TAffineDblVector): TAffineVector; assembler;
+
+// converts a vector containing double sized values into a vector with single sized values
+
+asm
+              FLD  QWORD PTR [EAX]
+              FSTP DWORD PTR [EDX]
+              FLD  QWORD PTR [EAX + 8]
+              FSTP DWORD PTR [EDX + 4]
+              FLD  QWORD PTR [EAX + 16]
+              FSTP DWORD PTR [EDX + 8]
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function VectorAffineFltToDbl(V: TAffineVector): TAffineDblVector; assembler;
+
+// converts a vector containing single sized values into a vector with double sized values
+
+asm
+              FLD  DWORD PTR [EAX]
+              FSTP QWORD PTR [EDX]
+              FLD  DWORD PTR [EAX + 8]
+              FSTP QWORD PTR [EDX + 4]
+              FLD  DWORD PTR [EAX + 16]
+              FSTP QWORD PTR [EDX + 8]
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function VectorFltToDbl(V: TVector): THomogeneousDblVector; assembler;
+
+// converts a vector containing single sized values into a vector with double sized values
+
+asm
+              FLD  DWORD PTR [EAX]
+              FSTP QWORD PTR [EDX]
+              FLD  DWORD PTR [EAX + 8]
+              FSTP QWORD PTR [EDX + 4]
+              FLD  DWORD PTR [EAX + 16]
+              FSTP QWORD PTR [EDX + 8]
+              FLD  DWORD PTR [EAX + 24]
+              FSTP QWORD PTR [EDX + 12]
+end;
+
+//----------------- coordinate system manipulation functions -----------------------------------------------------------
+
+function Turn(Matrix: TMatrix; Angle: Single): TMatrix;
+
+// rotates the given coordinate system (represented by the matrix) around its Y-axis
+
+begin
+  Result := MatrixMultiply(Matrix, CreateRotationMatrix(MakeAffineVector(Matrix[1]), Angle));
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function Turn(Matrix: TMatrix; MasterUp: TAffineVector; Angle: Single): TMatrix;
+
+// rotates the given coordinate system (represented by the matrix) around MasterUp
+
+begin
+  Result := MatrixMultiply(Matrix, CreateRotationMatrix(MasterUp, Angle));
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function Pitch(Matrix: TMatrix; Angle: Single): TMatrix;
+
+// rotates the given coordinate system (represented by the matrix) around its X-axis
+
+begin
+  Result := MatrixMultiply(Matrix, CreateRotationMatrix(MakeAffineVector(Matrix[0]), Angle));
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function Pitch(Matrix: TMatrix; MasterRight: TAffineVector; Angle: Single): TMatrix; overload;
+
+// rotates the given coordinate system (represented by the matrix) around MasterRight
+
+begin
+  Result := MatrixMultiply(Matrix, CreateRotationMatrix(MasterRight, Angle));
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function Roll(Matrix: TMatrix; Angle: Single): TMatrix;
+
+// rotates the given coordinate system (represented by the matrix) around its Z-axis
+
+begin
+  Result := MatrixMultiply(Matrix, CreateRotationMatrix(MakeAffineVector(Matrix[2]), Angle));
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+function Roll(Matrix: TMatrix; MasterDirection: TAffineVector; Angle: Single): TMatrix; overload;
+
+// rotates the given coordinate system (represented by the matrix) around MasterDirection
+
+begin
+  Result := MatrixMultiply(Matrix, CreateRotationMatrix(MasterDirection, Angle));
+end;
+
+//----------------------------------------------------------------------------------------------------------------------
+
+end.
+
+
diff --git a/Game/Code/lib/JEDI-SDL/OpenGL/Pas/gl.pas b/Game/Code/lib/JEDI-SDL/OpenGL/Pas/gl.pas
index 5c5ec0da..2dc99df5 100644
--- a/Game/Code/lib/JEDI-SDL/OpenGL/Pas/gl.pas
+++ b/Game/Code/lib/JEDI-SDL/OpenGL/Pas/gl.pas
@@ -1,2301 +1,2301 @@
-unit gl;

-{

-  $Id: gl.pas,v 1.5 2007/05/20 20:28:31 savage Exp $

-

-  Adaption of the delphi3d.net OpenGL units to FreePascal

-  Sebastian Guenther (sg@freepascal.org) in 2002

-  These units are free to use

-}

-

-(*++ BUILD Version: 0004    // Increment this if a change has global effects

-

-Copyright (c) 1985-96, Microsoft Corporation

-

-Module Name:

-

-    gl.h

-

-Abstract:

-

-    Procedure declarations, constant definitions and macros for the OpenGL

-    component.

-

---*)

-

-(*

-** Copyright 1996 Silicon Graphics, Inc.

-** All Rights Reserved.

-**

-** This is UNPUBLISHED PROPRIETARY SOURCE CODE of Silicon Graphics, Inc.;

-** the contents of this file may not be disclosed to third parties, copied or

-** duplicated in any form, in whole or in part, without the prior written

-** permission of Silicon Graphics, Inc.

-**

-** RESTRICTED RIGHTS LEGEND:

-** Use, duplication or disclosure by the Government is subject to restrictions

-** as set forth in subdivision (c)(1)(ii) of the Rights in Technical Data

-** and Computer Software clause at DFARS 252.227-7013, and/or in similar or

-** successor clauses in the FAR, DOD or NASA FAR Supplement. Unpublished -

-** rights reserved under the Copyright Laws of the United States.

-*)

-

-{******************************************************************************}

-{                                                                              }

-{ Converted to Delphi by Tom Nuydens (tom@delphi3d.net)                        }

-{ For the latest updates, visit Delphi3D: http://www.delphi3d.net              }

-{                                                                              }

-{ Modified for Delphi/Kylix and FreePascal                                     }

-{    by Dominique Louis ( Dominique@Savagesoftware.com.au)                     }

-{ For the latest updates, visit JEDI-SDL : http://www.sf.net/projects/jedi-sdl }

-{                                                                              }

-{******************************************************************************}

-

-{

-  $Log: gl.pas,v $

-  Revision 1.5  2007/05/20 20:28:31  savage

-  Initial Changes to Handle 64 Bits

-

-  Revision 1.4  2006/11/20 21:20:59  savage

-  Updated to work in MacOS X

-

-  Revision 1.3  2005/05/22 18:52:09  savage

-  Changes as suggested by Michalis Kamburelis. Thanks again.

-

-  Revision 1.2  2004/08/14 22:54:30  savage

-  Updated so that Library name defines are correctly defined for MacOS X.

-

-  Revision 1.1  2004/03/30 21:53:54  savage

-  Moved to it's own folder.

-

-  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 00:23:39  savage

-  As UNIX is defined in jedi-sdl.inc this will be used to check linux compatability as well. Units have been changed to reflect this change.

-

-  Revision 1.2  2004/02/14 00:09:18  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.6  2003/06/02 12:32:12  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

-{$IFDEF __GPC__}

-  system,

-  gpc,

-{$ENDIF}

-

-{$IFDEF WINDOWS}

-  Windows,

-{$ENDIF}

-  moduleloader;

-

-

-var

-  LibGL: TModuleHandle;

-

-type

-  GLenum     = Cardinal;      PGLenum     = ^GLenum;

-  GLboolean  = Byte;          PGLboolean  = ^GLboolean;

-  GLbitfield = Cardinal;      PGLbitfield = ^GLbitfield;

-  GLbyte     = ShortInt;      PGLbyte     = ^GLbyte;

-  GLshort    = SmallInt;      PGLshort    = ^GLshort;

-  GLint      = Integer;       PGLint      = ^GLint;

-  GLsizei    = Integer;       PGLsizei    = ^GLsizei;

-  GLubyte    = Byte;          PGLubyte    = ^GLubyte;

-  GLushort   = Word;          PGLushort   = ^GLushort;

-  GLuint     = Cardinal;      PGLuint     = ^GLuint;

-  GLfloat    = Single;        PGLfloat    = ^GLfloat;

-  GLclampf   = Single;        PGLclampf   = ^GLclampf;

-  GLdouble   = Double;        PGLdouble   = ^GLdouble;

-  GLclampd   = Double;        PGLclampd   = ^GLclampd;

-{ GLvoid     = void; }        PGLvoid     = Pointer;

-

-{******************************************************************************}

-

-const

-{$IFDEF WINDOWS}

-  GLLibName = 'OpenGL32.dll';

-{$ENDIF}

-

-{$IFDEF UNIX}

-{$IFDEF DARWIN}

-  GLLibName = '/System/Library/Frameworks/OpenGL.framework/Libraries/libGL.dylib';

-{$ELSE}

-  GLLibName = 'libGL.so';

-{$ENDIF}

-{$ENDIF}

-

-  // Version

-  GL_VERSION_1_1                    = 1;

-

-  // AccumOp

-  GL_ACCUM                          = $0100;

-  GL_LOAD                           = $0101;

-  GL_RETURN                         = $0102;

-  GL_MULT                           = $0103;

-  GL_ADD                            = $0104;

-

-  // AlphaFunction

-  GL_NEVER                          = $0200;

-  GL_LESS                           = $0201;

-  GL_EQUAL                          = $0202;

-  GL_LEQUAL                         = $0203;

-  GL_GREATER                        = $0204;

-  GL_NOTEQUAL                       = $0205;

-  GL_GEQUAL                         = $0206;

-  GL_ALWAYS                         = $0207;

-

-  // AttribMask

-  GL_CURRENT_BIT                    = $00000001;

-  GL_POINT_BIT                      = $00000002;

-  GL_LINE_BIT                       = $00000004;

-  GL_POLYGON_BIT                    = $00000008;

-  GL_POLYGON_STIPPLE_BIT            = $00000010;

-  GL_PIXEL_MODE_BIT                 = $00000020;

-  GL_LIGHTING_BIT                   = $00000040;

-  GL_FOG_BIT                        = $00000080;

-  GL_DEPTH_BUFFER_BIT               = $00000100;

-  GL_ACCUM_BUFFER_BIT               = $00000200;

-  GL_STENCIL_BUFFER_BIT             = $00000400;

-  GL_VIEWPORT_BIT                   = $00000800;

-  GL_TRANSFORM_BIT                  = $00001000;

-  GL_ENABLE_BIT                     = $00002000;

-  GL_COLOR_BUFFER_BIT               = $00004000;

-  GL_HINT_BIT                       = $00008000;

-  GL_EVAL_BIT                       = $00010000;

-  GL_LIST_BIT                       = $00020000;

-  GL_TEXTURE_BIT                    = $00040000;

-  GL_SCISSOR_BIT                    = $00080000;

-  GL_ALL_ATTRIB_BITS                = $000FFFFF;

-

-  // BeginMode

-  GL_POINTS                         = $0000;

-  GL_LINES                          = $0001;

-  GL_LINE_LOOP                      = $0002;

-  GL_LINE_STRIP                     = $0003;

-  GL_TRIANGLES                      = $0004;

-  GL_TRIANGLE_STRIP                 = $0005;

-  GL_TRIANGLE_FAN                   = $0006;

-  GL_QUADS                          = $0007;

-  GL_QUAD_STRIP                     = $0008;

-  GL_POLYGON                        = $0009;

-

-  // BlendingFactorDest

-  GL_ZERO                           = 0;

-  GL_ONE                            = 1;

-  GL_SRC_COLOR                      = $0300;

-  GL_ONE_MINUS_SRC_COLOR            = $0301;

-  GL_SRC_ALPHA                      = $0302;

-  GL_ONE_MINUS_SRC_ALPHA            = $0303;

-  GL_DST_ALPHA                      = $0304;

-  GL_ONE_MINUS_DST_ALPHA            = $0305;

-

-  // BlendingFactorSrc

-  //      GL_ZERO

-  //      GL_ONE

-  GL_DST_COLOR                      = $0306;

-  GL_ONE_MINUS_DST_COLOR            = $0307;

-  GL_SRC_ALPHA_SATURATE             = $0308;

-  //      GL_SRC_ALPHA

-  //      GL_ONE_MINUS_SRC_ALPHA

-  //      GL_DST_ALPHA

-  //      GL_ONE_MINUS_DST_ALPHA

-

-  // Boolean

-  GL_TRUE                           = 1;

-  GL_FALSE                          = 0;

-

-  // ClearBufferMask

-  //      GL_COLOR_BUFFER_BIT

-  //      GL_ACCUM_BUFFER_BIT

-  //      GL_STENCIL_BUFFER_BIT

-  //      GL_DEPTH_BUFFER_BIT

-

-  // ClientArrayType

-  //      GL_VERTEX_ARRAY

-  //      GL_NORMAL_ARRAY

-  //      GL_COLOR_ARRAY

-  //      GL_INDEX_ARRAY

-  //      GL_TEXTURE_COORD_ARRAY

-  //      GL_EDGE_FLAG_ARRAY

-

-  // ClipPlaneName

-  GL_CLIP_PLANE0                    = $3000;

-  GL_CLIP_PLANE1                    = $3001;

-  GL_CLIP_PLANE2                    = $3002;

-  GL_CLIP_PLANE3                    = $3003;

-  GL_CLIP_PLANE4                    = $3004;

-  GL_CLIP_PLANE5                    = $3005;

-

-  // ColorMaterialFace

-  //      GL_FRONT

-  //      GL_BACK

-  //      GL_FRONT_AND_BACK

-

-  // ColorMaterialParameter

-  //      GL_AMBIENT

-  //      GL_DIFFUSE

-  //      GL_SPECULAR

-  //      GL_EMISSION

-  //      GL_AMBIENT_AND_DIFFUSE

-

-  // ColorPointerType

-  //      GL_BYTE

-  //      GL_UNSIGNED_BYTE

-  //      GL_SHORT

-  //      GL_UNSIGNED_SHORT

-  //      GL_INT

-  //      GL_UNSIGNED_INT

-  //      GL_FLOAT

-  //      GL_DOUBLE

-

-  // CullFaceMode

-  //      GL_FRONT

-  //      GL_BACK

-  //      GL_FRONT_AND_BACK

-

-  // DataType

-  GL_BYTE                           = $1400;

-  GL_UNSIGNED_BYTE                  = $1401;

-  GL_SHORT                          = $1402;

-  GL_UNSIGNED_SHORT                 = $1403;

-  GL_INT                            = $1404;

-  GL_UNSIGNED_INT                   = $1405;

-  GL_FLOAT                          = $1406;

-  GL_2_BYTES                        = $1407;

-  GL_3_BYTES                        = $1408;

-  GL_4_BYTES                        = $1409;

-  GL_DOUBLE                         = $140A;

-

-  // DepthFunction

-  //      GL_NEVER

-  //      GL_LESS

-  //      GL_EQUAL

-  //      GL_LEQUAL

-  //      GL_GREATER

-  //      GL_NOTEQUAL

-  //      GL_GEQUAL

-  //      GL_ALWAYS

-

-  // DrawBufferMode

-  GL_NONE                           = 0;

-  GL_FRONT_LEFT                     = $0400;

-  GL_FRONT_RIGHT                    = $0401;

-  GL_BACK_LEFT                      = $0402;

-  GL_BACK_RIGHT                     = $0403;

-  GL_FRONT                          = $0404;

-  GL_BACK                           = $0405;

-  GL_LEFT                           = $0406;

-  GL_RIGHT                          = $0407;

-  GL_FRONT_AND_BACK                 = $0408;

-  GL_AUX0                           = $0409;

-  GL_AUX1                           = $040A;

-  GL_AUX2                           = $040B;

-  GL_AUX3                           = $040C;

-

-  // Enable

-  //      GL_FOG

-  //      GL_LIGHTING

-  //      GL_TEXTURE_1D

-  //      GL_TEXTURE_2D

-  //      GL_LINE_STIPPLE

-  //      GL_POLYGON_STIPPLE

-  //      GL_CULL_FACE

-  //      GL_ALPHA_TEST

-  //      GL_BLEND

-  //      GL_INDEX_LOGIC_OP

-  //      GL_COLOR_LOGIC_OP

-  //      GL_DITHER

-  //      GL_STENCIL_TEST

-  //      GL_DEPTH_TEST

-  //      GL_CLIP_PLANE0

-  //      GL_CLIP_PLANE1

-  //      GL_CLIP_PLANE2

-  //      GL_CLIP_PLANE3

-  //      GL_CLIP_PLANE4

-  //      GL_CLIP_PLANE5

-  //      GL_LIGHT0

-  //      GL_LIGHT1

-  //      GL_LIGHT2

-  //      GL_LIGHT3

-  //      GL_LIGHT4

-  //      GL_LIGHT5

-  //      GL_LIGHT6

-  //      GL_LIGHT7

-  //      GL_TEXTURE_GEN_S

-  //      GL_TEXTURE_GEN_T

-  //      GL_TEXTURE_GEN_R

-  //      GL_TEXTURE_GEN_Q

-  //      GL_MAP1_VERTEX_3

-  //      GL_MAP1_VERTEX_4

-  //      GL_MAP1_COLOR_4

-  //      GL_MAP1_INDEX

-  //      GL_MAP1_NORMAL

-  //      GL_MAP1_TEXTURE_COORD_1

-  //      GL_MAP1_TEXTURE_COORD_2

-  //      GL_MAP1_TEXTURE_COORD_3

-  //      GL_MAP1_TEXTURE_COORD_4

-  //      GL_MAP2_VERTEX_3

-  //      GL_MAP2_VERTEX_4

-  //      GL_MAP2_COLOR_4

-  //      GL_MAP2_INDEX

-  //      GL_MAP2_NORMAL

-  //      GL_MAP2_TEXTURE_COORD_1

-  //      GL_MAP2_TEXTURE_COORD_2

-  //      GL_MAP2_TEXTURE_COORD_3

-  //      GL_MAP2_TEXTURE_COORD_4

-  //      GL_POINT_SMOOTH

-  //      GL_LINE_SMOOTH

-  //      GL_POLYGON_SMOOTH

-  //      GL_SCISSOR_TEST

-  //      GL_COLOR_MATERIAL

-  //      GL_NORMALIZE

-  //      GL_AUTO_NORMAL

-  //      GL_VERTEX_ARRAY

-  //      GL_NORMAL_ARRAY

-  //      GL_COLOR_ARRAY

-  //      GL_INDEX_ARRAY

-  //      GL_TEXTURE_COORD_ARRAY

-  //      GL_EDGE_FLAG_ARRAY

-  //      GL_POLYGON_OFFSET_POINT

-  //      GL_POLYGON_OFFSET_LINE

-  //      GL_POLYGON_OFFSET_FILL

-

-  // ErrorCode

-  GL_NO_ERROR                       = 0;

-  GL_INVALID_ENUM                   = $0500;

-  GL_INVALID_VALUE                  = $0501;

-  GL_INVALID_OPERATION              = $0502;

-  GL_STACK_OVERFLOW                 = $0503;

-  GL_STACK_UNDERFLOW                = $0504;

-  GL_OUT_OF_MEMORY                  = $0505;

-

-  // FeedBackMode

-  GL_2D                             = $0600;

-  GL_3D                             = $0601;

-  GL_3D_COLOR                       = $0602;

-  GL_3D_COLOR_TEXTURE               = $0603;

-  GL_4D_COLOR_TEXTURE               = $0604;

-

-  // FeedBackToken

-  GL_PASS_THROUGH_TOKEN             = $0700;

-  GL_POINT_TOKEN                    = $0701;

-  GL_LINE_TOKEN                     = $0702;

-  GL_POLYGON_TOKEN                  = $0703;

-  GL_BITMAP_TOKEN                   = $0704;

-  GL_DRAW_PIXEL_TOKEN               = $0705;

-  GL_COPY_PIXEL_TOKEN               = $0706;

-  GL_LINE_RESET_TOKEN               = $0707;

-

-  // FogMode

-  //      GL_LINEAR

-  GL_EXP                            = $0800;

-  GL_EXP2                           = $0801;

-

-  // FogParameter

-  //      GL_FOG_COLOR

-  //      GL_FOG_DENSITY

-  //      GL_FOG_END

-  //      GL_FOG_INDEX

-  //      GL_FOG_MODE

-  //      GL_FOG_START

-

-  // FrontFaceDirection

-  GL_CW                             = $0900;

-  GL_CCW                            = $0901;

-

-  // GetMapTarget

-  GL_COEFF                          = $0A00;

-  GL_ORDER                          = $0A01;

-  GL_DOMAIN                         = $0A02;

-

-  // GetPixelMap

-  //      GL_PIXEL_MAP_I_TO_I 

-  //      GL_PIXEL_MAP_S_TO_S 

-  //      GL_PIXEL_MAP_I_TO_R 

-  //      GL_PIXEL_MAP_I_TO_G 

-  //      GL_PIXEL_MAP_I_TO_B 

-  //      GL_PIXEL_MAP_I_TO_A

-  //      GL_PIXEL_MAP_R_TO_R

-  //      GL_PIXEL_MAP_G_TO_G 

-  //      GL_PIXEL_MAP_B_TO_B 

-  //      GL_PIXEL_MAP_A_TO_A 

-

-  // GetPointerTarget 

-  //      GL_VERTEX_ARRAY_POINTER 

-  //      GL_NORMAL_ARRAY_POINTER 

-  //      GL_COLOR_ARRAY_POINTER 

-  //      GL_INDEX_ARRAY_POINTER 

-  //      GL_TEXTURE_COORD_ARRAY_POINTER 

-  //      GL_EDGE_FLAG_ARRAY_POINTER 

-

-  // GetTarget 

-  GL_CURRENT_COLOR                  = $0B00;

-  GL_CURRENT_INDEX                  = $0B01;

-  GL_CURRENT_NORMAL                 = $0B02;

-  GL_CURRENT_TEXTURE_COORDS         = $0B03;

-  GL_CURRENT_RASTER_COLOR           = $0B04;

-  GL_CURRENT_RASTER_INDEX           = $0B05;

-  GL_CURRENT_RASTER_TEXTURE_COORDS  = $0B06;

-  GL_CURRENT_RASTER_POSITION        = $0B07;

-  GL_CURRENT_RASTER_POSITION_VALID  = $0B08;

-  GL_CURRENT_RASTER_DISTANCE        = $0B09;

-  GL_POINT_SMOOTH                   = $0B10;

-  GL_POINT_SIZE                     = $0B11;

-  GL_POINT_SIZE_RANGE               = $0B12;

-  GL_POINT_SIZE_GRANULARITY         = $0B13;

-  GL_LINE_SMOOTH                    = $0B20;

-  GL_LINE_WIDTH                     = $0B21;

-  GL_LINE_WIDTH_RANGE               = $0B22;

-  GL_LINE_WIDTH_GRANULARITY         = $0B23;

-  GL_LINE_STIPPLE                   = $0B24;

-  GL_LINE_STIPPLE_PATTERN           = $0B25;

-  GL_LINE_STIPPLE_REPEAT            = $0B26;

-  GL_LIST_MODE                      = $0B30;

-  GL_MAX_LIST_NESTING               = $0B31;

-  GL_LIST_BASE                      = $0B32;

-  GL_LIST_INDEX                     = $0B33;

-  GL_POLYGON_MODE                   = $0B40;

-  GL_POLYGON_SMOOTH                 = $0B41;

-  GL_POLYGON_STIPPLE                = $0B42;

-  GL_EDGE_FLAG                      = $0B43;

-  GL_CULL_FACE                      = $0B44;

-  GL_CULL_FACE_MODE                 = $0B45;

-  GL_FRONT_FACE                     = $0B46;

-  GL_LIGHTING                       = $0B50;

-  GL_LIGHT_MODEL_LOCAL_VIEWER       = $0B51;

-  GL_LIGHT_MODEL_TWO_SIDE           = $0B52;

-  GL_LIGHT_MODEL_AMBIENT            = $0B53;

-  GL_SHADE_MODEL                    = $0B54;

-  GL_COLOR_MATERIAL_FACE            = $0B55;

-  GL_COLOR_MATERIAL_PARAMETER       = $0B56;

-  GL_COLOR_MATERIAL                 = $0B57;

-  GL_FOG                            = $0B60;

-  GL_FOG_INDEX                      = $0B61;

-  GL_FOG_DENSITY                    = $0B62;

-  GL_FOG_START                      = $0B63;

-  GL_FOG_END                        = $0B64;

-  GL_FOG_MODE                       = $0B65;

-  GL_FOG_COLOR                      = $0B66;

-  GL_DEPTH_RANGE                    = $0B70;

-  GL_DEPTH_TEST                     = $0B71;

-  GL_DEPTH_WRITEMASK                = $0B72;

-  GL_DEPTH_CLEAR_VALUE              = $0B73;

-  GL_DEPTH_FUNC                     = $0B74;

-  GL_ACCUM_CLEAR_VALUE              = $0B80;

-  GL_STENCIL_TEST                   = $0B90;

-  GL_STENCIL_CLEAR_VALUE            = $0B91;

-  GL_STENCIL_FUNC                   = $0B92;

-  GL_STENCIL_VALUE_MASK             = $0B93;

-  GL_STENCIL_FAIL                   = $0B94;

-  GL_STENCIL_PASS_DEPTH_FAIL        = $0B95;

-  GL_STENCIL_PASS_DEPTH_PASS        = $0B96;

-  GL_STENCIL_REF                    = $0B97;

-  GL_STENCIL_WRITEMASK              = $0B98;

-  GL_MATRIX_MODE                    = $0BA0;

-  GL_NORMALIZE                      = $0BA1;

-  GL_VIEWPORT                       = $0BA2;

-  GL_MODELVIEW_STACK_DEPTH          = $0BA3;

-  GL_PROJECTION_STACK_DEPTH         = $0BA4;

-  GL_TEXTURE_STACK_DEPTH            = $0BA5;

-  GL_MODELVIEW_MATRIX               = $0BA6;

-  GL_PROJECTION_MATRIX              = $0BA7;

-  GL_TEXTURE_MATRIX                 = $0BA8;

-  GL_ATTRIB_STACK_DEPTH             = $0BB0;

-  GL_CLIENT_ATTRIB_STACK_DEPTH      = $0BB1;

-  GL_ALPHA_TEST                     = $0BC0;

-  GL_ALPHA_TEST_FUNC                = $0BC1;

-  GL_ALPHA_TEST_REF                 = $0BC2;

-  GL_DITHER                         = $0BD0;

-  GL_BLEND_DST                      = $0BE0;

-  GL_BLEND_SRC                      = $0BE1;

-  GL_BLEND                          = $0BE2;

-  GL_LOGIC_OP_MODE                  = $0BF0;

-  GL_INDEX_LOGIC_OP                 = $0BF1;

-  GL_COLOR_LOGIC_OP                 = $0BF2;

-  GL_AUX_BUFFERS                    = $0C00;

-  GL_DRAW_BUFFER                    = $0C01;

-  GL_READ_BUFFER                    = $0C02;

-  GL_SCISSOR_BOX                    = $0C10;

-  GL_SCISSOR_TEST                   = $0C11;

-  GL_INDEX_CLEAR_VALUE              = $0C20;

-  GL_INDEX_WRITEMASK                = $0C21;

-  GL_COLOR_CLEAR_VALUE              = $0C22;

-  GL_COLOR_WRITEMASK                = $0C23;

-  GL_INDEX_MODE                     = $0C30;

-  GL_RGBA_MODE                      = $0C31;

-  GL_DOUBLEBUFFER                   = $0C32;

-  GL_STEREO                         = $0C33;

-  GL_RENDER_MODE                    = $0C40;

-  GL_PERSPECTIVE_CORRECTION_HINT    = $0C50;

-  GL_POINT_SMOOTH_HINT              = $0C51;

-  GL_LINE_SMOOTH_HINT               = $0C52;

-  GL_POLYGON_SMOOTH_HINT            = $0C53;

-  GL_FOG_HINT                       = $0C54;

-  GL_TEXTURE_GEN_S                  = $0C60;

-  GL_TEXTURE_GEN_T                  = $0C61;

-  GL_TEXTURE_GEN_R                  = $0C62;

-  GL_TEXTURE_GEN_Q                  = $0C63;

-  GL_PIXEL_MAP_I_TO_I               = $0C70;

-  GL_PIXEL_MAP_S_TO_S               = $0C71;

-  GL_PIXEL_MAP_I_TO_R               = $0C72;

-  GL_PIXEL_MAP_I_TO_G               = $0C73;

-  GL_PIXEL_MAP_I_TO_B               = $0C74;

-  GL_PIXEL_MAP_I_TO_A               = $0C75;

-  GL_PIXEL_MAP_R_TO_R               = $0C76;

-  GL_PIXEL_MAP_G_TO_G               = $0C77;

-  GL_PIXEL_MAP_B_TO_B               = $0C78;

-  GL_PIXEL_MAP_A_TO_A               = $0C79;

-  GL_PIXEL_MAP_I_TO_I_SIZE          = $0CB0;

-  GL_PIXEL_MAP_S_TO_S_SIZE          = $0CB1;

-  GL_PIXEL_MAP_I_TO_R_SIZE          = $0CB2;

-  GL_PIXEL_MAP_I_TO_G_SIZE          = $0CB3;

-  GL_PIXEL_MAP_I_TO_B_SIZE          = $0CB4;

-  GL_PIXEL_MAP_I_TO_A_SIZE          = $0CB5;

-  GL_PIXEL_MAP_R_TO_R_SIZE          = $0CB6;

-  GL_PIXEL_MAP_G_TO_G_SIZE          = $0CB7;

-  GL_PIXEL_MAP_B_TO_B_SIZE          = $0CB8;

-  GL_PIXEL_MAP_A_TO_A_SIZE          = $0CB9;

-  GL_UNPACK_SWAP_BYTES              = $0CF0;

-  GL_UNPACK_LSB_FIRST               = $0CF1;

-  GL_UNPACK_ROW_LENGTH              = $0CF2;

-  GL_UNPACK_SKIP_ROWS               = $0CF3;

-  GL_UNPACK_SKIP_PIXELS             = $0CF4;

-  GL_UNPACK_ALIGNMENT               = $0CF5;

-  GL_PACK_SWAP_BYTES                = $0D00;

-  GL_PACK_LSB_FIRST                 = $0D01;

-  GL_PACK_ROW_LENGTH                = $0D02;

-  GL_PACK_SKIP_ROWS                 = $0D03;

-  GL_PACK_SKIP_PIXELS               = $0D04;

-  GL_PACK_ALIGNMENT                 = $0D05;

-  GL_MAP_COLOR                      = $0D10;

-  GL_MAP_STENCIL                    = $0D11;

-  GL_INDEX_SHIFT                    = $0D12;

-  GL_INDEX_OFFSET                   = $0D13;

-  GL_RED_SCALE                      = $0D14;

-  GL_RED_BIAS                       = $0D15;

-  GL_ZOOM_X                         = $0D16;

-  GL_ZOOM_Y                         = $0D17;

-  GL_GREEN_SCALE                    = $0D18;

-  GL_GREEN_BIAS                     = $0D19;

-  GL_BLUE_SCALE                     = $0D1A;

-  GL_BLUE_BIAS                      = $0D1B;

-  GL_ALPHA_SCALE                    = $0D1C;

-  GL_ALPHA_BIAS                     = $0D1D;

-  GL_DEPTH_SCALE                    = $0D1E;

-  GL_DEPTH_BIAS                     = $0D1F;

-  GL_MAX_EVAL_ORDER                 = $0D30;

-  GL_MAX_LIGHTS                     = $0D31;

-  GL_MAX_CLIP_PLANES                = $0D32;

-  GL_MAX_TEXTURE_SIZE               = $0D33;

-  GL_MAX_PIXEL_MAP_TABLE            = $0D34;

-  GL_MAX_ATTRIB_STACK_DEPTH         = $0D35;

-  GL_MAX_MODELVIEW_STACK_DEPTH      = $0D36;

-  GL_MAX_NAME_STACK_DEPTH           = $0D37;

-  GL_MAX_PROJECTION_STACK_DEPTH     = $0D38;

-  GL_MAX_TEXTURE_STACK_DEPTH        = $0D39;

-  GL_MAX_VIEWPORT_DIMS              = $0D3A;

-  GL_MAX_CLIENT_ATTRIB_STACK_DEPTH  = $0D3B;

-  GL_SUBPIXEL_BITS                  = $0D50;

-  GL_INDEX_BITS                     = $0D51;

-  GL_RED_BITS                       = $0D52;

-  GL_GREEN_BITS                     = $0D53;

-  GL_BLUE_BITS                      = $0D54;

-  GL_ALPHA_BITS                     = $0D55;

-  GL_DEPTH_BITS                     = $0D56;

-  GL_STENCIL_BITS                   = $0D57;

-  GL_ACCUM_RED_BITS                 = $0D58;

-  GL_ACCUM_GREEN_BITS               = $0D59;

-  GL_ACCUM_BLUE_BITS                = $0D5A;

-  GL_ACCUM_ALPHA_BITS               = $0D5B;

-  GL_NAME_STACK_DEPTH               = $0D70;

-  GL_AUTO_NORMAL                    = $0D80;

-  GL_MAP1_COLOR_4                   = $0D90;

-  GL_MAP1_INDEX                     = $0D91;

-  GL_MAP1_NORMAL                    = $0D92;

-  GL_MAP1_TEXTURE_COORD_1           = $0D93;

-  GL_MAP1_TEXTURE_COORD_2           = $0D94;

-  GL_MAP1_TEXTURE_COORD_3           = $0D95;

-  GL_MAP1_TEXTURE_COORD_4           = $0D96;

-  GL_MAP1_VERTEX_3                  = $0D97;

-  GL_MAP1_VERTEX_4                  = $0D98;

-  GL_MAP2_COLOR_4                   = $0DB0;

-  GL_MAP2_INDEX                     = $0DB1;

-  GL_MAP2_NORMAL                    = $0DB2;

-  GL_MAP2_TEXTURE_COORD_1           = $0DB3;

-  GL_MAP2_TEXTURE_COORD_2           = $0DB4;

-  GL_MAP2_TEXTURE_COORD_3           = $0DB5;

-  GL_MAP2_TEXTURE_COORD_4           = $0DB6;

-  GL_MAP2_VERTEX_3                  = $0DB7;

-  GL_MAP2_VERTEX_4                  = $0DB8;

-  GL_MAP1_GRID_DOMAIN               = $0DD0;

-  GL_MAP1_GRID_SEGMENTS             = $0DD1;

-  GL_MAP2_GRID_DOMAIN               = $0DD2;

-  GL_MAP2_GRID_SEGMENTS             = $0DD3;

-  GL_TEXTURE_1D                     = $0DE0;

-  GL_TEXTURE_2D                     = $0DE1;

-  GL_FEEDBACK_BUFFER_POINTER        = $0DF0;

-  GL_FEEDBACK_BUFFER_SIZE           = $0DF1;

-  GL_FEEDBACK_BUFFER_TYPE           = $0DF2;

-  GL_SELECTION_BUFFER_POINTER       = $0DF3;

-  GL_SELECTION_BUFFER_SIZE          = $0DF4;

-  //      GL_TEXTURE_BINDING_1D

-  //      GL_TEXTURE_BINDING_2D 

-  //      GL_VERTEX_ARRAY 

-  //      GL_NORMAL_ARRAY 

-  //      GL_COLOR_ARRAY 

-  //      GL_INDEX_ARRAY 

-  //      GL_TEXTURE_COORD_ARRAY 

-  //      GL_EDGE_FLAG_ARRAY

-  //      GL_VERTEX_ARRAY_SIZE

-  //      GL_VERTEX_ARRAY_TYPE 

-  //      GL_VERTEX_ARRAY_STRIDE 

-  //      GL_NORMAL_ARRAY_TYPE 

-  //      GL_NORMAL_ARRAY_STRIDE 

-  //      GL_COLOR_ARRAY_SIZE 

-  //      GL_COLOR_ARRAY_TYPE 

-  //      GL_COLOR_ARRAY_STRIDE 

-  //      GL_INDEX_ARRAY_TYPE 

-  //      GL_INDEX_ARRAY_STRIDE 

-  //      GL_TEXTURE_COORD_ARRAY_SIZE 

-  //      GL_TEXTURE_COORD_ARRAY_TYPE 

-  //      GL_TEXTURE_COORD_ARRAY_STRIDE 

-  //      GL_EDGE_FLAG_ARRAY_STRIDE 

-  //      GL_POLYGON_OFFSET_FACTOR 

-  //      GL_POLYGON_OFFSET_UNITS 

-

-  // GetTextureParameter 

-  //      GL_TEXTURE_MAG_FILTER 

-  //      GL_TEXTURE_MIN_FILTER 

-  //      GL_TEXTURE_WRAP_S

-  //      GL_TEXTURE_WRAP_T

-  GL_TEXTURE_WIDTH                  = $1000;

-  GL_TEXTURE_HEIGHT                 = $1001;

-  GL_TEXTURE_INTERNAL_FORMAT        = $1003;

-  GL_TEXTURE_BORDER_COLOR           = $1004;

-  GL_TEXTURE_BORDER                 = $1005;

-  //      GL_TEXTURE_RED_SIZE

-  //      GL_TEXTURE_GREEN_SIZE

-  //      GL_TEXTURE_BLUE_SIZE

-  //      GL_TEXTURE_ALPHA_SIZE

-  //      GL_TEXTURE_LUMINANCE_SIZE

-  //      GL_TEXTURE_INTENSITY_SIZE

-  //      GL_TEXTURE_PRIORITY

-  //      GL_TEXTURE_RESIDENT

-

-  // HintMode

-  GL_DONT_CARE                      = $1100;

-  GL_FASTEST                        = $1101;

-  GL_NICEST                         = $1102;

-

-  // HintTarget

-  //      GL_PERSPECTIVE_CORRECTION_HINT

-  //      GL_POINT_SMOOTH_HINT

-  //      GL_LINE_SMOOTH_HINT

-  //      GL_POLYGON_SMOOTH_HINT

-  //      GL_FOG_HINT

-

-  // IndexPointerType

-  //      GL_SHORT

-  //      GL_INT

-  //      GL_FLOAT

-  //      GL_DOUBLE

-

-  // LightModelParameter

-  //      GL_LIGHT_MODEL_AMBIENT

-  //      GL_LIGHT_MODEL_LOCAL_VIEWER

-  //      GL_LIGHT_MODEL_TWO_SIDE

-

-  // LightName

-  GL_LIGHT0                         = $4000;

-  GL_LIGHT1                         = $4001;

-  GL_LIGHT2                         = $4002;

-  GL_LIGHT3                         = $4003;

-  GL_LIGHT4                         = $4004;

-  GL_LIGHT5                         = $4005;

-  GL_LIGHT6                         = $4006;

-  GL_LIGHT7                         = $4007;

-

-  // LightParameter

-  GL_AMBIENT                        = $1200;

-  GL_DIFFUSE                        = $1201;

-  GL_SPECULAR                       = $1202;

-  GL_POSITION                       = $1203;

-  GL_SPOT_DIRECTION                 = $1204;

-  GL_SPOT_EXPONENT                  = $1205;

-  GL_SPOT_CUTOFF                    = $1206;

-  GL_CONSTANT_ATTENUATION           = $1207;

-  GL_LINEAR_ATTENUATION             = $1208;

-  GL_QUADRATIC_ATTENUATION          = $1209;

-

-  // InterleavedArrays

-  //      GL_V2F

-  //      GL_V3F

-  //      GL_C4UB_V2F

-  //      GL_C4UB_V3F

-  //      GL_C3F_V3F

-  //      GL_N3F_V3F

-  //      GL_C4F_N3F_V3F

-  //      GL_T2F_V3F

-  //      GL_T4F_V4F

-  //      GL_T2F_C4UB_V3F

-  //      GL_T2F_C3F_V3F

-  //      GL_T2F_N3F_V3F

-  //      GL_T2F_C4F_N3F_V3F

-  //      GL_T4F_C4F_N3F_V4F

-

-  // ListMode

-  GL_COMPILE                        = $1300;

-  GL_COMPILE_AND_EXECUTE            = $1301;

-

-  // ListNameType

-  //      GL_BYTE

-  //      GL_UNSIGNED_BYTE

-  //      GL_SHORT

-  //      GL_UNSIGNED_SHORT

-  //      GL_INT

-  //      GL_UNSIGNED_INT

-  //      GL_FLOAT

-  //      GL_2_BYTES

-  //      GL_3_BYTES

-  //      GL_4_BYTES

-

-  // LogicOp

-  GL_CLEAR                          = $1500;

-  GL_AND                            = $1501;

-  GL_AND_REVERSE                    = $1502;

-  GL_COPY                           = $1503;

-  GL_AND_INVERTED                   = $1504;

-  GL_NOOP                           = $1505;

-  GL_XOR                            = $1506;

-  GL_OR                             = $1507;

-  GL_NOR                            = $1508;

-  GL_EQUIV                          = $1509;

-  GL_INVERT                         = $150A;

-  GL_OR_REVERSE                     = $150B;

-  GL_COPY_INVERTED                  = $150C;

-  GL_OR_INVERTED                    = $150D;

-  GL_NAND                           = $150E;

-  GL_SET                            = $150F;

-

-  // MapTarget

-  //      GL_MAP1_COLOR_4

-  //      GL_MAP1_INDEX

-  //      GL_MAP1_NORMAL

-  //      GL_MAP1_TEXTURE_COORD_1

-  //      GL_MAP1_TEXTURE_COORD_2

-  //      GL_MAP1_TEXTURE_COORD_3

-  //      GL_MAP1_TEXTURE_COORD_4

-  //      GL_MAP1_VERTEX_3

-  //      GL_MAP1_VERTEX_4

-  //      GL_MAP2_COLOR_4

-  //      GL_MAP2_INDEX

-  //      GL_MAP2_NORMAL

-  //      GL_MAP2_TEXTURE_COORD_1

-  //      GL_MAP2_TEXTURE_COORD_2

-  //      GL_MAP2_TEXTURE_COORD_3

-  //      GL_MAP2_TEXTURE_COORD_4

-  //      GL_MAP2_VERTEX_3

-  //      GL_MAP2_VERTEX_4

-

-  // MaterialFace

-  //      GL_FRONT

-  //      GL_BACK

-  //      GL_FRONT_AND_BACK

-

-  // MaterialParameter

-  GL_EMISSION                       = $1600;

-  GL_SHININESS                      = $1601;

-  GL_AMBIENT_AND_DIFFUSE            = $1602;

-  GL_COLOR_INDEXES                  = $1603;

-  //      GL_AMBIENT

-  //      GL_DIFFUSE

-  //      GL_SPECULAR

-

-  // MatrixMode

-  GL_MODELVIEW                      = $1700;

-  GL_PROJECTION                     = $1701;

-  GL_TEXTURE                        = $1702;

-

-  // MeshMode1

-  //      GL_POINT

-  //      GL_LINE

-

-  // MeshMode2

-  //      GL_POINT

-  //      GL_LINE

-  //      GL_FILL

-

-  // NormalPointerType

-  //      GL_BYTE

-  //      GL_SHORT

-  //      GL_INT

-  //      GL_FLOAT

-  //      GL_DOUBLE

-

-  // PixelCopyType

-  GL_COLOR                          = $1800;

-  GL_DEPTH                          = $1801;

-  GL_STENCIL                        = $1802;

-

-  // PixelFormat

-  GL_COLOR_INDEX                    = $1900;

-  GL_STENCIL_INDEX                  = $1901;

-  GL_DEPTH_COMPONENT                = $1902;

-  GL_RED                            = $1903;

-  GL_GREEN                          = $1904;

-  GL_BLUE                           = $1905;

-  GL_ALPHA                          = $1906;

-  GL_RGB                            = $1907;

-  GL_RGBA                           = $1908;

-  GL_LUMINANCE                      = $1909;

-  GL_LUMINANCE_ALPHA                = $190A;

-

-  // PixelMap

-  //      GL_PIXEL_MAP_I_TO_I

-  //      GL_PIXEL_MAP_S_TO_S

-  //      GL_PIXEL_MAP_I_TO_R

-  //      GL_PIXEL_MAP_I_TO_G

-  //      GL_PIXEL_MAP_I_TO_B

-  //      GL_PIXEL_MAP_I_TO_A

-  //      GL_PIXEL_MAP_R_TO_R

-  //      GL_PIXEL_MAP_G_TO_G

-  //      GL_PIXEL_MAP_B_TO_B

-  //      GL_PIXEL_MAP_A_TO_A

-

-  // PixelStore

-  //      GL_UNPACK_SWAP_BYTES

-  //      GL_UNPACK_LSB_FIRST

-  //      GL_UNPACK_ROW_LENGTH

-  //      GL_UNPACK_SKIP_ROWS

-  //      GL_UNPACK_SKIP_PIXELS

-  //      GL_UNPACK_ALIGNMENT

-  //      GL_PACK_SWAP_BYTES

-  //      GL_PACK_LSB_FIRST

-  //      GL_PACK_ROW_LENGTH

-  //      GL_PACK_SKIP_ROWS

-  //      GL_PACK_SKIP_PIXELS

-  //      GL_PACK_ALIGNMENT

-

-  // PixelTransfer

-  //      GL_MAP_COLOR

-  //      GL_MAP_STENCIL

-  //      GL_INDEX_SHIFT

-  //      GL_INDEX_OFFSET

-  //      GL_RED_SCALE

-  //      GL_RED_BIAS

-  //      GL_GREEN_SCALE

-  //      GL_GREEN_BIAS

-  //      GL_BLUE_SCALE

-  //      GL_BLUE_BIAS

-  //      GL_ALPHA_SCALE

-  //      GL_ALPHA_BIAS

-  //      GL_DEPTH_SCALE

-  //      GL_DEPTH_BIAS

-

-  // PixelType

-  GL_BITMAP                         = $1A00;

-  //      GL_BYTE

-  //      GL_UNSIGNED_BYTE

-  //      GL_SHORT

-  //      GL_UNSIGNED_SHORT

-  //      GL_INT

-  //      GL_UNSIGNED_INT

-  //      GL_FLOAT

-

-  // PolygonMode

-  GL_POINT                          = $1B00;

-  GL_LINE                           = $1B01;

-  GL_FILL                           = $1B02;

-

-  // ReadBufferMode

-  //      GL_FRONT_LEFT

-  //      GL_FRONT_RIGHT

-  //      GL_BACK_LEFT

-  //      GL_BACK_RIGHT

-  //      GL_FRONT

-  //      GL_BACK

-  //      GL_LEFT

-  //      GL_RIGHT

-  //      GL_AUX0

-  //      GL_AUX1

-  //      GL_AUX2

-  //      GL_AUX3

-

-  // RenderingMode

-  GL_RENDER                         = $1C00;

-  GL_FEEDBACK                       = $1C01;

-  GL_SELECT                         = $1C02;

-

-  // ShadingModel

-  GL_FLAT                           = $1D00;

-  GL_SMOOTH                         = $1D01;

-

-  // StencilFunction

-  //      GL_NEVER

-  //      GL_LESS

-  //      GL_EQUAL

-  //      GL_LEQUAL

-  //      GL_GREATER

-  //      GL_NOTEQUAL

-  //      GL_GEQUAL

-  //      GL_ALWAYS

-

-  // StencilOp

-  //      GL_ZERO

-  GL_KEEP                           = $1E00;

-  GL_REPLACE                        = $1E01;

-  GL_INCR                           = $1E02;

-  GL_DECR                           = $1E03;

-  //      GL_INVERT

-

-  // StringName

-  GL_VENDOR                         = $1F00;

-  GL_RENDERER                       = $1F01;

-  GL_VERSION                        = $1F02;

-  GL_EXTENSIONS                     = $1F03;

-

-  // TextureCoordName

-  GL_S                              = $2000;

-  GL_T                              = $2001;

-  GL_R                              = $2002;

-  GL_Q                              = $2003;

-

-  // TexCoordPointerType

-  //      GL_SHORT

-  //      GL_INT

-  //      GL_FLOAT

-  //      GL_DOUBLE

-

-  // TextureEnvMode

-  GL_MODULATE                       = $2100;

-  GL_DECAL                          = $2101;

-  //      GL_BLEND

-  //      GL_REPLACE

-

-  // TextureEnvParameter

-  GL_TEXTURE_ENV_MODE               = $2200;

-  GL_TEXTURE_ENV_COLOR              = $2201;

-

-  // TextureEnvTarget

-  GL_TEXTURE_ENV                    = $2300;

-

-  // TextureGenMode

-  GL_EYE_LINEAR                     = $2400;

-  GL_OBJECT_LINEAR                  = $2401;

-  GL_SPHERE_MAP                     = $2402;

-

-  // TextureGenParameter

-  GL_TEXTURE_GEN_MODE               = $2500;

-  GL_OBJECT_PLANE                   = $2501;

-  GL_EYE_PLANE                      = $2502;

-

-  // TextureMagFilter

-  GL_NEAREST                        = $2600;

-  GL_LINEAR                         = $2601;

-

-  // TextureMinFilter

-  //      GL_NEAREST

-  //      GL_LINEAR

-  GL_NEAREST_MIPMAP_NEAREST         = $2700;

-  GL_LINEAR_MIPMAP_NEAREST          = $2701;

-  GL_NEAREST_MIPMAP_LINEAR          = $2702;

-  GL_LINEAR_MIPMAP_LINEAR           = $2703;

-

-  // TextureParameterName

-  GL_TEXTURE_MAG_FILTER             = $2800;

-  GL_TEXTURE_MIN_FILTER             = $2801;

-  GL_TEXTURE_WRAP_S                 = $2802;

-  GL_TEXTURE_WRAP_T                 = $2803;

-  //      GL_TEXTURE_BORDER_COLOR

-  //      GL_TEXTURE_PRIORITY

-

-  // TextureTarget

-  //      GL_TEXTURE_1D

-  //      GL_TEXTURE_2D

-  //      GL_PROXY_TEXTURE_1D

-  //      GL_PROXY_TEXTURE_2D

-

-  // TextureWrapMode

-  GL_CLAMP                          = $2900;

-  GL_REPEAT                         = $2901;

-

-  // VertexPointerType

-  //      GL_SHORT

-  //      GL_INT

-  //      GL_FLOAT

-  //      GL_DOUBLE

-

-  // ClientAttribMask

-  GL_CLIENT_PIXEL_STORE_BIT         = $00000001;

-  GL_CLIENT_VERTEX_ARRAY_BIT        = $00000002;

-  GL_CLIENT_ALL_ATTRIB_BITS         = $FFFFFFFF;

-

-  // polygon_offset

-  GL_POLYGON_OFFSET_FACTOR          = $8038;

-  GL_POLYGON_OFFSET_UNITS           = $2A00;

-  GL_POLYGON_OFFSET_POINT           = $2A01;

-  GL_POLYGON_OFFSET_LINE            = $2A02;

-  GL_POLYGON_OFFSET_FILL            = $8037;

-

-  // texture

-  GL_ALPHA4                         = $803B;

-  GL_ALPHA8                         = $803C;

-  GL_ALPHA12                        = $803D;

-  GL_ALPHA16                        = $803E;

-  GL_LUMINANCE4                     = $803F;

-  GL_LUMINANCE8                     = $8040;

-  GL_LUMINANCE12                    = $8041;

-  GL_LUMINANCE16                    = $8042;

-  GL_LUMINANCE4_ALPHA4              = $8043;

-  GL_LUMINANCE6_ALPHA2              = $8044;

-  GL_LUMINANCE8_ALPHA8              = $8045;

-  GL_LUMINANCE12_ALPHA4             = $8046;

-  GL_LUMINANCE12_ALPHA12            = $8047;

-  GL_LUMINANCE16_ALPHA16            = $8048;

-  GL_INTENSITY                      = $8049;

-  GL_INTENSITY4                     = $804A;

-  GL_INTENSITY8                     = $804B;

-  GL_INTENSITY12                    = $804C;

-  GL_INTENSITY16                    = $804D;

-  GL_R3_G3_B2                       = $2A10;

-  GL_RGB4                           = $804F;

-  GL_RGB5                           = $8050;

-  GL_RGB8                           = $8051;

-  GL_RGB10                          = $8052;

-  GL_RGB12                          = $8053;

-  GL_RGB16                          = $8054;

-  GL_RGBA2                          = $8055;

-  GL_RGBA4                          = $8056;

-  GL_RGB5_A1                        = $8057;

-  GL_RGBA8                          = $8058;

-  GL_RGB10_A2                       = $8059;

-  GL_RGBA12                         = $805A;

-  GL_RGBA16                         = $805B;

-  GL_TEXTURE_RED_SIZE               = $805C;

-  GL_TEXTURE_GREEN_SIZE             = $805D;

-  GL_TEXTURE_BLUE_SIZE              = $805E;

-  GL_TEXTURE_ALPHA_SIZE             = $805F;

-  GL_TEXTURE_LUMINANCE_SIZE         = $8060;

-  GL_TEXTURE_INTENSITY_SIZE         = $8061;

-  GL_PROXY_TEXTURE_1D               = $8063;

-  GL_PROXY_TEXTURE_2D               = $8064;

-

-  // texture_object

-  GL_TEXTURE_PRIORITY               = $8066;

-  GL_TEXTURE_RESIDENT               = $8067;

-  GL_TEXTURE_BINDING_1D             = $8068;

-  GL_TEXTURE_BINDING_2D             = $8069;

-

-  // vertex_array

-  GL_VERTEX_ARRAY                   = $8074;

-  GL_NORMAL_ARRAY                   = $8075;

-  GL_COLOR_ARRAY                    = $8076;

-  GL_INDEX_ARRAY                    = $8077;

-  GL_TEXTURE_COORD_ARRAY            = $8078;

-  GL_EDGE_FLAG_ARRAY                = $8079;

-  GL_VERTEX_ARRAY_SIZE              = $807A;

-  GL_VERTEX_ARRAY_TYPE              = $807B;

-  GL_VERTEX_ARRAY_STRIDE            = $807C;

-  GL_NORMAL_ARRAY_TYPE              = $807E;

-  GL_NORMAL_ARRAY_STRIDE            = $807F;

-  GL_COLOR_ARRAY_SIZE               = $8081;

-  GL_COLOR_ARRAY_TYPE               = $8082;

-  GL_COLOR_ARRAY_STRIDE             = $8083;

-  GL_INDEX_ARRAY_TYPE               = $8085;

-  GL_INDEX_ARRAY_STRIDE             = $8086;

-  GL_TEXTURE_COORD_ARRAY_SIZE       = $8088;

-  GL_TEXTURE_COORD_ARRAY_TYPE       = $8089;

-  GL_TEXTURE_COORD_ARRAY_STRIDE     = $808A;

-  GL_EDGE_FLAG_ARRAY_STRIDE         = $808C;

-  GL_VERTEX_ARRAY_POINTER           = $808E;

-  GL_NORMAL_ARRAY_POINTER           = $808F;

-  GL_COLOR_ARRAY_POINTER            = $8090;

-  GL_INDEX_ARRAY_POINTER            = $8091;

-  GL_TEXTURE_COORD_ARRAY_POINTER    = $8092;

-  GL_EDGE_FLAG_ARRAY_POINTER        = $8093;

-  GL_V2F                            = $2A20;

-  GL_V3F                            = $2A21;

-  GL_C4UB_V2F                       = $2A22;

-  GL_C4UB_V3F                       = $2A23;

-  GL_C3F_V3F                        = $2A24;

-  GL_N3F_V3F                        = $2A25;

-  GL_C4F_N3F_V3F                    = $2A26;

-  GL_T2F_V3F                        = $2A27;

-  GL_T4F_V4F                        = $2A28;

-  GL_T2F_C4UB_V3F                   = $2A29;

-  GL_T2F_C3F_V3F                    = $2A2A;

-  GL_T2F_N3F_V3F                    = $2A2B;

-  GL_T2F_C4F_N3F_V3F                = $2A2C;

-  GL_T4F_C4F_N3F_V4F                = $2A2D;

-

-  // Extensions

-  GL_EXT_vertex_array               = 1;

-  GL_WIN_swap_hint                  = 1;

-  GL_EXT_bgra                       = 1;

-  GL_EXT_paletted_texture           = 1;

-

-  // EXT_vertex_array

-  GL_VERTEX_ARRAY_EXT               = $8074;

-  GL_NORMAL_ARRAY_EXT               = $8075;

-  GL_COLOR_ARRAY_EXT                = $8076;

-  GL_INDEX_ARRAY_EXT                = $8077;

-  GL_TEXTURE_COORD_ARRAY_EXT        = $8078;

-  GL_EDGE_FLAG_ARRAY_EXT            = $8079;

-  GL_VERTEX_ARRAY_SIZE_EXT          = $807A;

-  GL_VERTEX_ARRAY_TYPE_EXT          = $807B;

-  GL_VERTEX_ARRAY_STRIDE_EXT        = $807C;

-  GL_VERTEX_ARRAY_COUNT_EXT         = $807D;

-  GL_NORMAL_ARRAY_TYPE_EXT          = $807E;

-  GL_NORMAL_ARRAY_STRIDE_EXT        = $807F;

-  GL_NORMAL_ARRAY_COUNT_EXT         = $8080;

-  GL_COLOR_ARRAY_SIZE_EXT           = $8081;

-  GL_COLOR_ARRAY_TYPE_EXT           = $8082;

-  GL_COLOR_ARRAY_STRIDE_EXT         = $8083;

-  GL_COLOR_ARRAY_COUNT_EXT          = $8084;

-  GL_INDEX_ARRAY_TYPE_EXT           = $8085;

-  GL_INDEX_ARRAY_STRIDE_EXT         = $8086;

-  GL_INDEX_ARRAY_COUNT_EXT          = $8087;

-  GL_TEXTURE_COORD_ARRAY_SIZE_EXT   = $8088;

-  GL_TEXTURE_COORD_ARRAY_TYPE_EXT   = $8089;

-  GL_TEXTURE_COORD_ARRAY_STRIDE_EXT = $808A;

-  GL_TEXTURE_COORD_ARRAY_COUNT_EXT  = $808B;

-  GL_EDGE_FLAG_ARRAY_STRIDE_EXT     = $808C;

-  GL_EDGE_FLAG_ARRAY_COUNT_EXT      = $808D;

-  GL_VERTEX_ARRAY_POINTER_EXT       = $808E;

-  GL_NORMAL_ARRAY_POINTER_EXT       = $808F;

-  GL_COLOR_ARRAY_POINTER_EXT        = $8090;

-  GL_INDEX_ARRAY_POINTER_EXT        = $8091;

-  GL_TEXTURE_COORD_ARRAY_POINTER_EXT = $8092;

-  GL_EDGE_FLAG_ARRAY_POINTER_EXT    = $8093;

-  GL_DOUBLE_EXT                     = GL_DOUBLE;

-

-  // EXT_bgra 

-  GL_BGR_EXT                        = $80E0;

-  GL_BGRA_EXT                       = $80E1;

-

-  // EXT_paletted_texture

-

-  // These must match the GL_COLOR_TABLE_*_SGI enumerants

-  GL_COLOR_TABLE_FORMAT_EXT         = $80D8;

-  GL_COLOR_TABLE_WIDTH_EXT          = $80D9;

-  GL_COLOR_TABLE_RED_SIZE_EXT       = $80DA;

-  GL_COLOR_TABLE_GREEN_SIZE_EXT     = $80DB;

-  GL_COLOR_TABLE_BLUE_SIZE_EXT      = $80DC;

-  GL_COLOR_TABLE_ALPHA_SIZE_EXT     = $80DD;

-  GL_COLOR_TABLE_LUMINANCE_SIZE_EXT = $80DE;

-  GL_COLOR_TABLE_INTENSITY_SIZE_EXT = $80DF;

-

-  GL_COLOR_INDEX1_EXT               = $80E2;

-  GL_COLOR_INDEX2_EXT               = $80E3;

-  GL_COLOR_INDEX4_EXT               = $80E4;

-  GL_COLOR_INDEX8_EXT               = $80E5;

-  GL_COLOR_INDEX12_EXT              = $80E6;

-  GL_COLOR_INDEX16_EXT              = $80E7;

-

-  // For compatibility with OpenGL v1.0

-  GL_LOGIC_OP                       = GL_INDEX_LOGIC_OP;

-  GL_TEXTURE_COMPONENTS             = GL_TEXTURE_INTERNAL_FORMAT;

-

-{******************************************************************************}

-

-var

-  glAccum: procedure(op: GLenum; value: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glAlphaFunc: procedure(func: GLenum; ref: GLclampf); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glAreTexturesResident: function (n: GLsizei; const textures: PGLuint; residences: PGLboolean): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glArrayElement: procedure(i: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glBegin: procedure(mode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glBindTexture: procedure(target: GLenum; texture: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glBitmap: procedure (width, height: GLsizei; xorig, yorig: GLfloat; xmove, ymove: GLfloat; const bitmap: PGLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glBlendFunc: procedure(sfactor, dfactor: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glCallList: procedure(list: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glCallLists: procedure(n: GLsizei; atype: GLenum; const lists: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glClear: procedure(mask: GLbitfield); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glClearAccum: procedure(red, green, blue, alpha: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glClearColor: procedure(red, green, blue, alpha: GLclampf); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glClearDepth: procedure(depth: GLclampd); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glClearIndex: procedure(c: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glClearStencil: procedure(s: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glClipPlane: procedure(plane: GLenum; const equation: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor3b: procedure(red, green, blue: GLbyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor3bv: procedure(const v: PGLbyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor3d: procedure(red, green, blue: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor3dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor3f: procedure(red, green, blue: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor3fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor3i: procedure(red, green, blue: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor3iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor3s: procedure(red, green, blue: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor3sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor3ub: procedure(red, green, blue: GLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor3ubv: procedure(const v: PGLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor3ui: procedure(red, green, blue: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor3uiv: procedure(const v: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor3us: procedure(red, green, blue: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor3usv: procedure(const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor4b: procedure(red, green, blue, alpha: GLbyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor4bv: procedure(const v: PGLbyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor4d: procedure(red, green, blue, alpha: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor4dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor4f: procedure(red, green, blue, alpha: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor4fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor4i: procedure(red, green, blue, alpha: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor4iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor4s: procedure(red, green, blue, alpha: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor4sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor4ub: procedure(red, green, blue, alpha: GLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor4ubv: procedure(const v: PGLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor4ui: procedure(red, green, blue, alpha: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor4uiv: procedure(const v: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor4us: procedure(red, green, blue, alpha: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColor4usv: procedure(const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColorMask: procedure(red, green, blue, alpha: GLboolean); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColorMaterial: procedure(face, mode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glColorPointer: procedure(size: GLint; atype: GLenum; stride: GLsizei; const pointer: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glCopyPixels: procedure(x, y: GLint; width, height: GLsizei; atype: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glCopyTexImage1D: procedure (target: GLenum; level: GLint; internalFormat: GLenum; x, y: GLint; width: GLsizei; border: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glCopyTexImage2D: procedure(target: GLenum; level: GLint; internalFormat: GLenum; x, y: GLint; width, height: GLsizei; border: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glCopyTexSubImage1D: procedure(target: GLenum; level, xoffset, x, y: GLint; width: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glCopyTexSubImage2D: procedure(target: GLenum; level, xoffset, yoffset, x, y: GLint; width, height: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glCullFace: procedure(mode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glDeleteLists: procedure(list: GLuint; range: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glDeleteTextures: procedure(n: GLsizei; const textures: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glDepthFunc: procedure(func: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glDepthMask: procedure(flag: GLboolean); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glDepthRange: procedure(zNear, zFar: GLclampd); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glDisable: procedure(cap: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glDisableClientState: procedure(aarray: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glDrawArrays: procedure(mode: GLenum; first: GLint; count: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glDrawBuffer: procedure(mode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glDrawElements: procedure(mode: GLenum; count: GLsizei; atype: GLenum; const indices: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glDrawPixels: procedure(width, height: GLsizei; format, atype: GLenum; const pixels: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glEdgeFlag: procedure(flag: GLboolean); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glEdgeFlagPointer: procedure(stride: GLsizei; const pointer: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glEdgeFlagv: procedure(const flag: PGLboolean); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glEnable: procedure(cap: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glEnableClientState: procedure(aarray: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glEnd: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glEndList: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glEvalCoord1d: procedure(u: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glEvalCoord1dv: procedure(const u: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glEvalCoord1f: procedure(u: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glEvalCoord1fv: procedure(const u: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glEvalCoord2d: procedure(u, v: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glEvalCoord2dv: procedure(const u: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glEvalCoord2f: procedure(u, v: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glEvalCoord2fv: procedure(const u: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glEvalMesh1: procedure(mode: GLenum; i1, i2: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glEvalMesh2: procedure(mode: GLenum; i1, i2, j1, j2: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glEvalPoint1: procedure(i: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glEvalPoint2: procedure(i, j: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glFeedbackBuffer: procedure(size: GLsizei; atype: GLenum; buffer: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glFinish: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glFlush: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glFogf: procedure(pname: GLenum; param: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glFogfv: procedure(pname: GLenum; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glFogi: procedure(pname: GLenum; param: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glFogiv: procedure(pname: GLenum; const params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glFrontFace: procedure(mode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glFrustum: procedure(left, right, bottom, top, zNear, zFar: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGenLists: function(range: GLsizei): GLuint; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGenTextures: procedure(n: GLsizei; textures: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetBooleanv: procedure(pname: GLenum; params: PGLboolean); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetClipPlane: procedure(plane: GLenum; equation: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetDoublev: procedure(pname: GLenum; params: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetError: function: GLenum; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetFloatv: procedure(pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetIntegerv: procedure(pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetLightfv: procedure(light, pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetLightiv: procedure(light, pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetMapdv: procedure(target, query: GLenum; v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetMapfv: procedure(target, query: GLenum; v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetMapiv: procedure(target, query: GLenum; v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetMaterialfv: procedure(face, pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetMaterialiv: procedure(face, pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetPixelMapfv: procedure(map: GLenum; values: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetPixelMapuiv: procedure(map: GLenum; values: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetPixelMapusv: procedure(map: GLenum; values: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetPointerv: procedure(pname: GLenum; params: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetPolygonStipple: procedure(mask: PGLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetString: function(name: GLenum): PChar; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetTexEnvfv: procedure(target, pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetTexEnviv: procedure(target, pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetTexGendv: procedure(coord, pname: GLenum; params: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetTexGenfv: procedure(coord, pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetTexGeniv: procedure(coord, pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetTexImage: procedure(target: GLenum; level: GLint; format: GLenum; atype: GLenum; pixels: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetTexLevelParameterfv: procedure(target: GLenum; level: GLint; pname: GLenum; params: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetTexLevelParameteriv: procedure(target: GLenum; level: GLint; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetTexParameterfv: procedure(target, pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glGetTexParameteriv: procedure(target, pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glHint: procedure(target, mode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glIndexMask: procedure(mask: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glIndexPointer: procedure(atype: GLenum; stride: GLsizei; const pointer: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glIndexd: procedure(c: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glIndexdv: procedure(const c: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glIndexf: procedure(c: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glIndexfv: procedure(const c: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glIndexi: procedure(c: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glIndexiv: procedure(const c: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glIndexs: procedure(c: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glIndexsv: procedure(const c: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glIndexub: procedure(c: GLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glIndexubv: procedure(const c: PGLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glInitNames: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glInterleavedArrays: procedure(format: GLenum; stride: GLsizei; const pointer: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glIsEnabled: function(cap: GLenum): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glIsList: function(list: GLuint): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glIsTexture: function(texture: GLuint): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glLightModelf: procedure(pname: GLenum; param: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glLightModelfv: procedure(pname: GLenum; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glLightModeli: procedure(pname: GLenum; param: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glLightModeliv: procedure(pname: GLenum; const params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glLightf: procedure(light, pname: GLenum; param: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glLightfv: procedure(light, pname: GLenum; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glLighti: procedure(light, pname: GLenum; param: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glLightiv: procedure(light, pname: GLenum; const params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glLineStipple: procedure(factor: GLint; pattern: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glLineWidth: procedure(width: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glListBase: procedure(base: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glLoadIdentity: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glLoadMatrixd: procedure(const m: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glLoadMatrixf: procedure(const m: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glLoadName: procedure(name: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glLogicOp: procedure(opcode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glMap1d: procedure(target: GLenum; u1, u2: GLdouble; stride, order: GLint; const points: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glMap1f: procedure(target: GLenum; u1, u2: GLfloat; stride, order: GLint; const points: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glMap2d: procedure(target: GLenum; u1, u2: GLdouble; ustride, uorder: GLint; v1, v2: GLdouble; vstride, vorder: GLint; const points: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glMap2f: procedure(target: GLenum; u1, u2: GLfloat; ustride, uorder: GLint; v1, v2: GLfloat; vstride, vorder: GLint; const points: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glMapGrid1d: procedure(un: GLint; u1, u2: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glMapGrid1f: procedure(un: GLint; u1, u2: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glMapGrid2d: procedure(un: GLint; u1, u2: GLdouble; vn: GLint; v1, v2: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glMapGrid2f: procedure(un: GLint; u1, u2: GLfloat; vn: GLint; v1, v2: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glMaterialf: procedure(face, pname: GLenum; param: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glMaterialfv: procedure(face, pname: GLenum; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glMateriali: procedure(face, pname: GLenum; param: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glMaterialiv: procedure(face, pname: GLenum; const params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glMatrixMode: procedure(mode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glMultMatrixd: procedure(const m: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glMultMatrixf: procedure(const m: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glNewList: procedure(list: GLuint; mode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glNormal3b: procedure(nx, ny, nz: GLbyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glNormal3bv: procedure(const v: PGLbyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glNormal3d: procedure(nx, ny, nz: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glNormal3dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glNormal3f: procedure(nx, ny, nz: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glNormal3fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glNormal3i: procedure(nx, ny, nz: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glNormal3iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glNormal3s: procedure(nx, ny, nz: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glNormal3sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glNormalPointer: procedure(atype: GLenum; stride: GLsizei; const pointer: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glOrtho: procedure(left, right, bottom, top, zNear, zFar: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glPassThrough: procedure(token: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glPixelMapfv: procedure(map: GLenum; mapsize: GLsizei; const values: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glPixelMapuiv: procedure(map: GLenum; mapsize: GLsizei; const values: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glPixelMapusv: procedure(map: GLenum; mapsize: GLsizei; const values: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glPixelStoref: procedure(pname: GLenum; param: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glPixelStorei: procedure(pname: GLenum; param: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glPixelTransferf: procedure(pname: GLenum; param: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glPixelTransferi: procedure(pname: GLenum; param: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glPixelZoom: procedure(xfactor, yfactor: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glPointSize: procedure(size: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glPolygonMode: procedure(face, mode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glPolygonOffset: procedure(factor, units: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glPolygonStipple: procedure(const mask: PGLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glPopAttrib: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glPopClientAttrib: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glPopMatrix: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glPopName: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glPrioritizeTextures: procedure(n: GLsizei; const textures: PGLuint; const priorities: PGLclampf); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glPushAttrib: procedure(mask: GLbitfield); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glPushClientAttrib: procedure(mask: GLbitfield); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glPushMatrix: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glPushName: procedure(name: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRasterPos2d: procedure(x, y: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRasterPos2dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRasterPos2f: procedure(x, y: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRasterPos2fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRasterPos2i: procedure(x, y: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRasterPos2iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRasterPos2s: procedure(x, y: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRasterPos2sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRasterPos3d: procedure(x, y, z: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRasterPos3dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRasterPos3f: procedure(x, y, z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRasterPos3fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRasterPos3i: procedure(x, y, z: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRasterPos3iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRasterPos3s: procedure(x, y, z: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRasterPos3sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRasterPos4d: procedure(x, y, z, w: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRasterPos4dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRasterPos4f: procedure(x, y, z, w: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRasterPos4fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRasterPos4i: procedure(x, y, z, w: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRasterPos4iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRasterPos4s: procedure(x, y, z, w: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRasterPos4sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glReadBuffer: procedure(mode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glReadPixels: procedure(x, y: GLint; width, height: GLsizei; format, atype: GLenum; pixels: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRectd: procedure(x1, y1, x2, y2: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRectdv: procedure(const v1: PGLdouble; const v2: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRectf: procedure(x1, y1, x2, y2: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRectfv: procedure(const v1: PGLfloat; const v2: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRecti: procedure(x1, y1, x2, y2: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRectiv: procedure(const v1: PGLint; const v2: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRects: procedure(x1, y1, x2, y2: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRectsv: procedure(const v1: PGLshort; const v2: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRenderMode: function(mode: GLint): GLint; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRotated: procedure(angle, x, y, z: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glRotatef: procedure(angle, x, y, z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glScaled: procedure(x, y, z: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glScalef: procedure(x, y, z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glScissor: procedure(x, y: GLint; width, height: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glSelectBuffer: procedure(size: GLsizei; buffer: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glShadeModel: procedure(mode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glStencilFunc: procedure(func: GLenum; ref: GLint; mask: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glStencilMask: procedure(mask: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glStencilOp: procedure(fail, zfail, zpass: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord1d: procedure(s: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord1dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord1f: procedure(s: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord1fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord1i: procedure(s: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord1iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord1s: procedure(s: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord1sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord2d: procedure(s, t: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord2dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord2f: procedure(s, t: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord2fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord2i: procedure(s, t: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord2iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord2s: procedure(s, t: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord2sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord3d: procedure(s, t, r: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord3dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord3f: procedure(s, t, r: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord3fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord3i: procedure(s, t, r: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord3iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord3s: procedure(s, t, r: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord3sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord4d: procedure(s, t, r, q: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord4dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord4f: procedure(s, t, r, q: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord4fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord4i: procedure(s, t, r, q: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord4iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord4s: procedure(s, t, r, q: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoord4sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexCoordPointer: procedure(size: GLint; atype: GLenum; stride: GLsizei; const pointer: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexEnvf: procedure(target: GLenum; pname: GLenum; param: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexEnvfv: procedure(target: GLenum; pname: GLenum; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexEnvi: procedure(target: GLenum; pname: GLenum; param: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexEnviv: procedure(target: GLenum; pname: GLenum; const params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexGend: procedure(coord: GLenum; pname: GLenum; param: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexGendv: procedure(coord: GLenum; pname: GLenum; const params: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexGenf: procedure(coord: GLenum; pname: GLenum; param: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexGenfv: procedure(coord: GLenum; pname: GLenum; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexGeni: procedure(coord: GLenum; pname: GLenum; param: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexGeniv: procedure(coord: GLenum; pname: GLenum; const params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexImage1D: procedure(target: GLenum; level, internalformat: GLint; width: GLsizei; border: GLint; format, atype: GLenum; const pixels: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexImage2D: procedure(target: GLenum; level, internalformat: GLint; width, height: GLsizei; border: GLint; format, atype: GLenum; const pixels: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexParameterf: procedure(target: GLenum; pname: GLenum; param: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexParameterfv: procedure(target: GLenum; pname: GLenum; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexParameteri: procedure(target: GLenum; pname: GLenum; param: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexParameteriv: procedure(target: GLenum; pname: GLenum; const params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexSubImage1D: procedure(target: GLenum; level, xoffset: GLint; width: GLsizei; format, atype: GLenum; const pixels: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTexSubImage2D: procedure(target: GLenum; level, xoffset, yoffset: GLint; width, height: GLsizei; format, atype: GLenum; const pixels: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTranslated: procedure(x, y, z: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glTranslatef: procedure(x, y, z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glVertex2d: procedure(x, y: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glVertex2dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glVertex2f: procedure(x, y: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glVertex2fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glVertex2i: procedure(x, y: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glVertex2iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glVertex2s: procedure(x, y: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glVertex2sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glVertex3d: procedure(x, y, z: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glVertex3dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glVertex3f: procedure(x, y, z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glVertex3fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glVertex3i: procedure(x, y, z: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glVertex3iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glVertex3s: procedure(x, y, z: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glVertex3sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glVertex4d: procedure(x, y, z, w: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glVertex4dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glVertex4f: procedure(x, y, z, w: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glVertex4fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glVertex4i: procedure(x, y, z, w: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glVertex4iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glVertex4s: procedure(x, y, z, w: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glVertex4sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glVertexPointer: procedure(size: GLint; atype: GLenum; stride: GLsizei; const pointer: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glViewport: procedure(x, y: GLint; width, height: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  {$IFDEF WINDOWS}

-  ChoosePixelFormat: function(DC: HDC; p2: PPixelFormatDescriptor): Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  {$ENDIF}

-

-type

-  // EXT_vertex_array

-  PFNGLARRAYELEMENTEXTPROC = procedure(i: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  PFNGLDRAWARRAYSEXTPROC = procedure(mode: GLenum; first: GLint; count: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  PFNGLVERTEXPOINTEREXTPROC = procedure(size: GLint; atype: GLenum;

-                                        stride, count: GLsizei; const pointer: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  PFNGLNORMALPOINTEREXTPROC = procedure(atype: GLenum; stride, count: GLsizei;

-                                        const pointer: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  PFNGLCOLORPOINTEREXTPROC = procedure(size: GLint; atype: GLenum; stride, count: GLsizei;

-                                       const pointer: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  PFNGLINDEXPOINTEREXTPROC = procedure(atype: GLenum; stride, count: GLsizei;

-                                       const pointer: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  PFNGLTEXCOORDPOINTEREXTPROC = procedure(size: GLint; atype: GLenum;

-                                          stride, count: GLsizei; const pointer: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  PFNGLEDGEFLAGPOINTEREXTPROC = procedure(stride, count: GLsizei;

-                                          const pointer: PGLboolean); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  PFNGLGETPOINTERVEXTPROC = procedure(pname: GLenum; params: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  PFNGLARRAYELEMENTARRAYEXTPROC = procedure(mode: GLenum; count: GLsizei;

-                                            const pi: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-

-  // WIN_swap_hint

-  PFNGLADDSWAPHINTRECTWINPROC = procedure(x, y: GLint; width, height: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-

-  // EXT_paletted_texture

-  PFNGLCOLORTABLEEXTPROC = procedure(target, internalFormat: GLenum; width: GLsizei;

-                                     format, atype: GLenum; const data: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  PFNGLCOLORSUBTABLEEXTPROC = procedure(target: GLenum; start, count: GLsizei;

-                                        format, atype: GLenum; const data: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  PFNGLGETCOLORTABLEEXTPROC = procedure(target, format, atype: GLenum; data: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  PFNGLGETCOLORTABLEPARAMETERIVEXTPROC = procedure(target, pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  PFNGLGETCOLORTABLEPARAMETERFVEXTPROC = procedure(target, pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-

-procedure LoadOpenGL( const dll: PChar );

-procedure FreeOpenGL;

-

-implementation

-

-procedure FreeOpenGL;

-begin

-

-  @glAccum := nil;

-  @glAlphaFunc := nil;

-  @glAreTexturesResident := nil;

-  @glArrayElement := nil;

-  @glBegin := nil;

-  @glBindTexture := nil;

-  @glBitmap := nil;

-  @glBlendFunc := nil;

-  @glCallList := nil;

-  @glCallLists := nil;

-  @glClear := nil;

-  @glClearAccum := nil;

-  @glClearColor := nil;

-  @glClearDepth := nil;

-  @glClearIndex := nil;

-  @glClearStencil := nil;

-  @glClipPlane := nil;

-  @glColor3b := nil;

-  @glColor3bv := nil;

-  @glColor3d := nil;

-  @glColor3dv := nil;

-  @glColor3f := nil;

-  @glColor3fv := nil;

-  @glColor3i := nil;

-  @glColor3iv := nil;

-  @glColor3s := nil;

-  @glColor3sv := nil;

-  @glColor3ub := nil;

-  @glColor3ubv := nil;

-  @glColor3ui := nil;

-  @glColor3uiv := nil;

-  @glColor3us := nil;

-  @glColor3usv := nil;

-  @glColor4b := nil;

-  @glColor4bv := nil;

-  @glColor4d := nil;

-  @glColor4dv := nil;

-  @glColor4f := nil;

-  @glColor4fv := nil;

-  @glColor4i := nil;

-  @glColor4iv := nil;

-  @glColor4s := nil;

-  @glColor4sv := nil;

-  @glColor4ub := nil;

-  @glColor4ubv := nil;

-  @glColor4ui := nil;

-  @glColor4uiv := nil;

-  @glColor4us := nil;

-  @glColor4usv := nil;

-  @glColorMask := nil;

-  @glColorMaterial := nil;

-  @glColorPointer := nil;

-  @glCopyPixels := nil;

-  @glCopyTexImage1D := nil;

-  @glCopyTexImage2D := nil;

-  @glCopyTexSubImage1D := nil;

-  @glCopyTexSubImage2D := nil;

-  @glCullFace := nil;

-  @glDeleteLists := nil;

-  @glDeleteTextures := nil;

-  @glDepthFunc := nil;

-  @glDepthMask := nil;

-  @glDepthRange := nil;

-  @glDisable := nil;

-  @glDisableClientState := nil;

-  @glDrawArrays := nil;

-  @glDrawBuffer := nil;

-  @glDrawElements := nil;

-  @glDrawPixels := nil;

-  @glEdgeFlag := nil;

-  @glEdgeFlagPointer := nil;

-  @glEdgeFlagv := nil;

-  @glEnable := nil;

-  @glEnableClientState := nil;

-  @glEnd := nil;

-  @glEndList := nil;

-  @glEvalCoord1d := nil;

-  @glEvalCoord1dv := nil;

-  @glEvalCoord1f := nil;

-  @glEvalCoord1fv := nil;

-  @glEvalCoord2d := nil;

-  @glEvalCoord2dv := nil;

-  @glEvalCoord2f := nil;

-  @glEvalCoord2fv := nil;

-  @glEvalMesh1 := nil;

-  @glEvalMesh2 := nil;

-  @glEvalPoint1 := nil;

-  @glEvalPoint2 := nil;

-  @glFeedbackBuffer := nil;

-  @glFinish := nil;

-  @glFlush := nil;

-  @glFogf := nil;

-  @glFogfv := nil;

-  @glFogi := nil;

-  @glFogiv := nil;

-  @glFrontFace := nil;

-  @glFrustum := nil;

-  @glGenLists := nil;

-  @glGenTextures := nil;

-  @glGetBooleanv := nil;

-  @glGetClipPlane := nil;

-  @glGetDoublev := nil;

-  @glGetError := nil;

-  @glGetFloatv := nil;

-  @glGetIntegerv := nil;

-  @glGetLightfv := nil;

-  @glGetLightiv := nil;

-  @glGetMapdv := nil;

-  @glGetMapfv := nil;

-  @glGetMapiv := nil;

-  @glGetMaterialfv := nil;

-  @glGetMaterialiv := nil;

-  @glGetPixelMapfv := nil;

-  @glGetPixelMapuiv := nil;

-  @glGetPixelMapusv := nil;

-  @glGetPointerv := nil;

-  @glGetPolygonStipple := nil;

-  @glGetString := nil;

-  @glGetTexEnvfv := nil;

-  @glGetTexEnviv := nil;

-  @glGetTexGendv := nil;

-  @glGetTexGenfv := nil;

-  @glGetTexGeniv := nil;

-  @glGetTexImage := nil;

-  @glGetTexLevelParameterfv := nil;

-  @glGetTexLevelParameteriv := nil;

-  @glGetTexParameterfv := nil;

-  @glGetTexParameteriv := nil;

-  @glHint := nil;

-  @glIndexMask := nil;

-  @glIndexPointer := nil;

-  @glIndexd := nil;

-  @glIndexdv := nil;

-  @glIndexf := nil;

-  @glIndexfv := nil;

-  @glIndexi := nil;

-  @glIndexiv := nil;

-  @glIndexs := nil;

-  @glIndexsv := nil;

-  @glIndexub := nil;

-  @glIndexubv := nil;

-  @glInitNames := nil;

-  @glInterleavedArrays := nil;

-  @glIsEnabled := nil;

-  @glIsList := nil;

-  @glIsTexture := nil;

-  @glLightModelf := nil;

-  @glLightModelfv := nil;

-  @glLightModeli := nil;

-  @glLightModeliv := nil;

-  @glLightf := nil;

-  @glLightfv := nil;

-  @glLighti := nil;

-  @glLightiv := nil;

-  @glLineStipple := nil;

-  @glLineWidth := nil;

-  @glListBase := nil;

-  @glLoadIdentity := nil;

-  @glLoadMatrixd := nil;

-  @glLoadMatrixf := nil;

-  @glLoadName := nil;

-  @glLogicOp := nil;

-  @glMap1d := nil;

-  @glMap1f := nil;

-  @glMap2d := nil;

-  @glMap2f := nil;

-  @glMapGrid1d := nil;

-  @glMapGrid1f := nil;

-  @glMapGrid2d := nil;

-  @glMapGrid2f := nil;

-  @glMaterialf := nil;

-  @glMaterialfv := nil;

-  @glMateriali := nil;

-  @glMaterialiv := nil;

-  @glMatrixMode := nil;

-  @glMultMatrixd := nil;

-  @glMultMatrixf := nil;

-  @glNewList := nil;

-  @glNormal3b := nil;

-  @glNormal3bv := nil;

-  @glNormal3d := nil;

-  @glNormal3dv := nil;

-  @glNormal3f := nil;

-  @glNormal3fv := nil;

-  @glNormal3i := nil;

-  @glNormal3iv := nil;

-  @glNormal3s := nil;

-  @glNormal3sv := nil;

-  @glNormalPointer := nil;

-  @glOrtho := nil;

-  @glPassThrough := nil;

-  @glPixelMapfv := nil;

-  @glPixelMapuiv := nil;

-  @glPixelMapusv := nil;

-  @glPixelStoref := nil;

-  @glPixelStorei := nil;

-  @glPixelTransferf := nil;

-  @glPixelTransferi := nil;

-  @glPixelZoom := nil;

-  @glPointSize := nil;

-  @glPolygonMode := nil;

-  @glPolygonOffset := nil;

-  @glPolygonStipple := nil;

-  @glPopAttrib := nil;

-  @glPopClientAttrib := nil;

-  @glPopMatrix := nil;

-  @glPopName := nil;

-  @glPrioritizeTextures := nil;

-  @glPushAttrib := nil;

-  @glPushClientAttrib := nil;

-  @glPushMatrix := nil;

-  @glPushName := nil;

-  @glRasterPos2d := nil;

-  @glRasterPos2dv := nil;

-  @glRasterPos2f := nil;

-  @glRasterPos2fv := nil;

-  @glRasterPos2i := nil;

-  @glRasterPos2iv := nil;

-  @glRasterPos2s := nil;

-  @glRasterPos2sv := nil;

-  @glRasterPos3d := nil;

-  @glRasterPos3dv := nil;

-  @glRasterPos3f := nil;

-  @glRasterPos3fv := nil;

-  @glRasterPos3i := nil;

-  @glRasterPos3iv := nil;

-  @glRasterPos3s := nil;

-  @glRasterPos3sv := nil;

-  @glRasterPos4d := nil;

-  @glRasterPos4dv := nil;

-  @glRasterPos4f := nil;

-  @glRasterPos4fv := nil;

-  @glRasterPos4i := nil;

-  @glRasterPos4iv := nil;

-  @glRasterPos4s := nil;

-  @glRasterPos4sv := nil;

-  @glReadBuffer := nil;

-  @glReadPixels := nil;

-  @glRectd := nil;

-  @glRectdv := nil;

-  @glRectf := nil;

-  @glRectfv := nil;

-  @glRecti := nil;

-  @glRectiv := nil;

-  @glRects := nil;

-  @glRectsv := nil;

-  @glRenderMode := nil;

-  @glRotated := nil;

-  @glRotatef := nil;

-  @glScaled := nil;

-  @glScalef := nil;

-  @glScissor := nil;

-  @glSelectBuffer := nil;

-  @glShadeModel := nil;

-  @glStencilFunc := nil;

-  @glStencilMask := nil;

-  @glStencilOp := nil;

-  @glTexCoord1d := nil;

-  @glTexCoord1dv := nil;

-  @glTexCoord1f := nil;

-  @glTexCoord1fv := nil;

-  @glTexCoord1i := nil;

-  @glTexCoord1iv := nil;

-  @glTexCoord1s := nil;

-  @glTexCoord1sv := nil;

-  @glTexCoord2d := nil;

-  @glTexCoord2dv := nil;

-  @glTexCoord2f := nil;

-  @glTexCoord2fv := nil;

-  @glTexCoord2i := nil;

-  @glTexCoord2iv := nil;

-  @glTexCoord2s := nil;

-  @glTexCoord2sv := nil;

-  @glTexCoord3d := nil;

-  @glTexCoord3dv := nil;

-  @glTexCoord3f := nil;

-  @glTexCoord3fv := nil;

-  @glTexCoord3i := nil;

-  @glTexCoord3iv := nil;

-  @glTexCoord3s := nil;

-  @glTexCoord3sv := nil;

-  @glTexCoord4d := nil;

-  @glTexCoord4dv := nil;

-  @glTexCoord4f := nil;

-  @glTexCoord4fv := nil;

-  @glTexCoord4i := nil;

-  @glTexCoord4iv := nil;

-  @glTexCoord4s := nil;

-  @glTexCoord4sv := nil;

-  @glTexCoordPointer := nil;

-  @glTexEnvf := nil;

-  @glTexEnvfv := nil;

-  @glTexEnvi := nil;

-  @glTexEnviv := nil;

-  @glTexGend := nil;

-  @glTexGendv := nil;

-  @glTexGenf := nil;

-  @glTexGenfv := nil;

-  @glTexGeni := nil;

-  @glTexGeniv := nil;

-  @glTexImage1D := nil;

-  @glTexImage2D := nil;

-  @glTexParameterf := nil;

-  @glTexParameterfv := nil;

-  @glTexParameteri := nil;

-  @glTexParameteriv := nil;

-  @glTexSubImage1D := nil;

-  @glTexSubImage2D := nil;

-  @glTranslated := nil;

-  @glTranslatef := nil;

-  @glVertex2d := nil;

-  @glVertex2dv := nil;

-  @glVertex2f := nil;

-  @glVertex2fv := nil;

-  @glVertex2i := nil;

-  @glVertex2iv := nil;

-  @glVertex2s := nil;

-  @glVertex2sv := nil;

-  @glVertex3d := nil;

-  @glVertex3dv := nil;

-  @glVertex3f := nil;

-  @glVertex3fv := nil;

-  @glVertex3i := nil;

-  @glVertex3iv := nil;

-  @glVertex3s := nil;

-  @glVertex3sv := nil;

-  @glVertex4d := nil;

-  @glVertex4dv := nil;

-  @glVertex4f := nil;

-  @glVertex4fv := nil;

-  @glVertex4i := nil;

-  @glVertex4iv := nil;

-  @glVertex4s := nil;

-  @glVertex4sv := nil;

-  @glVertexPointer := nil;

-  @glViewport := nil;

-  {$IFDEF WINDOWS}

-  @ChoosePixelFormat := nil;

-  {$ENDIF}

-

-  UnLoadModule(LibGL);

-

-end;

-

-procedure LoadOpenGL(const dll: PChar);

-begin

-

-  FreeOpenGL;

-

-  if LoadModule( LibGL, dll ) then

-  begin

-    @glAccum := GetModuleSymbol(LibGL, 'glAccum');

-    @glAlphaFunc := GetModuleSymbol(LibGL, 'glAlphaFunc');

-    @glAreTexturesResident := GetModuleSymbol(LibGL, 'glAreTexturesResident');

-    @glArrayElement := GetModuleSymbol(LibGL, 'glArrayElement');

-    @glBegin := GetModuleSymbol(LibGL, 'glBegin');

-    @glBindTexture := GetModuleSymbol(LibGL, 'glBindTexture');

-    @glBitmap := GetModuleSymbol(LibGL, 'glBitmap');

-    @glBlendFunc := GetModuleSymbol(LibGL, 'glBlendFunc');

-    @glCallList := GetModuleSymbol(LibGL, 'glCallList');

-    @glCallLists := GetModuleSymbol(LibGL, 'glCallLists');

-    @glClear := GetModuleSymbol(LibGL, 'glClear');

-    @glClearAccum := GetModuleSymbol(LibGL, 'glClearAccum');

-    @glClearColor := GetModuleSymbol(LibGL, 'glClearColor');

-    @glClearDepth := GetModuleSymbol(LibGL, 'glClearDepth');

-    @glClearIndex := GetModuleSymbol(LibGL, 'glClearIndex');

-    @glClearStencil := GetModuleSymbol(LibGL, 'glClearStencil');

-    @glClipPlane := GetModuleSymbol(LibGL, 'glClipPlane');

-    @glColor3b := GetModuleSymbol(LibGL, 'glColor3b');

-    @glColor3bv := GetModuleSymbol(LibGL, 'glColor3bv');

-    @glColor3d := GetModuleSymbol(LibGL, 'glColor3d');

-    @glColor3dv := GetModuleSymbol(LibGL, 'glColor3dv');

-    @glColor3f := GetModuleSymbol(LibGL, 'glColor3f');

-    @glColor3fv := GetModuleSymbol(LibGL, 'glColor3fv');

-    @glColor3i := GetModuleSymbol(LibGL, 'glColor3i');

-    @glColor3iv := GetModuleSymbol(LibGL, 'glColor3iv');

-    @glColor3s := GetModuleSymbol(LibGL, 'glColor3s');

-    @glColor3sv := GetModuleSymbol(LibGL, 'glColor3sv');

-    @glColor3ub := GetModuleSymbol(LibGL, 'glColor3ub');

-    @glColor3ubv := GetModuleSymbol(LibGL, 'glColor3ubv');

-    @glColor3ui := GetModuleSymbol(LibGL, 'glColor3ui');

-    @glColor3uiv := GetModuleSymbol(LibGL, 'glColor3uiv');

-    @glColor3us := GetModuleSymbol(LibGL, 'glColor3us');

-    @glColor3usv := GetModuleSymbol(LibGL, 'glColor3usv');

-    @glColor4b := GetModuleSymbol(LibGL, 'glColor4b');

-    @glColor4bv := GetModuleSymbol(LibGL, 'glColor4bv');

-    @glColor4d := GetModuleSymbol(LibGL, 'glColor4d');

-    @glColor4dv := GetModuleSymbol(LibGL, 'glColor4dv');

-    @glColor4f := GetModuleSymbol(LibGL, 'glColor4f');

-    @glColor4fv := GetModuleSymbol(LibGL, 'glColor4fv');

-    @glColor4i := GetModuleSymbol(LibGL, 'glColor4i');

-    @glColor4iv := GetModuleSymbol(LibGL, 'glColor4iv');

-    @glColor4s := GetModuleSymbol(LibGL, 'glColor4s');

-    @glColor4sv := GetModuleSymbol(LibGL, 'glColor4sv');

-    @glColor4ub := GetModuleSymbol(LibGL, 'glColor4ub');

-    @glColor4ubv := GetModuleSymbol(LibGL, 'glColor4ubv');

-    @glColor4ui := GetModuleSymbol(LibGL, 'glColor4ui');

-    @glColor4uiv := GetModuleSymbol(LibGL, 'glColor4uiv');

-    @glColor4us := GetModuleSymbol(LibGL, 'glColor4us');

-    @glColor4usv := GetModuleSymbol(LibGL, 'glColor4usv');

-    @glColorMask := GetModuleSymbol(LibGL, 'glColorMask');

-    @glColorMaterial := GetModuleSymbol(LibGL, 'glColorMaterial');

-    @glColorPointer := GetModuleSymbol(LibGL, 'glColorPointer');

-    @glCopyPixels := GetModuleSymbol(LibGL, 'glCopyPixels');

-    @glCopyTexImage1D := GetModuleSymbol(LibGL, 'glCopyTexImage1D');

-    @glCopyTexImage2D := GetModuleSymbol(LibGL, 'glCopyTexImage2D');

-    @glCopyTexSubImage1D := GetModuleSymbol(LibGL, 'glCopyTexSubImage1D');

-    @glCopyTexSubImage2D := GetModuleSymbol(LibGL, 'glCopyTexSubImage2D');

-    @glCullFace := GetModuleSymbol(LibGL, 'glCullFace');

-    @glDeleteLists := GetModuleSymbol(LibGL, 'glDeleteLists');

-    @glDeleteTextures := GetModuleSymbol(LibGL, 'glDeleteTextures');

-    @glDepthFunc := GetModuleSymbol(LibGL, 'glDepthFunc');

-    @glDepthMask := GetModuleSymbol(LibGL, 'glDepthMask');

-    @glDepthRange := GetModuleSymbol(LibGL, 'glDepthRange');

-    @glDisable := GetModuleSymbol(LibGL, 'glDisable');

-    @glDisableClientState := GetModuleSymbol(LibGL, 'glDisableClientState');

-    @glDrawArrays := GetModuleSymbol(LibGL, 'glDrawArrays');

-    @glDrawBuffer := GetModuleSymbol(LibGL, 'glDrawBuffer');

-    @glDrawElements := GetModuleSymbol(LibGL, 'glDrawElements');

-    @glDrawPixels := GetModuleSymbol(LibGL, 'glDrawPixels');

-    @glEdgeFlag := GetModuleSymbol(LibGL, 'glEdgeFlag');

-    @glEdgeFlagPointer := GetModuleSymbol(LibGL, 'glEdgeFlagPointer');

-    @glEdgeFlagv := GetModuleSymbol(LibGL, 'glEdgeFlagv');

-    @glEnable := GetModuleSymbol(LibGL, 'glEnable');

-    @glEnableClientState := GetModuleSymbol(LibGL, 'glEnableClientState');

-    @glEnd := GetModuleSymbol(LibGL, 'glEnd');

-    @glEndList := GetModuleSymbol(LibGL, 'glEndList');

-    @glEvalCoord1d := GetModuleSymbol(LibGL, 'glEvalCoord1d');

-    @glEvalCoord1dv := GetModuleSymbol(LibGL, 'glEvalCoord1dv');

-    @glEvalCoord1f := GetModuleSymbol(LibGL, 'glEvalCoord1f');

-    @glEvalCoord1fv := GetModuleSymbol(LibGL, 'glEvalCoord1fv');

-    @glEvalCoord2d := GetModuleSymbol(LibGL, 'glEvalCoord2d');

-    @glEvalCoord2dv := GetModuleSymbol(LibGL, 'glEvalCoord2dv');

-    @glEvalCoord2f := GetModuleSymbol(LibGL, 'glEvalCoord2f');

-    @glEvalCoord2fv := GetModuleSymbol(LibGL, 'glEvalCoord2fv');

-    @glEvalMesh1 := GetModuleSymbol(LibGL, 'glEvalMesh1');

-    @glEvalMesh2 := GetModuleSymbol(LibGL, 'glEvalMesh2');

-    @glEvalPoint1 := GetModuleSymbol(LibGL, 'glEvalPoint1');

-    @glEvalPoint2 := GetModuleSymbol(LibGL, 'glEvalPoint2');

-    @glFeedbackBuffer := GetModuleSymbol(LibGL, 'glFeedbackBuffer');

-    @glFinish := GetModuleSymbol(LibGL, 'glFinish');

-    @glFlush := GetModuleSymbol(LibGL, 'glFlush');

-    @glFogf := GetModuleSymbol(LibGL, 'glFogf');

-    @glFogfv := GetModuleSymbol(LibGL, 'glFogfv');

-    @glFogi := GetModuleSymbol(LibGL, 'glFogi');

-    @glFogiv := GetModuleSymbol(LibGL, 'glFogiv');

-    @glFrontFace := GetModuleSymbol(LibGL, 'glFrontFace');

-    @glFrustum := GetModuleSymbol(LibGL, 'glFrustum');

-    @glGenLists := GetModuleSymbol(LibGL, 'glGenLists');

-    @glGenTextures := GetModuleSymbol(LibGL, 'glGenTextures');

-    @glGetBooleanv := GetModuleSymbol(LibGL, 'glGetBooleanv');

-    @glGetClipPlane := GetModuleSymbol(LibGL, 'glGetClipPlane');

-    @glGetDoublev := GetModuleSymbol(LibGL, 'glGetDoublev');

-    @glGetError := GetModuleSymbol(LibGL, 'glGetError');

-    @glGetFloatv := GetModuleSymbol(LibGL, 'glGetFloatv');

-    @glGetIntegerv := GetModuleSymbol(LibGL, 'glGetIntegerv');

-    @glGetLightfv := GetModuleSymbol(LibGL, 'glGetLightfv');

-    @glGetLightiv := GetModuleSymbol(LibGL, 'glGetLightiv');

-    @glGetMapdv := GetModuleSymbol(LibGL, 'glGetMapdv');

-    @glGetMapfv := GetModuleSymbol(LibGL, 'glGetMapfv');

-    @glGetMapiv := GetModuleSymbol(LibGL, 'glGetMapiv');

-    @glGetMaterialfv := GetModuleSymbol(LibGL, 'glGetMaterialfv');

-    @glGetMaterialiv := GetModuleSymbol(LibGL, 'glGetMaterialiv');

-    @glGetPixelMapfv := GetModuleSymbol(LibGL, 'glGetPixelMapfv');

-    @glGetPixelMapuiv := GetModuleSymbol(LibGL, 'glGetPixelMapuiv');

-    @glGetPixelMapusv := GetModuleSymbol(LibGL, 'glGetPixelMapusv');

-    @glGetPointerv := GetModuleSymbol(LibGL, 'glGetPointerv');

-    @glGetPolygonStipple := GetModuleSymbol(LibGL, 'glGetPolygonStipple');

-    @glGetString := GetModuleSymbol(LibGL, 'glGetString');

-    @glGetTexEnvfv := GetModuleSymbol(LibGL, 'glGetTexEnvfv');

-    @glGetTexEnviv := GetModuleSymbol(LibGL, 'glGetTexEnviv');

-    @glGetTexGendv := GetModuleSymbol(LibGL, 'glGetTexGendv');

-    @glGetTexGenfv := GetModuleSymbol(LibGL, 'glGetTexGenfv');

-    @glGetTexGeniv := GetModuleSymbol(LibGL, 'glGetTexGeniv');

-    @glGetTexImage := GetModuleSymbol(LibGL, 'glGetTexImage');

-    @glGetTexLevelParameterfv := GetModuleSymbol(LibGL, 'glGetTexLevelParameterfv');

-    @glGetTexLevelParameteriv := GetModuleSymbol(LibGL, 'glGetTexLevelParameteriv');

-    @glGetTexParameterfv := GetModuleSymbol(LibGL, 'glGetTexParameterfv');

-    @glGetTexParameteriv := GetModuleSymbol(LibGL, 'glGetTexParameteriv');

-    @glHint := GetModuleSymbol(LibGL, 'glHint');

-    @glIndexMask := GetModuleSymbol(LibGL, 'glIndexMask');

-    @glIndexPointer := GetModuleSymbol(LibGL, 'glIndexPointer');

-    @glIndexd := GetModuleSymbol(LibGL, 'glIndexd');

-    @glIndexdv := GetModuleSymbol(LibGL, 'glIndexdv');

-    @glIndexf := GetModuleSymbol(LibGL, 'glIndexf');

-    @glIndexfv := GetModuleSymbol(LibGL, 'glIndexfv');

-    @glIndexi := GetModuleSymbol(LibGL, 'glIndexi');

-    @glIndexiv := GetModuleSymbol(LibGL, 'glIndexiv');

-    @glIndexs := GetModuleSymbol(LibGL, 'glIndexs');

-    @glIndexsv := GetModuleSymbol(LibGL, 'glIndexsv');

-    @glIndexub := GetModuleSymbol(LibGL, 'glIndexub');

-    @glIndexubv := GetModuleSymbol(LibGL, 'glIndexubv');

-    @glInitNames := GetModuleSymbol(LibGL, 'glInitNames');

-    @glInterleavedArrays := GetModuleSymbol(LibGL, 'glInterleavedArrays');

-    @glIsEnabled := GetModuleSymbol(LibGL, 'glIsEnabled');

-    @glIsList := GetModuleSymbol(LibGL, 'glIsList');

-    @glIsTexture := GetModuleSymbol(LibGL, 'glIsTexture');

-    @glLightModelf := GetModuleSymbol(LibGL, 'glLightModelf');

-    @glLightModelfv := GetModuleSymbol(LibGL, 'glLightModelfv');

-    @glLightModeli := GetModuleSymbol(LibGL, 'glLightModeli');

-    @glLightModeliv := GetModuleSymbol(LibGL, 'glLightModeliv');

-    @glLightf := GetModuleSymbol(LibGL, 'glLightf');

-    @glLightfv := GetModuleSymbol(LibGL, 'glLightfv');

-    @glLighti := GetModuleSymbol(LibGL, 'glLighti');

-    @glLightiv := GetModuleSymbol(LibGL, 'glLightiv');

-    @glLineStipple := GetModuleSymbol(LibGL, 'glLineStipple');

-    @glLineWidth := GetModuleSymbol(LibGL, 'glLineWidth');

-    @glListBase := GetModuleSymbol(LibGL, 'glListBase');

-    @glLoadIdentity := GetModuleSymbol(LibGL, 'glLoadIdentity');

-    @glLoadMatrixd := GetModuleSymbol(LibGL, 'glLoadMatrixd');

-    @glLoadMatrixf := GetModuleSymbol(LibGL, 'glLoadMatrixf');

-    @glLoadName := GetModuleSymbol(LibGL, 'glLoadName');

-    @glLogicOp := GetModuleSymbol(LibGL, 'glLogicOp');

-    @glMap1d := GetModuleSymbol(LibGL, 'glMap1d');

-    @glMap1f := GetModuleSymbol(LibGL, 'glMap1f');

-    @glMap2d := GetModuleSymbol(LibGL, 'glMap2d');

-    @glMap2f := GetModuleSymbol(LibGL, 'glMap2f');

-    @glMapGrid1d := GetModuleSymbol(LibGL, 'glMapGrid1d');

-    @glMapGrid1f := GetModuleSymbol(LibGL, 'glMapGrid1f');

-    @glMapGrid2d := GetModuleSymbol(LibGL, 'glMapGrid2d');

-    @glMapGrid2f := GetModuleSymbol(LibGL, 'glMapGrid2f');

-    @glMaterialf := GetModuleSymbol(LibGL, 'glMaterialf');

-    @glMaterialfv := GetModuleSymbol(LibGL, 'glMaterialfv');

-    @glMateriali := GetModuleSymbol(LibGL, 'glMateriali');

-    @glMaterialiv := GetModuleSymbol(LibGL, 'glMaterialiv');

-    @glMatrixMode := GetModuleSymbol(LibGL, 'glMatrixMode');

-    @glMultMatrixd := GetModuleSymbol(LibGL, 'glMultMatrixd');

-    @glMultMatrixf := GetModuleSymbol(LibGL, 'glMultMatrixf');

-    @glNewList := GetModuleSymbol(LibGL, 'glNewList');

-    @glNormal3b := GetModuleSymbol(LibGL, 'glNormal3b');

-    @glNormal3bv := GetModuleSymbol(LibGL, 'glNormal3bv');

-    @glNormal3d := GetModuleSymbol(LibGL, 'glNormal3d');

-    @glNormal3dv := GetModuleSymbol(LibGL, 'glNormal3dv');

-    @glNormal3f := GetModuleSymbol(LibGL, 'glNormal3f');

-    @glNormal3fv := GetModuleSymbol(LibGL, 'glNormal3fv');

-    @glNormal3i := GetModuleSymbol(LibGL, 'glNormal3i');

-    @glNormal3iv := GetModuleSymbol(LibGL, 'glNormal3iv');

-    @glNormal3s := GetModuleSymbol(LibGL, 'glNormal3s');

-    @glNormal3sv := GetModuleSymbol(LibGL, 'glNormal3sv');

-    @glNormalPointer := GetModuleSymbol(LibGL, 'glNormalPointer');

-    @glOrtho := GetModuleSymbol(LibGL, 'glOrtho');

-    @glPassThrough := GetModuleSymbol(LibGL, 'glPassThrough');

-    @glPixelMapfv := GetModuleSymbol(LibGL, 'glPixelMapfv');

-    @glPixelMapuiv := GetModuleSymbol(LibGL, 'glPixelMapuiv');

-    @glPixelMapusv := GetModuleSymbol(LibGL, 'glPixelMapusv');

-    @glPixelStoref := GetModuleSymbol(LibGL, 'glPixelStoref');

-    @glPixelStorei := GetModuleSymbol(LibGL, 'glPixelStorei');

-    @glPixelTransferf := GetModuleSymbol(LibGL, 'glPixelTransferf');

-    @glPixelTransferi := GetModuleSymbol(LibGL, 'glPixelTransferi');

-    @glPixelZoom := GetModuleSymbol(LibGL, 'glPixelZoom');

-    @glPointSize := GetModuleSymbol(LibGL, 'glPointSize');

-    @glPolygonMode := GetModuleSymbol(LibGL, 'glPolygonMode');

-    @glPolygonOffset := GetModuleSymbol(LibGL, 'glPolygonOffset');

-    @glPolygonStipple := GetModuleSymbol(LibGL, 'glPolygonStipple');

-    @glPopAttrib := GetModuleSymbol(LibGL, 'glPopAttrib');

-    @glPopClientAttrib := GetModuleSymbol(LibGL, 'glPopClientAttrib');

-    @glPopMatrix := GetModuleSymbol(LibGL, 'glPopMatrix');

-    @glPopName := GetModuleSymbol(LibGL, 'glPopName');

-    @glPrioritizeTextures := GetModuleSymbol(LibGL, 'glPrioritizeTextures');

-    @glPushAttrib := GetModuleSymbol(LibGL, 'glPushAttrib');

-    @glPushClientAttrib := GetModuleSymbol(LibGL, 'glPushClientAttrib');

-    @glPushMatrix := GetModuleSymbol(LibGL, 'glPushMatrix');

-    @glPushName := GetModuleSymbol(LibGL, 'glPushName');

-    @glRasterPos2d := GetModuleSymbol(LibGL, 'glRasterPos2d');

-    @glRasterPos2dv := GetModuleSymbol(LibGL, 'glRasterPos2dv');

-    @glRasterPos2f := GetModuleSymbol(LibGL, 'glRasterPos2f');

-    @glRasterPos2fv := GetModuleSymbol(LibGL, 'glRasterPos2fv');

-    @glRasterPos2i := GetModuleSymbol(LibGL, 'glRasterPos2i');

-    @glRasterPos2iv := GetModuleSymbol(LibGL, 'glRasterPos2iv');

-    @glRasterPos2s := GetModuleSymbol(LibGL, 'glRasterPos2s');

-    @glRasterPos2sv := GetModuleSymbol(LibGL, 'glRasterPos2sv');

-    @glRasterPos3d := GetModuleSymbol(LibGL, 'glRasterPos3d');

-    @glRasterPos3dv := GetModuleSymbol(LibGL, 'glRasterPos3dv');

-    @glRasterPos3f := GetModuleSymbol(LibGL, 'glRasterPos3f');

-    @glRasterPos3fv := GetModuleSymbol(LibGL, 'glRasterPos3fv');

-    @glRasterPos3i := GetModuleSymbol(LibGL, 'glRasterPos3i');

-    @glRasterPos3iv := GetModuleSymbol(LibGL, 'glRasterPos3iv');

-    @glRasterPos3s := GetModuleSymbol(LibGL, 'glRasterPos3s');

-    @glRasterPos3sv := GetModuleSymbol(LibGL, 'glRasterPos3sv');

-    @glRasterPos4d := GetModuleSymbol(LibGL, 'glRasterPos4d');

-    @glRasterPos4dv := GetModuleSymbol(LibGL, 'glRasterPos4dv');

-    @glRasterPos4f := GetModuleSymbol(LibGL, 'glRasterPos4f');

-    @glRasterPos4fv := GetModuleSymbol(LibGL, 'glRasterPos4fv');

-    @glRasterPos4i := GetModuleSymbol(LibGL, 'glRasterPos4i');

-    @glRasterPos4iv := GetModuleSymbol(LibGL, 'glRasterPos4iv');

-    @glRasterPos4s := GetModuleSymbol(LibGL, 'glRasterPos4s');

-    @glRasterPos4sv := GetModuleSymbol(LibGL, 'glRasterPos4sv');

-    @glReadBuffer := GetModuleSymbol(LibGL, 'glReadBuffer');

-    @glReadPixels := GetModuleSymbol(LibGL, 'glReadPixels');

-    @glRectd := GetModuleSymbol(LibGL, 'glRectd');

-    @glRectdv := GetModuleSymbol(LibGL, 'glRectdv');

-    @glRectf := GetModuleSymbol(LibGL, 'glRectf');

-    @glRectfv := GetModuleSymbol(LibGL, 'glRectfv');

-    @glRecti := GetModuleSymbol(LibGL, 'glRecti');

-    @glRectiv := GetModuleSymbol(LibGL, 'glRectiv');

-    @glRects := GetModuleSymbol(LibGL, 'glRects');

-    @glRectsv := GetModuleSymbol(LibGL, 'glRectsv');

-    @glRenderMode := GetModuleSymbol(LibGL, 'glRenderMode');

-    @glRotated := GetModuleSymbol(LibGL, 'glRotated');

-    @glRotatef := GetModuleSymbol(LibGL, 'glRotatef');

-    @glScaled := GetModuleSymbol(LibGL, 'glScaled');

-    @glScalef := GetModuleSymbol(LibGL, 'glScalef');

-    @glScissor := GetModuleSymbol(LibGL, 'glScissor');

-    @glSelectBuffer := GetModuleSymbol(LibGL, 'glSelectBuffer');

-    @glShadeModel := GetModuleSymbol(LibGL, 'glShadeModel');

-    @glStencilFunc := GetModuleSymbol(LibGL, 'glStencilFunc');

-    @glStencilMask := GetModuleSymbol(LibGL, 'glStencilMask');

-    @glStencilOp := GetModuleSymbol(LibGL, 'glStencilOp');

-    @glTexCoord1d := GetModuleSymbol(LibGL, 'glTexCoord1d');

-    @glTexCoord1dv := GetModuleSymbol(LibGL, 'glTexCoord1dv');

-    @glTexCoord1f := GetModuleSymbol(LibGL, 'glTexCoord1f');

-    @glTexCoord1fv := GetModuleSymbol(LibGL, 'glTexCoord1fv');

-    @glTexCoord1i := GetModuleSymbol(LibGL, 'glTexCoord1i');

-    @glTexCoord1iv := GetModuleSymbol(LibGL, 'glTexCoord1iv');

-    @glTexCoord1s := GetModuleSymbol(LibGL, 'glTexCoord1s');

-    @glTexCoord1sv := GetModuleSymbol(LibGL, 'glTexCoord1sv');

-    @glTexCoord2d := GetModuleSymbol(LibGL, 'glTexCoord2d');

-    @glTexCoord2dv := GetModuleSymbol(LibGL, 'glTexCoord2dv');

-    @glTexCoord2f := GetModuleSymbol(LibGL, 'glTexCoord2f');

-    @glTexCoord2fv := GetModuleSymbol(LibGL, 'glTexCoord2fv');

-    @glTexCoord2i := GetModuleSymbol(LibGL, 'glTexCoord2i');

-    @glTexCoord2iv := GetModuleSymbol(LibGL, 'glTexCoord2iv');

-    @glTexCoord2s := GetModuleSymbol(LibGL, 'glTexCoord2s');

-    @glTexCoord2sv := GetModuleSymbol(LibGL, 'glTexCoord2sv');

-    @glTexCoord3d := GetModuleSymbol(LibGL, 'glTexCoord3d');

-    @glTexCoord3dv := GetModuleSymbol(LibGL, 'glTexCoord3dv');

-    @glTexCoord3f := GetModuleSymbol(LibGL, 'glTexCoord3f');

-    @glTexCoord3fv := GetModuleSymbol(LibGL, 'glTexCoord3fv');

-    @glTexCoord3i := GetModuleSymbol(LibGL, 'glTexCoord3i');

-    @glTexCoord3iv := GetModuleSymbol(LibGL, 'glTexCoord3iv');

-    @glTexCoord3s := GetModuleSymbol(LibGL, 'glTexCoord3s');

-    @glTexCoord3sv := GetModuleSymbol(LibGL, 'glTexCoord3sv');

-    @glTexCoord4d := GetModuleSymbol(LibGL, 'glTexCoord4d');

-    @glTexCoord4dv := GetModuleSymbol(LibGL, 'glTexCoord4dv');

-    @glTexCoord4f := GetModuleSymbol(LibGL, 'glTexCoord4f');

-    @glTexCoord4fv := GetModuleSymbol(LibGL, 'glTexCoord4fv');

-    @glTexCoord4i := GetModuleSymbol(LibGL, 'glTexCoord4i');

-    @glTexCoord4iv := GetModuleSymbol(LibGL, 'glTexCoord4iv');

-    @glTexCoord4s := GetModuleSymbol(LibGL, 'glTexCoord4s');

-    @glTexCoord4sv := GetModuleSymbol(LibGL, 'glTexCoord4sv');

-    @glTexCoordPointer := GetModuleSymbol(LibGL, 'glTexCoordPointer');

-    @glTexEnvf := GetModuleSymbol(LibGL, 'glTexEnvf');

-    @glTexEnvfv := GetModuleSymbol(LibGL, 'glTexEnvfv');

-    @glTexEnvi := GetModuleSymbol(LibGL, 'glTexEnvi');

-    @glTexEnviv := GetModuleSymbol(LibGL, 'glTexEnviv');

-    @glTexGend := GetModuleSymbol(LibGL, 'glTexGend');

-    @glTexGendv := GetModuleSymbol(LibGL, 'glTexGendv');

-    @glTexGenf := GetModuleSymbol(LibGL, 'glTexGenf');

-    @glTexGenfv := GetModuleSymbol(LibGL, 'glTexGenfv');

-    @glTexGeni := GetModuleSymbol(LibGL, 'glTexGeni');

-    @glTexGeniv := GetModuleSymbol(LibGL, 'glTexGeniv');

-    @glTexImage1D := GetModuleSymbol(LibGL, 'glTexImage1D');

-    @glTexImage2D := GetModuleSymbol(LibGL, 'glTexImage2D');

-    @glTexParameterf := GetModuleSymbol(LibGL, 'glTexParameterf');

-    @glTexParameterfv := GetModuleSymbol(LibGL, 'glTexParameterfv');

-    @glTexParameteri := GetModuleSymbol(LibGL, 'glTexParameteri');

-    @glTexParameteriv := GetModuleSymbol(LibGL, 'glTexParameteriv');

-    @glTexSubImage1D := GetModuleSymbol(LibGL, 'glTexSubImage1D');

-    @glTexSubImage2D := GetModuleSymbol(LibGL, 'glTexSubImage2D');

-    @glTranslated := GetModuleSymbol(LibGL, 'glTranslated');

-    @glTranslatef := GetModuleSymbol(LibGL, 'glTranslatef');

-    @glVertex2d := GetModuleSymbol(LibGL, 'glVertex2d');

-    @glVertex2dv := GetModuleSymbol(LibGL, 'glVertex2dv');

-    @glVertex2f := GetModuleSymbol(LibGL, 'glVertex2f');

-    @glVertex2fv := GetModuleSymbol(LibGL, 'glVertex2fv');

-    @glVertex2i := GetModuleSymbol(LibGL, 'glVertex2i');

-    @glVertex2iv := GetModuleSymbol(LibGL, 'glVertex2iv');

-    @glVertex2s := GetModuleSymbol(LibGL, 'glVertex2s');

-    @glVertex2sv := GetModuleSymbol(LibGL, 'glVertex2sv');

-    @glVertex3d := GetModuleSymbol(LibGL, 'glVertex3d');

-    @glVertex3dv := GetModuleSymbol(LibGL, 'glVertex3dv');

-    @glVertex3f := GetModuleSymbol(LibGL, 'glVertex3f');

-    @glVertex3fv := GetModuleSymbol(LibGL, 'glVertex3fv');

-    @glVertex3i := GetModuleSymbol(LibGL, 'glVertex3i');

-    @glVertex3iv := GetModuleSymbol(LibGL, 'glVertex3iv');

-    @glVertex3s := GetModuleSymbol(LibGL, 'glVertex3s');

-    @glVertex3sv := GetModuleSymbol(LibGL, 'glVertex3sv');

-    @glVertex4d := GetModuleSymbol(LibGL, 'glVertex4d');

-    @glVertex4dv := GetModuleSymbol(LibGL, 'glVertex4dv');

-    @glVertex4f := GetModuleSymbol(LibGL, 'glVertex4f');

-    @glVertex4fv := GetModuleSymbol(LibGL, 'glVertex4fv');

-    @glVertex4i := GetModuleSymbol(LibGL, 'glVertex4i');

-    @glVertex4iv := GetModuleSymbol(LibGL, 'glVertex4iv');

-    @glVertex4s := GetModuleSymbol(LibGL, 'glVertex4s');

-    @glVertex4sv := GetModuleSymbol(LibGL, 'glVertex4sv');

-    @glVertexPointer := GetModuleSymbol(LibGL, 'glVertexPointer');

-    @glViewport := GetModuleSymbol(LibGL, 'glViewport');

-

-    {$IFDEF WINDOWS}

-    @ChoosePixelFormat := GetModuleSymbol(LibGL, 'ChoosePixelFormat');

-    if not Assigned(ChoosePixelFormat) then

-      {$IFNDEF FPC}@{$ENDIF}ChoosePixelFormat := @Windows.ChoosePixelFormat;

-    {$ENDIF}

-  end;

-end;

-

-initialization

-  {$IF Defined(CPU386) or Defined(CPUI386) or Defined(CPUX86_64)}

-  Set8087CW($133F);

-  {$IFEND}

-

-  LoadOpenGL( GLLibName );

-

-finalization

-

-  FreeOpenGL;

-

-end.

-

+unit gl;
+{
+  $Id: gl.pas,v 1.5 2007/05/20 20:28:31 savage Exp $
+
+  Adaption of the delphi3d.net OpenGL units to FreePascal
+  Sebastian Guenther (sg@freepascal.org) in 2002
+  These units are free to use
+}
+
+(*++ BUILD Version: 0004    // Increment this if a change has global effects
+
+Copyright (c) 1985-96, Microsoft Corporation
+
+Module Name:
+
+    gl.h
+
+Abstract:
+
+    Procedure declarations, constant definitions and macros for the OpenGL
+    component.
+
+--*)
+
+(*
+** Copyright 1996 Silicon Graphics, Inc.
+** All Rights Reserved.
+**
+** This is UNPUBLISHED PROPRIETARY SOURCE CODE of Silicon Graphics, Inc.;
+** the contents of this file may not be disclosed to third parties, copied or
+** duplicated in any form, in whole or in part, without the prior written
+** permission of Silicon Graphics, Inc.
+**
+** RESTRICTED RIGHTS LEGEND:
+** Use, duplication or disclosure by the Government is subject to restrictions
+** as set forth in subdivision (c)(1)(ii) of the Rights in Technical Data
+** and Computer Software clause at DFARS 252.227-7013, and/or in similar or
+** successor clauses in the FAR, DOD or NASA FAR Supplement. Unpublished -
+** rights reserved under the Copyright Laws of the United States.
+*)
+
+{******************************************************************************}
+{                                                                              }
+{ Converted to Delphi by Tom Nuydens (tom@delphi3d.net)                        }
+{ For the latest updates, visit Delphi3D: http://www.delphi3d.net              }
+{                                                                              }
+{ Modified for Delphi/Kylix and FreePascal                                     }
+{    by Dominique Louis ( Dominique@Savagesoftware.com.au)                     }
+{ For the latest updates, visit JEDI-SDL : http://www.sf.net/projects/jedi-sdl }
+{                                                                              }
+{******************************************************************************}
+
+{
+  $Log: gl.pas,v $
+  Revision 1.5  2007/05/20 20:28:31  savage
+  Initial Changes to Handle 64 Bits
+
+  Revision 1.4  2006/11/20 21:20:59  savage
+  Updated to work in MacOS X
+
+  Revision 1.3  2005/05/22 18:52:09  savage
+  Changes as suggested by Michalis Kamburelis. Thanks again.
+
+  Revision 1.2  2004/08/14 22:54:30  savage
+  Updated so that Library name defines are correctly defined for MacOS X.
+
+  Revision 1.1  2004/03/30 21:53:54  savage
+  Moved to it's own folder.
+
+  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 00:23:39  savage
+  As UNIX is defined in jedi-sdl.inc this will be used to check linux compatability as well. Units have been changed to reflect this change.
+
+  Revision 1.2  2004/02/14 00:09:18  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.6  2003/06/02 12:32:12  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
+{$IFDEF __GPC__}
+  system,
+  gpc,
+{$ENDIF}
+
+{$IFDEF WINDOWS}
+  Windows,
+{$ENDIF}
+  moduleloader;
+
+
+var
+  LibGL: TModuleHandle;
+
+type
+  GLenum     = Cardinal;      PGLenum     = ^GLenum;
+  GLboolean  = Byte;          PGLboolean  = ^GLboolean;
+  GLbitfield = Cardinal;      PGLbitfield = ^GLbitfield;
+  GLbyte     = ShortInt;      PGLbyte     = ^GLbyte;
+  GLshort    = SmallInt;      PGLshort    = ^GLshort;
+  GLint      = Integer;       PGLint      = ^GLint;
+  GLsizei    = Integer;       PGLsizei    = ^GLsizei;
+  GLubyte    = Byte;          PGLubyte    = ^GLubyte;
+  GLushort   = Word;          PGLushort   = ^GLushort;
+  GLuint     = Cardinal;      PGLuint     = ^GLuint;
+  GLfloat    = Single;        PGLfloat    = ^GLfloat;
+  GLclampf   = Single;        PGLclampf   = ^GLclampf;
+  GLdouble   = Double;        PGLdouble   = ^GLdouble;
+  GLclampd   = Double;        PGLclampd   = ^GLclampd;
+{ GLvoid     = void; }        PGLvoid     = Pointer;
+
+{******************************************************************************}
+
+const
+{$IFDEF WINDOWS}
+  GLLibName = 'OpenGL32.dll';
+{$ENDIF}
+
+{$IFDEF UNIX}
+{$IFDEF DARWIN}
+  GLLibName = '/System/Library/Frameworks/OpenGL.framework/Libraries/libGL.dylib';
+{$ELSE}
+  GLLibName = 'libGL.so';
+{$ENDIF}
+{$ENDIF}
+
+  // Version
+  GL_VERSION_1_1                    = 1;
+
+  // AccumOp
+  GL_ACCUM                          = $0100;
+  GL_LOAD                           = $0101;
+  GL_RETURN                         = $0102;
+  GL_MULT                           = $0103;
+  GL_ADD                            = $0104;
+
+  // AlphaFunction
+  GL_NEVER                          = $0200;
+  GL_LESS                           = $0201;
+  GL_EQUAL                          = $0202;
+  GL_LEQUAL                         = $0203;
+  GL_GREATER                        = $0204;
+  GL_NOTEQUAL                       = $0205;
+  GL_GEQUAL                         = $0206;
+  GL_ALWAYS                         = $0207;
+
+  // AttribMask
+  GL_CURRENT_BIT                    = $00000001;
+  GL_POINT_BIT                      = $00000002;
+  GL_LINE_BIT                       = $00000004;
+  GL_POLYGON_BIT                    = $00000008;
+  GL_POLYGON_STIPPLE_BIT            = $00000010;
+  GL_PIXEL_MODE_BIT                 = $00000020;
+  GL_LIGHTING_BIT                   = $00000040;
+  GL_FOG_BIT                        = $00000080;
+  GL_DEPTH_BUFFER_BIT               = $00000100;
+  GL_ACCUM_BUFFER_BIT               = $00000200;
+  GL_STENCIL_BUFFER_BIT             = $00000400;
+  GL_VIEWPORT_BIT                   = $00000800;
+  GL_TRANSFORM_BIT                  = $00001000;
+  GL_ENABLE_BIT                     = $00002000;
+  GL_COLOR_BUFFER_BIT               = $00004000;
+  GL_HINT_BIT                       = $00008000;
+  GL_EVAL_BIT                       = $00010000;
+  GL_LIST_BIT                       = $00020000;
+  GL_TEXTURE_BIT                    = $00040000;
+  GL_SCISSOR_BIT                    = $00080000;
+  GL_ALL_ATTRIB_BITS                = $000FFFFF;
+
+  // BeginMode
+  GL_POINTS                         = $0000;
+  GL_LINES                          = $0001;
+  GL_LINE_LOOP                      = $0002;
+  GL_LINE_STRIP                     = $0003;
+  GL_TRIANGLES                      = $0004;
+  GL_TRIANGLE_STRIP                 = $0005;
+  GL_TRIANGLE_FAN                   = $0006;
+  GL_QUADS                          = $0007;
+  GL_QUAD_STRIP                     = $0008;
+  GL_POLYGON                        = $0009;
+
+  // BlendingFactorDest
+  GL_ZERO                           = 0;
+  GL_ONE                            = 1;
+  GL_SRC_COLOR                      = $0300;
+  GL_ONE_MINUS_SRC_COLOR            = $0301;
+  GL_SRC_ALPHA                      = $0302;
+  GL_ONE_MINUS_SRC_ALPHA            = $0303;
+  GL_DST_ALPHA                      = $0304;
+  GL_ONE_MINUS_DST_ALPHA            = $0305;
+
+  // BlendingFactorSrc
+  //      GL_ZERO
+  //      GL_ONE
+  GL_DST_COLOR                      = $0306;
+  GL_ONE_MINUS_DST_COLOR            = $0307;
+  GL_SRC_ALPHA_SATURATE             = $0308;
+  //      GL_SRC_ALPHA
+  //      GL_ONE_MINUS_SRC_ALPHA
+  //      GL_DST_ALPHA
+  //      GL_ONE_MINUS_DST_ALPHA
+
+  // Boolean
+  GL_TRUE                           = 1;
+  GL_FALSE                          = 0;
+
+  // ClearBufferMask
+  //      GL_COLOR_BUFFER_BIT
+  //      GL_ACCUM_BUFFER_BIT
+  //      GL_STENCIL_BUFFER_BIT
+  //      GL_DEPTH_BUFFER_BIT
+
+  // ClientArrayType
+  //      GL_VERTEX_ARRAY
+  //      GL_NORMAL_ARRAY
+  //      GL_COLOR_ARRAY
+  //      GL_INDEX_ARRAY
+  //      GL_TEXTURE_COORD_ARRAY
+  //      GL_EDGE_FLAG_ARRAY
+
+  // ClipPlaneName
+  GL_CLIP_PLANE0                    = $3000;
+  GL_CLIP_PLANE1                    = $3001;
+  GL_CLIP_PLANE2                    = $3002;
+  GL_CLIP_PLANE3                    = $3003;
+  GL_CLIP_PLANE4                    = $3004;
+  GL_CLIP_PLANE5                    = $3005;
+
+  // ColorMaterialFace
+  //      GL_FRONT
+  //      GL_BACK
+  //      GL_FRONT_AND_BACK
+
+  // ColorMaterialParameter
+  //      GL_AMBIENT
+  //      GL_DIFFUSE
+  //      GL_SPECULAR
+  //      GL_EMISSION
+  //      GL_AMBIENT_AND_DIFFUSE
+
+  // ColorPointerType
+  //      GL_BYTE
+  //      GL_UNSIGNED_BYTE
+  //      GL_SHORT
+  //      GL_UNSIGNED_SHORT
+  //      GL_INT
+  //      GL_UNSIGNED_INT
+  //      GL_FLOAT
+  //      GL_DOUBLE
+
+  // CullFaceMode
+  //      GL_FRONT
+  //      GL_BACK
+  //      GL_FRONT_AND_BACK
+
+  // DataType
+  GL_BYTE                           = $1400;
+  GL_UNSIGNED_BYTE                  = $1401;
+  GL_SHORT                          = $1402;
+  GL_UNSIGNED_SHORT                 = $1403;
+  GL_INT                            = $1404;
+  GL_UNSIGNED_INT                   = $1405;
+  GL_FLOAT                          = $1406;
+  GL_2_BYTES                        = $1407;
+  GL_3_BYTES                        = $1408;
+  GL_4_BYTES                        = $1409;
+  GL_DOUBLE                         = $140A;
+
+  // DepthFunction
+  //      GL_NEVER
+  //      GL_LESS
+  //      GL_EQUAL
+  //      GL_LEQUAL
+  //      GL_GREATER
+  //      GL_NOTEQUAL
+  //      GL_GEQUAL
+  //      GL_ALWAYS
+
+  // DrawBufferMode
+  GL_NONE                           = 0;
+  GL_FRONT_LEFT                     = $0400;
+  GL_FRONT_RIGHT                    = $0401;
+  GL_BACK_LEFT                      = $0402;
+  GL_BACK_RIGHT                     = $0403;
+  GL_FRONT                          = $0404;
+  GL_BACK                           = $0405;
+  GL_LEFT                           = $0406;
+  GL_RIGHT                          = $0407;
+  GL_FRONT_AND_BACK                 = $0408;
+  GL_AUX0                           = $0409;
+  GL_AUX1                           = $040A;
+  GL_AUX2                           = $040B;
+  GL_AUX3                           = $040C;
+
+  // Enable
+  //      GL_FOG
+  //      GL_LIGHTING
+  //      GL_TEXTURE_1D
+  //      GL_TEXTURE_2D
+  //      GL_LINE_STIPPLE
+  //      GL_POLYGON_STIPPLE
+  //      GL_CULL_FACE
+  //      GL_ALPHA_TEST
+  //      GL_BLEND
+  //      GL_INDEX_LOGIC_OP
+  //      GL_COLOR_LOGIC_OP
+  //      GL_DITHER
+  //      GL_STENCIL_TEST
+  //      GL_DEPTH_TEST
+  //      GL_CLIP_PLANE0
+  //      GL_CLIP_PLANE1
+  //      GL_CLIP_PLANE2
+  //      GL_CLIP_PLANE3
+  //      GL_CLIP_PLANE4
+  //      GL_CLIP_PLANE5
+  //      GL_LIGHT0
+  //      GL_LIGHT1
+  //      GL_LIGHT2
+  //      GL_LIGHT3
+  //      GL_LIGHT4
+  //      GL_LIGHT5
+  //      GL_LIGHT6
+  //      GL_LIGHT7
+  //      GL_TEXTURE_GEN_S
+  //      GL_TEXTURE_GEN_T
+  //      GL_TEXTURE_GEN_R
+  //      GL_TEXTURE_GEN_Q
+  //      GL_MAP1_VERTEX_3
+  //      GL_MAP1_VERTEX_4
+  //      GL_MAP1_COLOR_4
+  //      GL_MAP1_INDEX
+  //      GL_MAP1_NORMAL
+  //      GL_MAP1_TEXTURE_COORD_1
+  //      GL_MAP1_TEXTURE_COORD_2
+  //      GL_MAP1_TEXTURE_COORD_3
+  //      GL_MAP1_TEXTURE_COORD_4
+  //      GL_MAP2_VERTEX_3
+  //      GL_MAP2_VERTEX_4
+  //      GL_MAP2_COLOR_4
+  //      GL_MAP2_INDEX
+  //      GL_MAP2_NORMAL
+  //      GL_MAP2_TEXTURE_COORD_1
+  //      GL_MAP2_TEXTURE_COORD_2
+  //      GL_MAP2_TEXTURE_COORD_3
+  //      GL_MAP2_TEXTURE_COORD_4
+  //      GL_POINT_SMOOTH
+  //      GL_LINE_SMOOTH
+  //      GL_POLYGON_SMOOTH
+  //      GL_SCISSOR_TEST
+  //      GL_COLOR_MATERIAL
+  //      GL_NORMALIZE
+  //      GL_AUTO_NORMAL
+  //      GL_VERTEX_ARRAY
+  //      GL_NORMAL_ARRAY
+  //      GL_COLOR_ARRAY
+  //      GL_INDEX_ARRAY
+  //      GL_TEXTURE_COORD_ARRAY
+  //      GL_EDGE_FLAG_ARRAY
+  //      GL_POLYGON_OFFSET_POINT
+  //      GL_POLYGON_OFFSET_LINE
+  //      GL_POLYGON_OFFSET_FILL
+
+  // ErrorCode
+  GL_NO_ERROR                       = 0;
+  GL_INVALID_ENUM                   = $0500;
+  GL_INVALID_VALUE                  = $0501;
+  GL_INVALID_OPERATION              = $0502;
+  GL_STACK_OVERFLOW                 = $0503;
+  GL_STACK_UNDERFLOW                = $0504;
+  GL_OUT_OF_MEMORY                  = $0505;
+
+  // FeedBackMode
+  GL_2D                             = $0600;
+  GL_3D                             = $0601;
+  GL_3D_COLOR                       = $0602;
+  GL_3D_COLOR_TEXTURE               = $0603;
+  GL_4D_COLOR_TEXTURE               = $0604;
+
+  // FeedBackToken
+  GL_PASS_THROUGH_TOKEN             = $0700;
+  GL_POINT_TOKEN                    = $0701;
+  GL_LINE_TOKEN                     = $0702;
+  GL_POLYGON_TOKEN                  = $0703;
+  GL_BITMAP_TOKEN                   = $0704;
+  GL_DRAW_PIXEL_TOKEN               = $0705;
+  GL_COPY_PIXEL_TOKEN               = $0706;
+  GL_LINE_RESET_TOKEN               = $0707;
+
+  // FogMode
+  //      GL_LINEAR
+  GL_EXP                            = $0800;
+  GL_EXP2                           = $0801;
+
+  // FogParameter
+  //      GL_FOG_COLOR
+  //      GL_FOG_DENSITY
+  //      GL_FOG_END
+  //      GL_FOG_INDEX
+  //      GL_FOG_MODE
+  //      GL_FOG_START
+
+  // FrontFaceDirection
+  GL_CW                             = $0900;
+  GL_CCW                            = $0901;
+
+  // GetMapTarget
+  GL_COEFF                          = $0A00;
+  GL_ORDER                          = $0A01;
+  GL_DOMAIN                         = $0A02;
+
+  // GetPixelMap
+  //      GL_PIXEL_MAP_I_TO_I 
+  //      GL_PIXEL_MAP_S_TO_S 
+  //      GL_PIXEL_MAP_I_TO_R 
+  //      GL_PIXEL_MAP_I_TO_G 
+  //      GL_PIXEL_MAP_I_TO_B 
+  //      GL_PIXEL_MAP_I_TO_A
+  //      GL_PIXEL_MAP_R_TO_R
+  //      GL_PIXEL_MAP_G_TO_G 
+  //      GL_PIXEL_MAP_B_TO_B 
+  //      GL_PIXEL_MAP_A_TO_A 
+
+  // GetPointerTarget 
+  //      GL_VERTEX_ARRAY_POINTER 
+  //      GL_NORMAL_ARRAY_POINTER 
+  //      GL_COLOR_ARRAY_POINTER 
+  //      GL_INDEX_ARRAY_POINTER 
+  //      GL_TEXTURE_COORD_ARRAY_POINTER 
+  //      GL_EDGE_FLAG_ARRAY_POINTER 
+
+  // GetTarget 
+  GL_CURRENT_COLOR                  = $0B00;
+  GL_CURRENT_INDEX                  = $0B01;
+  GL_CURRENT_NORMAL                 = $0B02;
+  GL_CURRENT_TEXTURE_COORDS         = $0B03;
+  GL_CURRENT_RASTER_COLOR           = $0B04;
+  GL_CURRENT_RASTER_INDEX           = $0B05;
+  GL_CURRENT_RASTER_TEXTURE_COORDS  = $0B06;
+  GL_CURRENT_RASTER_POSITION        = $0B07;
+  GL_CURRENT_RASTER_POSITION_VALID  = $0B08;
+  GL_CURRENT_RASTER_DISTANCE        = $0B09;
+  GL_POINT_SMOOTH                   = $0B10;
+  GL_POINT_SIZE                     = $0B11;
+  GL_POINT_SIZE_RANGE               = $0B12;
+  GL_POINT_SIZE_GRANULARITY         = $0B13;
+  GL_LINE_SMOOTH                    = $0B20;
+  GL_LINE_WIDTH                     = $0B21;
+  GL_LINE_WIDTH_RANGE               = $0B22;
+  GL_LINE_WIDTH_GRANULARITY         = $0B23;
+  GL_LINE_STIPPLE                   = $0B24;
+  GL_LINE_STIPPLE_PATTERN           = $0B25;
+  GL_LINE_STIPPLE_REPEAT            = $0B26;
+  GL_LIST_MODE                      = $0B30;
+  GL_MAX_LIST_NESTING               = $0B31;
+  GL_LIST_BASE                      = $0B32;
+  GL_LIST_INDEX                     = $0B33;
+  GL_POLYGON_MODE                   = $0B40;
+  GL_POLYGON_SMOOTH                 = $0B41;
+  GL_POLYGON_STIPPLE                = $0B42;
+  GL_EDGE_FLAG                      = $0B43;
+  GL_CULL_FACE                      = $0B44;
+  GL_CULL_FACE_MODE                 = $0B45;
+  GL_FRONT_FACE                     = $0B46;
+  GL_LIGHTING                       = $0B50;
+  GL_LIGHT_MODEL_LOCAL_VIEWER       = $0B51;
+  GL_LIGHT_MODEL_TWO_SIDE           = $0B52;
+  GL_LIGHT_MODEL_AMBIENT            = $0B53;
+  GL_SHADE_MODEL                    = $0B54;
+  GL_COLOR_MATERIAL_FACE            = $0B55;
+  GL_COLOR_MATERIAL_PARAMETER       = $0B56;
+  GL_COLOR_MATERIAL                 = $0B57;
+  GL_FOG                            = $0B60;
+  GL_FOG_INDEX                      = $0B61;
+  GL_FOG_DENSITY                    = $0B62;
+  GL_FOG_START                      = $0B63;
+  GL_FOG_END                        = $0B64;
+  GL_FOG_MODE                       = $0B65;
+  GL_FOG_COLOR                      = $0B66;
+  GL_DEPTH_RANGE                    = $0B70;
+  GL_DEPTH_TEST                     = $0B71;
+  GL_DEPTH_WRITEMASK                = $0B72;
+  GL_DEPTH_CLEAR_VALUE              = $0B73;
+  GL_DEPTH_FUNC                     = $0B74;
+  GL_ACCUM_CLEAR_VALUE              = $0B80;
+  GL_STENCIL_TEST                   = $0B90;
+  GL_STENCIL_CLEAR_VALUE            = $0B91;
+  GL_STENCIL_FUNC                   = $0B92;
+  GL_STENCIL_VALUE_MASK             = $0B93;
+  GL_STENCIL_FAIL                   = $0B94;
+  GL_STENCIL_PASS_DEPTH_FAIL        = $0B95;
+  GL_STENCIL_PASS_DEPTH_PASS        = $0B96;
+  GL_STENCIL_REF                    = $0B97;
+  GL_STENCIL_WRITEMASK              = $0B98;
+  GL_MATRIX_MODE                    = $0BA0;
+  GL_NORMALIZE                      = $0BA1;
+  GL_VIEWPORT                       = $0BA2;
+  GL_MODELVIEW_STACK_DEPTH          = $0BA3;
+  GL_PROJECTION_STACK_DEPTH         = $0BA4;
+  GL_TEXTURE_STACK_DEPTH            = $0BA5;
+  GL_MODELVIEW_MATRIX               = $0BA6;
+  GL_PROJECTION_MATRIX              = $0BA7;
+  GL_TEXTURE_MATRIX                 = $0BA8;
+  GL_ATTRIB_STACK_DEPTH             = $0BB0;
+  GL_CLIENT_ATTRIB_STACK_DEPTH      = $0BB1;
+  GL_ALPHA_TEST                     = $0BC0;
+  GL_ALPHA_TEST_FUNC                = $0BC1;
+  GL_ALPHA_TEST_REF                 = $0BC2;
+  GL_DITHER                         = $0BD0;
+  GL_BLEND_DST                      = $0BE0;
+  GL_BLEND_SRC                      = $0BE1;
+  GL_BLEND                          = $0BE2;
+  GL_LOGIC_OP_MODE                  = $0BF0;
+  GL_INDEX_LOGIC_OP                 = $0BF1;
+  GL_COLOR_LOGIC_OP                 = $0BF2;
+  GL_AUX_BUFFERS                    = $0C00;
+  GL_DRAW_BUFFER                    = $0C01;
+  GL_READ_BUFFER                    = $0C02;
+  GL_SCISSOR_BOX                    = $0C10;
+  GL_SCISSOR_TEST                   = $0C11;
+  GL_INDEX_CLEAR_VALUE              = $0C20;
+  GL_INDEX_WRITEMASK                = $0C21;
+  GL_COLOR_CLEAR_VALUE              = $0C22;
+  GL_COLOR_WRITEMASK                = $0C23;
+  GL_INDEX_MODE                     = $0C30;
+  GL_RGBA_MODE                      = $0C31;
+  GL_DOUBLEBUFFER                   = $0C32;
+  GL_STEREO                         = $0C33;
+  GL_RENDER_MODE                    = $0C40;
+  GL_PERSPECTIVE_CORRECTION_HINT    = $0C50;
+  GL_POINT_SMOOTH_HINT              = $0C51;
+  GL_LINE_SMOOTH_HINT               = $0C52;
+  GL_POLYGON_SMOOTH_HINT            = $0C53;
+  GL_FOG_HINT                       = $0C54;
+  GL_TEXTURE_GEN_S                  = $0C60;
+  GL_TEXTURE_GEN_T                  = $0C61;
+  GL_TEXTURE_GEN_R                  = $0C62;
+  GL_TEXTURE_GEN_Q                  = $0C63;
+  GL_PIXEL_MAP_I_TO_I               = $0C70;
+  GL_PIXEL_MAP_S_TO_S               = $0C71;
+  GL_PIXEL_MAP_I_TO_R               = $0C72;
+  GL_PIXEL_MAP_I_TO_G               = $0C73;
+  GL_PIXEL_MAP_I_TO_B               = $0C74;
+  GL_PIXEL_MAP_I_TO_A               = $0C75;
+  GL_PIXEL_MAP_R_TO_R               = $0C76;
+  GL_PIXEL_MAP_G_TO_G               = $0C77;
+  GL_PIXEL_MAP_B_TO_B               = $0C78;
+  GL_PIXEL_MAP_A_TO_A               = $0C79;
+  GL_PIXEL_MAP_I_TO_I_SIZE          = $0CB0;
+  GL_PIXEL_MAP_S_TO_S_SIZE          = $0CB1;
+  GL_PIXEL_MAP_I_TO_R_SIZE          = $0CB2;
+  GL_PIXEL_MAP_I_TO_G_SIZE          = $0CB3;
+  GL_PIXEL_MAP_I_TO_B_SIZE          = $0CB4;
+  GL_PIXEL_MAP_I_TO_A_SIZE          = $0CB5;
+  GL_PIXEL_MAP_R_TO_R_SIZE          = $0CB6;
+  GL_PIXEL_MAP_G_TO_G_SIZE          = $0CB7;
+  GL_PIXEL_MAP_B_TO_B_SIZE          = $0CB8;
+  GL_PIXEL_MAP_A_TO_A_SIZE          = $0CB9;
+  GL_UNPACK_SWAP_BYTES              = $0CF0;
+  GL_UNPACK_LSB_FIRST               = $0CF1;
+  GL_UNPACK_ROW_LENGTH              = $0CF2;
+  GL_UNPACK_SKIP_ROWS               = $0CF3;
+  GL_UNPACK_SKIP_PIXELS             = $0CF4;
+  GL_UNPACK_ALIGNMENT               = $0CF5;
+  GL_PACK_SWAP_BYTES                = $0D00;
+  GL_PACK_LSB_FIRST                 = $0D01;
+  GL_PACK_ROW_LENGTH                = $0D02;
+  GL_PACK_SKIP_ROWS                 = $0D03;
+  GL_PACK_SKIP_PIXELS               = $0D04;
+  GL_PACK_ALIGNMENT                 = $0D05;
+  GL_MAP_COLOR                      = $0D10;
+  GL_MAP_STENCIL                    = $0D11;
+  GL_INDEX_SHIFT                    = $0D12;
+  GL_INDEX_OFFSET                   = $0D13;
+  GL_RED_SCALE                      = $0D14;
+  GL_RED_BIAS                       = $0D15;
+  GL_ZOOM_X                         = $0D16;
+  GL_ZOOM_Y                         = $0D17;
+  GL_GREEN_SCALE                    = $0D18;
+  GL_GREEN_BIAS                     = $0D19;
+  GL_BLUE_SCALE                     = $0D1A;
+  GL_BLUE_BIAS                      = $0D1B;
+  GL_ALPHA_SCALE                    = $0D1C;
+  GL_ALPHA_BIAS                     = $0D1D;
+  GL_DEPTH_SCALE                    = $0D1E;
+  GL_DEPTH_BIAS                     = $0D1F;
+  GL_MAX_EVAL_ORDER                 = $0D30;
+  GL_MAX_LIGHTS                     = $0D31;
+  GL_MAX_CLIP_PLANES                = $0D32;
+  GL_MAX_TEXTURE_SIZE               = $0D33;
+  GL_MAX_PIXEL_MAP_TABLE            = $0D34;
+  GL_MAX_ATTRIB_STACK_DEPTH         = $0D35;
+  GL_MAX_MODELVIEW_STACK_DEPTH      = $0D36;
+  GL_MAX_NAME_STACK_DEPTH           = $0D37;
+  GL_MAX_PROJECTION_STACK_DEPTH     = $0D38;
+  GL_MAX_TEXTURE_STACK_DEPTH        = $0D39;
+  GL_MAX_VIEWPORT_DIMS              = $0D3A;
+  GL_MAX_CLIENT_ATTRIB_STACK_DEPTH  = $0D3B;
+  GL_SUBPIXEL_BITS                  = $0D50;
+  GL_INDEX_BITS                     = $0D51;
+  GL_RED_BITS                       = $0D52;
+  GL_GREEN_BITS                     = $0D53;
+  GL_BLUE_BITS                      = $0D54;
+  GL_ALPHA_BITS                     = $0D55;
+  GL_DEPTH_BITS                     = $0D56;
+  GL_STENCIL_BITS                   = $0D57;
+  GL_ACCUM_RED_BITS                 = $0D58;
+  GL_ACCUM_GREEN_BITS               = $0D59;
+  GL_ACCUM_BLUE_BITS                = $0D5A;
+  GL_ACCUM_ALPHA_BITS               = $0D5B;
+  GL_NAME_STACK_DEPTH               = $0D70;
+  GL_AUTO_NORMAL                    = $0D80;
+  GL_MAP1_COLOR_4                   = $0D90;
+  GL_MAP1_INDEX                     = $0D91;
+  GL_MAP1_NORMAL                    = $0D92;
+  GL_MAP1_TEXTURE_COORD_1           = $0D93;
+  GL_MAP1_TEXTURE_COORD_2           = $0D94;
+  GL_MAP1_TEXTURE_COORD_3           = $0D95;
+  GL_MAP1_TEXTURE_COORD_4           = $0D96;
+  GL_MAP1_VERTEX_3                  = $0D97;
+  GL_MAP1_VERTEX_4                  = $0D98;
+  GL_MAP2_COLOR_4                   = $0DB0;
+  GL_MAP2_INDEX                     = $0DB1;
+  GL_MAP2_NORMAL                    = $0DB2;
+  GL_MAP2_TEXTURE_COORD_1           = $0DB3;
+  GL_MAP2_TEXTURE_COORD_2           = $0DB4;
+  GL_MAP2_TEXTURE_COORD_3           = $0DB5;
+  GL_MAP2_TEXTURE_COORD_4           = $0DB6;
+  GL_MAP2_VERTEX_3                  = $0DB7;
+  GL_MAP2_VERTEX_4                  = $0DB8;
+  GL_MAP1_GRID_DOMAIN               = $0DD0;
+  GL_MAP1_GRID_SEGMENTS             = $0DD1;
+  GL_MAP2_GRID_DOMAIN               = $0DD2;
+  GL_MAP2_GRID_SEGMENTS             = $0DD3;
+  GL_TEXTURE_1D                     = $0DE0;
+  GL_TEXTURE_2D                     = $0DE1;
+  GL_FEEDBACK_BUFFER_POINTER        = $0DF0;
+  GL_FEEDBACK_BUFFER_SIZE           = $0DF1;
+  GL_FEEDBACK_BUFFER_TYPE           = $0DF2;
+  GL_SELECTION_BUFFER_POINTER       = $0DF3;
+  GL_SELECTION_BUFFER_SIZE          = $0DF4;
+  //      GL_TEXTURE_BINDING_1D
+  //      GL_TEXTURE_BINDING_2D 
+  //      GL_VERTEX_ARRAY 
+  //      GL_NORMAL_ARRAY 
+  //      GL_COLOR_ARRAY 
+  //      GL_INDEX_ARRAY 
+  //      GL_TEXTURE_COORD_ARRAY 
+  //      GL_EDGE_FLAG_ARRAY
+  //      GL_VERTEX_ARRAY_SIZE
+  //      GL_VERTEX_ARRAY_TYPE 
+  //      GL_VERTEX_ARRAY_STRIDE 
+  //      GL_NORMAL_ARRAY_TYPE 
+  //      GL_NORMAL_ARRAY_STRIDE 
+  //      GL_COLOR_ARRAY_SIZE 
+  //      GL_COLOR_ARRAY_TYPE 
+  //      GL_COLOR_ARRAY_STRIDE 
+  //      GL_INDEX_ARRAY_TYPE 
+  //      GL_INDEX_ARRAY_STRIDE 
+  //      GL_TEXTURE_COORD_ARRAY_SIZE 
+  //      GL_TEXTURE_COORD_ARRAY_TYPE 
+  //      GL_TEXTURE_COORD_ARRAY_STRIDE 
+  //      GL_EDGE_FLAG_ARRAY_STRIDE 
+  //      GL_POLYGON_OFFSET_FACTOR 
+  //      GL_POLYGON_OFFSET_UNITS 
+
+  // GetTextureParameter 
+  //      GL_TEXTURE_MAG_FILTER 
+  //      GL_TEXTURE_MIN_FILTER 
+  //      GL_TEXTURE_WRAP_S
+  //      GL_TEXTURE_WRAP_T
+  GL_TEXTURE_WIDTH                  = $1000;
+  GL_TEXTURE_HEIGHT                 = $1001;
+  GL_TEXTURE_INTERNAL_FORMAT        = $1003;
+  GL_TEXTURE_BORDER_COLOR           = $1004;
+  GL_TEXTURE_BORDER                 = $1005;
+  //      GL_TEXTURE_RED_SIZE
+  //      GL_TEXTURE_GREEN_SIZE
+  //      GL_TEXTURE_BLUE_SIZE
+  //      GL_TEXTURE_ALPHA_SIZE
+  //      GL_TEXTURE_LUMINANCE_SIZE
+  //      GL_TEXTURE_INTENSITY_SIZE
+  //      GL_TEXTURE_PRIORITY
+  //      GL_TEXTURE_RESIDENT
+
+  // HintMode
+  GL_DONT_CARE                      = $1100;
+  GL_FASTEST                        = $1101;
+  GL_NICEST                         = $1102;
+
+  // HintTarget
+  //      GL_PERSPECTIVE_CORRECTION_HINT
+  //      GL_POINT_SMOOTH_HINT
+  //      GL_LINE_SMOOTH_HINT
+  //      GL_POLYGON_SMOOTH_HINT
+  //      GL_FOG_HINT
+
+  // IndexPointerType
+  //      GL_SHORT
+  //      GL_INT
+  //      GL_FLOAT
+  //      GL_DOUBLE
+
+  // LightModelParameter
+  //      GL_LIGHT_MODEL_AMBIENT
+  //      GL_LIGHT_MODEL_LOCAL_VIEWER
+  //      GL_LIGHT_MODEL_TWO_SIDE
+
+  // LightName
+  GL_LIGHT0                         = $4000;
+  GL_LIGHT1                         = $4001;
+  GL_LIGHT2                         = $4002;
+  GL_LIGHT3                         = $4003;
+  GL_LIGHT4                         = $4004;
+  GL_LIGHT5                         = $4005;
+  GL_LIGHT6                         = $4006;
+  GL_LIGHT7                         = $4007;
+
+  // LightParameter
+  GL_AMBIENT                        = $1200;
+  GL_DIFFUSE                        = $1201;
+  GL_SPECULAR                       = $1202;
+  GL_POSITION                       = $1203;
+  GL_SPOT_DIRECTION                 = $1204;
+  GL_SPOT_EXPONENT                  = $1205;
+  GL_SPOT_CUTOFF                    = $1206;
+  GL_CONSTANT_ATTENUATION           = $1207;
+  GL_LINEAR_ATTENUATION             = $1208;
+  GL_QUADRATIC_ATTENUATION          = $1209;
+
+  // InterleavedArrays
+  //      GL_V2F
+  //      GL_V3F
+  //      GL_C4UB_V2F
+  //      GL_C4UB_V3F
+  //      GL_C3F_V3F
+  //      GL_N3F_V3F
+  //      GL_C4F_N3F_V3F
+  //      GL_T2F_V3F
+  //      GL_T4F_V4F
+  //      GL_T2F_C4UB_V3F
+  //      GL_T2F_C3F_V3F
+  //      GL_T2F_N3F_V3F
+  //      GL_T2F_C4F_N3F_V3F
+  //      GL_T4F_C4F_N3F_V4F
+
+  // ListMode
+  GL_COMPILE                        = $1300;
+  GL_COMPILE_AND_EXECUTE            = $1301;
+
+  // ListNameType
+  //      GL_BYTE
+  //      GL_UNSIGNED_BYTE
+  //      GL_SHORT
+  //      GL_UNSIGNED_SHORT
+  //      GL_INT
+  //      GL_UNSIGNED_INT
+  //      GL_FLOAT
+  //      GL_2_BYTES
+  //      GL_3_BYTES
+  //      GL_4_BYTES
+
+  // LogicOp
+  GL_CLEAR                          = $1500;
+  GL_AND                            = $1501;
+  GL_AND_REVERSE                    = $1502;
+  GL_COPY                           = $1503;
+  GL_AND_INVERTED                   = $1504;
+  GL_NOOP                           = $1505;
+  GL_XOR                            = $1506;
+  GL_OR                             = $1507;
+  GL_NOR                            = $1508;
+  GL_EQUIV                          = $1509;
+  GL_INVERT                         = $150A;
+  GL_OR_REVERSE                     = $150B;
+  GL_COPY_INVERTED                  = $150C;
+  GL_OR_INVERTED                    = $150D;
+  GL_NAND                           = $150E;
+  GL_SET                            = $150F;
+
+  // MapTarget
+  //      GL_MAP1_COLOR_4
+  //      GL_MAP1_INDEX
+  //      GL_MAP1_NORMAL
+  //      GL_MAP1_TEXTURE_COORD_1
+  //      GL_MAP1_TEXTURE_COORD_2
+  //      GL_MAP1_TEXTURE_COORD_3
+  //      GL_MAP1_TEXTURE_COORD_4
+  //      GL_MAP1_VERTEX_3
+  //      GL_MAP1_VERTEX_4
+  //      GL_MAP2_COLOR_4
+  //      GL_MAP2_INDEX
+  //      GL_MAP2_NORMAL
+  //      GL_MAP2_TEXTURE_COORD_1
+  //      GL_MAP2_TEXTURE_COORD_2
+  //      GL_MAP2_TEXTURE_COORD_3
+  //      GL_MAP2_TEXTURE_COORD_4
+  //      GL_MAP2_VERTEX_3
+  //      GL_MAP2_VERTEX_4
+
+  // MaterialFace
+  //      GL_FRONT
+  //      GL_BACK
+  //      GL_FRONT_AND_BACK
+
+  // MaterialParameter
+  GL_EMISSION                       = $1600;
+  GL_SHININESS                      = $1601;
+  GL_AMBIENT_AND_DIFFUSE            = $1602;
+  GL_COLOR_INDEXES                  = $1603;
+  //      GL_AMBIENT
+  //      GL_DIFFUSE
+  //      GL_SPECULAR
+
+  // MatrixMode
+  GL_MODELVIEW                      = $1700;
+  GL_PROJECTION                     = $1701;
+  GL_TEXTURE                        = $1702;
+
+  // MeshMode1
+  //      GL_POINT
+  //      GL_LINE
+
+  // MeshMode2
+  //      GL_POINT
+  //      GL_LINE
+  //      GL_FILL
+
+  // NormalPointerType
+  //      GL_BYTE
+  //      GL_SHORT
+  //      GL_INT
+  //      GL_FLOAT
+  //      GL_DOUBLE
+
+  // PixelCopyType
+  GL_COLOR                          = $1800;
+  GL_DEPTH                          = $1801;
+  GL_STENCIL                        = $1802;
+
+  // PixelFormat
+  GL_COLOR_INDEX                    = $1900;
+  GL_STENCIL_INDEX                  = $1901;
+  GL_DEPTH_COMPONENT                = $1902;
+  GL_RED                            = $1903;
+  GL_GREEN                          = $1904;
+  GL_BLUE                           = $1905;
+  GL_ALPHA                          = $1906;
+  GL_RGB                            = $1907;
+  GL_RGBA                           = $1908;
+  GL_LUMINANCE                      = $1909;
+  GL_LUMINANCE_ALPHA                = $190A;
+
+  // PixelMap
+  //      GL_PIXEL_MAP_I_TO_I
+  //      GL_PIXEL_MAP_S_TO_S
+  //      GL_PIXEL_MAP_I_TO_R
+  //      GL_PIXEL_MAP_I_TO_G
+  //      GL_PIXEL_MAP_I_TO_B
+  //      GL_PIXEL_MAP_I_TO_A
+  //      GL_PIXEL_MAP_R_TO_R
+  //      GL_PIXEL_MAP_G_TO_G
+  //      GL_PIXEL_MAP_B_TO_B
+  //      GL_PIXEL_MAP_A_TO_A
+
+  // PixelStore
+  //      GL_UNPACK_SWAP_BYTES
+  //      GL_UNPACK_LSB_FIRST
+  //      GL_UNPACK_ROW_LENGTH
+  //      GL_UNPACK_SKIP_ROWS
+  //      GL_UNPACK_SKIP_PIXELS
+  //      GL_UNPACK_ALIGNMENT
+  //      GL_PACK_SWAP_BYTES
+  //      GL_PACK_LSB_FIRST
+  //      GL_PACK_ROW_LENGTH
+  //      GL_PACK_SKIP_ROWS
+  //      GL_PACK_SKIP_PIXELS
+  //      GL_PACK_ALIGNMENT
+
+  // PixelTransfer
+  //      GL_MAP_COLOR
+  //      GL_MAP_STENCIL
+  //      GL_INDEX_SHIFT
+  //      GL_INDEX_OFFSET
+  //      GL_RED_SCALE
+  //      GL_RED_BIAS
+  //      GL_GREEN_SCALE
+  //      GL_GREEN_BIAS
+  //      GL_BLUE_SCALE
+  //      GL_BLUE_BIAS
+  //      GL_ALPHA_SCALE
+  //      GL_ALPHA_BIAS
+  //      GL_DEPTH_SCALE
+  //      GL_DEPTH_BIAS
+
+  // PixelType
+  GL_BITMAP                         = $1A00;
+  //      GL_BYTE
+  //      GL_UNSIGNED_BYTE
+  //      GL_SHORT
+  //      GL_UNSIGNED_SHORT
+  //      GL_INT
+  //      GL_UNSIGNED_INT
+  //      GL_FLOAT
+
+  // PolygonMode
+  GL_POINT                          = $1B00;
+  GL_LINE                           = $1B01;
+  GL_FILL                           = $1B02;
+
+  // ReadBufferMode
+  //      GL_FRONT_LEFT
+  //      GL_FRONT_RIGHT
+  //      GL_BACK_LEFT
+  //      GL_BACK_RIGHT
+  //      GL_FRONT
+  //      GL_BACK
+  //      GL_LEFT
+  //      GL_RIGHT
+  //      GL_AUX0
+  //      GL_AUX1
+  //      GL_AUX2
+  //      GL_AUX3
+
+  // RenderingMode
+  GL_RENDER                         = $1C00;
+  GL_FEEDBACK                       = $1C01;
+  GL_SELECT                         = $1C02;
+
+  // ShadingModel
+  GL_FLAT                           = $1D00;
+  GL_SMOOTH                         = $1D01;
+
+  // StencilFunction
+  //      GL_NEVER
+  //      GL_LESS
+  //      GL_EQUAL
+  //      GL_LEQUAL
+  //      GL_GREATER
+  //      GL_NOTEQUAL
+  //      GL_GEQUAL
+  //      GL_ALWAYS
+
+  // StencilOp
+  //      GL_ZERO
+  GL_KEEP                           = $1E00;
+  GL_REPLACE                        = $1E01;
+  GL_INCR                           = $1E02;
+  GL_DECR                           = $1E03;
+  //      GL_INVERT
+
+  // StringName
+  GL_VENDOR                         = $1F00;
+  GL_RENDERER                       = $1F01;
+  GL_VERSION                        = $1F02;
+  GL_EXTENSIONS                     = $1F03;
+
+  // TextureCoordName
+  GL_S                              = $2000;
+  GL_T                              = $2001;
+  GL_R                              = $2002;
+  GL_Q                              = $2003;
+
+  // TexCoordPointerType
+  //      GL_SHORT
+  //      GL_INT
+  //      GL_FLOAT
+  //      GL_DOUBLE
+
+  // TextureEnvMode
+  GL_MODULATE                       = $2100;
+  GL_DECAL                          = $2101;
+  //      GL_BLEND
+  //      GL_REPLACE
+
+  // TextureEnvParameter
+  GL_TEXTURE_ENV_MODE               = $2200;
+  GL_TEXTURE_ENV_COLOR              = $2201;
+
+  // TextureEnvTarget
+  GL_TEXTURE_ENV                    = $2300;
+
+  // TextureGenMode
+  GL_EYE_LINEAR                     = $2400;
+  GL_OBJECT_LINEAR                  = $2401;
+  GL_SPHERE_MAP                     = $2402;
+
+  // TextureGenParameter
+  GL_TEXTURE_GEN_MODE               = $2500;
+  GL_OBJECT_PLANE                   = $2501;
+  GL_EYE_PLANE                      = $2502;
+
+  // TextureMagFilter
+  GL_NEAREST                        = $2600;
+  GL_LINEAR                         = $2601;
+
+  // TextureMinFilter
+  //      GL_NEAREST
+  //      GL_LINEAR
+  GL_NEAREST_MIPMAP_NEAREST         = $2700;
+  GL_LINEAR_MIPMAP_NEAREST          = $2701;
+  GL_NEAREST_MIPMAP_LINEAR          = $2702;
+  GL_LINEAR_MIPMAP_LINEAR           = $2703;
+
+  // TextureParameterName
+  GL_TEXTURE_MAG_FILTER             = $2800;
+  GL_TEXTURE_MIN_FILTER             = $2801;
+  GL_TEXTURE_WRAP_S                 = $2802;
+  GL_TEXTURE_WRAP_T                 = $2803;
+  //      GL_TEXTURE_BORDER_COLOR
+  //      GL_TEXTURE_PRIORITY
+
+  // TextureTarget
+  //      GL_TEXTURE_1D
+  //      GL_TEXTURE_2D
+  //      GL_PROXY_TEXTURE_1D
+  //      GL_PROXY_TEXTURE_2D
+
+  // TextureWrapMode
+  GL_CLAMP                          = $2900;
+  GL_REPEAT                         = $2901;
+
+  // VertexPointerType
+  //      GL_SHORT
+  //      GL_INT
+  //      GL_FLOAT
+  //      GL_DOUBLE
+
+  // ClientAttribMask
+  GL_CLIENT_PIXEL_STORE_BIT         = $00000001;
+  GL_CLIENT_VERTEX_ARRAY_BIT        = $00000002;
+  GL_CLIENT_ALL_ATTRIB_BITS         = $FFFFFFFF;
+
+  // polygon_offset
+  GL_POLYGON_OFFSET_FACTOR          = $8038;
+  GL_POLYGON_OFFSET_UNITS           = $2A00;
+  GL_POLYGON_OFFSET_POINT           = $2A01;
+  GL_POLYGON_OFFSET_LINE            = $2A02;
+  GL_POLYGON_OFFSET_FILL            = $8037;
+
+  // texture
+  GL_ALPHA4                         = $803B;
+  GL_ALPHA8                         = $803C;
+  GL_ALPHA12                        = $803D;
+  GL_ALPHA16                        = $803E;
+  GL_LUMINANCE4                     = $803F;
+  GL_LUMINANCE8                     = $8040;
+  GL_LUMINANCE12                    = $8041;
+  GL_LUMINANCE16                    = $8042;
+  GL_LUMINANCE4_ALPHA4              = $8043;
+  GL_LUMINANCE6_ALPHA2              = $8044;
+  GL_LUMINANCE8_ALPHA8              = $8045;
+  GL_LUMINANCE12_ALPHA4             = $8046;
+  GL_LUMINANCE12_ALPHA12            = $8047;
+  GL_LUMINANCE16_ALPHA16            = $8048;
+  GL_INTENSITY                      = $8049;
+  GL_INTENSITY4                     = $804A;
+  GL_INTENSITY8                     = $804B;
+  GL_INTENSITY12                    = $804C;
+  GL_INTENSITY16                    = $804D;
+  GL_R3_G3_B2                       = $2A10;
+  GL_RGB4                           = $804F;
+  GL_RGB5                           = $8050;
+  GL_RGB8                           = $8051;
+  GL_RGB10                          = $8052;
+  GL_RGB12                          = $8053;
+  GL_RGB16                          = $8054;
+  GL_RGBA2                          = $8055;
+  GL_RGBA4                          = $8056;
+  GL_RGB5_A1                        = $8057;
+  GL_RGBA8                          = $8058;
+  GL_RGB10_A2                       = $8059;
+  GL_RGBA12                         = $805A;
+  GL_RGBA16                         = $805B;
+  GL_TEXTURE_RED_SIZE               = $805C;
+  GL_TEXTURE_GREEN_SIZE             = $805D;
+  GL_TEXTURE_BLUE_SIZE              = $805E;
+  GL_TEXTURE_ALPHA_SIZE             = $805F;
+  GL_TEXTURE_LUMINANCE_SIZE         = $8060;
+  GL_TEXTURE_INTENSITY_SIZE         = $8061;
+  GL_PROXY_TEXTURE_1D               = $8063;
+  GL_PROXY_TEXTURE_2D               = $8064;
+
+  // texture_object
+  GL_TEXTURE_PRIORITY               = $8066;
+  GL_TEXTURE_RESIDENT               = $8067;
+  GL_TEXTURE_BINDING_1D             = $8068;
+  GL_TEXTURE_BINDING_2D             = $8069;
+
+  // vertex_array
+  GL_VERTEX_ARRAY                   = $8074;
+  GL_NORMAL_ARRAY                   = $8075;
+  GL_COLOR_ARRAY                    = $8076;
+  GL_INDEX_ARRAY                    = $8077;
+  GL_TEXTURE_COORD_ARRAY            = $8078;
+  GL_EDGE_FLAG_ARRAY                = $8079;
+  GL_VERTEX_ARRAY_SIZE              = $807A;
+  GL_VERTEX_ARRAY_TYPE              = $807B;
+  GL_VERTEX_ARRAY_STRIDE            = $807C;
+  GL_NORMAL_ARRAY_TYPE              = $807E;
+  GL_NORMAL_ARRAY_STRIDE            = $807F;
+  GL_COLOR_ARRAY_SIZE               = $8081;
+  GL_COLOR_ARRAY_TYPE               = $8082;
+  GL_COLOR_ARRAY_STRIDE             = $8083;
+  GL_INDEX_ARRAY_TYPE               = $8085;
+  GL_INDEX_ARRAY_STRIDE             = $8086;
+  GL_TEXTURE_COORD_ARRAY_SIZE       = $8088;
+  GL_TEXTURE_COORD_ARRAY_TYPE       = $8089;
+  GL_TEXTURE_COORD_ARRAY_STRIDE     = $808A;
+  GL_EDGE_FLAG_ARRAY_STRIDE         = $808C;
+  GL_VERTEX_ARRAY_POINTER           = $808E;
+  GL_NORMAL_ARRAY_POINTER           = $808F;
+  GL_COLOR_ARRAY_POINTER            = $8090;
+  GL_INDEX_ARRAY_POINTER            = $8091;
+  GL_TEXTURE_COORD_ARRAY_POINTER    = $8092;
+  GL_EDGE_FLAG_ARRAY_POINTER        = $8093;
+  GL_V2F                            = $2A20;
+  GL_V3F                            = $2A21;
+  GL_C4UB_V2F                       = $2A22;
+  GL_C4UB_V3F                       = $2A23;
+  GL_C3F_V3F                        = $2A24;
+  GL_N3F_V3F                        = $2A25;
+  GL_C4F_N3F_V3F                    = $2A26;
+  GL_T2F_V3F                        = $2A27;
+  GL_T4F_V4F                        = $2A28;
+  GL_T2F_C4UB_V3F                   = $2A29;
+  GL_T2F_C3F_V3F                    = $2A2A;
+  GL_T2F_N3F_V3F                    = $2A2B;
+  GL_T2F_C4F_N3F_V3F                = $2A2C;
+  GL_T4F_C4F_N3F_V4F                = $2A2D;
+
+  // Extensions
+  GL_EXT_vertex_array               = 1;
+  GL_WIN_swap_hint                  = 1;
+  GL_EXT_bgra                       = 1;
+  GL_EXT_paletted_texture           = 1;
+
+  // EXT_vertex_array
+  GL_VERTEX_ARRAY_EXT               = $8074;
+  GL_NORMAL_ARRAY_EXT               = $8075;
+  GL_COLOR_ARRAY_EXT                = $8076;
+  GL_INDEX_ARRAY_EXT                = $8077;
+  GL_TEXTURE_COORD_ARRAY_EXT        = $8078;
+  GL_EDGE_FLAG_ARRAY_EXT            = $8079;
+  GL_VERTEX_ARRAY_SIZE_EXT          = $807A;
+  GL_VERTEX_ARRAY_TYPE_EXT          = $807B;
+  GL_VERTEX_ARRAY_STRIDE_EXT        = $807C;
+  GL_VERTEX_ARRAY_COUNT_EXT         = $807D;
+  GL_NORMAL_ARRAY_TYPE_EXT          = $807E;
+  GL_NORMAL_ARRAY_STRIDE_EXT        = $807F;
+  GL_NORMAL_ARRAY_COUNT_EXT         = $8080;
+  GL_COLOR_ARRAY_SIZE_EXT           = $8081;
+  GL_COLOR_ARRAY_TYPE_EXT           = $8082;
+  GL_COLOR_ARRAY_STRIDE_EXT         = $8083;
+  GL_COLOR_ARRAY_COUNT_EXT          = $8084;
+  GL_INDEX_ARRAY_TYPE_EXT           = $8085;
+  GL_INDEX_ARRAY_STRIDE_EXT         = $8086;
+  GL_INDEX_ARRAY_COUNT_EXT          = $8087;
+  GL_TEXTURE_COORD_ARRAY_SIZE_EXT   = $8088;
+  GL_TEXTURE_COORD_ARRAY_TYPE_EXT   = $8089;
+  GL_TEXTURE_COORD_ARRAY_STRIDE_EXT = $808A;
+  GL_TEXTURE_COORD_ARRAY_COUNT_EXT  = $808B;
+  GL_EDGE_FLAG_ARRAY_STRIDE_EXT     = $808C;
+  GL_EDGE_FLAG_ARRAY_COUNT_EXT      = $808D;
+  GL_VERTEX_ARRAY_POINTER_EXT       = $808E;
+  GL_NORMAL_ARRAY_POINTER_EXT       = $808F;
+  GL_COLOR_ARRAY_POINTER_EXT        = $8090;
+  GL_INDEX_ARRAY_POINTER_EXT        = $8091;
+  GL_TEXTURE_COORD_ARRAY_POINTER_EXT = $8092;
+  GL_EDGE_FLAG_ARRAY_POINTER_EXT    = $8093;
+  GL_DOUBLE_EXT                     = GL_DOUBLE;
+
+  // EXT_bgra 
+  GL_BGR_EXT                        = $80E0;
+  GL_BGRA_EXT                       = $80E1;
+
+  // EXT_paletted_texture
+
+  // These must match the GL_COLOR_TABLE_*_SGI enumerants
+  GL_COLOR_TABLE_FORMAT_EXT         = $80D8;
+  GL_COLOR_TABLE_WIDTH_EXT          = $80D9;
+  GL_COLOR_TABLE_RED_SIZE_EXT       = $80DA;
+  GL_COLOR_TABLE_GREEN_SIZE_EXT     = $80DB;
+  GL_COLOR_TABLE_BLUE_SIZE_EXT      = $80DC;
+  GL_COLOR_TABLE_ALPHA_SIZE_EXT     = $80DD;
+  GL_COLOR_TABLE_LUMINANCE_SIZE_EXT = $80DE;
+  GL_COLOR_TABLE_INTENSITY_SIZE_EXT = $80DF;
+
+  GL_COLOR_INDEX1_EXT               = $80E2;
+  GL_COLOR_INDEX2_EXT               = $80E3;
+  GL_COLOR_INDEX4_EXT               = $80E4;
+  GL_COLOR_INDEX8_EXT               = $80E5;
+  GL_COLOR_INDEX12_EXT              = $80E6;
+  GL_COLOR_INDEX16_EXT              = $80E7;
+
+  // For compatibility with OpenGL v1.0
+  GL_LOGIC_OP                       = GL_INDEX_LOGIC_OP;
+  GL_TEXTURE_COMPONENTS             = GL_TEXTURE_INTERNAL_FORMAT;
+
+{******************************************************************************}
+
+var
+  glAccum: procedure(op: GLenum; value: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glAlphaFunc: procedure(func: GLenum; ref: GLclampf); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glAreTexturesResident: function (n: GLsizei; const textures: PGLuint; residences: PGLboolean): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glArrayElement: procedure(i: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glBegin: procedure(mode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glBindTexture: procedure(target: GLenum; texture: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glBitmap: procedure (width, height: GLsizei; xorig, yorig: GLfloat; xmove, ymove: GLfloat; const bitmap: PGLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glBlendFunc: procedure(sfactor, dfactor: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glCallList: procedure(list: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glCallLists: procedure(n: GLsizei; atype: GLenum; const lists: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glClear: procedure(mask: GLbitfield); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glClearAccum: procedure(red, green, blue, alpha: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glClearColor: procedure(red, green, blue, alpha: GLclampf); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glClearDepth: procedure(depth: GLclampd); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glClearIndex: procedure(c: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glClearStencil: procedure(s: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glClipPlane: procedure(plane: GLenum; const equation: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor3b: procedure(red, green, blue: GLbyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor3bv: procedure(const v: PGLbyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor3d: procedure(red, green, blue: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor3dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor3f: procedure(red, green, blue: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor3fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor3i: procedure(red, green, blue: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor3iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor3s: procedure(red, green, blue: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor3sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor3ub: procedure(red, green, blue: GLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor3ubv: procedure(const v: PGLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor3ui: procedure(red, green, blue: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor3uiv: procedure(const v: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor3us: procedure(red, green, blue: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor3usv: procedure(const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor4b: procedure(red, green, blue, alpha: GLbyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor4bv: procedure(const v: PGLbyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor4d: procedure(red, green, blue, alpha: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor4dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor4f: procedure(red, green, blue, alpha: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor4fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor4i: procedure(red, green, blue, alpha: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor4iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor4s: procedure(red, green, blue, alpha: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor4sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor4ub: procedure(red, green, blue, alpha: GLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor4ubv: procedure(const v: PGLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor4ui: procedure(red, green, blue, alpha: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor4uiv: procedure(const v: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor4us: procedure(red, green, blue, alpha: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColor4usv: procedure(const v: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColorMask: procedure(red, green, blue, alpha: GLboolean); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColorMaterial: procedure(face, mode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glColorPointer: procedure(size: GLint; atype: GLenum; stride: GLsizei; const pointer: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glCopyPixels: procedure(x, y: GLint; width, height: GLsizei; atype: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glCopyTexImage1D: procedure (target: GLenum; level: GLint; internalFormat: GLenum; x, y: GLint; width: GLsizei; border: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glCopyTexImage2D: procedure(target: GLenum; level: GLint; internalFormat: GLenum; x, y: GLint; width, height: GLsizei; border: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glCopyTexSubImage1D: procedure(target: GLenum; level, xoffset, x, y: GLint; width: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glCopyTexSubImage2D: procedure(target: GLenum; level, xoffset, yoffset, x, y: GLint; width, height: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glCullFace: procedure(mode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glDeleteLists: procedure(list: GLuint; range: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glDeleteTextures: procedure(n: GLsizei; const textures: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glDepthFunc: procedure(func: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glDepthMask: procedure(flag: GLboolean); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glDepthRange: procedure(zNear, zFar: GLclampd); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glDisable: procedure(cap: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glDisableClientState: procedure(aarray: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glDrawArrays: procedure(mode: GLenum; first: GLint; count: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glDrawBuffer: procedure(mode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glDrawElements: procedure(mode: GLenum; count: GLsizei; atype: GLenum; const indices: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glDrawPixels: procedure(width, height: GLsizei; format, atype: GLenum; const pixels: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glEdgeFlag: procedure(flag: GLboolean); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glEdgeFlagPointer: procedure(stride: GLsizei; const pointer: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glEdgeFlagv: procedure(const flag: PGLboolean); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glEnable: procedure(cap: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glEnableClientState: procedure(aarray: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glEnd: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glEndList: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glEvalCoord1d: procedure(u: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glEvalCoord1dv: procedure(const u: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glEvalCoord1f: procedure(u: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glEvalCoord1fv: procedure(const u: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glEvalCoord2d: procedure(u, v: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glEvalCoord2dv: procedure(const u: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glEvalCoord2f: procedure(u, v: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glEvalCoord2fv: procedure(const u: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glEvalMesh1: procedure(mode: GLenum; i1, i2: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glEvalMesh2: procedure(mode: GLenum; i1, i2, j1, j2: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glEvalPoint1: procedure(i: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glEvalPoint2: procedure(i, j: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glFeedbackBuffer: procedure(size: GLsizei; atype: GLenum; buffer: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glFinish: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glFlush: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glFogf: procedure(pname: GLenum; param: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glFogfv: procedure(pname: GLenum; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glFogi: procedure(pname: GLenum; param: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glFogiv: procedure(pname: GLenum; const params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glFrontFace: procedure(mode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glFrustum: procedure(left, right, bottom, top, zNear, zFar: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGenLists: function(range: GLsizei): GLuint; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGenTextures: procedure(n: GLsizei; textures: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetBooleanv: procedure(pname: GLenum; params: PGLboolean); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetClipPlane: procedure(plane: GLenum; equation: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetDoublev: procedure(pname: GLenum; params: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetError: function: GLenum; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetFloatv: procedure(pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetIntegerv: procedure(pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetLightfv: procedure(light, pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetLightiv: procedure(light, pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetMapdv: procedure(target, query: GLenum; v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetMapfv: procedure(target, query: GLenum; v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetMapiv: procedure(target, query: GLenum; v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetMaterialfv: procedure(face, pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetMaterialiv: procedure(face, pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetPixelMapfv: procedure(map: GLenum; values: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetPixelMapuiv: procedure(map: GLenum; values: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetPixelMapusv: procedure(map: GLenum; values: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetPointerv: procedure(pname: GLenum; params: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetPolygonStipple: procedure(mask: PGLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetString: function(name: GLenum): PChar; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetTexEnvfv: procedure(target, pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetTexEnviv: procedure(target, pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetTexGendv: procedure(coord, pname: GLenum; params: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetTexGenfv: procedure(coord, pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetTexGeniv: procedure(coord, pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetTexImage: procedure(target: GLenum; level: GLint; format: GLenum; atype: GLenum; pixels: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetTexLevelParameterfv: procedure(target: GLenum; level: GLint; pname: GLenum; params: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetTexLevelParameteriv: procedure(target: GLenum; level: GLint; pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetTexParameterfv: procedure(target, pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glGetTexParameteriv: procedure(target, pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glHint: procedure(target, mode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glIndexMask: procedure(mask: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glIndexPointer: procedure(atype: GLenum; stride: GLsizei; const pointer: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glIndexd: procedure(c: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glIndexdv: procedure(const c: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glIndexf: procedure(c: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glIndexfv: procedure(const c: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glIndexi: procedure(c: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glIndexiv: procedure(const c: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glIndexs: procedure(c: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glIndexsv: procedure(const c: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glIndexub: procedure(c: GLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glIndexubv: procedure(const c: PGLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glInitNames: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glInterleavedArrays: procedure(format: GLenum; stride: GLsizei; const pointer: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glIsEnabled: function(cap: GLenum): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glIsList: function(list: GLuint): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glIsTexture: function(texture: GLuint): GLboolean; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glLightModelf: procedure(pname: GLenum; param: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glLightModelfv: procedure(pname: GLenum; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glLightModeli: procedure(pname: GLenum; param: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glLightModeliv: procedure(pname: GLenum; const params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glLightf: procedure(light, pname: GLenum; param: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glLightfv: procedure(light, pname: GLenum; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glLighti: procedure(light, pname: GLenum; param: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glLightiv: procedure(light, pname: GLenum; const params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glLineStipple: procedure(factor: GLint; pattern: GLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glLineWidth: procedure(width: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glListBase: procedure(base: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glLoadIdentity: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glLoadMatrixd: procedure(const m: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glLoadMatrixf: procedure(const m: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glLoadName: procedure(name: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glLogicOp: procedure(opcode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glMap1d: procedure(target: GLenum; u1, u2: GLdouble; stride, order: GLint; const points: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glMap1f: procedure(target: GLenum; u1, u2: GLfloat; stride, order: GLint; const points: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glMap2d: procedure(target: GLenum; u1, u2: GLdouble; ustride, uorder: GLint; v1, v2: GLdouble; vstride, vorder: GLint; const points: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glMap2f: procedure(target: GLenum; u1, u2: GLfloat; ustride, uorder: GLint; v1, v2: GLfloat; vstride, vorder: GLint; const points: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glMapGrid1d: procedure(un: GLint; u1, u2: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glMapGrid1f: procedure(un: GLint; u1, u2: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glMapGrid2d: procedure(un: GLint; u1, u2: GLdouble; vn: GLint; v1, v2: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glMapGrid2f: procedure(un: GLint; u1, u2: GLfloat; vn: GLint; v1, v2: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glMaterialf: procedure(face, pname: GLenum; param: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glMaterialfv: procedure(face, pname: GLenum; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glMateriali: procedure(face, pname: GLenum; param: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glMaterialiv: procedure(face, pname: GLenum; const params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glMatrixMode: procedure(mode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glMultMatrixd: procedure(const m: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glMultMatrixf: procedure(const m: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glNewList: procedure(list: GLuint; mode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glNormal3b: procedure(nx, ny, nz: GLbyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glNormal3bv: procedure(const v: PGLbyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glNormal3d: procedure(nx, ny, nz: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glNormal3dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glNormal3f: procedure(nx, ny, nz: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glNormal3fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glNormal3i: procedure(nx, ny, nz: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glNormal3iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glNormal3s: procedure(nx, ny, nz: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glNormal3sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glNormalPointer: procedure(atype: GLenum; stride: GLsizei; const pointer: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glOrtho: procedure(left, right, bottom, top, zNear, zFar: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glPassThrough: procedure(token: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glPixelMapfv: procedure(map: GLenum; mapsize: GLsizei; const values: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glPixelMapuiv: procedure(map: GLenum; mapsize: GLsizei; const values: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glPixelMapusv: procedure(map: GLenum; mapsize: GLsizei; const values: PGLushort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glPixelStoref: procedure(pname: GLenum; param: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glPixelStorei: procedure(pname: GLenum; param: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glPixelTransferf: procedure(pname: GLenum; param: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glPixelTransferi: procedure(pname: GLenum; param: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glPixelZoom: procedure(xfactor, yfactor: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glPointSize: procedure(size: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glPolygonMode: procedure(face, mode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glPolygonOffset: procedure(factor, units: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glPolygonStipple: procedure(const mask: PGLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glPopAttrib: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glPopClientAttrib: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glPopMatrix: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glPopName: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glPrioritizeTextures: procedure(n: GLsizei; const textures: PGLuint; const priorities: PGLclampf); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glPushAttrib: procedure(mask: GLbitfield); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glPushClientAttrib: procedure(mask: GLbitfield); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glPushMatrix: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glPushName: procedure(name: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRasterPos2d: procedure(x, y: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRasterPos2dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRasterPos2f: procedure(x, y: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRasterPos2fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRasterPos2i: procedure(x, y: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRasterPos2iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRasterPos2s: procedure(x, y: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRasterPos2sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRasterPos3d: procedure(x, y, z: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRasterPos3dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRasterPos3f: procedure(x, y, z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRasterPos3fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRasterPos3i: procedure(x, y, z: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRasterPos3iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRasterPos3s: procedure(x, y, z: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRasterPos3sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRasterPos4d: procedure(x, y, z, w: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRasterPos4dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRasterPos4f: procedure(x, y, z, w: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRasterPos4fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRasterPos4i: procedure(x, y, z, w: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRasterPos4iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRasterPos4s: procedure(x, y, z, w: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRasterPos4sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glReadBuffer: procedure(mode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glReadPixels: procedure(x, y: GLint; width, height: GLsizei; format, atype: GLenum; pixels: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRectd: procedure(x1, y1, x2, y2: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRectdv: procedure(const v1: PGLdouble; const v2: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRectf: procedure(x1, y1, x2, y2: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRectfv: procedure(const v1: PGLfloat; const v2: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRecti: procedure(x1, y1, x2, y2: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRectiv: procedure(const v1: PGLint; const v2: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRects: procedure(x1, y1, x2, y2: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRectsv: procedure(const v1: PGLshort; const v2: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRenderMode: function(mode: GLint): GLint; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRotated: procedure(angle, x, y, z: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glRotatef: procedure(angle, x, y, z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glScaled: procedure(x, y, z: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glScalef: procedure(x, y, z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glScissor: procedure(x, y: GLint; width, height: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glSelectBuffer: procedure(size: GLsizei; buffer: PGLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glShadeModel: procedure(mode: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glStencilFunc: procedure(func: GLenum; ref: GLint; mask: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glStencilMask: procedure(mask: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glStencilOp: procedure(fail, zfail, zpass: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord1d: procedure(s: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord1dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord1f: procedure(s: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord1fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord1i: procedure(s: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord1iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord1s: procedure(s: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord1sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord2d: procedure(s, t: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord2dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord2f: procedure(s, t: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord2fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord2i: procedure(s, t: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord2iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord2s: procedure(s, t: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord2sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord3d: procedure(s, t, r: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord3dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord3f: procedure(s, t, r: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord3fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord3i: procedure(s, t, r: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord3iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord3s: procedure(s, t, r: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord3sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord4d: procedure(s, t, r, q: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord4dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord4f: procedure(s, t, r, q: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord4fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord4i: procedure(s, t, r, q: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord4iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord4s: procedure(s, t, r, q: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoord4sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexCoordPointer: procedure(size: GLint; atype: GLenum; stride: GLsizei; const pointer: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexEnvf: procedure(target: GLenum; pname: GLenum; param: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexEnvfv: procedure(target: GLenum; pname: GLenum; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexEnvi: procedure(target: GLenum; pname: GLenum; param: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexEnviv: procedure(target: GLenum; pname: GLenum; const params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexGend: procedure(coord: GLenum; pname: GLenum; param: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexGendv: procedure(coord: GLenum; pname: GLenum; const params: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexGenf: procedure(coord: GLenum; pname: GLenum; param: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexGenfv: procedure(coord: GLenum; pname: GLenum; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexGeni: procedure(coord: GLenum; pname: GLenum; param: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexGeniv: procedure(coord: GLenum; pname: GLenum; const params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexImage1D: procedure(target: GLenum; level, internalformat: GLint; width: GLsizei; border: GLint; format, atype: GLenum; const pixels: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexImage2D: procedure(target: GLenum; level, internalformat: GLint; width, height: GLsizei; border: GLint; format, atype: GLenum; const pixels: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexParameterf: procedure(target: GLenum; pname: GLenum; param: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexParameterfv: procedure(target: GLenum; pname: GLenum; const params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexParameteri: procedure(target: GLenum; pname: GLenum; param: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexParameteriv: procedure(target: GLenum; pname: GLenum; const params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexSubImage1D: procedure(target: GLenum; level, xoffset: GLint; width: GLsizei; format, atype: GLenum; const pixels: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTexSubImage2D: procedure(target: GLenum; level, xoffset, yoffset: GLint; width, height: GLsizei; format, atype: GLenum; const pixels: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTranslated: procedure(x, y, z: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glTranslatef: procedure(x, y, z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glVertex2d: procedure(x, y: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glVertex2dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glVertex2f: procedure(x, y: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glVertex2fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glVertex2i: procedure(x, y: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glVertex2iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glVertex2s: procedure(x, y: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glVertex2sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glVertex3d: procedure(x, y, z: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glVertex3dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glVertex3f: procedure(x, y, z: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glVertex3fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glVertex3i: procedure(x, y, z: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glVertex3iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glVertex3s: procedure(x, y, z: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glVertex3sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glVertex4d: procedure(x, y, z, w: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glVertex4dv: procedure(const v: PGLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glVertex4f: procedure(x, y, z, w: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glVertex4fv: procedure(const v: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glVertex4i: procedure(x, y, z, w: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glVertex4iv: procedure(const v: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glVertex4s: procedure(x, y, z, w: GLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glVertex4sv: procedure(const v: PGLshort); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glVertexPointer: procedure(size: GLint; atype: GLenum; stride: GLsizei; const pointer: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glViewport: procedure(x, y: GLint; width, height: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  {$IFDEF WINDOWS}
+  ChoosePixelFormat: function(DC: HDC; p2: PPixelFormatDescriptor): Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  {$ENDIF}
+
+type
+  // EXT_vertex_array
+  PFNGLARRAYELEMENTEXTPROC = procedure(i: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  PFNGLDRAWARRAYSEXTPROC = procedure(mode: GLenum; first: GLint; count: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  PFNGLVERTEXPOINTEREXTPROC = procedure(size: GLint; atype: GLenum;
+                                        stride, count: GLsizei; const pointer: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  PFNGLNORMALPOINTEREXTPROC = procedure(atype: GLenum; stride, count: GLsizei;
+                                        const pointer: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  PFNGLCOLORPOINTEREXTPROC = procedure(size: GLint; atype: GLenum; stride, count: GLsizei;
+                                       const pointer: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  PFNGLINDEXPOINTEREXTPROC = procedure(atype: GLenum; stride, count: GLsizei;
+                                       const pointer: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  PFNGLTEXCOORDPOINTEREXTPROC = procedure(size: GLint; atype: GLenum;
+                                          stride, count: GLsizei; const pointer: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  PFNGLEDGEFLAGPOINTEREXTPROC = procedure(stride, count: GLsizei;
+                                          const pointer: PGLboolean); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  PFNGLGETPOINTERVEXTPROC = procedure(pname: GLenum; params: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  PFNGLARRAYELEMENTARRAYEXTPROC = procedure(mode: GLenum; count: GLsizei;
+                                            const pi: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+
+  // WIN_swap_hint
+  PFNGLADDSWAPHINTRECTWINPROC = procedure(x, y: GLint; width, height: GLsizei); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+
+  // EXT_paletted_texture
+  PFNGLCOLORTABLEEXTPROC = procedure(target, internalFormat: GLenum; width: GLsizei;
+                                     format, atype: GLenum; const data: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  PFNGLCOLORSUBTABLEEXTPROC = procedure(target: GLenum; start, count: GLsizei;
+                                        format, atype: GLenum; const data: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  PFNGLGETCOLORTABLEEXTPROC = procedure(target, format, atype: GLenum; data: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  PFNGLGETCOLORTABLEPARAMETERIVEXTPROC = procedure(target, pname: GLenum; params: PGLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  PFNGLGETCOLORTABLEPARAMETERFVEXTPROC = procedure(target, pname: GLenum; params: PGLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+
+procedure LoadOpenGL( const dll: PChar );
+procedure FreeOpenGL;
+
+implementation
+
+procedure FreeOpenGL;
+begin
+
+  @glAccum := nil;
+  @glAlphaFunc := nil;
+  @glAreTexturesResident := nil;
+  @glArrayElement := nil;
+  @glBegin := nil;
+  @glBindTexture := nil;
+  @glBitmap := nil;
+  @glBlendFunc := nil;
+  @glCallList := nil;
+  @glCallLists := nil;
+  @glClear := nil;
+  @glClearAccum := nil;
+  @glClearColor := nil;
+  @glClearDepth := nil;
+  @glClearIndex := nil;
+  @glClearStencil := nil;
+  @glClipPlane := nil;
+  @glColor3b := nil;
+  @glColor3bv := nil;
+  @glColor3d := nil;
+  @glColor3dv := nil;
+  @glColor3f := nil;
+  @glColor3fv := nil;
+  @glColor3i := nil;
+  @glColor3iv := nil;
+  @glColor3s := nil;
+  @glColor3sv := nil;
+  @glColor3ub := nil;
+  @glColor3ubv := nil;
+  @glColor3ui := nil;
+  @glColor3uiv := nil;
+  @glColor3us := nil;
+  @glColor3usv := nil;
+  @glColor4b := nil;
+  @glColor4bv := nil;
+  @glColor4d := nil;
+  @glColor4dv := nil;
+  @glColor4f := nil;
+  @glColor4fv := nil;
+  @glColor4i := nil;
+  @glColor4iv := nil;
+  @glColor4s := nil;
+  @glColor4sv := nil;
+  @glColor4ub := nil;
+  @glColor4ubv := nil;
+  @glColor4ui := nil;
+  @glColor4uiv := nil;
+  @glColor4us := nil;
+  @glColor4usv := nil;
+  @glColorMask := nil;
+  @glColorMaterial := nil;
+  @glColorPointer := nil;
+  @glCopyPixels := nil;
+  @glCopyTexImage1D := nil;
+  @glCopyTexImage2D := nil;
+  @glCopyTexSubImage1D := nil;
+  @glCopyTexSubImage2D := nil;
+  @glCullFace := nil;
+  @glDeleteLists := nil;
+  @glDeleteTextures := nil;
+  @glDepthFunc := nil;
+  @glDepthMask := nil;
+  @glDepthRange := nil;
+  @glDisable := nil;
+  @glDisableClientState := nil;
+  @glDrawArrays := nil;
+  @glDrawBuffer := nil;
+  @glDrawElements := nil;
+  @glDrawPixels := nil;
+  @glEdgeFlag := nil;
+  @glEdgeFlagPointer := nil;
+  @glEdgeFlagv := nil;
+  @glEnable := nil;
+  @glEnableClientState := nil;
+  @glEnd := nil;
+  @glEndList := nil;
+  @glEvalCoord1d := nil;
+  @glEvalCoord1dv := nil;
+  @glEvalCoord1f := nil;
+  @glEvalCoord1fv := nil;
+  @glEvalCoord2d := nil;
+  @glEvalCoord2dv := nil;
+  @glEvalCoord2f := nil;
+  @glEvalCoord2fv := nil;
+  @glEvalMesh1 := nil;
+  @glEvalMesh2 := nil;
+  @glEvalPoint1 := nil;
+  @glEvalPoint2 := nil;
+  @glFeedbackBuffer := nil;
+  @glFinish := nil;
+  @glFlush := nil;
+  @glFogf := nil;
+  @glFogfv := nil;
+  @glFogi := nil;
+  @glFogiv := nil;
+  @glFrontFace := nil;
+  @glFrustum := nil;
+  @glGenLists := nil;
+  @glGenTextures := nil;
+  @glGetBooleanv := nil;
+  @glGetClipPlane := nil;
+  @glGetDoublev := nil;
+  @glGetError := nil;
+  @glGetFloatv := nil;
+  @glGetIntegerv := nil;
+  @glGetLightfv := nil;
+  @glGetLightiv := nil;
+  @glGetMapdv := nil;
+  @glGetMapfv := nil;
+  @glGetMapiv := nil;
+  @glGetMaterialfv := nil;
+  @glGetMaterialiv := nil;
+  @glGetPixelMapfv := nil;
+  @glGetPixelMapuiv := nil;
+  @glGetPixelMapusv := nil;
+  @glGetPointerv := nil;
+  @glGetPolygonStipple := nil;
+  @glGetString := nil;
+  @glGetTexEnvfv := nil;
+  @glGetTexEnviv := nil;
+  @glGetTexGendv := nil;
+  @glGetTexGenfv := nil;
+  @glGetTexGeniv := nil;
+  @glGetTexImage := nil;
+  @glGetTexLevelParameterfv := nil;
+  @glGetTexLevelParameteriv := nil;
+  @glGetTexParameterfv := nil;
+  @glGetTexParameteriv := nil;
+  @glHint := nil;
+  @glIndexMask := nil;
+  @glIndexPointer := nil;
+  @glIndexd := nil;
+  @glIndexdv := nil;
+  @glIndexf := nil;
+  @glIndexfv := nil;
+  @glIndexi := nil;
+  @glIndexiv := nil;
+  @glIndexs := nil;
+  @glIndexsv := nil;
+  @glIndexub := nil;
+  @glIndexubv := nil;
+  @glInitNames := nil;
+  @glInterleavedArrays := nil;
+  @glIsEnabled := nil;
+  @glIsList := nil;
+  @glIsTexture := nil;
+  @glLightModelf := nil;
+  @glLightModelfv := nil;
+  @glLightModeli := nil;
+  @glLightModeliv := nil;
+  @glLightf := nil;
+  @glLightfv := nil;
+  @glLighti := nil;
+  @glLightiv := nil;
+  @glLineStipple := nil;
+  @glLineWidth := nil;
+  @glListBase := nil;
+  @glLoadIdentity := nil;
+  @glLoadMatrixd := nil;
+  @glLoadMatrixf := nil;
+  @glLoadName := nil;
+  @glLogicOp := nil;
+  @glMap1d := nil;
+  @glMap1f := nil;
+  @glMap2d := nil;
+  @glMap2f := nil;
+  @glMapGrid1d := nil;
+  @glMapGrid1f := nil;
+  @glMapGrid2d := nil;
+  @glMapGrid2f := nil;
+  @glMaterialf := nil;
+  @glMaterialfv := nil;
+  @glMateriali := nil;
+  @glMaterialiv := nil;
+  @glMatrixMode := nil;
+  @glMultMatrixd := nil;
+  @glMultMatrixf := nil;
+  @glNewList := nil;
+  @glNormal3b := nil;
+  @glNormal3bv := nil;
+  @glNormal3d := nil;
+  @glNormal3dv := nil;
+  @glNormal3f := nil;
+  @glNormal3fv := nil;
+  @glNormal3i := nil;
+  @glNormal3iv := nil;
+  @glNormal3s := nil;
+  @glNormal3sv := nil;
+  @glNormalPointer := nil;
+  @glOrtho := nil;
+  @glPassThrough := nil;
+  @glPixelMapfv := nil;
+  @glPixelMapuiv := nil;
+  @glPixelMapusv := nil;
+  @glPixelStoref := nil;
+  @glPixelStorei := nil;
+  @glPixelTransferf := nil;
+  @glPixelTransferi := nil;
+  @glPixelZoom := nil;
+  @glPointSize := nil;
+  @glPolygonMode := nil;
+  @glPolygonOffset := nil;
+  @glPolygonStipple := nil;
+  @glPopAttrib := nil;
+  @glPopClientAttrib := nil;
+  @glPopMatrix := nil;
+  @glPopName := nil;
+  @glPrioritizeTextures := nil;
+  @glPushAttrib := nil;
+  @glPushClientAttrib := nil;
+  @glPushMatrix := nil;
+  @glPushName := nil;
+  @glRasterPos2d := nil;
+  @glRasterPos2dv := nil;
+  @glRasterPos2f := nil;
+  @glRasterPos2fv := nil;
+  @glRasterPos2i := nil;
+  @glRasterPos2iv := nil;
+  @glRasterPos2s := nil;
+  @glRasterPos2sv := nil;
+  @glRasterPos3d := nil;
+  @glRasterPos3dv := nil;
+  @glRasterPos3f := nil;
+  @glRasterPos3fv := nil;
+  @glRasterPos3i := nil;
+  @glRasterPos3iv := nil;
+  @glRasterPos3s := nil;
+  @glRasterPos3sv := nil;
+  @glRasterPos4d := nil;
+  @glRasterPos4dv := nil;
+  @glRasterPos4f := nil;
+  @glRasterPos4fv := nil;
+  @glRasterPos4i := nil;
+  @glRasterPos4iv := nil;
+  @glRasterPos4s := nil;
+  @glRasterPos4sv := nil;
+  @glReadBuffer := nil;
+  @glReadPixels := nil;
+  @glRectd := nil;
+  @glRectdv := nil;
+  @glRectf := nil;
+  @glRectfv := nil;
+  @glRecti := nil;
+  @glRectiv := nil;
+  @glRects := nil;
+  @glRectsv := nil;
+  @glRenderMode := nil;
+  @glRotated := nil;
+  @glRotatef := nil;
+  @glScaled := nil;
+  @glScalef := nil;
+  @glScissor := nil;
+  @glSelectBuffer := nil;
+  @glShadeModel := nil;
+  @glStencilFunc := nil;
+  @glStencilMask := nil;
+  @glStencilOp := nil;
+  @glTexCoord1d := nil;
+  @glTexCoord1dv := nil;
+  @glTexCoord1f := nil;
+  @glTexCoord1fv := nil;
+  @glTexCoord1i := nil;
+  @glTexCoord1iv := nil;
+  @glTexCoord1s := nil;
+  @glTexCoord1sv := nil;
+  @glTexCoord2d := nil;
+  @glTexCoord2dv := nil;
+  @glTexCoord2f := nil;
+  @glTexCoord2fv := nil;
+  @glTexCoord2i := nil;
+  @glTexCoord2iv := nil;
+  @glTexCoord2s := nil;
+  @glTexCoord2sv := nil;
+  @glTexCoord3d := nil;
+  @glTexCoord3dv := nil;
+  @glTexCoord3f := nil;
+  @glTexCoord3fv := nil;
+  @glTexCoord3i := nil;
+  @glTexCoord3iv := nil;
+  @glTexCoord3s := nil;
+  @glTexCoord3sv := nil;
+  @glTexCoord4d := nil;
+  @glTexCoord4dv := nil;
+  @glTexCoord4f := nil;
+  @glTexCoord4fv := nil;
+  @glTexCoord4i := nil;
+  @glTexCoord4iv := nil;
+  @glTexCoord4s := nil;
+  @glTexCoord4sv := nil;
+  @glTexCoordPointer := nil;
+  @glTexEnvf := nil;
+  @glTexEnvfv := nil;
+  @glTexEnvi := nil;
+  @glTexEnviv := nil;
+  @glTexGend := nil;
+  @glTexGendv := nil;
+  @glTexGenf := nil;
+  @glTexGenfv := nil;
+  @glTexGeni := nil;
+  @glTexGeniv := nil;
+  @glTexImage1D := nil;
+  @glTexImage2D := nil;
+  @glTexParameterf := nil;
+  @glTexParameterfv := nil;
+  @glTexParameteri := nil;
+  @glTexParameteriv := nil;
+  @glTexSubImage1D := nil;
+  @glTexSubImage2D := nil;
+  @glTranslated := nil;
+  @glTranslatef := nil;
+  @glVertex2d := nil;
+  @glVertex2dv := nil;
+  @glVertex2f := nil;
+  @glVertex2fv := nil;
+  @glVertex2i := nil;
+  @glVertex2iv := nil;
+  @glVertex2s := nil;
+  @glVertex2sv := nil;
+  @glVertex3d := nil;
+  @glVertex3dv := nil;
+  @glVertex3f := nil;
+  @glVertex3fv := nil;
+  @glVertex3i := nil;
+  @glVertex3iv := nil;
+  @glVertex3s := nil;
+  @glVertex3sv := nil;
+  @glVertex4d := nil;
+  @glVertex4dv := nil;
+  @glVertex4f := nil;
+  @glVertex4fv := nil;
+  @glVertex4i := nil;
+  @glVertex4iv := nil;
+  @glVertex4s := nil;
+  @glVertex4sv := nil;
+  @glVertexPointer := nil;
+  @glViewport := nil;
+  {$IFDEF WINDOWS}
+  @ChoosePixelFormat := nil;
+  {$ENDIF}
+
+  UnLoadModule(LibGL);
+
+end;
+
+procedure LoadOpenGL(const dll: PChar);
+begin
+
+  FreeOpenGL;
+
+  if LoadModule( LibGL, dll ) then
+  begin
+    @glAccum := GetModuleSymbol(LibGL, 'glAccum');
+    @glAlphaFunc := GetModuleSymbol(LibGL, 'glAlphaFunc');
+    @glAreTexturesResident := GetModuleSymbol(LibGL, 'glAreTexturesResident');
+    @glArrayElement := GetModuleSymbol(LibGL, 'glArrayElement');
+    @glBegin := GetModuleSymbol(LibGL, 'glBegin');
+    @glBindTexture := GetModuleSymbol(LibGL, 'glBindTexture');
+    @glBitmap := GetModuleSymbol(LibGL, 'glBitmap');
+    @glBlendFunc := GetModuleSymbol(LibGL, 'glBlendFunc');
+    @glCallList := GetModuleSymbol(LibGL, 'glCallList');
+    @glCallLists := GetModuleSymbol(LibGL, 'glCallLists');
+    @glClear := GetModuleSymbol(LibGL, 'glClear');
+    @glClearAccum := GetModuleSymbol(LibGL, 'glClearAccum');
+    @glClearColor := GetModuleSymbol(LibGL, 'glClearColor');
+    @glClearDepth := GetModuleSymbol(LibGL, 'glClearDepth');
+    @glClearIndex := GetModuleSymbol(LibGL, 'glClearIndex');
+    @glClearStencil := GetModuleSymbol(LibGL, 'glClearStencil');
+    @glClipPlane := GetModuleSymbol(LibGL, 'glClipPlane');
+    @glColor3b := GetModuleSymbol(LibGL, 'glColor3b');
+    @glColor3bv := GetModuleSymbol(LibGL, 'glColor3bv');
+    @glColor3d := GetModuleSymbol(LibGL, 'glColor3d');
+    @glColor3dv := GetModuleSymbol(LibGL, 'glColor3dv');
+    @glColor3f := GetModuleSymbol(LibGL, 'glColor3f');
+    @glColor3fv := GetModuleSymbol(LibGL, 'glColor3fv');
+    @glColor3i := GetModuleSymbol(LibGL, 'glColor3i');
+    @glColor3iv := GetModuleSymbol(LibGL, 'glColor3iv');
+    @glColor3s := GetModuleSymbol(LibGL, 'glColor3s');
+    @glColor3sv := GetModuleSymbol(LibGL, 'glColor3sv');
+    @glColor3ub := GetModuleSymbol(LibGL, 'glColor3ub');
+    @glColor3ubv := GetModuleSymbol(LibGL, 'glColor3ubv');
+    @glColor3ui := GetModuleSymbol(LibGL, 'glColor3ui');
+    @glColor3uiv := GetModuleSymbol(LibGL, 'glColor3uiv');
+    @glColor3us := GetModuleSymbol(LibGL, 'glColor3us');
+    @glColor3usv := GetModuleSymbol(LibGL, 'glColor3usv');
+    @glColor4b := GetModuleSymbol(LibGL, 'glColor4b');
+    @glColor4bv := GetModuleSymbol(LibGL, 'glColor4bv');
+    @glColor4d := GetModuleSymbol(LibGL, 'glColor4d');
+    @glColor4dv := GetModuleSymbol(LibGL, 'glColor4dv');
+    @glColor4f := GetModuleSymbol(LibGL, 'glColor4f');
+    @glColor4fv := GetModuleSymbol(LibGL, 'glColor4fv');
+    @glColor4i := GetModuleSymbol(LibGL, 'glColor4i');
+    @glColor4iv := GetModuleSymbol(LibGL, 'glColor4iv');
+    @glColor4s := GetModuleSymbol(LibGL, 'glColor4s');
+    @glColor4sv := GetModuleSymbol(LibGL, 'glColor4sv');
+    @glColor4ub := GetModuleSymbol(LibGL, 'glColor4ub');
+    @glColor4ubv := GetModuleSymbol(LibGL, 'glColor4ubv');
+    @glColor4ui := GetModuleSymbol(LibGL, 'glColor4ui');
+    @glColor4uiv := GetModuleSymbol(LibGL, 'glColor4uiv');
+    @glColor4us := GetModuleSymbol(LibGL, 'glColor4us');
+    @glColor4usv := GetModuleSymbol(LibGL, 'glColor4usv');
+    @glColorMask := GetModuleSymbol(LibGL, 'glColorMask');
+    @glColorMaterial := GetModuleSymbol(LibGL, 'glColorMaterial');
+    @glColorPointer := GetModuleSymbol(LibGL, 'glColorPointer');
+    @glCopyPixels := GetModuleSymbol(LibGL, 'glCopyPixels');
+    @glCopyTexImage1D := GetModuleSymbol(LibGL, 'glCopyTexImage1D');
+    @glCopyTexImage2D := GetModuleSymbol(LibGL, 'glCopyTexImage2D');
+    @glCopyTexSubImage1D := GetModuleSymbol(LibGL, 'glCopyTexSubImage1D');
+    @glCopyTexSubImage2D := GetModuleSymbol(LibGL, 'glCopyTexSubImage2D');
+    @glCullFace := GetModuleSymbol(LibGL, 'glCullFace');
+    @glDeleteLists := GetModuleSymbol(LibGL, 'glDeleteLists');
+    @glDeleteTextures := GetModuleSymbol(LibGL, 'glDeleteTextures');
+    @glDepthFunc := GetModuleSymbol(LibGL, 'glDepthFunc');
+    @glDepthMask := GetModuleSymbol(LibGL, 'glDepthMask');
+    @glDepthRange := GetModuleSymbol(LibGL, 'glDepthRange');
+    @glDisable := GetModuleSymbol(LibGL, 'glDisable');
+    @glDisableClientState := GetModuleSymbol(LibGL, 'glDisableClientState');
+    @glDrawArrays := GetModuleSymbol(LibGL, 'glDrawArrays');
+    @glDrawBuffer := GetModuleSymbol(LibGL, 'glDrawBuffer');
+    @glDrawElements := GetModuleSymbol(LibGL, 'glDrawElements');
+    @glDrawPixels := GetModuleSymbol(LibGL, 'glDrawPixels');
+    @glEdgeFlag := GetModuleSymbol(LibGL, 'glEdgeFlag');
+    @glEdgeFlagPointer := GetModuleSymbol(LibGL, 'glEdgeFlagPointer');
+    @glEdgeFlagv := GetModuleSymbol(LibGL, 'glEdgeFlagv');
+    @glEnable := GetModuleSymbol(LibGL, 'glEnable');
+    @glEnableClientState := GetModuleSymbol(LibGL, 'glEnableClientState');
+    @glEnd := GetModuleSymbol(LibGL, 'glEnd');
+    @glEndList := GetModuleSymbol(LibGL, 'glEndList');
+    @glEvalCoord1d := GetModuleSymbol(LibGL, 'glEvalCoord1d');
+    @glEvalCoord1dv := GetModuleSymbol(LibGL, 'glEvalCoord1dv');
+    @glEvalCoord1f := GetModuleSymbol(LibGL, 'glEvalCoord1f');
+    @glEvalCoord1fv := GetModuleSymbol(LibGL, 'glEvalCoord1fv');
+    @glEvalCoord2d := GetModuleSymbol(LibGL, 'glEvalCoord2d');
+    @glEvalCoord2dv := GetModuleSymbol(LibGL, 'glEvalCoord2dv');
+    @glEvalCoord2f := GetModuleSymbol(LibGL, 'glEvalCoord2f');
+    @glEvalCoord2fv := GetModuleSymbol(LibGL, 'glEvalCoord2fv');
+    @glEvalMesh1 := GetModuleSymbol(LibGL, 'glEvalMesh1');
+    @glEvalMesh2 := GetModuleSymbol(LibGL, 'glEvalMesh2');
+    @glEvalPoint1 := GetModuleSymbol(LibGL, 'glEvalPoint1');
+    @glEvalPoint2 := GetModuleSymbol(LibGL, 'glEvalPoint2');
+    @glFeedbackBuffer := GetModuleSymbol(LibGL, 'glFeedbackBuffer');
+    @glFinish := GetModuleSymbol(LibGL, 'glFinish');
+    @glFlush := GetModuleSymbol(LibGL, 'glFlush');
+    @glFogf := GetModuleSymbol(LibGL, 'glFogf');
+    @glFogfv := GetModuleSymbol(LibGL, 'glFogfv');
+    @glFogi := GetModuleSymbol(LibGL, 'glFogi');
+    @glFogiv := GetModuleSymbol(LibGL, 'glFogiv');
+    @glFrontFace := GetModuleSymbol(LibGL, 'glFrontFace');
+    @glFrustum := GetModuleSymbol(LibGL, 'glFrustum');
+    @glGenLists := GetModuleSymbol(LibGL, 'glGenLists');
+    @glGenTextures := GetModuleSymbol(LibGL, 'glGenTextures');
+    @glGetBooleanv := GetModuleSymbol(LibGL, 'glGetBooleanv');
+    @glGetClipPlane := GetModuleSymbol(LibGL, 'glGetClipPlane');
+    @glGetDoublev := GetModuleSymbol(LibGL, 'glGetDoublev');
+    @glGetError := GetModuleSymbol(LibGL, 'glGetError');
+    @glGetFloatv := GetModuleSymbol(LibGL, 'glGetFloatv');
+    @glGetIntegerv := GetModuleSymbol(LibGL, 'glGetIntegerv');
+    @glGetLightfv := GetModuleSymbol(LibGL, 'glGetLightfv');
+    @glGetLightiv := GetModuleSymbol(LibGL, 'glGetLightiv');
+    @glGetMapdv := GetModuleSymbol(LibGL, 'glGetMapdv');
+    @glGetMapfv := GetModuleSymbol(LibGL, 'glGetMapfv');
+    @glGetMapiv := GetModuleSymbol(LibGL, 'glGetMapiv');
+    @glGetMaterialfv := GetModuleSymbol(LibGL, 'glGetMaterialfv');
+    @glGetMaterialiv := GetModuleSymbol(LibGL, 'glGetMaterialiv');
+    @glGetPixelMapfv := GetModuleSymbol(LibGL, 'glGetPixelMapfv');
+    @glGetPixelMapuiv := GetModuleSymbol(LibGL, 'glGetPixelMapuiv');
+    @glGetPixelMapusv := GetModuleSymbol(LibGL, 'glGetPixelMapusv');
+    @glGetPointerv := GetModuleSymbol(LibGL, 'glGetPointerv');
+    @glGetPolygonStipple := GetModuleSymbol(LibGL, 'glGetPolygonStipple');
+    @glGetString := GetModuleSymbol(LibGL, 'glGetString');
+    @glGetTexEnvfv := GetModuleSymbol(LibGL, 'glGetTexEnvfv');
+    @glGetTexEnviv := GetModuleSymbol(LibGL, 'glGetTexEnviv');
+    @glGetTexGendv := GetModuleSymbol(LibGL, 'glGetTexGendv');
+    @glGetTexGenfv := GetModuleSymbol(LibGL, 'glGetTexGenfv');
+    @glGetTexGeniv := GetModuleSymbol(LibGL, 'glGetTexGeniv');
+    @glGetTexImage := GetModuleSymbol(LibGL, 'glGetTexImage');
+    @glGetTexLevelParameterfv := GetModuleSymbol(LibGL, 'glGetTexLevelParameterfv');
+    @glGetTexLevelParameteriv := GetModuleSymbol(LibGL, 'glGetTexLevelParameteriv');
+    @glGetTexParameterfv := GetModuleSymbol(LibGL, 'glGetTexParameterfv');
+    @glGetTexParameteriv := GetModuleSymbol(LibGL, 'glGetTexParameteriv');
+    @glHint := GetModuleSymbol(LibGL, 'glHint');
+    @glIndexMask := GetModuleSymbol(LibGL, 'glIndexMask');
+    @glIndexPointer := GetModuleSymbol(LibGL, 'glIndexPointer');
+    @glIndexd := GetModuleSymbol(LibGL, 'glIndexd');
+    @glIndexdv := GetModuleSymbol(LibGL, 'glIndexdv');
+    @glIndexf := GetModuleSymbol(LibGL, 'glIndexf');
+    @glIndexfv := GetModuleSymbol(LibGL, 'glIndexfv');
+    @glIndexi := GetModuleSymbol(LibGL, 'glIndexi');
+    @glIndexiv := GetModuleSymbol(LibGL, 'glIndexiv');
+    @glIndexs := GetModuleSymbol(LibGL, 'glIndexs');
+    @glIndexsv := GetModuleSymbol(LibGL, 'glIndexsv');
+    @glIndexub := GetModuleSymbol(LibGL, 'glIndexub');
+    @glIndexubv := GetModuleSymbol(LibGL, 'glIndexubv');
+    @glInitNames := GetModuleSymbol(LibGL, 'glInitNames');
+    @glInterleavedArrays := GetModuleSymbol(LibGL, 'glInterleavedArrays');
+    @glIsEnabled := GetModuleSymbol(LibGL, 'glIsEnabled');
+    @glIsList := GetModuleSymbol(LibGL, 'glIsList');
+    @glIsTexture := GetModuleSymbol(LibGL, 'glIsTexture');
+    @glLightModelf := GetModuleSymbol(LibGL, 'glLightModelf');
+    @glLightModelfv := GetModuleSymbol(LibGL, 'glLightModelfv');
+    @glLightModeli := GetModuleSymbol(LibGL, 'glLightModeli');
+    @glLightModeliv := GetModuleSymbol(LibGL, 'glLightModeliv');
+    @glLightf := GetModuleSymbol(LibGL, 'glLightf');
+    @glLightfv := GetModuleSymbol(LibGL, 'glLightfv');
+    @glLighti := GetModuleSymbol(LibGL, 'glLighti');
+    @glLightiv := GetModuleSymbol(LibGL, 'glLightiv');
+    @glLineStipple := GetModuleSymbol(LibGL, 'glLineStipple');
+    @glLineWidth := GetModuleSymbol(LibGL, 'glLineWidth');
+    @glListBase := GetModuleSymbol(LibGL, 'glListBase');
+    @glLoadIdentity := GetModuleSymbol(LibGL, 'glLoadIdentity');
+    @glLoadMatrixd := GetModuleSymbol(LibGL, 'glLoadMatrixd');
+    @glLoadMatrixf := GetModuleSymbol(LibGL, 'glLoadMatrixf');
+    @glLoadName := GetModuleSymbol(LibGL, 'glLoadName');
+    @glLogicOp := GetModuleSymbol(LibGL, 'glLogicOp');
+    @glMap1d := GetModuleSymbol(LibGL, 'glMap1d');
+    @glMap1f := GetModuleSymbol(LibGL, 'glMap1f');
+    @glMap2d := GetModuleSymbol(LibGL, 'glMap2d');
+    @glMap2f := GetModuleSymbol(LibGL, 'glMap2f');
+    @glMapGrid1d := GetModuleSymbol(LibGL, 'glMapGrid1d');
+    @glMapGrid1f := GetModuleSymbol(LibGL, 'glMapGrid1f');
+    @glMapGrid2d := GetModuleSymbol(LibGL, 'glMapGrid2d');
+    @glMapGrid2f := GetModuleSymbol(LibGL, 'glMapGrid2f');
+    @glMaterialf := GetModuleSymbol(LibGL, 'glMaterialf');
+    @glMaterialfv := GetModuleSymbol(LibGL, 'glMaterialfv');
+    @glMateriali := GetModuleSymbol(LibGL, 'glMateriali');
+    @glMaterialiv := GetModuleSymbol(LibGL, 'glMaterialiv');
+    @glMatrixMode := GetModuleSymbol(LibGL, 'glMatrixMode');
+    @glMultMatrixd := GetModuleSymbol(LibGL, 'glMultMatrixd');
+    @glMultMatrixf := GetModuleSymbol(LibGL, 'glMultMatrixf');
+    @glNewList := GetModuleSymbol(LibGL, 'glNewList');
+    @glNormal3b := GetModuleSymbol(LibGL, 'glNormal3b');
+    @glNormal3bv := GetModuleSymbol(LibGL, 'glNormal3bv');
+    @glNormal3d := GetModuleSymbol(LibGL, 'glNormal3d');
+    @glNormal3dv := GetModuleSymbol(LibGL, 'glNormal3dv');
+    @glNormal3f := GetModuleSymbol(LibGL, 'glNormal3f');
+    @glNormal3fv := GetModuleSymbol(LibGL, 'glNormal3fv');
+    @glNormal3i := GetModuleSymbol(LibGL, 'glNormal3i');
+    @glNormal3iv := GetModuleSymbol(LibGL, 'glNormal3iv');
+    @glNormal3s := GetModuleSymbol(LibGL, 'glNormal3s');
+    @glNormal3sv := GetModuleSymbol(LibGL, 'glNormal3sv');
+    @glNormalPointer := GetModuleSymbol(LibGL, 'glNormalPointer');
+    @glOrtho := GetModuleSymbol(LibGL, 'glOrtho');
+    @glPassThrough := GetModuleSymbol(LibGL, 'glPassThrough');
+    @glPixelMapfv := GetModuleSymbol(LibGL, 'glPixelMapfv');
+    @glPixelMapuiv := GetModuleSymbol(LibGL, 'glPixelMapuiv');
+    @glPixelMapusv := GetModuleSymbol(LibGL, 'glPixelMapusv');
+    @glPixelStoref := GetModuleSymbol(LibGL, 'glPixelStoref');
+    @glPixelStorei := GetModuleSymbol(LibGL, 'glPixelStorei');
+    @glPixelTransferf := GetModuleSymbol(LibGL, 'glPixelTransferf');
+    @glPixelTransferi := GetModuleSymbol(LibGL, 'glPixelTransferi');
+    @glPixelZoom := GetModuleSymbol(LibGL, 'glPixelZoom');
+    @glPointSize := GetModuleSymbol(LibGL, 'glPointSize');
+    @glPolygonMode := GetModuleSymbol(LibGL, 'glPolygonMode');
+    @glPolygonOffset := GetModuleSymbol(LibGL, 'glPolygonOffset');
+    @glPolygonStipple := GetModuleSymbol(LibGL, 'glPolygonStipple');
+    @glPopAttrib := GetModuleSymbol(LibGL, 'glPopAttrib');
+    @glPopClientAttrib := GetModuleSymbol(LibGL, 'glPopClientAttrib');
+    @glPopMatrix := GetModuleSymbol(LibGL, 'glPopMatrix');
+    @glPopName := GetModuleSymbol(LibGL, 'glPopName');
+    @glPrioritizeTextures := GetModuleSymbol(LibGL, 'glPrioritizeTextures');
+    @glPushAttrib := GetModuleSymbol(LibGL, 'glPushAttrib');
+    @glPushClientAttrib := GetModuleSymbol(LibGL, 'glPushClientAttrib');
+    @glPushMatrix := GetModuleSymbol(LibGL, 'glPushMatrix');
+    @glPushName := GetModuleSymbol(LibGL, 'glPushName');
+    @glRasterPos2d := GetModuleSymbol(LibGL, 'glRasterPos2d');
+    @glRasterPos2dv := GetModuleSymbol(LibGL, 'glRasterPos2dv');
+    @glRasterPos2f := GetModuleSymbol(LibGL, 'glRasterPos2f');
+    @glRasterPos2fv := GetModuleSymbol(LibGL, 'glRasterPos2fv');
+    @glRasterPos2i := GetModuleSymbol(LibGL, 'glRasterPos2i');
+    @glRasterPos2iv := GetModuleSymbol(LibGL, 'glRasterPos2iv');
+    @glRasterPos2s := GetModuleSymbol(LibGL, 'glRasterPos2s');
+    @glRasterPos2sv := GetModuleSymbol(LibGL, 'glRasterPos2sv');
+    @glRasterPos3d := GetModuleSymbol(LibGL, 'glRasterPos3d');
+    @glRasterPos3dv := GetModuleSymbol(LibGL, 'glRasterPos3dv');
+    @glRasterPos3f := GetModuleSymbol(LibGL, 'glRasterPos3f');
+    @glRasterPos3fv := GetModuleSymbol(LibGL, 'glRasterPos3fv');
+    @glRasterPos3i := GetModuleSymbol(LibGL, 'glRasterPos3i');
+    @glRasterPos3iv := GetModuleSymbol(LibGL, 'glRasterPos3iv');
+    @glRasterPos3s := GetModuleSymbol(LibGL, 'glRasterPos3s');
+    @glRasterPos3sv := GetModuleSymbol(LibGL, 'glRasterPos3sv');
+    @glRasterPos4d := GetModuleSymbol(LibGL, 'glRasterPos4d');
+    @glRasterPos4dv := GetModuleSymbol(LibGL, 'glRasterPos4dv');
+    @glRasterPos4f := GetModuleSymbol(LibGL, 'glRasterPos4f');
+    @glRasterPos4fv := GetModuleSymbol(LibGL, 'glRasterPos4fv');
+    @glRasterPos4i := GetModuleSymbol(LibGL, 'glRasterPos4i');
+    @glRasterPos4iv := GetModuleSymbol(LibGL, 'glRasterPos4iv');
+    @glRasterPos4s := GetModuleSymbol(LibGL, 'glRasterPos4s');
+    @glRasterPos4sv := GetModuleSymbol(LibGL, 'glRasterPos4sv');
+    @glReadBuffer := GetModuleSymbol(LibGL, 'glReadBuffer');
+    @glReadPixels := GetModuleSymbol(LibGL, 'glReadPixels');
+    @glRectd := GetModuleSymbol(LibGL, 'glRectd');
+    @glRectdv := GetModuleSymbol(LibGL, 'glRectdv');
+    @glRectf := GetModuleSymbol(LibGL, 'glRectf');
+    @glRectfv := GetModuleSymbol(LibGL, 'glRectfv');
+    @glRecti := GetModuleSymbol(LibGL, 'glRecti');
+    @glRectiv := GetModuleSymbol(LibGL, 'glRectiv');
+    @glRects := GetModuleSymbol(LibGL, 'glRects');
+    @glRectsv := GetModuleSymbol(LibGL, 'glRectsv');
+    @glRenderMode := GetModuleSymbol(LibGL, 'glRenderMode');
+    @glRotated := GetModuleSymbol(LibGL, 'glRotated');
+    @glRotatef := GetModuleSymbol(LibGL, 'glRotatef');
+    @glScaled := GetModuleSymbol(LibGL, 'glScaled');
+    @glScalef := GetModuleSymbol(LibGL, 'glScalef');
+    @glScissor := GetModuleSymbol(LibGL, 'glScissor');
+    @glSelectBuffer := GetModuleSymbol(LibGL, 'glSelectBuffer');
+    @glShadeModel := GetModuleSymbol(LibGL, 'glShadeModel');
+    @glStencilFunc := GetModuleSymbol(LibGL, 'glStencilFunc');
+    @glStencilMask := GetModuleSymbol(LibGL, 'glStencilMask');
+    @glStencilOp := GetModuleSymbol(LibGL, 'glStencilOp');
+    @glTexCoord1d := GetModuleSymbol(LibGL, 'glTexCoord1d');
+    @glTexCoord1dv := GetModuleSymbol(LibGL, 'glTexCoord1dv');
+    @glTexCoord1f := GetModuleSymbol(LibGL, 'glTexCoord1f');
+    @glTexCoord1fv := GetModuleSymbol(LibGL, 'glTexCoord1fv');
+    @glTexCoord1i := GetModuleSymbol(LibGL, 'glTexCoord1i');
+    @glTexCoord1iv := GetModuleSymbol(LibGL, 'glTexCoord1iv');
+    @glTexCoord1s := GetModuleSymbol(LibGL, 'glTexCoord1s');
+    @glTexCoord1sv := GetModuleSymbol(LibGL, 'glTexCoord1sv');
+    @glTexCoord2d := GetModuleSymbol(LibGL, 'glTexCoord2d');
+    @glTexCoord2dv := GetModuleSymbol(LibGL, 'glTexCoord2dv');
+    @glTexCoord2f := GetModuleSymbol(LibGL, 'glTexCoord2f');
+    @glTexCoord2fv := GetModuleSymbol(LibGL, 'glTexCoord2fv');
+    @glTexCoord2i := GetModuleSymbol(LibGL, 'glTexCoord2i');
+    @glTexCoord2iv := GetModuleSymbol(LibGL, 'glTexCoord2iv');
+    @glTexCoord2s := GetModuleSymbol(LibGL, 'glTexCoord2s');
+    @glTexCoord2sv := GetModuleSymbol(LibGL, 'glTexCoord2sv');
+    @glTexCoord3d := GetModuleSymbol(LibGL, 'glTexCoord3d');
+    @glTexCoord3dv := GetModuleSymbol(LibGL, 'glTexCoord3dv');
+    @glTexCoord3f := GetModuleSymbol(LibGL, 'glTexCoord3f');
+    @glTexCoord3fv := GetModuleSymbol(LibGL, 'glTexCoord3fv');
+    @glTexCoord3i := GetModuleSymbol(LibGL, 'glTexCoord3i');
+    @glTexCoord3iv := GetModuleSymbol(LibGL, 'glTexCoord3iv');
+    @glTexCoord3s := GetModuleSymbol(LibGL, 'glTexCoord3s');
+    @glTexCoord3sv := GetModuleSymbol(LibGL, 'glTexCoord3sv');
+    @glTexCoord4d := GetModuleSymbol(LibGL, 'glTexCoord4d');
+    @glTexCoord4dv := GetModuleSymbol(LibGL, 'glTexCoord4dv');
+    @glTexCoord4f := GetModuleSymbol(LibGL, 'glTexCoord4f');
+    @glTexCoord4fv := GetModuleSymbol(LibGL, 'glTexCoord4fv');
+    @glTexCoord4i := GetModuleSymbol(LibGL, 'glTexCoord4i');
+    @glTexCoord4iv := GetModuleSymbol(LibGL, 'glTexCoord4iv');
+    @glTexCoord4s := GetModuleSymbol(LibGL, 'glTexCoord4s');
+    @glTexCoord4sv := GetModuleSymbol(LibGL, 'glTexCoord4sv');
+    @glTexCoordPointer := GetModuleSymbol(LibGL, 'glTexCoordPointer');
+    @glTexEnvf := GetModuleSymbol(LibGL, 'glTexEnvf');
+    @glTexEnvfv := GetModuleSymbol(LibGL, 'glTexEnvfv');
+    @glTexEnvi := GetModuleSymbol(LibGL, 'glTexEnvi');
+    @glTexEnviv := GetModuleSymbol(LibGL, 'glTexEnviv');
+    @glTexGend := GetModuleSymbol(LibGL, 'glTexGend');
+    @glTexGendv := GetModuleSymbol(LibGL, 'glTexGendv');
+    @glTexGenf := GetModuleSymbol(LibGL, 'glTexGenf');
+    @glTexGenfv := GetModuleSymbol(LibGL, 'glTexGenfv');
+    @glTexGeni := GetModuleSymbol(LibGL, 'glTexGeni');
+    @glTexGeniv := GetModuleSymbol(LibGL, 'glTexGeniv');
+    @glTexImage1D := GetModuleSymbol(LibGL, 'glTexImage1D');
+    @glTexImage2D := GetModuleSymbol(LibGL, 'glTexImage2D');
+    @glTexParameterf := GetModuleSymbol(LibGL, 'glTexParameterf');
+    @glTexParameterfv := GetModuleSymbol(LibGL, 'glTexParameterfv');
+    @glTexParameteri := GetModuleSymbol(LibGL, 'glTexParameteri');
+    @glTexParameteriv := GetModuleSymbol(LibGL, 'glTexParameteriv');
+    @glTexSubImage1D := GetModuleSymbol(LibGL, 'glTexSubImage1D');
+    @glTexSubImage2D := GetModuleSymbol(LibGL, 'glTexSubImage2D');
+    @glTranslated := GetModuleSymbol(LibGL, 'glTranslated');
+    @glTranslatef := GetModuleSymbol(LibGL, 'glTranslatef');
+    @glVertex2d := GetModuleSymbol(LibGL, 'glVertex2d');
+    @glVertex2dv := GetModuleSymbol(LibGL, 'glVertex2dv');
+    @glVertex2f := GetModuleSymbol(LibGL, 'glVertex2f');
+    @glVertex2fv := GetModuleSymbol(LibGL, 'glVertex2fv');
+    @glVertex2i := GetModuleSymbol(LibGL, 'glVertex2i');
+    @glVertex2iv := GetModuleSymbol(LibGL, 'glVertex2iv');
+    @glVertex2s := GetModuleSymbol(LibGL, 'glVertex2s');
+    @glVertex2sv := GetModuleSymbol(LibGL, 'glVertex2sv');
+    @glVertex3d := GetModuleSymbol(LibGL, 'glVertex3d');
+    @glVertex3dv := GetModuleSymbol(LibGL, 'glVertex3dv');
+    @glVertex3f := GetModuleSymbol(LibGL, 'glVertex3f');
+    @glVertex3fv := GetModuleSymbol(LibGL, 'glVertex3fv');
+    @glVertex3i := GetModuleSymbol(LibGL, 'glVertex3i');
+    @glVertex3iv := GetModuleSymbol(LibGL, 'glVertex3iv');
+    @glVertex3s := GetModuleSymbol(LibGL, 'glVertex3s');
+    @glVertex3sv := GetModuleSymbol(LibGL, 'glVertex3sv');
+    @glVertex4d := GetModuleSymbol(LibGL, 'glVertex4d');
+    @glVertex4dv := GetModuleSymbol(LibGL, 'glVertex4dv');
+    @glVertex4f := GetModuleSymbol(LibGL, 'glVertex4f');
+    @glVertex4fv := GetModuleSymbol(LibGL, 'glVertex4fv');
+    @glVertex4i := GetModuleSymbol(LibGL, 'glVertex4i');
+    @glVertex4iv := GetModuleSymbol(LibGL, 'glVertex4iv');
+    @glVertex4s := GetModuleSymbol(LibGL, 'glVertex4s');
+    @glVertex4sv := GetModuleSymbol(LibGL, 'glVertex4sv');
+    @glVertexPointer := GetModuleSymbol(LibGL, 'glVertexPointer');
+    @glViewport := GetModuleSymbol(LibGL, 'glViewport');
+
+    {$IFDEF WINDOWS}
+    @ChoosePixelFormat := GetModuleSymbol(LibGL, 'ChoosePixelFormat');
+    if not Assigned(ChoosePixelFormat) then
+      {$IFNDEF FPC}@{$ENDIF}ChoosePixelFormat := @Windows.ChoosePixelFormat;
+    {$ENDIF}
+  end;
+end;
+
+initialization
+  {$IF Defined(CPU386) or Defined(CPUI386) or Defined(CPUX86_64)}
+  Set8087CW($133F);
+  {$IFEND}
+
+  LoadOpenGL( GLLibName );
+
+finalization
+
+  FreeOpenGL;
+
+end.
+
diff --git a/Game/Code/lib/JEDI-SDL/OpenGL/Pas/glext.pas b/Game/Code/lib/JEDI-SDL/OpenGL/Pas/glext.pas
index 835c1703..1fc70f8a 100644
--- a/Game/Code/lib/JEDI-SDL/OpenGL/Pas/glext.pas
+++ b/Game/Code/lib/JEDI-SDL/OpenGL/Pas/glext.pas
@@ -1,9578 +1,9578 @@
-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 = $8032;

-  GL_UNSIGNED_SHORT_4_4_4_4 = $8033;

-  GL_UNSIGNED_SHORT_5_5_5_1 = $8034;

-  GL_UNSIGNED_INT_8_8_8_8 = $8035;

-  GL_UNSIGNED_INT_10_10_10_2 = $8036;

-  GL_RESCALE_NORMAL = $803A;

-  GL_UNSIGNED_BYTE_2_3_3_REV = $8362;

-  GL_UNSIGNED_SHORT_5_6_5 = $8363;

-  GL_UNSIGNED_SHORT_5_6_5_REV = $8364;

-  GL_UNSIGNED_SHORT_4_4_4_4_REV = $8365;

-  GL_UNSIGNED_SHORT_1_5_5_5_REV = $8366;

-  GL_UNSIGNED_INT_8_8_8_8_REV = $8367;

-  GL_UNSIGNED_INT_2_10_10_10_REV = $8368;

-  GL_BGR = $80E0;

-  GL_BGRA = $80E1;

-  GL_MAX_ELEMENTS_VERTICES = $80E8;

-  GL_MAX_ELEMENTS_INDICES = $80E9;

-  GL_CLAMP_TO_EDGE = $812F;

-  GL_TEXTURE_MIN_LOD = $813A;

-  GL_TEXTURE_MAX_LOD = $813B;

-  GL_TEXTURE_BASE_LEVEL = $813C;

-  GL_TEXTURE_MAX_LEVEL = $813D;

-  GL_LIGHT_MODEL_COLOR_CONTROL = $81F8;

-  GL_SINGLE_COLOR = $81F9;

-  GL_SEPARATE_SPECULAR_COLOR = $81FA;

-  GL_SMOOTH_POINT_SIZE_RANGE = $0B12;

-  GL_SMOOTH_POINT_SIZE_GRANULARITY = $0B13;

-  GL_SMOOTH_LINE_WIDTH_RANGE = $0B22;

-  GL_SMOOTH_LINE_WIDTH_GRANULARITY = $0B23;

-  GL_ALIASED_POINT_SIZE_RANGE = $846D;

-  GL_ALIASED_LINE_WIDTH_RANGE = $846E;

-  GL_PACK_SKIP_IMAGES = $806B;

-  GL_PACK_IMAGE_HEIGHT = $806C;

-  GL_UNPACK_SKIP_IMAGES = $806D;

-  GL_UNPACK_IMAGE_HEIGHT = $806E;

-  GL_TEXTURE_3D = $806F;

-  GL_PROXY_TEXTURE_3D = $8070;

-  GL_TEXTURE_DEPTH = $8071;

-  GL_TEXTURE_WRAP_R = $8072;

-  GL_MAX_3D_TEXTURE_SIZE = $8073;

-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 = $8001;

-  GL_ONE_MINUS_CONSTANT_COLOR = $8002;

-  GL_CONSTANT_ALPHA = $8003;

-  GL_ONE_MINUS_CONSTANT_ALPHA = $8004;

-  GL_BLEND_COLOR = $8005;

-  GL_FUNC_ADD = $8006;

-  GL_MIN = $8007;

-  GL_MAX = $8008;

-  GL_BLEND_EQUATION = $8009;

-  GL_FUNC_SUBTRACT = $800A;

-  GL_FUNC_REVERSE_SUBTRACT = $800B;

-  GL_CONVOLUTION_1D = $8010;

-  GL_CONVOLUTION_2D = $8011;

-  GL_SEPARABLE_2D = $8012;

-  GL_CONVOLUTION_BORDER_MODE = $8013;

-  GL_CONVOLUTION_FILTER_SCALE = $8014;

-  GL_CONVOLUTION_FILTER_BIAS = $8015;

-  GL_REDUCE = $8016;

-  GL_CONVOLUTION_FORMAT = $8017;

-  GL_CONVOLUTION_WIDTH = $8018;

-  GL_CONVOLUTION_HEIGHT = $8019;

-  GL_MAX_CONVOLUTION_WIDTH = $801A;

-  GL_MAX_CONVOLUTION_HEIGHT = $801B;

-  GL_POST_CONVOLUTION_RED_SCALE = $801C;

-  GL_POST_CONVOLUTION_GREEN_SCALE = $801D;

-  GL_POST_CONVOLUTION_BLUE_SCALE = $801E;

-  GL_POST_CONVOLUTION_ALPHA_SCALE = $801F;

-  GL_POST_CONVOLUTION_RED_BIAS = $8020;

-  GL_POST_CONVOLUTION_GREEN_BIAS = $8021;

-  GL_POST_CONVOLUTION_BLUE_BIAS = $8022;

-  GL_POST_CONVOLUTION_ALPHA_BIAS = $8023;

-  GL_HISTOGRAM = $8024;

-  GL_PROXY_HISTOGRAM = $8025;

-  GL_HISTOGRAM_WIDTH = $8026;

-  GL_HISTOGRAM_FORMAT = $8027;

-  GL_HISTOGRAM_RED_SIZE = $8028;

-  GL_HISTOGRAM_GREEN_SIZE = $8029;

-  GL_HISTOGRAM_BLUE_SIZE = $802A;

-  GL_HISTOGRAM_ALPHA_SIZE = $802B;

-  GL_HISTOGRAM_LUMINANCE_SIZE = $802C;

-  GL_HISTOGRAM_SINK = $802D;

-  GL_MINMAX = $802E;

-  GL_MINMAX_FORMAT = $802F;

-  GL_MINMAX_SINK = $8030;

-  GL_TABLE_TOO_LARGE = $8031;

-  GL_COLOR_MATRIX = $80B1;

-  GL_COLOR_MATRIX_STACK_DEPTH = $80B2;

-  GL_MAX_COLOR_MATRIX_STACK_DEPTH = $80B3;

-  GL_POST_COLOR_MATRIX_RED_SCALE = $80B4;

-  GL_POST_COLOR_MATRIX_GREEN_SCALE = $80B5;

-  GL_POST_COLOR_MATRIX_BLUE_SCALE = $80B6;

-  GL_POST_COLOR_MATRIX_ALPHA_SCALE = $80B7;

-  GL_POST_COLOR_MATRIX_RED_BIAS = $80B8;

-  GL_POST_COLOR_MATRIX_GREEN_BIAS = $80B9;

-  GL_POST_COLOR_MATRIX_BLUE_BIAS = $80BA;

-  GL_POST_COLOR_MATIX_ALPHA_BIAS = $80BB;

-  GL_COLOR_TABLE = $80D0;

-  GL_POST_CONVOLUTION_COLOR_TABLE = $80D1;

-  GL_POST_COLOR_MATRIX_COLOR_TABLE = $80D2;

-  GL_PROXY_COLOR_TABLE = $80D3;

-  GL_PROXY_POST_CONVOLUTION_COLOR_TABLE = $80D4;

-  GL_PROXY_POST_COLOR_MATRIX_COLOR_TABLE = $80D5;

-  GL_COLOR_TABLE_SCALE = $80D6;

-  GL_COLOR_TABLE_BIAS = $80D7;

-  GL_COLOR_TABLE_FORMAT = $80D8;

-  GL_COLOR_TABLE_WIDTH = $80D9;

-  GL_COLOR_TABLE_RED_SIZE = $80DA;

-  GL_COLOR_TABLE_GREEN_SIZE = $80DB;

-  GL_COLOR_TABLE_BLUE_SIZE = $80DC;

-  GL_COLOR_TABLE_ALPHA_SIZE = $80DD;

-  GL_COLOR_TABLE_LUMINANCE_SIZE = $80DE;

-  GL_COLOR_TABLE_INTENSITY_SIZE = $80DF;

-  GL_IGNORE_BORDER = $8150;

-  GL_CONSTANT_BORDER = $8151;

-  GL_WRAP_BORDER = $8152;

-  GL_REPLICATE_BORDER = $8153;

-  GL_CONVOLUTION_BORDER_COLOR = $8154;

-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 = $84C0;

-  GL_TEXTURE1 = $84C1;

-  GL_TEXTURE2 = $84C2;

-  GL_TEXTURE3 = $84C3;

-  GL_TEXTURE4 = $84C4;

-  GL_TEXTURE5 = $84C5;

-  GL_TEXTURE6 = $84C6;

-  GL_TEXTURE7 = $84C7;

-  GL_TEXTURE8 = $84C8;

-  GL_TEXTURE9 = $84C9;

-  GL_TEXTURE10 = $84CA;

-  GL_TEXTURE11 = $84CB;

-  GL_TEXTURE12 = $84CC;

-  GL_TEXTURE13 = $84CD;

-  GL_TEXTURE14 = $84CE;

-  GL_TEXTURE15 = $84CF;

-  GL_TEXTURE16 = $84D0;

-  GL_TEXTURE17 = $84D1;

-  GL_TEXTURE18 = $84D2;

-  GL_TEXTURE19 = $84D3;

-  GL_TEXTURE20 = $84D4;

-  GL_TEXTURE21 = $84D5;

-  GL_TEXTURE22 = $84D6;

-  GL_TEXTURE23 = $84D7;

-  GL_TEXTURE24 = $84D8;

-  GL_TEXTURE25 = $84D9;

-  GL_TEXTURE26 = $84DA;

-  GL_TEXTURE27 = $84DB;

-  GL_TEXTURE28 = $84DC;

-  GL_TEXTURE29 = $84DD;

-  GL_TEXTURE30 = $84DE;

-  GL_TEXTURE31 = $84DF;

-  GL_ACTIVE_TEXTURE = $84E0;

-  GL_CLIENT_ACTIVE_TEXTURE = $84E1;

-  GL_MAX_TEXTURE_UNITS = $84E2;

-  GL_TRANSPOSE_MODELVIEW_MATRIX = $84E3;

-  GL_TRANSPOSE_PROJECTION_MATRIX = $84E4;

-  GL_TRANSPOSE_TEXTURE_MATRIX = $84E5;

-  GL_TRANSPOSE_COLOR_MATRIX = $84E6;

-  GL_MULTISAMPLE = $809D;

-  GL_SAMPLE_ALPHA_TO_COVERAGE = $809E;

-  GL_SAMPLE_ALPHA_TO_ONE = $809F;

-  GL_SAMPLE_COVERAGE = $80A0;

-  GL_SAMPLE_BUFFERS = $80A8;

-  GL_SAMPLES = $80A9;

-  GL_SAMPLE_COVERAGE_VALUE = $80AA;

-  GL_SAMPLE_COVERAGE_INVERT = $80AB;

-  GL_MULTISAMPLE_BIT = $20000000;

-  GL_NORMAL_MAP = $8511;

-  GL_REFLECTION_MAP = $8512;

-  GL_TEXTURE_CUBE_MAP = $8513;

-  GL_TEXTURE_BINDING_CUBE_MAP = $8514;

-  GL_TEXTURE_CUBE_MAP_POSITIVE_X = $8515;

-  GL_TEXTURE_CUBE_MAP_NEGATIVE_X = $8516;

-  GL_TEXTURE_CUBE_MAP_POSITIVE_Y = $8517;

-  GL_TEXTURE_CUBE_MAP_NEGATIVE_Y = $8518;

-  GL_TEXTURE_CUBE_MAP_POSITIVE_Z = $8519;

-  GL_TEXTURE_CUBE_MAP_NEGATIVE_Z = $851A;

-  GL_PROXY_TEXTURE_CUBE_MAP = $851B;

-  GL_MAX_CUBE_MAP_TEXTURE_SIZE = $851C;

-  GL_COMPRESSED_ALPHA = $84E9;

-  GL_COMPRESSED_LUMINANCE = $84EA;

-  GL_COMPRESSED_LUMINANCE_ALPHA = $84EB;

-  GL_COMPRESSED_INTENSITY = $84EC;

-  GL_COMPRESSED_RGB = $84ED;

-  GL_COMPRESSED_RGBA = $84EE;

-  GL_TEXTURE_COMPRESSION_HINT = $84EF;

-  GL_TEXTURE_COMPRESSED_IMAGE_SIZE = $86A0;

-  GL_TEXTURE_COMPRESSED = $86A1;

-  GL_NUM_COMPRESSED_TEXTURE_FORMATS = $86A2;

-  GL_COMPRESSED_TEXTURE_FORMATS = $86A3;

-  GL_CLAMP_TO_BORDER = $812D;

-  GL_CLAMP_TO_BORDER_SGIS = $812D;

-  GL_COMBINE = $8570;

-  GL_COMBINE_RGB = $8571;

-  GL_COMBINE_ALPHA = $8572;

-  GL_SOURCE0_RGB = $8580;

-  GL_SOURCE1_RGB = $8581;

-  GL_SOURCE2_RGB = $8582;

-  GL_SOURCE0_ALPHA = $8588;

-  GL_SOURCE1_ALPHA = $8589;

-  GL_SOURCE2_ALPHA = $858A;

-  GL_OPERAND0_RGB = $8590;

-  GL_OPERAND1_RGB = $8591;

-  GL_OPERAND2_RGB = $8592;

-  GL_OPERAND0_ALPHA = $8598;

-  GL_OPERAND1_ALPHA = $8599;

-  GL_OPERAND2_ALPHA = $859A;

-  GL_RGB_SCALE = $8573;

-  GL_ADD_SIGNED = $8574;

-  GL_INTERPOLATE = $8575;

-  GL_SUBTRACT = $84E7;

-  GL_CONSTANT = $8576;

-  GL_PRIMARY_COLOR = $8577;

-  GL_PREVIOUS = $8578;

-  GL_DOT3_RGB = $86AE;

-  GL_DOT3_RGBA = $86AF;

-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 = $84C0;

-  GL_TEXTURE1_ARB = $84C1;

-  GL_TEXTURE2_ARB = $84C2;

-  GL_TEXTURE3_ARB = $84C3;

-  GL_TEXTURE4_ARB = $84C4;

-  GL_TEXTURE5_ARB = $84C5;

-  GL_TEXTURE6_ARB = $84C6;

-  GL_TEXTURE7_ARB = $84C7;

-  GL_TEXTURE8_ARB = $84C8;

-  GL_TEXTURE9_ARB = $84C9;

-  GL_TEXTURE10_ARB = $84CA;

-  GL_TEXTURE11_ARB = $84CB;

-  GL_TEXTURE12_ARB = $84CC;

-  GL_TEXTURE13_ARB = $84CD;

-  GL_TEXTURE14_ARB = $84CE;

-  GL_TEXTURE15_ARB = $84CF;

-  GL_TEXTURE16_ARB = $84D0;

-  GL_TEXTURE17_ARB = $84D1;

-  GL_TEXTURE18_ARB = $84D2;

-  GL_TEXTURE19_ARB = $84D3;

-  GL_TEXTURE20_ARB = $84D4;

-  GL_TEXTURE21_ARB = $84D5;

-  GL_TEXTURE22_ARB = $84D6;

-  GL_TEXTURE23_ARB = $84D7;

-  GL_TEXTURE24_ARB = $84D8;

-  GL_TEXTURE25_ARB = $84D9;

-  GL_TEXTURE26_ARB = $84DA;

-  GL_TEXTURE27_ARB = $84DB;

-  GL_TEXTURE28_ARB = $84DC;

-  GL_TEXTURE29_ARB = $84DD;

-  GL_TEXTURE30_ARB = $84DE;

-  GL_TEXTURE31_ARB = $84DF;

-  GL_ACTIVE_TEXTURE_ARB = $84E0;

-  GL_CLIENT_ACTIVE_TEXTURE_ARB = $84E1;

-  GL_MAX_TEXTURE_UNITS_ARB = $84E2;

-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 = $84E3;

-  GL_TRANSPOSE_PROJECTION_MATRIX_ARB = $84E4;

-  GL_TRANSPOSE_TEXTURE_MATRIX_ARB = $84E5;

-  GL_TRANSPOSE_COLOR_MATRIX_ARB = $84E6;

-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 = $2041;

-  WGL_SAMPLES_ARB = $2042;

-  GL_MULTISAMPLE_ARB = $809D;

-  GL_SAMPLE_ALPHA_TO_COVERAGE_ARB = $809E;

-  GL_SAMPLE_ALPHA_TO_ONE_ARB = $809F;

-  GL_SAMPLE_COVERAGE_ARB = $80A0;

-  GL_MULTISAMPLE_BIT_ARB = $20000000;

-  GL_SAMPLE_BUFFERS_ARB = $80A8;

-  GL_SAMPLES_ARB = $80A9;

-  GL_SAMPLE_COVERAGE_VALUE_ARB = $80AA;

-  GL_SAMPLE_COVERAGE_INVERT_ARB = $80AB;

-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 = $0001;

-  WGL_BACK_COLOR_BUFFER_BIT_ARB = $0002;

-  WGL_DEPTH_BUFFER_BIT_ARB = $0004;

-  WGL_STENCIL_BUFFER_BIT_ARB = $0008;

-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 = $8511;

-  GL_REFLECTION_MAP_ARB = $8512;

-  GL_TEXTURE_CUBE_MAP_ARB = $8513;

-  GL_TEXTURE_BINDING_CUBE_MAP_ARB = $8514;

-  GL_TEXTURE_CUBE_MAP_POSITIVE_X_ARB = $8515;

-  GL_TEXTURE_CUBE_MAP_NEGATIVE_X_ARB = $8516;

-  GL_TEXTURE_CUBE_MAP_POSITIVE_Y_ARB = $8517;

-  GL_TEXTURE_CUBE_MAP_NEGATIVE_Y_ARB = $8518;

-  GL_TEXTURE_CUBE_MAP_POSITIVE_Z_ARB = $8519;

-  GL_TEXTURE_CUBE_MAP_NEGATIVE_Z_ARB = $851A;

-  GL_PROXY_TEXTURE_CUBE_MAP_ARB = $851B;

-  GL_MAX_CUBE_MAP_TEXTURE_SIZE_ARB = $851C;

-

-function Load_GL_ARB_texture_cube_map: Boolean;

-

-//***** GL_ARB_depth_texture *****//

-const

-  GL_DEPTH_COMPONENT16_ARB = $81A5;

-  GL_DEPTH_COMPONENT24_ARB = $81A6;

-  GL_DEPTH_COMPONENT32_ARB = $81A7;

-  GL_TEXTURE_DEPTH_SIZE_ARB = $884A;

-  GL_DEPTH_TEXTURE_MODE_ARB = $884B;

-

-function Load_GL_ARB_depth_texture: Boolean;

-

-//***** GL_ARB_point_parameters *****//

-const

-  GL_POINT_SIZE_MIN_ARB = $8126;

-  GL_POINT_SIZE_MAX_ARB = $8127;

-  GL_POINT_FADE_THRESHOLD_SIZE_ARB = $8128;

-  GL_POINT_DISTANCE_ATTENUATION_ARB = $8129;

-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 = $884C;

-  GL_TEXTURE_COMPARE_FUNC_ARB = $884D;

-  GL_COMPARE_R_TO_TEXTURE_ARB = $884E;

-

-function Load_GL_ARB_shadow: Boolean;

-

-//***** GL_ARB_shadow_ambient *****//

-const

-  GL_TEXTURE_COMPARE_FAIL_VALUE_ARB = $80BF;

-

-function Load_GL_ARB_shadow_ambient: Boolean;

-

-//***** GL_ARB_texture_border_clamp *****//

-const

-  GL_CLAMP_TO_BORDER_ARB = $812D;

-

-function Load_GL_ARB_texture_border_clamp: Boolean;

-

-//***** GL_ARB_texture_compression *****//

-const

-  GL_COMPRESSED_ALPHA_ARB = $84E9;

-  GL_COMPRESSED_LUMINANCE_ARB = $84EA;

-  GL_COMPRESSED_LUMINANCE_ALPHA_ARB = $84EB;

-  GL_COMPRESSED_INTENSITY_ARB = $84EC;

-  GL_COMPRESSED_RGB_ARB = $84ED;

-  GL_COMPRESSED_RGBA_ARB = $84EE;

-  GL_TEXTURE_COMPRESSION_HINT_ARB = $84EF;

-  GL_TEXTURE_COMPRESSED_IMAGE_SIZE_ARB = $86A0;

-  GL_TEXTURE_COMPRESSED_ARB = $86A1;

-  GL_NUM_COMPRESSED_TEXTURE_FORMATS_ARB = $86A2;

-  GL_COMPRESSED_TEXTURE_FORMATS_ARB = $86A3;

-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 = $8570;

-  GL_COMBINE_RGB_ARB = $8571;

-  GL_COMBINE_ALPHA_ARB = $8572;

-  GL_SOURCE0_RGB_ARB = $8580;

-  GL_SOURCE1_RGB_ARB = $8581;

-  GL_SOURCE2_RGB_ARB = $8582;

-  GL_SOURCE0_ALPHA_ARB = $8588;

-  GL_SOURCE1_ALPHA_ARB = $8589;

-  GL_SOURCE2_ALPHA_ARB = $858A;

-  GL_OPERAND0_RGB_ARB = $8590;

-  GL_OPERAND1_RGB_ARB = $8591;

-  GL_OPERAND2_RGB_ARB = $8592;

-  GL_OPERAND0_ALPHA_ARB = $8598;

-  GL_OPERAND1_ALPHA_ARB = $8599;

-  GL_OPERAND2_ALPHA_ARB = $859A;

-  GL_RGB_SCALE_ARB = $8573;

-  GL_ADD_SIGNED_ARB = $8574;

-  GL_INTERPOLATE_ARB = $8575;

-  GL_SUBTRACT_ARB = $84E7;

-  GL_CONSTANT_ARB = $8576;

-  GL_PRIMARY_COLOR_ARB = $8577;

-  GL_PREVIOUS_ARB = $8578;

-

-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 = $86AE;

-  GL_DOT3_RGBA_ARB = $86AF;

-

-function Load_GL_ARB_texture_env_dot3: Boolean;

-

-//***** GL_ARB_texture_mirrored_repeat *****//

-const

-  GL_MIRRORED_REPEAT_ARB = $8370;

-

-function Load_GL_ARB_texture_mirrored_repeat: Boolean;

-

-//***** GL_ARB_vertex_blend *****//

-const

-  GL_MAX_VERTEX_UNITS_ARB = $86A4;

-  GL_ACTIVE_VERTEX_UNITS_ARB = $86A5;

-  GL_WEIGHT_SUM_UNITY_ARB = $86A6;

-  GL_VERTEX_BLEND_ARB = $86A7;

-  GL_MODELVIEW0_ARB = $1700;

-  GL_MODELVIEW1_ARB = $850A;

-  GL_MODELVIEW2_ARB = $8722;

-  GL_MODELVIEW3_ARB = $8723;

-  GL_MODELVIEW4_ARB = $8724;

-  GL_MODELVIEW5_ARB = $8725;

-  GL_MODELVIEW6_ARB = $8726;

-  GL_MODELVIEW7_ARB = $8727;

-  GL_MODELVIEW8_ARB = $8728;

-  GL_MODELVIEW9_ARB = $8729;

-  GL_MODELVIEW10_ARB = $872A;

-  GL_MODELVIEW11_ARB = $872B;

-  GL_MODELVIEW12_ARB = $872C;

-  GL_MODELVIEW13_ARB = $872D;

-  GL_MODELVIEW14_ARB = $872E;

-  GL_MODELVIEW15_ARB = $872F;

-  GL_MODELVIEW16_ARB = $8730;

-  GL_MODELVIEW17_ARB = $8731;

-  GL_MODELVIEW18_ARB = $8732;

-  GL_MODELVIEW19_ARB = $8733;

-  GL_MODELVIEW20_ARB = $8734;

-  GL_MODELVIEW21_ARB = $8735;

-  GL_MODELVIEW22_ARB = $8736;

-  GL_MODELVIEW23_ARB = $8737;

-  GL_MODELVIEW24_ARB = $8738;

-  GL_MODELVIEW25_ARB = $8739;

-  GL_MODELVIEW26_ARB = $873A;

-  GL_MODELVIEW27_ARB = $873B;

-  GL_MODELVIEW28_ARB = $873C;

-  GL_MODELVIEW29_ARB = $873D;

-  GL_MODELVIEW30_ARB = $873E;

-  GL_MODELVIEW31_ARB = $873F;

-  GL_CURRENT_WEIGHT_ARB = $86A8;

-  GL_WEIGHT_ARRAY_TYPE_ARB = $86A9;

-  GL_WEIGHT_ARRAY_STRIDE_ARB = $86AA;

-  GL_WEIGHT_ARRAY_SIZE_ARB = $86AB;

-  GL_WEIGHT_ARRAY_POINTER_ARB = $86AC;

-  GL_WEIGHT_ARRAY_ARB = $86AD;

-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 = $8620;

-  GL_VERTEX_PROGRAM_POINT_SIZE_ARB = $8642;

-  GL_VERTEX_PROGRAM_TWO_SIDE_ARB = $8643;

-  GL_COLOR_SUM_ARB = $8458;

-  GL_PROGRAM_FORMAT_ASCII_ARB = $8875;

-  GL_VERTEX_ATTRIB_ARRAY_ENABLED_ARB = $8622;

-  GL_VERTEX_ATTRIB_ARRAY_SIZE_ARB = $8623;

-  GL_VERTEX_ATTRIB_ARRAY_STRIDE_ARB = $8624;

-  GL_VERTEX_ATTRIB_ARRAY_TYPE_ARB = $8625;

-  GL_VERTEX_ATTRIB_ARRAY_NORMALIZED_ARB = $886A;

-  GL_CURRENT_VERTEX_ATTRIB_ARB = $8626;

-  GL_VERTEX_ATTRIB_ARRAY_POINTER_ARB = $8645;

-  GL_PROGRAM_LENGTH_ARB = $8627;

-  GL_PROGRAM_FORMAT_ARB = $8876;

-  GL_PROGRAM_BINDING_ARB = $8677;

-  GL_PROGRAM_INSTRUCTIONS_ARB = $88A0;

-  GL_MAX_PROGRAM_INSTRUCTIONS_ARB = $88A1;

-  GL_PROGRAM_NATIVE_INSTRUCTIONS_ARB = $88A2;

-  GL_MAX_PROGRAM_NATIVE_INSTRUCTIONS_ARB = $88A3;

-  GL_PROGRAM_TEMPORARIES_ARB = $88A4;

-  GL_MAX_PROGRAM_TEMPORARIES_ARB = $88A5;

-  GL_PROGRAM_NATIVE_TEMPORARIES_ARB = $88A6;

-  GL_MAX_PROGRAM_NATIVE_TEMPORARIES_ARB = $88A7;

-  GL_PROGRAM_PARAMETERS_ARB = $88A8;

-  GL_MAX_PROGRAM_PARAMETERS_ARB = $88A9;

-  GL_PROGRAM_NATIVE_PARAMETERS_ARB = $88AA;

-  GL_MAX_PROGRAM_NATIVE_PARAMETERS_ARB = $88AB;

-  GL_PROGRAM_ATTRIBS_ARB = $88AC;

-  GL_MAX_PROGRAM_ATTRIBS_ARB = $88AD;

-  GL_PROGRAM_NATIVE_ATTRIBS_ARB = $88AE;

-  GL_MAX_PROGRAM_NATIVE_ATTRIBS_ARB = $88AF;

-  GL_PROGRAM_ADDRESS_REGISTERS_ARB = $88B0;

-  GL_MAX_PROGRAM_ADDRESS_REGISTERS_ARB = $88B1;

-  GL_PROGRAM_NATIVE_ADDRESS_REGISTERS_ARB = $88B2;

-  GL_MAX_PROGRAM_NATIVE_ADDRESS_REGISTERS_ARB = $88B3;

-  GL_MAX_PROGRAM_LOCAL_PARAMETERS_ARB = $88B4;

-  GL_MAX_PROGRAM_ENV_PARAMETERS_ARB = $88B5;

-  GL_PROGRAM_UNDER_NATIVE_LIMITS_ARB = $88B6;

-  GL_PROGRAM_STRING_ARB = $8628;

-  GL_PROGRAM_ERROR_POSITION_ARB = $864B;

-  GL_CURRENT_MATRIX_ARB = $8641;

-  GL_TRANSPOSE_CURRENT_MATRIX_ARB = $88B7;

-  GL_CURRENT_MATRIX_STACK_DEPTH_ARB = $8640;

-  GL_MAX_VERTEX_ATTRIBS_ARB = $8869;

-  GL_MAX_PROGRAM_MATRICES_ARB = $862F;

-  GL_MAX_PROGRAM_MATRIX_STACK_DEPTH_ARB = $862E;

-  GL_PROGRAM_ERROR_STRING_ARB = $8874;

-  GL_MATRIX0_ARB = $88C0;

-  GL_MATRIX1_ARB = $88C1;

-  GL_MATRIX2_ARB = $88C2;

-  GL_MATRIX3_ARB = $88C3;

-  GL_MATRIX4_ARB = $88C4;

-  GL_MATRIX5_ARB = $88C5;

-  GL_MATRIX6_ARB = $88C6;

-  GL_MATRIX7_ARB = $88C7;

-  GL_MATRIX8_ARB = $88C8;

-  GL_MATRIX9_ARB = $88C9;

-  GL_MATRIX10_ARB = $88CA;

-  GL_MATRIX11_ARB = $88CB;

-  GL_MATRIX12_ARB = $88CC;

-  GL_MATRIX13_ARB = $88CD;

-  GL_MATRIX14_ARB = $88CE;

-  GL_MATRIX15_ARB = $88CF;

-  GL_MATRIX16_ARB = $88D0;

-  GL_MATRIX17_ARB = $88D1;

-  GL_MATRIX18_ARB = $88D2;

-  GL_MATRIX19_ARB = $88D3;

-  GL_MATRIX20_ARB = $88D4;

-  GL_MATRIX21_ARB = $88D5;

-  GL_MATRIX22_ARB = $88D6;

-  GL_MATRIX23_ARB = $88D7;

-  GL_MATRIX24_ARB = $88D8;

-  GL_MATRIX25_ARB = $88D9;

-  GL_MATRIX26_ARB = $88DA;

-  GL_MATRIX27_ARB = $88DB;

-  GL_MATRIX28_ARB = $88DC;

-  GL_MATRIX29_ARB = $88DD;

-  GL_MATRIX30_ARB = $88DE;

-  GL_MATRIX31_ARB = $88DF;

-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 = $80CC;

-  GL_422_REV_EXT = $80CD;

-  GL_422_AVERAGE_EXT = $80CE;

-  GL_422_REV_AVERAGE_EXT = $80CF;

-

-function Load_GL_EXT_422_pixels: Boolean;

-

-//***** GL_EXT_abgr *****//

-const

-  GL_ABGR_EXT = $8000;

-

-function Load_GL_EXT_abgr: Boolean;

-

-//***** GL_EXT_bgra *****//

-const

-  GL_BGR_EXT = $80E0;

-  GL_BGRA_EXT = $80E1;

-

-function Load_GL_EXT_bgra: Boolean;

-

-//***** GL_EXT_blend_color *****//

-const

-  GL_CONSTANT_COLOR_EXT = $8001;

-  GL_ONE_MINUS_CONSTANT_COLOR_EXT = $8002;

-  GL_CONSTANT_ALPHA_EXT = $8003;

-  GL_ONE_MINUS_CONSTANT_ALPHA_EXT = $8004;

-  GL_BLEND_COLOR_EXT = $8005;

-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 = $80C8;

-  GL_BLEND_SRC_RGB_EXT = $80C9;

-  GL_BLEND_DST_ALPHA_EXT = $80CA;

-  GL_BLEND_SRC_ALPHA_EXT = $80CB;

-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 = $8006;

-  GL_MIN_EXT = $8007;

-  GL_MAX_EXT = $8008;

-  GL_BLEND_EQUATION_EXT = $8009;

-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 = $800A;

-  GL_FUNC_REVERSE_SUBTRACT_EXT = $800B;

-

-function Load_GL_EXT_blend_subtract: Boolean;

-

-//***** GL_EXT_clip_volume_hint *****//

-const

-  GL_CLIP_VOLUME_CLIPPING_HINT_EXT = $80F0;

-

-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 = $81A8;

-  GL_ARRAY_ELEMENT_LOCK_COUNT_EXT = $81A9;

-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 = $8010;

-  GL_CONVOLUTION_2D_EXT = $8011;

-  GL_SEPARABLE_2D_EXT = $8012;

-  GL_CONVOLUTION_BORDER_MODE_EXT = $8013;

-  GL_CONVOLUTION_FILTER_SCALE_EXT = $8014;

-  GL_CONVOLUTION_FILTER_BIAS_EXT = $8015;

-  GL_REDUCE_EXT = $8016;

-  GL_CONVOLUTION_FORMAT_EXT = $8017;

-  GL_CONVOLUTION_WIDTH_EXT = $8018;

-  GL_CONVOLUTION_HEIGHT_EXT = $8019;

-  GL_MAX_CONVOLUTION_WIDTH_EXT = $801A;

-  GL_MAX_CONVOLUTION_HEIGHT_EXT = $801B;

-  GL_POST_CONVOLUTION_RED_SCALE_EXT = $801C;

-  GL_POST_CONVOLUTION_GREEN_SCALE_EXT = $801D;

-  GL_POST_CONVOLUTION_BLUE_SCALE_EXT = $801E;

-  GL_POST_CONVOLUTION_ALPHA_SCALE_EXT = $801F;

-  GL_POST_CONVOLUTION_RED_BIAS_EXT = $8020;

-  GL_POST_CONVOLUTION_GREEN_BIAS_EXT = $8021;

-  GL_POST_CONVOLUTION_BLUE_BIAS_EXT = $8022;

-  GL_POST_CONVOLUTION_ALPHA_BIAS_EXT = $8023;

-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 = $8024;

-  GL_PROXY_HISTOGRAM_EXT = $8025;

-  GL_HISTOGRAM_WIDTH_EXT = $8026;

-  GL_HISTOGRAM_FORMAT_EXT = $8027;

-  GL_HISTOGRAM_RED_SIZE_EXT = $8028;

-  GL_HISTOGRAM_GREEN_SIZE_EXT = $8029;

-  GL_HISTOGRAM_BLUE_SIZE_EXT = $802A;

-  GL_HISTOGRAM_ALPHA_SIZE_EXT = $802B;

-  GL_HISTOGRAM_LUMINANCE_SIZE_EXT = $802C;

-  GL_HISTOGRAM_SINK_EXT = $802D;

-  GL_MINMAX_EXT = $802E;

-  GL_MINMAX_FORMAT_EXT = $802F;

-  GL_MINMAX_SINK_EXT = $8030;

-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 = $8032;

-  GL_UNSIGNED_SHORT_4_4_4_4_EXT = $8033;

-  GL_UNSIGNED_SHORT_5_5_5_1_EXT = $8034;

-  GL_UNSIGNED_INT_8_8_8_8_EXT = $8035;

-  GL_UNSIGNED_INT_10_10_10_2_EXT = $8036;

-

-function Load_GL_EXT_packed_pixels: Boolean;

-

-//***** GL_EXT_paletted_texture *****//

-const

-  GL_COLOR_INDEX1_EXT = $80E2;

-  GL_COLOR_INDEX2_EXT = $80E3;

-  GL_COLOR_INDEX4_EXT = $80E4;

-  GL_COLOR_INDEX8_EXT = $80E5;

-  GL_COLOR_INDEX12_EXT = $80E6;

-  GL_COLOR_INDEX16_EXT = $80E7;

-  GL_COLOR_TABLE_FORMAT_EXT = $80D8;

-  GL_COLOR_TABLE_WIDTH_EXT = $80D9;

-  GL_COLOR_TABLE_RED_SIZE_EXT = $80DA;

-  GL_COLOR_TABLE_GREEN_SIZE_EXT = $80DB;

-  GL_COLOR_TABLE_BLUE_SIZE_EXT = $80DC;

-  GL_COLOR_TABLE_ALPHA_SIZE_EXT = $80DD;

-  GL_COLOR_TABLE_LUMINANCE_SIZE_EXT = $80DE;

-  GL_COLOR_TABLE_INTENSITY_SIZE_EXT = $80DF;

-  GL_TEXTURE_INDEX_SIZE_EXT = $80ED;

-  GL_TEXTURE_1D = $0DE0;

-  GL_TEXTURE_2D = $0DE1;

-  GL_TEXTURE_3D_EXT = $806F;

-  // GL_TEXTURE_CUBE_MAP_ARB  { already defined }

-  GL_PROXY_TEXTURE_1D = $8063;

-  GL_PROXY_TEXTURE_2D = $8064;

-  GL_PROXY_TEXTURE_3D_EXT = $8070;

-  // 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 = $8126;

-  GL_POINT_SIZE_MAX_EXT = $8127;

-  GL_POINT_FADE_THRESHOLD_SIZE_EXT = $8128;

-  GL_DISTANCE_ATTENUATION_EXT = $8129;

-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 = $8037;

-  GL_POLYGON_OFFSET_FACTOR_EXT = $8038;

-  GL_POLYGON_OFFSET_BIAS_EXT = $8039;

-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 = $81F8;

-  GL_SINGLE_COLOR_EXT = $81F9;

-  GL_SEPARATE_SPECULAR_COLOR_EXT = $81FA;

-

-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 = $81FB;

-

-function Load_GL_EXT_shared_texture_palette: Boolean;

-

-//***** GL_EXT_stencil_two_side *****//

-const

-  GL_STENCIL_TEST_TWO_SIDE_EXT = $8910;

-  GL_ACTIVE_STENCIL_FACE_EXT = $8911;

-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 = $8507;

-  GL_DECR_WRAP_EXT = $8508;

-

-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 = $806B;

-  GL_PACK_IMAGE_HEIGHT_EXT = $806C;

-  GL_UNPACK_SKIP_IMAGES_EXT = $806D;

-  GL_UNPACK_IMAGE_HEIGHT_EXT = $806E;

-  // GL_TEXTURE_3D_EXT  { already defined }

-  // GL_PROXY_TEXTURE_3D_EXT  { already defined }

-  GL_TEXTURE_DEPTH_EXT = $8071;

-  GL_TEXTURE_WRAP_R_EXT = $8072;

-  GL_MAX_3D_TEXTURE_SIZE_EXT = $8073;

-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 = $83F0;

-  GL_COMPRESSED_RGBA_S3TC_DXT1_EXT = $83F1;

-  GL_COMPRESSED_RGBA_S3TC_DXT3_EXT = $83F2;

-  GL_COMPRESSED_RGBA_S3TC_DXT5_EXT = $83F3;

-

-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 = $8570;

-  GL_COMBINE_RGB_EXT = $8571;

-  GL_COMBINE_ALPHA_EXT = $8572;

-  GL_SOURCE0_RGB_EXT = $8580;

-  GL_SOURCE1_RGB_EXT = $8581;

-  GL_SOURCE2_RGB_EXT = $8582;

-  GL_SOURCE0_ALPHA_EXT = $8588;

-  GL_SOURCE1_ALPHA_EXT = $8589;

-  GL_SOURCE2_ALPHA_EXT = $858A;

-  GL_OPERAND0_RGB_EXT = $8590;

-  GL_OPERAND1_RGB_EXT = $8591;

-  GL_OPERAND2_RGB_EXT = $8592;

-  GL_OPERAND0_ALPHA_EXT = $8598;

-  GL_OPERAND1_ALPHA_EXT = $8599;

-  GL_OPERAND2_ALPHA_EXT = $859A;

-  GL_RGB_SCALE_EXT = $8573;

-  GL_ADD_SIGNED_EXT = $8574;

-  GL_INTERPOLATE_EXT = $8575;

-  GL_CONSTANT_EXT = $8576;

-  GL_PRIMARY_COLOR_EXT = $8577;

-  GL_PREVIOUS_EXT = $8578;

-

-function Load_GL_EXT_texture_env_combine: Boolean;

-

-//***** GL_EXT_texture_env_dot3 *****//

-const

-  GL_DOT3_RGB_EXT = $8740;

-  GL_DOT3_RGBA_EXT = $8741;

-

-function Load_GL_EXT_texture_env_dot3: Boolean;

-

-//***** GL_EXT_texture_filter_anisotropic *****//

-const

-  GL_TEXTURE_MAX_ANISOTROPY_EXT = $84FE;

-  GL_MAX_TEXTURE_MAX_ANISOTROPY_EXT = $84FF;

-

-function Load_GL_EXT_texture_filter_anisotropic: Boolean;

-

-//***** GL_EXT_texture_lod_bias *****//

-const

-  GL_TEXTURE_FILTER_CONTROL_EXT = $8500;

-  GL_TEXTURE_LOD_BIAS_EXT = $8501;

-  GL_MAX_TEXTURE_LOD_BIAS_EXT = $84FD;

-

-function Load_GL_EXT_texture_lod_bias: Boolean;

-

-//***** GL_EXT_texture_object *****//

-const

-  GL_TEXTURE_PRIORITY_EXT = $8066;

-  GL_TEXTURE_RESIDENT_EXT = $8067;

-  GL_TEXTURE_1D_BINDING_EXT = $8068;

-  GL_TEXTURE_2D_BINDING_EXT = $8069;

-  GL_TEXTURE_3D_BINDING_EXT = $806A;

-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 = $8074;

-  GL_NORMAL_ARRAY_EXT = $8075;

-  GL_COLOR_ARRAY_EXT = $8076;

-  GL_INDEX_ARRAY_EXT = $8077;

-  GL_TEXTURE_COORD_ARRAY_EXT = $8078;

-  GL_EDGE_FLAG_ARRAY_EXT = $8079;

-  GL_DOUBLE_EXT = $140A;

-  GL_VERTEX_ARRAY_SIZE_EXT = $807A;

-  GL_VERTEX_ARRAY_TYPE_EXT = $807B;

-  GL_VERTEX_ARRAY_STRIDE_EXT = $807C;

-  GL_VERTEX_ARRAY_COUNT_EXT = $807D;

-  GL_NORMAL_ARRAY_TYPE_EXT = $807E;

-  GL_NORMAL_ARRAY_STRIDE_EXT = $807F;

-  GL_NORMAL_ARRAY_COUNT_EXT = $8080;

-  GL_COLOR_ARRAY_SIZE_EXT = $8081;

-  GL_COLOR_ARRAY_TYPE_EXT = $8082;

-  GL_COLOR_ARRAY_STRIDE_EXT = $8083;

-  GL_COLOR_ARRAY_COUNT_EXT = $8084;

-  GL_INDEX_ARRAY_TYPE_EXT = $8085;

-  GL_INDEX_ARRAY_STRIDE_EXT = $8086;

-  GL_INDEX_ARRAY_COUNT_EXT = $8087;

-  GL_TEXTURE_COORD_ARRAY_SIZE_EXT = $8088;

-  GL_TEXTURE_COORD_ARRAY_TYPE_EXT = $8089;

-  GL_TEXTURE_COORD_ARRAY_STRIDE_EXT = $808A;

-  GL_TEXTURE_COORD_ARRAY_COUNT_EXT = $808B;

-  GL_EDGE_FLAG_ARRAY_STRIDE_EXT = $808C;

-  GL_EDGE_FLAG_ARRAY_COUNT_EXT = $808D;

-  GL_VERTEX_ARRAY_POINTER_EXT = $808E;

-  GL_NORMAL_ARRAY_POINTER_EXT = $808F;

-  GL_COLOR_ARRAY_POINTER_EXT = $8090;

-  GL_INDEX_ARRAY_POINTER_EXT = $8091;

-  GL_TEXTURE_COORD_ARRAY_POINTER_EXT = $8092;

-  GL_EDGE_FLAG_ARRAY_POINTER_EXT = $8093;

-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 = $8780;

-  GL_VARIANT_VALUE_EXT = $87E4;

-  GL_VARIANT_DATATYPE_EXT = $87E5;

-  GL_VARIANT_ARRAY_STRIDE_EXT = $87E6;

-  GL_VARIANT_ARRAY_TYPE_EXT = $87E7;

-  GL_VARIANT_ARRAY_EXT = $87E8;

-  GL_VARIANT_ARRAY_POINTER_EXT = $87E9;

-  GL_INVARIANT_VALUE_EXT = $87EA;

-  GL_INVARIANT_DATATYPE_EXT = $87EB;

-  GL_LOCAL_CONSTANT_VALUE_EXT = $87EC;

-  GL_LOCAL_CONSTANT_DATATYPE_EXT = $87ED;

-  GL_OP_INDEX_EXT = $8782;

-  GL_OP_NEGATE_EXT = $8783;

-  GL_OP_DOT3_EXT = $8784;

-  GL_OP_DOT4_EXT = $8785;

-  GL_OP_MUL_EXT = $8786;

-  GL_OP_ADD_EXT = $8787;

-  GL_OP_MADD_EXT = $8788;

-  GL_OP_FRAC_EXT = $8789;

-  GL_OP_MAX_EXT = $878A;

-  GL_OP_MIN_EXT = $878B;

-  GL_OP_SET_GE_EXT = $878C;

-  GL_OP_SET_LT_EXT = $878D;

-  GL_OP_CLAMP_EXT = $878E;

-  GL_OP_FLOOR_EXT = $878F;

-  GL_OP_ROUND_EXT = $8790;

-  GL_OP_EXP_BASE_2_EXT = $8791;

-  GL_OP_LOG_BASE_2_EXT = $8792;

-  GL_OP_POWER_EXT = $8793;

-  GL_OP_RECIP_EXT = $8794;

-  GL_OP_RECIP_SQRT_EXT = $8795;

-  GL_OP_SUB_EXT = $8796;

-  GL_OP_CROSS_PRODUCT_EXT = $8797;

-  GL_OP_MULTIPLY_MATRIX_EXT = $8798;

-  GL_OP_MOV_EXT = $8799;

-  GL_OUTPUT_VERTEX_EXT = $879A;

-  GL_OUTPUT_COLOR0_EXT = $879B;

-  GL_OUTPUT_COLOR1_EXT = $879C;

-  GL_OUTPUT_TEXTURE_COORD0_EXT = $879D;

-  GL_OUTPUT_TEXTURE_COORD1_EXT = $879E;

-  GL_OUTPUT_TEXTURE_COORD2_EXT = $879F;

-  GL_OUTPUT_TEXTURE_COORD3_EXT = $87A0;

-  GL_OUTPUT_TEXTURE_COORD4_EXT = $87A1;

-  GL_OUTPUT_TEXTURE_COORD5_EXT = $87A2;

-  GL_OUTPUT_TEXTURE_COORD6_EXT = $87A3;

-  GL_OUTPUT_TEXTURE_COORD7_EXT = $87A4;

-  GL_OUTPUT_TEXTURE_COORD8_EXT = $87A5;

-  GL_OUTPUT_TEXTURE_COORD9_EXT = $87A6;

-  GL_OUTPUT_TEXTURE_COORD10_EXT = $87A7;

-  GL_OUTPUT_TEXTURE_COORD11_EXT = $87A8;

-  GL_OUTPUT_TEXTURE_COORD12_EXT = $87A9;

-  GL_OUTPUT_TEXTURE_COORD13_EXT = $87AA;

-  GL_OUTPUT_TEXTURE_COORD14_EXT = $87AB;

-  GL_OUTPUT_TEXTURE_COORD15_EXT = $87AC;

-  GL_OUTPUT_TEXTURE_COORD16_EXT = $87AD;

-  GL_OUTPUT_TEXTURE_COORD17_EXT = $87AE;

-  GL_OUTPUT_TEXTURE_COORD18_EXT = $87AF;

-  GL_OUTPUT_TEXTURE_COORD19_EXT = $87B0;

-  GL_OUTPUT_TEXTURE_COORD20_EXT = $87B1;

-  GL_OUTPUT_TEXTURE_COORD21_EXT = $87B2;

-  GL_OUTPUT_TEXTURE_COORD22_EXT = $87B3;

-  GL_OUTPUT_TEXTURE_COORD23_EXT = $87B4;

-  GL_OUTPUT_TEXTURE_COORD24_EXT = $87B5;

-  GL_OUTPUT_TEXTURE_COORD25_EXT = $87B6;

-  GL_OUTPUT_TEXTURE_COORD26_EXT = $87B7;

-  GL_OUTPUT_TEXTURE_COORD27_EXT = $87B8;

-  GL_OUTPUT_TEXTURE_COORD28_EXT = $87B9;

-  GL_OUTPUT_TEXTURE_COORD29_EXT = $87BA;

-  GL_OUTPUT_TEXTURE_COORD30_EXT = $87BB;

-  GL_OUTPUT_TEXTURE_COORD31_EXT = $87BC;

-  GL_OUTPUT_FOG_EXT = $87BD;

-  GL_SCALAR_EXT = $87BE;

-  GL_VECTOR_EXT = $87BF;

-  GL_MATRIX_EXT = $87C0;

-  GL_VARIANT_EXT = $87C1;

-  GL_INVARIANT_EXT = $87C2;

-  GL_LOCAL_CONSTANT_EXT = $87C3;

-  GL_LOCAL_EXT = $87C4;

-  GL_MAX_VERTEX_SHADER_INSTRUCTIONS_EXT = $87C5;

-  GL_MAX_VERTEX_SHADER_VARIANTS_EXT = $87C6;

-  GL_MAX_VERTEX_SHADER_INVARIANTS_EXT = $87C7;

-  GL_MAX_VERTEX_SHADER_LOCAL_CONSTANTS_EXT = $87C8;

-  GL_MAX_VERTEX_SHADER_LOCALS_EXT = $87C9;

-  GL_MAX_OPTIMIZED_VERTEX_SHADER_INSTRUCTIONS_EXT = $87CA;

-  GL_MAX_OPTIMIZED_VERTEX_SHADER_VARIANTS_EXT = $87CB;

-  GL_MAX_OPTIMIZED_VERTEX_SHADER_LOCAL_CONSTANTS_EXT = $87CC;

-  GL_MAX_OPTIMIZED_VERTEX_SHADER_INVARIANTS_EXT = $87CD;

-  GL_MAX_OPTIMIZED_VERTEX_SHADER_LOCALS_EXT = $87CE;

-  GL_VERTEX_SHADER_INSTRUCTIONS_EXT = $87CF;

-  GL_VERTEX_SHADER_VARIANTS_EXT = $87D0;

-  GL_VERTEX_SHADER_INVARIANTS_EXT = $87D1;

-  GL_VERTEX_SHADER_LOCAL_CONSTANTS_EXT = $87D2;

-  GL_VERTEX_SHADER_LOCALS_EXT = $87D3;

-  GL_VERTEX_SHADER_BINDING_EXT = $8781;

-  GL_VERTEX_SHADER_OPTIMIZED_EXT = $87D4;

-  GL_X_EXT = $87D5;

-  GL_Y_EXT = $87D6;

-  GL_Z_EXT = $87D7;

-  GL_W_EXT = $87D8;

-  GL_NEGATIVE_X_EXT = $87D9;

-  GL_NEGATIVE_Y_EXT = $87DA;

-  GL_NEGATIVE_Z_EXT = $87DB;

-  GL_NEGATIVE_W_EXT = $87DC;

-  GL_ZERO_EXT = $87DD;

-  GL_ONE_EXT = $87DE;

-  GL_NEGATIVE_ONE_EXT = $87DF;

-  GL_NORMALIZED_RANGE_EXT = $87E0;

-  GL_FULL_RANGE_EXT = $87E1;

-  GL_CURRENT_VERTEX_EXT = $87E2;

-  GL_MVP_MATRIX_EXT = $87E3;

-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 = $8509;

-  GL_MODELVIEW0_EXT = $1700;

-  GL_MODELVIEW1_EXT = $850A;

-  GL_MODELVIEW0_MATRIX_EXT = $0BA6;

-  GL_MODELVIEW1_MATRIX_EXT = $8506;

-  GL_CURRENT_VERTEX_WEIGHT_EXT = $850B;

-  GL_VERTEX_WEIGHT_ARRAY_EXT = $850C;

-  GL_VERTEX_WEIGHT_ARRAY_SIZE_EXT = $850D;

-  GL_VERTEX_WEIGHT_ARRAY_TYPE_EXT = $850E;

-  GL_VERTEX_WEIGHT_ARRAY_STRIDE_EXT = $850F;

-  GL_MODELVIEW0_STACK_DEPTH_EXT = $0BA3;

-  GL_MODELVIEW1_STACK_DEPTH_EXT = $8502;

-  GL_VERTEX_WEIGHT_ARRAY_POINTER_EXT = $8510;

-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 = $8165;

-  GL_OCCLUSION_TEST_RESULT_HP = $8166;

-

-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 = $886E;

-  GL_DEPTH_STENCIL_TO_BGRA_NV = $886F;

-

-function Load_GL_NV_copy_depth_to_color: Boolean;

-

-//***** GL_NV_depth_clamp *****//

-const

-  GL_DEPTH_CLAMP_NV = $864F;

-

-function Load_GL_NV_depth_clamp: Boolean;

-

-//***** GL_NV_evaluators *****//

-const

-  GL_EVAL_2D_NV = $86C0;

-  GL_EVAL_TRIANGULAR_2D_NV = $86C1;

-  GL_MAP_TESSELLATION_NV = $86C2;

-  GL_MAP_ATTRIB_U_ORDER_NV = $86C3;

-  GL_MAP_ATTRIB_V_ORDER_NV = $86C4;

-  GL_EVAL_FRACTIONAL_TESSELLATION_NV = $86C5;

-  GL_EVAL_VERTEX_ATTRIB0_NV = $86C6;

-  GL_EVAL_VERTEX_ATTRIB1_NV = $86C7;

-  GL_EVAL_VERTEX_ATTRIB2_NV = $86C8;

-  GL_EVAL_VERTEX_ATTRIB3_NV = $86C9;

-  GL_EVAL_VERTEX_ATTRIB4_NV = $86CA;

-  GL_EVAL_VERTEX_ATTRIB5_NV = $86CB;

-  GL_EVAL_VERTEX_ATTRIB6_NV = $86CC;

-  GL_EVAL_VERTEX_ATTRIB7_NV = $86CD;

-  GL_EVAL_VERTEX_ATTRIB8_NV = $86CE;

-  GL_EVAL_VERTEX_ATTRIB9_NV = $86CF;

-  GL_EVAL_VERTEX_ATTRIB10_NV = $86D0;

-  GL_EVAL_VERTEX_ATTRIB11_NV = $86D1;

-  GL_EVAL_VERTEX_ATTRIB12_NV = $86D2;

-  GL_EVAL_VERTEX_ATTRIB13_NV = $86D3;

-  GL_EVAL_VERTEX_ATTRIB14_NV = $86D4;

-  GL_EVAL_VERTEX_ATTRIB15_NV = $86D5;

-  GL_MAX_MAP_TESSELLATION_NV = $86D6;

-  GL_MAX_RATIONAL_EVAL_ORDER_NV = $86D7;

-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 = $84F2;

-  GL_FENCE_STATUS_NV = $84F3;

-  GL_FENCE_CONDITION_NV = $84F4;

-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 = $855A;

-  GL_EYE_RADIAL_NV = $855B;

-  GL_EYE_PLANE_ABSOLUTE_NV = $855C;

-

-function Load_GL_NV_fog_distance: Boolean;

-

-//***** GL_NV_light_max_exponent *****//

-const

-  GL_MAX_SHININESS_NV = $8504;

-  GL_MAX_SPOT_EXPONENT_NV = $8505;

-

-function Load_GL_NV_light_max_exponent: Boolean;

-

-//***** GL_NV_multisample_filter_hint *****//

-const

-  GL_MULTISAMPLE_FILTER_HINT_NV = $8534;

-

-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 = $8864;

-  GL_CURRENT_OCCLUSION_QUERY_ID_NV = $8865;

-  GL_PIXEL_COUNT_NV = $8866;

-  GL_PIXEL_COUNT_AVAILABLE_NV = $8867;

-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 = $84F9;

-  GL_UNSIGNED_INT_24_8_NV = $84FA;

-

-function Load_GL_NV_packed_depth_stencil: Boolean;

-

-//***** GL_NV_point_sprite *****//

-const

-  GL_POINT_SPRITE_NV = $8861;

-  GL_COORD_REPLACE_NV = $8862;

-  GL_POINT_SPRITE_R_MODE_NV = $8863;

-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 = $8522;

-  GL_COMBINER0_NV = $8550;

-  GL_COMBINER1_NV = $8551;

-  GL_COMBINER2_NV = $8552;

-  GL_COMBINER3_NV = $8553;

-  GL_COMBINER4_NV = $8554;

-  GL_COMBINER5_NV = $8555;

-  GL_COMBINER6_NV = $8556;

-  GL_COMBINER7_NV = $8557;

-  GL_VARIABLE_A_NV = $8523;

-  GL_VARIABLE_B_NV = $8524;

-  GL_VARIABLE_C_NV = $8525;

-  GL_VARIABLE_D_NV = $8526;

-  GL_VARIABLE_E_NV = $8527;

-  GL_VARIABLE_F_NV = $8528;

-  GL_VARIABLE_G_NV = $8529;

-  GL_CONSTANT_COLOR0_NV = $852A;

-  GL_CONSTANT_COLOR1_NV = $852B;

-  GL_PRIMARY_COLOR_NV = $852C;

-  GL_SECONDARY_COLOR_NV = $852D;

-  GL_SPARE0_NV = $852E;

-  GL_SPARE1_NV = $852F;

-  GL_UNSIGNED_IDENTITY_NV = $8536;

-  GL_UNSIGNED_INVERT_NV = $8537;

-  GL_EXPAND_NORMAL_NV = $8538;

-  GL_EXPAND_NEGATE_NV = $8539;

-  GL_HALF_BIAS_NORMAL_NV = $853A;

-  GL_HALF_BIAS_NEGATE_NV = $853B;

-  GL_SIGNED_IDENTITY_NV = $853C;

-  GL_SIGNED_NEGATE_NV = $853D;

-  GL_E_TIMES_F_NV = $8531;

-  GL_SPARE0_PLUS_SECONDARY_COLOR_NV = $8532;

-  GL_SCALE_BY_TWO_NV = $853E;

-  GL_SCALE_BY_FOUR_NV = $853F;

-  GL_SCALE_BY_ONE_HALF_NV = $8540;

-  GL_BIAS_BY_NEGATIVE_ONE_HALF_NV = $8541;

-  GL_DISCARD_NV = $8530;

-  GL_COMBINER_INPUT_NV = $8542;

-  GL_COMBINER_MAPPING_NV = $8543;

-  GL_COMBINER_COMPONENT_USAGE_NV = $8544;

-  GL_COMBINER_AB_DOT_PRODUCT_NV = $8545;

-  GL_COMBINER_CD_DOT_PRODUCT_NV = $8546;

-  GL_COMBINER_MUX_SUM_NV = $8547;

-  GL_COMBINER_SCALE_NV = $8548;

-  GL_COMBINER_BIAS_NV = $8549;

-  GL_COMBINER_AB_OUTPUT_NV = $854A;

-  GL_COMBINER_CD_OUTPUT_NV = $854B;

-  GL_COMBINER_SUM_OUTPUT_NV = $854C;

-  GL_NUM_GENERAL_COMBINERS_NV = $854E;

-  GL_COLOR_SUM_CLAMP_NV = $854F;

-  GL_MAX_GENERAL_COMBINERS_NV = $854D;

-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 = $8535;

-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 = $855F;

-  GL_EMBOSS_LIGHT_NV = $855D;

-  GL_EMBOSS_CONSTANT_NV = $855E;

-

-function Load_GL_NV_texgen_emboss: Boolean;

-

-//***** GL_NV_texgen_reflection *****//

-const

-  GL_NORMAL_MAP_NV = $8511;

-  GL_REFLECTION_MAP_NV = $8512;

-

-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 = $8503;

-  GL_SOURCE3_RGB_NV = $8583;

-  GL_SOURCE3_ALPHA_NV = $858B;

-  GL_OPERAND3_RGB_NV = $8593;

-  GL_OPERAND3_ALPHA_NV = $859B;

-

-function Load_GL_NV_texture_env_combine4: Boolean;

-

-//***** GL_NV_texture_rectangle *****//

-const

-  GL_TEXTURE_RECTANGLE_NV = $84F5;

-  GL_TEXTURE_BINDING_RECTANGLE_NV = $84F6;

-  GL_PROXY_TEXTURE_RECTANGLE_NV = $84F7;

-  GL_MAX_RECTANGLE_TEXTURE_SIZE_NV = $84F8;

-

-function Load_GL_NV_texture_rectangle: Boolean;

-

-//***** GL_NV_texture_shader *****//

-const

-  GL_TEXTURE_SHADER_NV = $86DE;

-  GL_RGBA_UNSIGNED_DOT_PRODUCT_MAPPING_NV = $86D9;

-  GL_SHADER_OPERATION_NV = $86DF;

-  GL_CULL_MODES_NV = $86E0;

-  GL_OFFSET_TEXTURE_MATRIX_NV = $86E1;

-  GL_OFFSET_TEXTURE_SCALE_NV = $86E2;

-  GL_OFFSET_TEXTURE_BIAS_NV = $86E3;

-  GL_PREVIOUS_TEXTURE_INPUT_NV = $86E4;

-  GL_CONST_EYE_NV = $86E5;

-  GL_SHADER_CONSISTENT_NV = $86DD;

-  GL_PASS_THROUGH_NV = $86E6;

-  GL_CULL_FRAGMENT_NV = $86E7;

-  GL_OFFSET_TEXTURE_2D_NV = $86E8;

-  GL_OFFSET_TEXTURE_RECTANGLE_NV = $864C;

-  GL_OFFSET_TEXTURE_RECTANGLE_SCALE_NV = $864D;

-  GL_DEPENDENT_AR_TEXTURE_2D_NV = $86E9;

-  GL_DEPENDENT_GB_TEXTURE_2D_NV = $86EA;

-  GL_DOT_PRODUCT_NV = $86EC;

-  GL_DOT_PRODUCT_DEPTH_REPLACE_NV = $86ED;

-  GL_DOT_PRODUCT_TEXTURE_2D_NV = $86EE;

-  GL_DOT_PRODUCT_TEXTURE_RECTANGLE_NV = $864E;

-  GL_DOT_PRODUCT_TEXTURE_CUBE_MAP_NV = $86F0;

-  GL_DOT_PRODUCT_DIFFUSE_CUBE_MAP_NV = $86F1;

-  GL_DOT_PRODUCT_REFLECT_CUBE_MAP_NV = $86F2;

-  GL_DOT_PRODUCT_CONST_EYE_REFLECT_CUBE_MAP_NV = $86F3;

-  GL_HILO_NV = $86F4;

-  GL_DSDT_NV = $86F5;

-  GL_DSDT_MAG_NV = $86F6;

-  GL_DSDT_MAG_VIB_NV = $86F7;

-  GL_UNSIGNED_INT_S8_S8_8_8_NV = $86DA;

-  GL_UNSIGNED_INT_8_8_S8_S8_REV_NV = $86DB;

-  GL_SIGNED_RGBA_NV = $86FB;

-  GL_SIGNED_RGBA8_NV = $86FC;

-  GL_SIGNED_RGB_NV = $86FE;

-  GL_SIGNED_RGB8_NV = $86FF;

-  GL_SIGNED_LUMINANCE_NV = $8701;

-  GL_SIGNED_LUMINANCE8_NV = $8702;

-  GL_SIGNED_LUMINANCE_ALPHA_NV = $8703;

-  GL_SIGNED_LUMINANCE8_ALPHA8_NV = $8704;

-  GL_SIGNED_ALPHA_NV = $8705;

-  GL_SIGNED_ALPHA8_NV = $8706;

-  GL_SIGNED_INTENSITY_NV = $8707;

-  GL_SIGNED_INTENSITY8_NV = $8708;

-  GL_SIGNED_RGB_UNSIGNED_ALPHA_NV = $870C;

-  GL_SIGNED_RGB8_UNSIGNED_ALPHA8_NV = $870D;

-  GL_HILO16_NV = $86F8;

-  GL_SIGNED_HILO_NV = $86F9;

-  GL_SIGNED_HILO16_NV = $86FA;

-  GL_DSDT8_NV = $8709;

-  GL_DSDT8_MAG8_NV = $870A;

-  GL_DSDT_MAG_INTENSITY_NV = $86DC;

-  GL_DSDT8_MAG8_INTENSITY8_NV = $870B;

-  GL_HI_SCALE_NV = $870E;

-  GL_LO_SCALE_NV = $870F;

-  GL_DS_SCALE_NV = $8710;

-  GL_DT_SCALE_NV = $8711;

-  GL_MAGNITUDE_SCALE_NV = $8712;

-  GL_VIBRANCE_SCALE_NV = $8713;

-  GL_HI_BIAS_NV = $8714;

-  GL_LO_BIAS_NV = $8715;

-  GL_DS_BIAS_NV = $8716;

-  GL_DT_BIAS_NV = $8717;

-  GL_MAGNITUDE_BIAS_NV = $8718;

-  GL_VIBRANCE_BIAS_NV = $8719;

-  GL_TEXTURE_BORDER_VALUES_NV = $871A;

-  GL_TEXTURE_HI_SIZE_NV = $871B;

-  GL_TEXTURE_LO_SIZE_NV = $871C;

-  GL_TEXTURE_DS_SIZE_NV = $871D;

-  GL_TEXTURE_DT_SIZE_NV = $871E;

-  GL_TEXTURE_MAG_SIZE_NV = $871F;

-

-function Load_GL_NV_texture_shader: Boolean;

-

-//***** GL_NV_texture_shader2 *****//

-const

-  GL_DOT_PRODUCT_TEXTURE_3D_NV = $86EF;

-  // 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 = $8850;

-  GL_OFFSET_PROJECTIVE_TEXTURE_2D_SCALE_NV = $8851;

-  GL_OFFSET_PROJECTIVE_TEXTURE_RECTANGLE_NV = $8852;

-  GL_OFFSET_PROJECTIVE_TEXTURE_RECTANGLE_SCALE_NV = $8853;

-  GL_OFFSET_HILO_TEXTURE_2D_NV = $8854;

-  GL_OFFSET_HILO_TEXTURE_RECTANGLE_NV = $8855;

-  GL_OFFSET_HILO_PROJECTIVE_TEXTURE_2D_NV = $8856;

-  GL_OFFSET_HILO_PROJECTIVE_TEXTURE_RECTANGLE_NV = $8857;

-  GL_DEPENDENT_HILO_TEXTURE_2D_NV = $8858;

-  GL_DEPENDENT_RGB_TEXTURE_3D_NV = $8859;

-  GL_DEPENDENT_RGB_TEXTURE_CUBE_MAP_NV = $885A;

-  GL_DOT_PRODUCT_PASS_THROUGH_NV = $885B;

-  GL_DOT_PRODUCT_TEXTURE_1D_NV = $885C;

-  GL_DOT_PRODUCT_AFFINE_DEPTH_REPLACE_NV = $885D;

-  GL_HILO8_NV = $885E;

-  GL_SIGNED_HILO8_NV = $885F;

-  GL_FORCE_BLUE_TO_ONE_NV = $8860;

-

-function Load_GL_NV_texture_shader3: Boolean;

-

-//***** GL_NV_vertex_array_range *****//

-const

-  GL_VERTEX_ARRAY_RANGE_NV = $851D;

-  GL_VERTEX_ARRAY_RANGE_LENGTH_NV = $851E;

-  GL_VERTEX_ARRAY_RANGE_VALID_NV = $851F;

-  GL_MAX_VERTEX_ARRAY_RANGE_ELEMENT_NV = $8520;

-  GL_VERTEX_ARRAY_RANGE_POINTER_NV = $8521;

-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 = $8533;

-

-function Load_GL_NV_vertex_array_range2: Boolean;

-

-//***** GL_NV_vertex_program *****//

-const

-  GL_VERTEX_PROGRAM_NV = $8620;

-  GL_VERTEX_PROGRAM_POINT_SIZE_NV = $8642;

-  GL_VERTEX_PROGRAM_TWO_SIDE_NV = $8643;

-  GL_VERTEX_STATE_PROGRAM_NV = $8621;

-  GL_ATTRIB_ARRAY_SIZE_NV = $8623;

-  GL_ATTRIB_ARRAY_STRIDE_NV = $8624;

-  GL_ATTRIB_ARRAY_TYPE_NV = $8625;

-  GL_CURRENT_ATTRIB_NV = $8626;

-  GL_PROGRAM_PARAMETER_NV = $8644;

-  GL_ATTRIB_ARRAY_POINTER_NV = $8645;

-  GL_PROGRAM_TARGET_NV = $8646;

-  GL_PROGRAM_LENGTH_NV = $8627;

-  GL_PROGRAM_RESIDENT_NV = $8647;

-  GL_PROGRAM_STRING_NV = $8628;

-  GL_TRACK_MATRIX_NV = $8648;

-  GL_TRACK_MATRIX_TRANSFORM_NV = $8649;

-  GL_MAX_TRACK_MATRIX_STACK_DEPTH_NV = $862E;

-  GL_MAX_TRACK_MATRICES_NV = $862F;

-  GL_CURRENT_MATRIX_STACK_DEPTH_NV = $8640;

-  GL_CURRENT_MATRIX_NV = $8641;

-  GL_VERTEX_PROGRAM_BINDING_NV = $864A;

-  GL_PROGRAM_ERROR_POSITION_NV = $864B;

-  GL_MODELVIEW_PROJECTION_NV = $8629;

-  GL_MATRIX0_NV = $8630;

-  GL_MATRIX1_NV = $8631;

-  GL_MATRIX2_NV = $8632;

-  GL_MATRIX3_NV = $8633;

-  GL_MATRIX4_NV = $8634;

-  GL_MATRIX5_NV = $8635;

-  GL_MATRIX6_NV = $8636;

-  GL_MATRIX7_NV = $8637;

-  GL_IDENTITY_NV = $862A;

-  GL_INVERSE_NV = $862B;

-  GL_TRANSPOSE_NV = $862C;

-  GL_INVERSE_TRANSPOSE_NV = $862D;

-  GL_VERTEX_ATTRIB_ARRAY0_NV = $8650;

-  GL_VERTEX_ATTRIB_ARRAY1_NV = $8651;

-  GL_VERTEX_ATTRIB_ARRAY2_NV = $8652;

-  GL_VERTEX_ATTRIB_ARRAY3_NV = $8653;

-  GL_VERTEX_ATTRIB_ARRAY4_NV = $8654;

-  GL_VERTEX_ATTRIB_ARRAY5_NV = $8655;

-  GL_VERTEX_ATTRIB_ARRAY6_NV = $8656;

-  GL_VERTEX_ATTRIB_ARRAY7_NV = $8657;

-  GL_VERTEX_ATTRIB_ARRAY8_NV = $8658;

-  GL_VERTEX_ATTRIB_ARRAY9_NV = $8659;

-  GL_VERTEX_ATTRIB_ARRAY10_NV = $865A;

-  GL_VERTEX_ATTRIB_ARRAY11_NV = $865B;

-  GL_VERTEX_ATTRIB_ARRAY12_NV = $865C;

-  GL_VERTEX_ATTRIB_ARRAY13_NV = $865D;

-  GL_VERTEX_ATTRIB_ARRAY14_NV = $865E;

-  GL_VERTEX_ATTRIB_ARRAY15_NV = $865F;

-  GL_MAP1_VERTEX_ATTRIB0_4_NV = $8660;

-  GL_MAP1_VERTEX_ATTRIB1_4_NV = $8661;

-  GL_MAP1_VERTEX_ATTRIB2_4_NV = $8662;

-  GL_MAP1_VERTEX_ATTRIB3_4_NV = $8663;

-  GL_MAP1_VERTEX_ATTRIB4_4_NV = $8664;

-  GL_MAP1_VERTEX_ATTRIB5_4_NV = $8665;

-  GL_MAP1_VERTEX_ATTRIB6_4_NV = $8666;

-  GL_MAP1_VERTEX_ATTRIB7_4_NV = $8667;

-  GL_MAP1_VERTEX_ATTRIB8_4_NV = $8668;

-  GL_MAP1_VERTEX_ATTRIB9_4_NV = $8669;

-  GL_MAP1_VERTEX_ATTRIB10_4_NV = $866A;

-  GL_MAP1_VERTEX_ATTRIB11_4_NV = $866B;

-  GL_MAP1_VERTEX_ATTRIB12_4_NV = $866C;

-  GL_MAP1_VERTEX_ATTRIB13_4_NV = $866D;

-  GL_MAP1_VERTEX_ATTRIB14_4_NV = $866E;

-  GL_MAP1_VERTEX_ATTRIB15_4_NV = $866F;

-  GL_MAP2_VERTEX_ATTRIB0_4_NV = $8670;

-  GL_MAP2_VERTEX_ATTRIB1_4_NV = $8671;

-  GL_MAP2_VERTEX_ATTRIB2_4_NV = $8672;

-  GL_MAP2_VERTEX_ATTRIB3_4_NV = $8673;

-  GL_MAP2_VERTEX_ATTRIB4_4_NV = $8674;

-  GL_MAP2_VERTEX_ATTRIB5_4_NV = $8675;

-  GL_MAP2_VERTEX_ATTRIB6_4_NV = $8676;

-  GL_MAP2_VERTEX_ATTRIB7_4_NV = $8677;

-  GL_MAP2_VERTEX_ATTRIB8_4_NV = $8678;

-  GL_MAP2_VERTEX_ATTRIB9_4_NV = $8679;

-  GL_MAP2_VERTEX_ATTRIB10_4_NV = $867A;

-  GL_MAP2_VERTEX_ATTRIB11_4_NV = $867B;

-  GL_MAP2_VERTEX_ATTRIB12_4_NV = $867C;

-  GL_MAP2_VERTEX_ATTRIB13_4_NV = $867D;

-  GL_MAP2_VERTEX_ATTRIB14_4_NV = $867E;

-  GL_MAP2_VERTEX_ATTRIB15_4_NV = $867F;

-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 = $8768;

-  GL_ELEMENT_ARRAY_TYPE_ATI = $8769;

-  GL_ELEMENT_ARRAY_POINTER_ATI = $876A;

-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 = $8775;

-  GL_BUMP_ROT_MATRIX_SIZE_ATI = $8776;

-  GL_BUMP_NUM_TEX_UNITS_ATI = $8777;

-  GL_BUMP_TEX_UNITS_ATI = $8778;

-  GL_DUDV_ATI = $8779;

-  GL_DU8DV8_ATI = $877A;

-  GL_BUMP_ENVMAP_ATI = $877B;

-  GL_BUMP_TARGET_ATI = $877C;

-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 = $8920;

-  GL_REG_0_ATI = $8921;

-  GL_REG_1_ATI = $8922;

-  GL_REG_2_ATI = $8923;

-  GL_REG_3_ATI = $8924;

-  GL_REG_4_ATI = $8925;

-  GL_REG_5_ATI = $8926;

-  GL_CON_0_ATI = $8941;

-  GL_CON_1_ATI = $8942;

-  GL_CON_2_ATI = $8943;

-  GL_CON_3_ATI = $8944;

-  GL_CON_4_ATI = $8945;

-  GL_CON_5_ATI = $8946;

-  GL_CON_6_ATI = $8947;

-  GL_CON_7_ATI = $8948;

-  GL_MOV_ATI = $8961;

-  GL_ADD_ATI = $8963;

-  GL_MUL_ATI = $8964;

-  GL_SUB_ATI = $8965;

-  GL_DOT3_ATI = $8966;

-  GL_DOT4_ATI = $8967;

-  GL_MAD_ATI = $8968;

-  GL_LERP_ATI = $8969;

-  GL_CND_ATI = $896A;

-  GL_CND0_ATI = $896B;

-  GL_DOT2_ADD_ATI = $896C;

-  GL_SECONDARY_INTERPOLATOR_ATI = $896D;

-  GL_SWIZZLE_STR_ATI = $8976;

-  GL_SWIZZLE_STQ_ATI = $8977;

-  GL_SWIZZLE_STR_DR_ATI = $8978;

-  GL_SWIZZLE_STQ_DQ_ATI = $8979;

-  GL_RED_BIT_ATI = $0001;

-  GL_GREEN_BIT_ATI = $0002;

-  GL_BLUE_BIT_ATI = $0004;

-  GL_2X_BIT_ATI = $0001;

-  GL_4X_BIT_ATI = $0002;

-  GL_8X_BIT_ATI = $0004;

-  GL_HALF_BIT_ATI = $0008;

-  GL_QUARTER_BIT_ATI = $0010;

-  GL_EIGHTH_BIT_ATI = $0020;

-  GL_SATURATE_BIT_ATI = $0040;

-  // GL_2X_BIT_ATI  { already defined }

-  GL_COMP_BIT_ATI = $0002;

-  GL_NEGATE_BIT_ATI = $0004;

-  GL_BIAS_BIT_ATI = $0008;

-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 = $87F0;

-  GL_MAX_PN_TRIANGLES_TESSELATION_LEVEL_ATI = $87F1;

-  GL_PN_TRIANGLES_POINT_MODE_ATI = $87F2;

-  GL_PN_TRIANGLES_NORMAL_MODE_ATI = $87F3;

-  GL_PN_TRIANGLES_TESSELATION_LEVEL_ATI = $87F4;

-  GL_PN_TRIANGLES_POINT_MODE_LINEAR_ATI = $87F5;

-  GL_PN_TRIANGLES_POINT_MODE_CUBIC_ATI = $87F6;

-  GL_PN_TRIANGLES_NORMAL_MODE_LINEAR_ATI = $87F7;

-  GL_PN_TRIANGLES_NORMAL_MODE_QUADRATIC_ATI = $87F8;

-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 = $8742;

-  GL_MIRROR_CLAMP_TO_EDGE_ATI = $8743;

-

-function Load_GL_ATI_texture_mirror_once: Boolean;

-

-//***** GL_ATI_vertex_array_object *****//

-const

-  GL_STATIC_ATI = $8760;

-  GL_DYNAMIC_ATI = $8761;

-  GL_PRESERVE_ATI = $8762;

-  GL_DISCARD_ATI = $8763;

-  GL_OBJECT_BUFFER_SIZE_ATI = $8764;

-  GL_OBJECT_BUFFER_USAGE_ATI = $8765;

-  GL_ARRAY_OBJECT_BUFFER_ATI = $8766;

-  GL_ARRAY_OBJECT_OFFSET_ATI = $8767;

-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 = $876B;

-  GL_VERTEX_STREAM0_ATI = $876C;

-  GL_VERTEX_STREAM1_ATI = $876D;

-  GL_VERTEX_STREAM2_ATI = $876E;

-  GL_VERTEX_STREAM3_ATI = $876F;

-  GL_VERTEX_STREAM4_ATI = $8770;

-  GL_VERTEX_STREAM5_ATI = $8771;

-  GL_VERTEX_STREAM6_ATI = $8772;

-  GL_VERTEX_STREAM7_ATI = $8773;

-  GL_VERTEX_SOURCE_ATI = $8774;

-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 = $0001;

-  WGL_IMAGE_BUFFER_LOCK_I3D = $0002;

-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 = $86B0;

-  GL_COMPRESSED_RGBA_FXT1_3DFX = $86B1;

-

-function Load_GL_3DFX_texture_compression_FXT1: Boolean;

-

-//***** GL_IBM_cull_vertex *****//

-const

-  GL_CULL_VERTEX_IBM = $1928A;

-

-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 = $19262;

-

-function Load_GL_IBM_raster_pos_clip: Boolean;

-

-//***** GL_IBM_texture_mirrored_repeat *****//

-const

-  GL_MIRRORED_REPEAT_IBM = $8370;

-

-function Load_GL_IBM_texture_mirrored_repeat: Boolean;

-

-//***** GL_IBM_vertex_array_lists *****//

-const

-  GL_VERTEX_ARRAY_LIST_IBM = $1929E;

-  GL_NORMAL_ARRAY_LIST_IBM = $1929F;

-  GL_COLOR_ARRAY_LIST_IBM = $192A0;

-  GL_INDEX_ARRAY_LIST_IBM = $192A1;

-  GL_TEXTURE_COORD_ARRAY_LIST_IBM = $192A2;

-  GL_EDGE_FLAG_ARRAY_LIST_IBM = $192A3;

-  GL_FOG_COORDINATE_ARRAY_LIST_IBM = $192A4;

-  GL_SECONDARY_COLOR_ARRAY_LIST_IBM = $192A5;

-  GL_VERTEX_ARRAY_LIST_STRIDE_IBM = $192A8;

-  GL_NORMAL_ARRAY_LIST_STRIDE_IBM = $192A9;

-  GL_COLOR_ARRAY_LIST_STRIDE_IBM = $192AA;

-  GL_INDEX_ARRAY_LIST_STRIDE_IBM = $192AB;

-  GL_TEXTURE_COORD_ARRAY_LIST_STRIDE_IBM = $192AC;

-  GL_EDGE_FLAG_ARRAY_LIST_STRIDE_IBM = $192AD;

-  GL_FOG_COORDINATE_ARRAY_LIST_STRIDE_IBM = $192AE;

-  GL_SECONDARY_COLOR_ARRAY_LIST_STRIDE_IBM = $192AF;

-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 = $8980;

-  GL_INTERLACE_READ_OML = $8981;

-

-function Load_GL_OML_interlace: Boolean;

-

-//***** GL_OML_resample *****//

-const

-  GL_PACK_RESAMPLE_OML = $8984;

-  GL_UNPACK_RESAMPLE_OML = $8985;

-  GL_RESAMPLE_REPLICATE_OML = $8986;

-  GL_RESAMPLE_ZERO_FILL_OML = $8987;

-  GL_RESAMPLE_AVERAGE_OML = $8988;

-  GL_RESAMPLE_DECIMATE_OML = $8989;

-  // GL_RESAMPLE_AVERAGE_OML  { already defined }

-

-function Load_GL_OML_resample: Boolean;

-

-//***** GL_OML_subsample *****//

-const

-  GL_FORMAT_SUBSAMPLE_24_24_OML = $8982;

-  GL_FORMAT_SUBSAMPLE_244_244_OML = $8983;

-

-function Load_GL_OML_subsample: Boolean;

-

-//***** GL_SGIS_generate_mipmap *****//

-const

-  GL_GENERATE_MIPMAP_SGIS = $8191;

-  GL_GENERATE_MIPMAP_HINT_SGIS = $8192;

-

-function Load_GL_SGIS_generate_mipmap: Boolean;

-

-//***** GL_SGIS_multisample *****//

-const

-  GLX_SAMPLE_BUFFERS_SGIS = $186A0;

-  GLX_SAMPLES_SGIS = $186A1;

-  GL_MULTISAMPLE_SGIS = $809D;

-  GL_SAMPLE_ALPHA_TO_MASK_SGIS = $809E;

-  GL_SAMPLE_ALPHA_TO_ONE_SGIS = $809F;

-  GL_SAMPLE_MASK_SGIS = $80A0;

-  GL_MULTISAMPLE_BIT_EXT = $20000000;

-  GL_1PASS_SGIS = $80A1;

-  GL_2PASS_0_SGIS = $80A2;

-  GL_2PASS_1_SGIS = $80A3;

-  GL_4PASS_0_SGIS = $80A4;

-  GL_4PASS_1_SGIS = $80A5;

-  GL_4PASS_2_SGIS = $80A6;

-  GL_4PASS_3_SGIS = $80A7;

-  GL_SAMPLE_BUFFERS_SGIS = $80A8;

-  GL_SAMPLES_SGIS = $80A9;

-  GL_SAMPLE_MASK_VALUE_SGIS = $80AA;

-  GL_SAMPLE_MASK_INVERT_SGIS = $80AB;

-  GL_SAMPLE_PATTERN_SGIS = $80AC;

-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 = $8353;

-  GL_PIXEL_FRAGMENT_RGB_SOURCE_SGIS = $8354;

-  GL_PIXEL_FRAGMENT_ALPHA_SOURCE_SGIS = $8355;

-  GL_PIXEL_GROUP_COLOR_SGIS = $8356;

-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 = $81EF;

-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 = $812F;

-

-function Load_GL_SGIS_texture_edge_clamp: Boolean;

-

-//***** GL_SGIS_texture_lod *****//

-const

-  GL_TEXTURE_MIN_LOD_SGIS = $813A;

-  GL_TEXTURE_MAX_LOD_SGIS = $813B;

-  GL_TEXTURE_BASE_LEVEL_SGIS = $813C;

-  GL_TEXTURE_MAX_LEVEL_SGIS = $813D;

-

-function Load_GL_SGIS_texture_lod: Boolean;

-

-//***** GL_SGIS_depth_texture *****//

-const

-  GL_DEPTH_COMPONENT16_SGIX = $81A5;

-  GL_DEPTH_COMPONENT24_SGIX = $81A6;

-  GL_DEPTH_COMPONENT32_SGIX = $81A7;

-

-function Load_GL_SGIS_depth_texture: Boolean;

-

-//***** GL_SGIX_fog_offset *****//

-const

-  GL_FOG_OFFSET_SGIX = $8198;

-  GL_FOG_OFFSET_VALUE_SGIX = $8199;

-

-function Load_GL_SGIX_fog_offset: Boolean;

-

-//***** GL_SGIX_interlace *****//

-const

-  GL_INTERLACE_SGIX = $8094;

-

-function Load_GL_SGIX_interlace: Boolean;

-

-//***** GL_SGIX_shadow_ambient *****//

-const

-  GL_SHADOW_AMBIENT_SGIX = $80BF;

-

-function Load_GL_SGIX_shadow_ambient: Boolean;

-

-//***** GL_SGI_color_matrix *****//

-const

-  GL_COLOR_MATRIX_SGI = $80B1;

-  GL_COLOR_MATRIX_STACK_DEPTH_SGI = $80B2;

-  GL_MAX_COLOR_MATRIX_STACK_DEPTH_SGI = $80B3;

-  GL_POST_COLOR_MATRIX_RED_SCALE_SGI = $80B4;

-  GL_POST_COLOR_MATRIX_GREEN_SCALE_SGI = $80B5;

-  GL_POST_COLOR_MATRIX_BLUE_SCALE_SGI = $80B6;

-  GL_POST_COLOR_MATRIX_ALPHA_SCALE_SGI = $80B7;

-  GL_POST_COLOR_MATRIX_RED_BIAS_SGI = $80B8;

-  GL_POST_COLOR_MATRIX_GREEN_BIAS_SGI = $80B9;

-  GL_POST_COLOR_MATRIX_BLUE_BIAS_SGI = $80BA;

-  GL_POST_COLOR_MATRIX_ALPHA_BIAS_SGI = $80BB;

-

-function Load_GL_SGI_color_matrix: Boolean;

-

-//***** GL_SGI_color_table *****//

-const

-  GL_COLOR_TABLE_SGI = $80D0;

-  GL_POST_CONVOLUTION_COLOR_TABLE_SGI = $80D1;

-  GL_POST_COLOR_MATRIX_COLOR_TABLE_SGI = $80D2;

-  GL_PROXY_COLOR_TABLE_SGI = $80D3;

-  GL_PROXY_POST_CONVOLUTION_COLOR_TABLE_SGI = $80D4;

-  GL_PROXY_POST_COLOR_MATRIX_COLOR_TABLE_SGI = $80D5;

-  GL_COLOR_TABLE_SCALE_SGI = $80D6;

-  GL_COLOR_TABLE_BIAS_SGI = $80D7;

-  GL_COLOR_TABLE_FORMAT_SGI = $80D8;

-  GL_COLOR_TABLE_WIDTH_SGI = $80D9;

-  GL_COLOR_TABLE_RED_SIZE_SGI = $80DA;

-  GL_COLOR_TABLE_GREEN_SIZE_SGI = $80DB;

-  GL_COLOR_TABLE_BLUE_SIZE_SGI = $80DC;

-  GL_COLOR_TABLE_ALPHA_SIZE_SGI = $80DD;

-  GL_COLOR_TABLE_LUMINANCE_SIZE_SGI = $80DE;

-  GL_COLOR_TABLE_INTENSITY_SIZE_SGI = $80DF;

-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 = $80BC;

-  GL_PROXY_TEXTURE_COLOR_TABLE_SGI = $80BD;

-

-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 = $8804;

-  // 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 = $8805;

-  GL_PROGRAM_TEX_INSTRUCTIONS_ARB = $8806;

-  GL_PROGRAM_TEX_INDIRECTIONS_ARB = $8807;

-  GL_PROGRAM_NATIVE_ALU_INSTRUCTIONS_ARB = $8808;

-  GL_PROGRAM_NATIVE_TEX_INSTRUCTIONS_ARB = $8809;

-  GL_PROGRAM_NATIVE_TEX_INDIRECTIONS_ARB = $880A;

-  GL_MAX_PROGRAM_ALU_INSTRUCTIONS_ARB = $880B;

-  GL_MAX_PROGRAM_TEX_INSTRUCTIONS_ARB = $880C;

-  GL_MAX_PROGRAM_TEX_INDIRECTIONS_ARB = $880D;

-  GL_MAX_PROGRAM_NATIVE_ALU_INSTRUCTIONS_ARB = $880E;

-  GL_MAX_PROGRAM_NATIVE_TEX_INSTRUCTIONS_ARB = $880F;

-  GL_MAX_PROGRAM_NATIVE_TEX_INDIRECTIONS_ARB = $8810;

-  // 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 = $8871;

-  GL_MAX_TEXTURE_IMAGE_UNITS_ARB = $8872;

-  // 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 = $8200;

-

-function Load_GL_ATI_text_fragment_shader: Boolean;

-

-//***** GL_APPLE_client_storage *****//

-const

-  GL_UNPACK_CLIENT_STORAGE_APPLE = $85B2;

-

-function Load_GL_APPLE_client_storage: Boolean;

-

-//***** GL_APPLE_element_array *****//

-const

-  GL_ELEMENT_ARRAY_APPLE = $8768;

-  GL_ELEMENT_ARRAY_TYPE_APPLE = $8769;

-  GL_ELEMENT_ARRAY_POINTER_APPLE = $876A;

-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 = $8A0A;

-  GL_FENCE_APPLE = $8A0B;

-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 = $85B5;

-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 = $851D;

-  GL_VERTEX_ARRAY_RANGE_LENGTH_APPLE = $851E;

-  GL_MAX_VERTEX_ARRAY_RANGE_ELEMENT_APPLE = $8520;

-  GL_VERTEX_ARRAY_RANGE_POINTER_APPLE = $8521;

-  GL_VERTEX_ARRAY_STORAGE_HINT_APPLE = $851F;

-  GL_STORAGE_CACHED_APPLE = $85BE;

-  GL_STORAGE_SHARED_APPLE = $85BF;

-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 = $2000;

-  WGL_DRAW_TO_WINDOW_ARB = $2001;

-  WGL_DRAW_TO_BITMAP_ARB = $2002;

-  WGL_ACCELERATION_ARB = $2003;

-  WGL_NEED_PALETTE_ARB = $2004;

-  WGL_NEED_SYSTEM_PALETTE_ARB = $2005;

-  WGL_SWAP_LAYER_BUFFERS_ARB = $2006;

-  WGL_SWAP_METHOD_ARB = $2007;

-  WGL_NUMBER_OVERLAYS_ARB = $2008;

-  WGL_NUMBER_UNDERLAYS_ARB = $2009;

-  WGL_TRANSPARENT_ARB = $200A;

-  WGL_TRANSPARENT_RED_VALUE_ARB = $2037;

-  WGL_TRANSPARENT_GREEN_VALUE_ARB = $2038;

-  WGL_TRANSPARENT_BLUE_VALUE_ARB = $2039;

-  WGL_TRANSPARENT_ALPHA_VALUE_ARB = $203A;

-  WGL_TRANSPARENT_INDEX_VALUE_ARB = $203B;

-  WGL_SHARE_DEPTH_ARB = $200C;

-  WGL_SHARE_STENCIL_ARB = $200D;

-  WGL_SHARE_ACCUM_ARB = $200E;

-  WGL_SUPPORT_GDI_ARB = $200F;

-  WGL_SUPPORT_OPENGL_ARB = $2010;

-  WGL_DOUBLE_BUFFER_ARB = $2011;

-  WGL_STEREO_ARB = $2012;

-  WGL_PIXEL_TYPE_ARB = $2013;

-  WGL_COLOR_BITS_ARB = $2014;

-  WGL_RED_BITS_ARB = $2015;

-  WGL_RED_SHIFT_ARB = $2016;

-  WGL_GREEN_BITS_ARB = $2017;

-  WGL_GREEN_SHIFT_ARB = $2018;

-  WGL_BLUE_BITS_ARB = $2019;

-  WGL_BLUE_SHIFT_ARB = $201A;

-  WGL_ALPHA_BITS_ARB = $201B;

-  WGL_ALPHA_SHIFT_ARB = $201C;

-  WGL_ACCUM_BITS_ARB = $201D;

-  WGL_ACCUM_RED_BITS_ARB = $201E;

-  WGL_ACCUM_GREEN_BITS_ARB = $201F;

-  WGL_ACCUM_BLUE_BITS_ARB = $2020;

-  WGL_ACCUM_ALPHA_BITS_ARB = $2021;

-  WGL_DEPTH_BITS_ARB = $2022;

-  WGL_STENCIL_BITS_ARB = $2023;

-  WGL_AUX_BUFFERS_ARB = $2024;

-  WGL_NO_ACCELERATION_ARB = $2025;

-  WGL_GENERIC_ACCELERATION_ARB = $2026;

-  WGL_FULL_ACCELERATION_ARB = $2027;

-  WGL_SWAP_EXCHANGE_ARB = $2028;

-  WGL_SWAP_COPY_ARB = $2029;

-  WGL_SWAP_UNDEFINED_ARB = $202A;

-  WGL_TYPE_RGBA_ARB = $202B;

-  WGL_TYPE_COLORINDEX_ARB = $202C;

-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 = $2043;

-  WGL_ERROR_INCOMPATIBLE_DEVICE_CONTEXTS_ARB = $2054;

-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 = $202D;

-  // WGL_DRAW_TO_PBUFFER_ARB  { already defined }

-  WGL_MAX_PBUFFER_PIXELS_ARB = $202E;

-  WGL_MAX_PBUFFER_WIDTH_ARB = $202F;

-  WGL_MAX_PBUFFER_HEIGHT_ARB = $2030;

-  WGL_PBUFFER_LARGEST_ARB = $2033;

-  WGL_PBUFFER_WIDTH_ARB = $2034;

-  WGL_PBUFFER_HEIGHT_ARB = $2035;

-  WGL_PBUFFER_LOST_ARB = $2036;

-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 = $2070;

-  WGL_BIND_TO_TEXTURE_RGBA_ARB = $2071;

-  WGL_TEXTURE_FORMAT_ARB = $2072;

-  WGL_TEXTURE_TARGET_ARB = $2073;

-  WGL_MIPMAP_TEXTURE_ARB = $2074;

-  WGL_TEXTURE_RGB_ARB = $2075;

-  WGL_TEXTURE_RGBA_ARB = $2076;

-  WGL_NO_TEXTURE_ARB = $2077;

-  WGL_TEXTURE_CUBE_MAP_ARB = $2078;

-  WGL_TEXTURE_1D_ARB = $2079;

-  WGL_TEXTURE_2D_ARB = $207A;

-  // WGL_NO_TEXTURE_ARB  { already defined }

-  WGL_MIPMAP_LEVEL_ARB = $207B;

-  WGL_CUBE_MAP_FACE_ARB = $207C;

-  WGL_TEXTURE_CUBE_MAP_POSITIVE_X_ARB = $207D;

-  WGL_TEXTURE_CUBE_MAP_NEGATIVE_X_ARB = $207E;

-  WGL_TEXTURE_CUBE_MAP_POSITIVE_Y_ARB = $207F;

-  WGL_TEXTURE_CUBE_MAP_NEGATIVE_Y_ARB = $2080;

-  WGL_TEXTURE_CUBE_MAP_POSITIVE_Z_ARB = $2081;

-  WGL_TEXTURE_CUBE_MAP_NEGATIVE_Z_ARB = $2082;

-  WGL_FRONT_LEFT_ARB = $2083;

-  WGL_FRONT_RIGHT_ARB = $2084;

-  WGL_BACK_LEFT_ARB = $2085;

-  WGL_BACK_RIGHT_ARB = $2086;

-  WGL_AUX0_ARB = $2087;

-  WGL_AUX1_ARB = $2088;

-  WGL_AUX2_ARB = $2089;

-  WGL_AUX3_ARB = $208A;

-  WGL_AUX4_ARB = $208B;

-  WGL_AUX5_ARB = $208C;

-  WGL_AUX6_ARB = $208D;

-  WGL_AUX7_ARB = $208E;

-  WGL_AUX8_ARB = $208F;

-  WGL_AUX9_ARB = $2090;

-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 = $202D;

-  WGL_MAX_PBUFFER_PIXELS_EXT = $202E;

-  WGL_MAX_PBUFFER_WIDTH_EXT = $202F;

-  WGL_MAX_PBUFFER_HEIGHT_EXT = $2030;

-  WGL_OPTIMAL_PBUFFER_WIDTH_EXT = $2031;

-  WGL_OPTIMAL_PBUFFER_HEIGHT_EXT = $2032;

-  WGL_PBUFFER_LARGEST_EXT = $2033;

-  WGL_PBUFFER_WIDTH_EXT = $2034;

-  WGL_PBUFFER_HEIGHT_EXT = $2035;

-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 = $2000;

-  WGL_DRAW_TO_WINDOW_EXT = $2001;

-  WGL_DRAW_TO_BITMAP_EXT = $2002;

-  WGL_ACCELERATION_EXT = $2003;

-  WGL_NEED_PALETTE_EXT = $2004;

-  WGL_NEED_SYSTEM_PALETTE_EXT = $2005;

-  WGL_SWAP_LAYER_BUFFERS_EXT = $2006;

-  WGL_SWAP_METHOD_EXT = $2007;

-  WGL_NUMBER_OVERLAYS_EXT = $2008;

-  WGL_NUMBER_UNDERLAYS_EXT = $2009;

-  WGL_TRANSPARENT_EXT = $200A;

-  WGL_TRANSPARENT_VALUE_EXT = $200B;

-  WGL_SHARE_DEPTH_EXT = $200C;

-  WGL_SHARE_STENCIL_EXT = $200D;

-  WGL_SHARE_ACCUM_EXT = $200E;

-  WGL_SUPPORT_GDI_EXT = $200F;

-  WGL_SUPPORT_OPENGL_EXT = $2010;

-  WGL_DOUBLE_BUFFER_EXT = $2011;

-  WGL_STEREO_EXT = $2012;

-  WGL_PIXEL_TYPE_EXT = $2013;

-  WGL_COLOR_BITS_EXT = $2014;

-  WGL_RED_BITS_EXT = $2015;

-  WGL_RED_SHIFT_EXT = $2016;

-  WGL_GREEN_BITS_EXT = $2017;

-  WGL_GREEN_SHIFT_EXT = $2018;

-  WGL_BLUE_BITS_EXT = $2019;

-  WGL_BLUE_SHIFT_EXT = $201A;

-  WGL_ALPHA_BITS_EXT = $201B;

-  WGL_ALPHA_SHIFT_EXT = $201C;

-  WGL_ACCUM_BITS_EXT = $201D;

-  WGL_ACCUM_RED_BITS_EXT = $201E;

-  WGL_ACCUM_GREEN_BITS_EXT = $201F;

-  WGL_ACCUM_BLUE_BITS_EXT = $2020;

-  WGL_ACCUM_ALPHA_BITS_EXT = $2021;

-  WGL_DEPTH_BITS_EXT = $2022;

-  WGL_STENCIL_BITS_EXT = $2023;

-  WGL_AUX_BUFFERS_EXT = $2024;

-  WGL_NO_ACCELERATION_EXT = $2025;

-  WGL_GENERIC_ACCELERATION_EXT = $2026;

-  WGL_FULL_ACCELERATION_EXT = $2027;

-  WGL_SWAP_EXCHANGE_EXT = $2028;

-  WGL_SWAP_COPY_EXT = $2029;

-  WGL_SWAP_UNDEFINED_EXT = $202A;

-  WGL_TYPE_RGBA_EXT = $202B;

-  WGL_TYPE_COLORINDEX_EXT = $202C;

-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 = $2050;

-  WGL_DIGITAL_VIDEO_CURSOR_ALPHA_VALUE_I3D = $2051;

-  WGL_DIGITAL_VIDEO_CURSOR_INCLUDED_I3D = $2052;

-  WGL_DIGITAL_VIDEO_GAMMA_CORRECTED_I3D = $2053;

-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 = $204E;

-  WGL_GAMMA_EXCLUDE_DESKTOP_I3D = $204F;

-  // 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 = $2044;

-  WGL_GENLOCK_SOURCE_EXTERNAL_SYNC_I3D = $2045;

-  WGL_GENLOCK_SOURCE_EXTERNAL_FIELD_I3D = $2046;

-  WGL_GENLOCK_SOURCE_EXTERNAL_TTL_I3D = $2047;

-  WGL_GENLOCK_SOURCE_DIGITAL_SYNC_I3D = $2048;

-  WGL_GENLOCK_SOURCE_DIGITAL_FIELD_I3D = $2049;

-  WGL_GENLOCK_SOURCE_EDGE_FALLING_I3D = $204A;

-  WGL_GENLOCK_SOURCE_EDGE_RISING_I3D = $204B;

-  WGL_GENLOCK_SOURCE_EDGE_BOTH_I3D = $204C;

-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 = $8840;

-  GL_MAX_MATRIX_PALETTE_STACK_DEPTH_ARB = $8841;

-  GL_MAX_PALETTE_MATRICES_ARB = $8842;

-  GL_CURRENT_PALETTE_MATRIX_ARB = $8843;

-  GL_MATRIX_INDEX_ARRAY_ARB = $8844;

-  GL_CURRENT_MATRIX_INDEX_ARB = $8845;

-  GL_MATRIX_INDEX_ARRAY_SIZE_ARB = $8846;

-  GL_MATRIX_INDEX_ARRAY_TYPE_ARB = $8847;

-  GL_MATRIX_INDEX_ARRAY_STRIDE_ARB = $8848;

-  GL_MATRIX_INDEX_ARRAY_POINTER_ARB = $8849;

-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 = $8769;

-  GL_ELEMENT_ARRAY_POINTER_NV = $876A;

-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 = $8880;

-  GL_FLOAT_RG_NV = $8881;

-  GL_FLOAT_RGB_NV = $8882;

-  GL_FLOAT_RGBA_NV = $8883;

-  GL_FLOAT_R16_NV = $8884;

-  GL_FLOAT_R32_NV = $8885;

-  GL_FLOAT_RG16_NV = $8886;

-  GL_FLOAT_RG32_NV = $8887;

-  GL_FLOAT_RGB16_NV = $8888;

-  GL_FLOAT_RGB32_NV = $8889;

-  GL_FLOAT_RGBA16_NV = $888A;

-  GL_FLOAT_RGBA32_NV = $888B;

-  GL_TEXTURE_FLOAT_COMPONENTS_NV = $888C;

-  GL_FLOAT_CLEAR_COLOR_VALUE_NV = $888D;

-  GL_FLOAT_RGBA_MODE_NV = $888E;

-{$IFDEF WINDOWS}

-  WGL_FLOAT_COMPONENTS_NV = $20B0;

-  WGL_BIND_TO_TEXTURE_RECTANGLE_FLOAT_R_NV = $20B1;

-  WGL_BIND_TO_TEXTURE_RECTANGLE_FLOAT_RG_NV = $20B2;

-  WGL_BIND_TO_TEXTURE_RECTANGLE_FLOAT_RGB_NV = $20B3;

-  WGL_BIND_TO_TEXTURE_RECTANGLE_FLOAT_RGBA_NV = $20B4;

-  WGL_TEXTURE_FLOAT_R_NV = $20B5;

-  WGL_TEXTURE_FLOAT_RG_NV = $20B6;

-  WGL_TEXTURE_FLOAT_RGB_NV = $20B7;

-  WGL_TEXTURE_FLOAT_RGBA_NV = $20B8;

-{$ENDIF}

-

-function Load_GL_NV_float_buffer: Boolean;

-

-//***** GL_NV_fragment_program *****//

-const

-  GL_FRAGMENT_PROGRAM_NV = $8870;

-  GL_MAX_TEXTURE_COORDS_NV = $8871;

-  GL_MAX_TEXTURE_IMAGE_UNITS_NV = $8872;

-  GL_FRAGMENT_PROGRAM_BINDING_NV = $8873;

-  GL_MAX_FRAGMENT_PROGRAM_LOCAL_PARAMETERS_NV = $8868;

-  GL_PROGRAM_ERROR_STRING_NV = $8874;

-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 = $8558;

-  GL_PRIMITIVE_RESTART_INDEX_NV = $8559;

-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 = $20A0;

-  WGL_BIND_TO_TEXTURE_RECTANGLE_RGBA_NV = $20A1;

-  WGL_TEXTURE_RECTANGLE_NV = $20A2;

-

-function Load_WGL_NV_render_texture_rectangle: Boolean;

-{$ENDIF}

-

-//***** GL_NV_pixel_data_range *****//

-const

-  GL_WRITE_PIXEL_DATA_RANGE_NV = $8878;

-  GL_READ_PIXEL_DATA_RANGE_NV = $8879;

-  GL_WRITE_PIXEL_DATA_RANGE_LENGTH_NV = $887A;

-  GL_READ_PIXEL_DATA_RANGE_LENGTH_NV = $887B;

-  GL_WRITE_PIXEL_DATA_RANGE_POINTER_NV = $887C;

-  GL_READ_PIXEL_DATA_RANGE_POINTER_NV = $887D;

-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 = $84F5;

-  GL_TEXTURE_BINDING_RECTANGLE_EXT = $84F6;

-  GL_PROXY_TEXTURE_RECTANGLE_EXT = $84F7;

-  GL_MAX_RECTANGLE_TEXTURE_SIZE_EXT = $84F8;

-

-function Load_GL_EXT_texture_rectangle: Boolean;

-

-//***** GL_S3_s3tc *****//

-const

-  GL_RGB_S3TC = $83A0;

-  GL_RGB4_S3TC = $83A1;

-  GL_RGBA_S3TC = $83A2;

-  GL_RGBA4_S3TC = $83A3;

-

-function Load_GL_S3_s3tc: Boolean;

-

-//***** GL_ATI_draw_buffers *****//

-const

-  GL_MAX_DRAW_BUFFERS_ATI = $8824;

-  GL_DRAW_BUFFER0_ATI = $8825;

-  GL_DRAW_BUFFER1_ATI = $8826;

-  GL_DRAW_BUFFER2_ATI = $8827;

-  GL_DRAW_BUFFER3_ATI = $8828;

-  GL_DRAW_BUFFER4_ATI = $8829;

-  GL_DRAW_BUFFER5_ATI = $882A;

-  GL_DRAW_BUFFER6_ATI = $882B;

-  GL_DRAW_BUFFER7_ATI = $882C;

-  GL_DRAW_BUFFER8_ATI = $882D;

-  GL_DRAW_BUFFER9_ATI = $882E;

-  GL_DRAW_BUFFER10_ATI = $882F;

-  GL_DRAW_BUFFER11_ATI = $8830;

-  GL_DRAW_BUFFER12_ATI = $8831;

-  GL_DRAW_BUFFER13_ATI = $8832;

-  GL_DRAW_BUFFER14_ATI = $8833;

-  GL_DRAW_BUFFER15_ATI = $8834;

-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 = $8820;

-  WGL_COLOR_CLEAR_UNCLAMPED_VALUE_ATI = $8835;

-  WGL_TYPE_RGBA_FLOAT_ATI = $21A0;

-

-function Load_WGL_ATI_pixel_format_float: Boolean;

-{$ENDIF}

-

-//***** GL_ATI_texture_env_combine3 *****//

-const

-  GL_MODULATE_ADD_ATI = $8744;

-  GL_MODULATE_SIGNED_ADD_ATI = $8745;

-  GL_MODULATE_SUBTRACT_ATI = $8746;

-

-function Load_GL_ATI_texture_env_combine3: Boolean;

-

-//***** GL_ATI_texture_float *****//

-const

-  GL_RGBA_FLOAT32_ATI = $8814;

-  GL_RGB_FLOAT32_ATI = $8815;

-  GL_ALPHA_FLOAT32_ATI = $8816;

-  GL_INTENSITY_FLOAT32_ATI = $8817;

-  GL_LUMINANCE_FLOAT32_ATI = $8818;

-  GL_LUMINANCE_ALPHA_FLOAT32_ATI = $8819;

-  GL_RGBA_FLOAT16_ATI = $881A;

-  GL_RGB_FLOAT16_ATI = $881B;

-  GL_ALPHA_FLOAT16_ATI = $881C;

-  GL_INTENSITY_FLOAT16_ATI = $881D;

-  GL_LUMINANCE_FLOAT16_ATI = $881E;

-  GL_LUMINANCE_ALPHA_FLOAT16_ATI = $881F;

-

-function Load_GL_ATI_texture_float: Boolean;

-

-//***** GL_NV_texture_expand_normal *****//

-const

-  GL_TEXTURE_UNSIGNED_REMAP_MODE_NV = $888F;

-

-function Load_GL_NV_texture_expand_normal: Boolean;

-

-//***** GL_NV_half_float *****//

-const

-  GL_HALF_FLOAT_NV = $140B;

-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 = $1E00;

-  GL_ZERO = $0000;

-  GL_REPLACE = $1E01;

-  GL_INCR = $1E02;

-  GL_DECR = $1E03;

-  GL_INVERT = $150A;

-  GL_NEVER = $0200;

-  GL_LESS = $0201;

-  GL_LEQUAL = $0203;

-  GL_GREATER = $0204;

-  GL_GEQUAL = $0206;

-  GL_EQUAL = $0202;

-  GL_NOTEQUAL = $0205;

-  GL_ALWAYS = $0207;

-  GL_FRONT = $0404;

-  GL_BACK = $0405;

-  GL_FRONT_AND_BACK = $0408;

-  GL_STENCIL_BACK_FUNC_ATI = $8800;

-  GL_STENCIL_BACK_FAIL_ATI = $8801;

-  GL_STENCIL_BACK_PASS_DEPTH_FAIL_ATI = $8802;

-  GL_STENCIL_BACK_PASS_DEPTH_PASS_ATI = $8803;

-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 = $8892;

-  GL_ELEMENT_ARRAY_BUFFER_ARB = $8893;

-  GL_ARRAY_BUFFER_BINDING_ARB = $8894;

-  GL_ELEMENT_ARRAY_BUFFER_BINDING_ARB = $8895;

-  GL_VERTEX_ARRAY_BUFFER_BINDING_ARB = $8896;

-  GL_NORMAL_ARRAY_BUFFER_BINDING_ARB = $8897;

-  GL_COLOR_ARRAY_BUFFER_BINDING_ARB = $8898;

-  GL_INDEX_ARRAY_BUFFER_BINDING_ARB = $8899;

-  GL_TEXTURE_COORD_ARRAY_BUFFER_BINDING_ARB = $889A;

-  GL_EDGE_FLAG_ARRAY_BUFFER_BINDING_ARB = $889B;

-  GL_SECONDARY_COLOR_ARRAY_BUFFER_BINDING_ARB = $889C;

-  GL_FOG_COORDINATE_ARRAY_BUFFER_BINDING_ARB = $889D;

-  GL_WEIGHT_ARRAY_BUFFER_BINDING_ARB = $889E;

-  GL_VERTEX_ATTRIB_ARRAY_BUFFER_BINDING_ARB = $889F;

-  GL_STREAM_DRAW_ARB = $88E0;

-  GL_STREAM_READ_ARB = $88E1;

-  GL_STREAM_COPY_ARB = $88E2;

-  GL_STATIC_DRAW_ARB = $88E4;

-  GL_STATIC_READ_ARB = $88E5;

-  GL_STATIC_COPY_ARB = $88E6;

-  GL_DYNAMIC_DRAW_ARB = $88E8;

-  GL_DYNAMIC_READ_ARB = $88E9;

-  GL_DYNAMIC_COPY_ARB = $88EA;

-  GL_READ_ONLY_ARB = $88B8;

-  GL_WRITE_ONLY_ARB = $88B9;

-  GL_READ_WRITE_ARB = $88BA;

-  GL_BUFFER_SIZE_ARB = $8764;

-  GL_BUFFER_USAGE_ARB = $8765;

-  GL_BUFFER_ACCESS_ARB = $88BB;

-  GL_BUFFER_MAPPED_ARB = $88BC;

-  GL_BUFFER_MAP_POINTER_ARB = $88BD;

-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 = $8914;

-  GL_QUERY_COUNTER_BITS_ARB = $8864;

-  GL_CURRENT_QUERY_ARB = $8865;

-  GL_QUERY_RESULT_ARB = $8866;

-  GL_QUERY_RESULT_AVAILABLE_ARB = $8867;

-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 = $8B40;

-  GL_OBJECT_TYPE_ARB = $8B4E;

-  GL_OBJECT_SUBTYPE_ARB = $8B4F;

-  GL_OBJECT_DELETE_STATUS_ARB = $8B80;

-  GL_OBJECT_COMPILE_STATUS_ARB = $8B81;

-  GL_OBJECT_LINK_STATUS_ARB = $8B82;

-  GL_OBJECT_VALIDATE_STATUS_ARB = $8B83;

-  GL_OBJECT_INFO_LOG_LENGTH_ARB = $8B84;

-  GL_OBJECT_ATTACHED_OBJECTS_ARB = $8B85;

-  GL_OBJECT_ACTIVE_UNIFORMS_ARB = $8B86;

-  GL_OBJECT_ACTIVE_UNIFORM_MAX_LENGTH_ARB = $8B87;

-  GL_OBJECT_SHADER_SOURCE_LENGTH_ARB = $8B88;

-  GL_SHADER_OBJECT_ARB = $8B48;

-  GL_FLOAT = $1406;

-  GL_FLOAT_VEC2_ARB = $8B50;

-  GL_FLOAT_VEC3_ARB = $8B51;

-  GL_FLOAT_VEC4_ARB = $8B52;

-  GL_INT = $1404;

-  GL_INT_VEC2_ARB = $8B53;

-  GL_INT_VEC3_ARB = $8B54;

-  GL_INT_VEC4_ARB = $8B55;

-  GL_BOOL_ARB = $8B56;

-  GL_BOOL_VEC2_ARB = $8B57;

-  GL_BOOL_VEC3_ARB = $8B58;

-  GL_BOOL_VEC4_ARB = $8B59;

-  GL_FLOAT_MAT2_ARB = $8B5A;

-  GL_FLOAT_MAT3_ARB = $8B5B;

-  GL_FLOAT_MAT4_ARB = $8B5C;

-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 = $8B31;

-  GL_MAX_VERTEX_UNIFORM_COMPONENTS_ARB = $8B4A;

-  GL_MAX_VARYING_FLOATS_ARB = $8B4B;

-  // GL_MAX_VERTEX_ATTRIBS_ARB  { already defined }

-  // GL_MAX_TEXTURE_IMAGE_UNITS_ARB  { already defined }

-  GL_MAX_VERTEX_TEXTURE_IMAGE_UNITS_ARB = $8B4C;

-  GL_MAX_COMBINED_TEXTURE_IMAGE_UNITS_ARB = $8B4D;

-  // 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 = $8B89;

-  GL_OBJECT_ACTIVE_ATTRIBUTE_MAX_LENGTH_ARB = $8B8A;

-  // 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 = $8B30;

-  GL_MAX_FRAGMENT_UNIFORM_COMPONENTS_ARB = $8B49;

-  // 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 = $8861;

-  GL_COORD_REPLACE_ARB = $8862;

-

-function Load_GL_ARB_point_sprite: Boolean;

-

-//***** GL_EXT_depth_bounds_test *****//

-const

-  GL_DEPTH_BOUNDS_TEST_EXT = $8890;

-  GL_DEPTH_BOUNDS_EXT = $8891;

-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 = $8458;

-  GL_CURRENT_SECONDARY_COLOR_EXT = $8459;

-  GL_SECONDARY_COLOR_ARRAY_SIZE_EXT = $845A;

-  GL_SECONDARY_COLOR_ARRAY_TYPE_EXT = $845B;

-  GL_SECONDARY_COLOR_ARRAY_STRIDE_EXT = $845C;

-  GL_SECONDARY_COLOR_ARRAY_POINTER_EXT = $845D;

-  GL_SECONDARY_COLOR_ARRAY_EXT = $845E;

-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 = $8742;

-  GL_MIRROR_CLAMP_TO_EDGE_EXT = $8743;

-  GL_MIRROR_CLAMP_TO_BORDER_EXT = $8912;

-

-function Load_GL_EXT_texture_mirror_clamp: Boolean;

-

-//***** GL_EXT_blend_equation_separate *****//

-const

-  GL_BLEND_EQUATION_RGB_EXT = $8009;

-  GL_BLEND_EQUATION_ALPHA_EXT = $883D;

-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 = $8758;

-

-function Load_GL_MESA_pack_invert: Boolean;

-

-//***** GL_MESA_ycbcr_texture *****//

-const

-  GL_YCBCR_MESA = $8757;

-  GL_UNSIGNED_SHORT_8_8_MESA = $85BA;

-  GL_UNSIGNED_SHORT_8_8_REV_MESA = $85BB;

-

-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 = $8450;

-  GL_FOG_COORDINATE_EXT = $8451;

-  GL_FRAGMENT_DEPTH_EXT = $8452;

-  GL_CURRENT_FOG_COORDINATE_EXT = $8453;

-  GL_FOG_COORDINATE_ARRAY_TYPE_EXT = $8454;

-  GL_FOG_COORDINATE_ARRAY_STRIDE_EXT = $8455;

-  GL_FOG_COORDINATE_ARRAY_POINTER_EXT = $8456;

-  GL_FOG_COORDINATE_ARRAY_EXT = $8457;

-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 = $88EB;

-  GL_PIXEL_UNPACK_BUFFER_EXT = $88EC;

-  GL_PIXEL_PACK_BUFFER_BINDING_EXT = $88ED;

-  GL_PIXEL_UNPACK_BUFFER_BINDING_EXT = $88EF;

-

-function Load_GL_EXT_pixel_buffer_object: Boolean;

-

-//***** GL_NV_fragment_program2 *****//

-const

-  GL_MAX_PROGRAM_EXEC_INSTRUCTIONS_NV = $88F4;

-  GL_MAX_PROGRAM_CALL_DEPTH_NV = $88F5;

-  GL_MAX_PROGRAM_IF_DEPTH_NV = $88F6;

-  GL_MAX_PROGRAM_LOOP_DEPTH_NV = $88F7;

-  GL_MAX_PROGRAM_LOOP_COUNT_NV = $88F8;

-

-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 = $8824;

-  GL_DRAW_BUFFER0_ARB = $8825;

-  GL_DRAW_BUFFER1_ARB = $8826;

-  GL_DRAW_BUFFER2_ARB = $8827;

-  GL_DRAW_BUFFER3_ARB = $8828;

-  GL_DRAW_BUFFER4_ARB = $8829;

-  GL_DRAW_BUFFER5_ARB = $882A;

-  GL_DRAW_BUFFER6_ARB = $882B;

-  GL_DRAW_BUFFER7_ARB = $882C;

-  GL_DRAW_BUFFER8_ARB = $882D;

-  GL_DRAW_BUFFER9_ARB = $882E;

-  GL_DRAW_BUFFER10_ARB = $882F;

-  GL_DRAW_BUFFER11_ARB = $8830;

-  GL_DRAW_BUFFER12_ARB = $8831;

-  GL_DRAW_BUFFER13_ARB = $8832;

-  GL_DRAW_BUFFER14_ARB = $8833;

-  GL_DRAW_BUFFER15_ARB = $8834;

-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 = $84F5;

-  GL_TEXTURE_BINDING_RECTANGLE_ARB = $84F6;

-  GL_PROXY_TEXTURE_RECTANGLE_ARB = $84F7;

-  GL_MAX_RECTANGLE_TEXTURE_SIZE_ARB = $84F8;

-

-function Load_GL_ARB_texture_rectangle: Boolean;

-

-//***** GL_ARB_color_buffer_float *****//

-const

-  GL_RGBA_FLOAT_MODE_ARB = $8820;

-  GL_CLAMP_VERTEX_COLOR_ARB = $891A;

-  GL_CLAMP_FRAGMENT_COLOR_ARB = $891B;

-  GL_CLAMP_READ_COLOR_ARB = $891C;

-  GL_FIXED_ONLY_ARB = $891D;

-  WGL_TYPE_RGBA_FLOAT_ARB = $21A0;

-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 = $140B;

-

-function Load_GL_ARB_half_float_pixel: Boolean;

-

-//***** GL_ARB_texture_float *****//

-const

-  GL_TEXTURE_RED_TYPE_ARB = $8C10;

-  GL_TEXTURE_GREEN_TYPE_ARB = $8C11;

-  GL_TEXTURE_BLUE_TYPE_ARB = $8C12;

-  GL_TEXTURE_ALPHA_TYPE_ARB = $8C13;

-  GL_TEXTURE_LUMINANCE_TYPE_ARB = $8C14;

-  GL_TEXTURE_INTENSITY_TYPE_ARB = $8C15;

-  GL_TEXTURE_DEPTH_TYPE_ARB = $8C16;

-  GL_UNSIGNED_NORMALIZED_ARB = $8C17;

-  GL_RGBA32F_ARB = $8814;

-  GL_RGB32F_ARB = $8815;

-  GL_ALPHA32F_ARB = $8816;

-  GL_INTENSITY32F_ARB = $8817;

-  GL_LUMINANCE32F_ARB = $8818;

-  GL_LUMINANCE_ALPHA32F_ARB = $8819;

-  GL_RGBA16F_ARB = $881A;

-  GL_RGB16F_ARB = $881B;

-  GL_ALPHA16F_ARB = $881C;

-  GL_INTENSITY16F_ARB = $881D;

-  GL_LUMINANCE16F_ARB = $881E;

-  GL_LUMINANCE_ALPHA16F_ARB = $881F;

-

-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 = $88EB;

-  GL_PIXEL_UNPACK_BUFFER_ARB = $88EC;

-  GL_PIXEL_PACK_BUFFER_BINDING_ARB = $88ED;

-  GL_PIXEL_UNPACK_BUFFER_BINDING_ARB = $88EF;

-

-function Load_GL_ARB_pixel_buffer_object: Boolean;

-

-//***** GL_EXT_framebuffer_object *****//

-const

-  GL_FRAMEBUFFER_EXT = $8D40;

-  GL_RENDERBUFFER_EXT = $8D41;

-  GL_STENCIL_INDEX_EXT = $8D45;

-  GL_STENCIL_INDEX1_EXT = $8D46;

-  GL_STENCIL_INDEX4_EXT = $8D47;

-  GL_STENCIL_INDEX8_EXT = $8D48;

-  GL_STENCIL_INDEX16_EXT = $8D49;

-  GL_RENDERBUFFER_WIDTH_EXT = $8D42;

-  GL_RENDERBUFFER_HEIGHT_EXT = $8D43;

-  GL_RENDERBUFFER_INTERNAL_FORMAT_EXT = $8D44;

-  GL_FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE_EXT = $8CD0;

-  GL_FRAMEBUFFER_ATTACHMENT_OBJECT_NAME_EXT = $8CD1;

-  GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL_EXT = $8CD2;

-  GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE_EXT = $8CD3;

-  GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_3D_ZOFFSET_EXT = $8CD4;

-  GL_COLOR_ATTACHMENT0_EXT = $8CE0;

-  GL_COLOR_ATTACHMENT1_EXT = $8CE1;

-  GL_COLOR_ATTACHMENT2_EXT = $8CE2;

-  GL_COLOR_ATTACHMENT3_EXT = $8CE3;

-  GL_COLOR_ATTACHMENT4_EXT = $8CE4;

-  GL_COLOR_ATTACHMENT5_EXT = $8CE5;

-  GL_COLOR_ATTACHMENT6_EXT = $8CE6;

-  GL_COLOR_ATTACHMENT7_EXT = $8CE7;

-  GL_COLOR_ATTACHMENT8_EXT = $8CE8;

-  GL_COLOR_ATTACHMENT9_EXT = $8CE9;

-  GL_COLOR_ATTACHMENT10_EXT = $8CEA;

-  GL_COLOR_ATTACHMENT11_EXT = $8CEB;

-  GL_COLOR_ATTACHMENT12_EXT = $8CEC;

-  GL_COLOR_ATTACHMENT13_EXT = $8CED;

-  GL_COLOR_ATTACHMENT14_EXT = $8CEE;

-  GL_COLOR_ATTACHMENT15_EXT = $8CEF;

-  GL_DEPTH_ATTACHMENT_EXT = $8D00;

-  GL_STENCIL_ATTACHMENT_EXT = $8D20;

-  GL_FRAMEBUFFER_COMPLETE_EXT = $8CD5;

-  GL_FRAMEBUFFER_INCOMPLETE_ATTACHMENT_EXT = $8CD6;

-  GL_FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT_EXT = $8CD7;

-  GL_FRAMEBUFFER_INCOMPLETE_DUPLICATE_ATTACHMENT_EXT = $8CD8;

-  GL_FRAMEBUFFER_INCOMPLETE_DIMENSIONS_EXT = $8CD9;

-  GL_FRAMEBUFFER_INCOMPLETE_FORMATS_EXT = $8CDA;

-  GL_FRAMEBUFFER_INCOMPLETE_DRAW_BUFFER_EXT = $8CDB;

-  GL_FRAMEBUFFER_INCOMPLETE_READ_BUFFER_EXT = $8CDC;

-  GL_FRAMEBUFFER_UNSUPPORTED_EXT = $8CDD;

-  GL_FRAMEBUFFER_STATUS_ERROR_EXT = $8CDE;

-  GL_FRAMEBUFFER_BINDING_EXT = $8CA6;

-  GL_RENDERBUFFER_BINDING_EXT = $8CA7;

-  GL_MAX_COLOR_ATTACHMENTS_EXT = $8CDF;

-  GL_MAX_RENDERBUFFER_SIZE_EXT = $84E8;

-  GL_INVALID_FRAMEBUFFER_OPERATION_EXT = $0506;

-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 = $80C8;

-  GL_BLEND_SRC_RGB = $80C9;

-  GL_BLEND_DST_ALPHA = $80CA;

-  GL_BLEND_SRC_ALPHA = $80CB;

-  GL_POINT_SIZE_MIN = $8126;

-  GL_POINT_SIZE_MAX = $8127;

-  GL_POINT_FADE_THRESHOLD_SIZE = $8128;

-  GL_POINT_DISTANCE_ATTENUATION = $8129;

-  GL_GENERATE_MIPMAP = $8191;

-  GL_GENERATE_MIPMAP_HINT = $8192;

-  GL_DEPTH_COMPONENT16 = $81A5;

-  GL_DEPTH_COMPONENT24 = $81A6;

-  GL_DEPTH_COMPONENT32 = $81A7;

-  GL_MIRRORED_REPEAT = $8370;

-  GL_FOG_COORDINATE_SOURCE = $8450;

-  GL_FOG_COORDINATE = $8451;

-  GL_FRAGMENT_DEPTH = $8452;

-  GL_CURRENT_FOG_COORDINATE = $8453;

-  GL_FOG_COORDINATE_ARRAY_TYPE = $8454;

-  GL_FOG_COORDINATE_ARRAY_STRIDE = $8455;

-  GL_FOG_COORDINATE_ARRAY_POINTER = $8456;

-  GL_FOG_COORDINATE_ARRAY = $8457;

-  GL_COLOR_SUM = $8458;

-  GL_CURRENT_SECONDARY_COLOR = $8459;

-  GL_SECONDARY_COLOR_ARRAY_SIZE = $845A;

-  GL_SECONDARY_COLOR_ARRAY_TYPE = $845B;

-  GL_SECONDARY_COLOR_ARRAY_STRIDE = $845C;

-  GL_SECONDARY_COLOR_ARRAY_POINTER = $845D;

-  GL_SECONDARY_COLOR_ARRAY = $845E;

-  GL_MAX_TEXTURE_LOD_BIAS = $84FD;

-  GL_TEXTURE_FILTER_CONTROL = $8500;

-  GL_TEXTURE_LOD_BIAS = $8501;

-  GL_INCR_WRAP = $8507;

-  GL_DECR_WRAP = $8508;

-  GL_TEXTURE_DEPTH_SIZE = $884A;

-  GL_DEPTH_TEXTURE_MODE = $884B;

-  GL_TEXTURE_COMPARE_MODE = $884C;

-  GL_TEXTURE_COMPARE_FUNC = $884D;

-  GL_COMPARE_R_TO_TEXTURE = $884E;

-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 = $8764;

-  GL_BUFFER_USAGE = $8765;

-  GL_QUERY_COUNTER_BITS = $8864;

-  GL_CURRENT_QUERY = $8865;

-  GL_QUERY_RESULT = $8866;

-  GL_QUERY_RESULT_AVAILABLE = $8867;

-  GL_ARRAY_BUFFER = $8892;

-  GL_ELEMENT_ARRAY_BUFFER = $8893;

-  GL_ARRAY_BUFFER_BINDING = $8894;

-  GL_ELEMENT_ARRAY_BUFFER_BINDING = $8895;

-  GL_VERTEX_ARRAY_BUFFER_BINDING = $8896;

-  GL_NORMAL_ARRAY_BUFFER_BINDING = $8897;

-  GL_COLOR_ARRAY_BUFFER_BINDING = $8898;

-  GL_INDEX_ARRAY_BUFFER_BINDING = $8899;

-  GL_TEXTURE_COORD_ARRAY_BUFFER_BINDING = $889A;

-  GL_EDGE_FLAG_ARRAY_BUFFER_BINDING = $889B;

-  GL_SECONDARY_COLOR_ARRAY_BUFFER_BINDING = $889C;

-  GL_FOG_COORDINATE_ARRAY_BUFFER_BINDING = $889D;

-  GL_WEIGHT_ARRAY_BUFFER_BINDING = $889E;

-  GL_VERTEX_ATTRIB_ARRAY_BUFFER_BINDING = $889F;

-  GL_READ_ONLY = $88B8;

-  GL_WRITE_ONLY = $88B9;

-  GL_READ_WRITE = $88BA;

-  GL_BUFFER_ACCESS = $88BB;

-  GL_BUFFER_MAPPED = $88BC;

-  GL_BUFFER_MAP_POINTER = $88BD;

-  GL_STREAM_DRAW = $88E0;

-  GL_STREAM_READ = $88E1;

-  GL_STREAM_COPY = $88E2;

-  GL_STATIC_DRAW = $88E4;

-  GL_STATIC_READ = $88E5;

-  GL_STATIC_COPY = $88E6;

-  GL_DYNAMIC_DRAW = $88E8;

-  GL_DYNAMIC_READ = $88E9;

-  GL_DYNAMIC_COPY = $88EA;

-  GL_SAMPLES_PASSED = $8914;

-  GL_FOG_COORD_SRC = $8450;

-  GL_FOG_COORD = $8451;

-  GL_CURRENT_FOG_COORD = $8453;

-  GL_FOG_COORD_ARRAY_TYPE = $8454;

-  GL_FOG_COORD_ARRAY_STRIDE = $8455;

-  GL_FOG_COORD_ARRAY_POINTER = $8456;

-  GL_FOG_COORD_ARRAY = $8457;

-  GL_FOG_COORD_ARRAY_BUFFER_BINDING = $889D;

-  GL_SRC0_RGB = $8580;

-  GL_SRC1_RGB = $8581;

-  GL_SRC2_RGB = $8582;

-  GL_SRC0_ALPHA = $8588;

-  GL_SRC1_ALPHA = $8589;

-  GL_SRC2_ALPHA = $858A;

-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 = $8009;

-  GL_VERTEX_ATTRIB_ARRAY_ENABLED = $8622;

-  GL_VERTEX_ATTRIB_ARRAY_SIZE = $8623;

-  GL_VERTEX_ATTRIB_ARRAY_STRIDE = $8624;

-  GL_VERTEX_ATTRIB_ARRAY_TYPE = $8625;

-  GL_CURRENT_VERTEX_ATTRIB = $8626;

-  GL_VERTEX_PROGRAM_POINT_SIZE = $8642;

-  GL_VERTEX_PROGRAM_TWO_SIDE = $8643;

-  GL_VERTEX_ATTRIB_ARRAY_POINTER = $8645;

-  GL_STENCIL_BACK_FUNC = $8800;

-  GL_STENCIL_BACK_FAIL = $8801;

-  GL_STENCIL_BACK_PASS_DEPTH_FAIL = $8802;

-  GL_STENCIL_BACK_PASS_DEPTH_PASS = $8803;

-  GL_MAX_DRAW_BUFFERS = $8824;

-  GL_DRAW_BUFFER0 = $8825;

-  GL_DRAW_BUFFER1 = $8826;

-  GL_DRAW_BUFFER2 = $8827;

-  GL_DRAW_BUFFER3 = $8828;

-  GL_DRAW_BUFFER4 = $8829;

-  GL_DRAW_BUFFER5 = $882A;

-  GL_DRAW_BUFFER6 = $882B;

-  GL_DRAW_BUFFER7 = $882C;

-  GL_DRAW_BUFFER8 = $882D;

-  GL_DRAW_BUFFER9 = $882E;

-  GL_DRAW_BUFFER10 = $882F;

-  GL_DRAW_BUFFER11 = $8830;

-  GL_DRAW_BUFFER12 = $8831;

-  GL_DRAW_BUFFER13 = $8832;

-  GL_DRAW_BUFFER14 = $8833;

-  GL_DRAW_BUFFER15 = $8834;

-  GL_BLEND_EQUATION_ALPHA = $883D;

-  GL_POINT_SPRITE = $8861;

-  GL_COORD_REPLACE = $8862;

-  GL_MAX_VERTEX_ATTRIBS = $8869;

-  GL_VERTEX_ATTRIB_ARRAY_NORMALIZED = $886A;

-  GL_MAX_TEXTURE_COORDS = $8871;

-  GL_MAX_TEXTURE_IMAGE_UNITS = $8872;

-  GL_FRAGMENT_SHADER = $8B30;

-  GL_VERTEX_SHADER = $8B31;

-  GL_MAX_FRAGMENT_UNIFORM_COMPONENTS = $8B49;

-  GL_MAX_VERTEX_UNIFORM_COMPONENTS = $8B4A;

-  GL_MAX_VARYING_FLOATS = $8B4B;

-  GL_MAX_VERTEX_TEXTURE_IMAGE_UNITS = $8B4C;

-  GL_MAX_COMBINED_TEXTURE_IMAGE_UNITS = $8B4D;

-  GL_SHADER_TYPE = $8B4F;

-  GL_FLOAT_VEC2 = $8B50;

-  GL_FLOAT_VEC3 = $8B51;

-  GL_FLOAT_VEC4 = $8B52;

-  GL_INT_VEC2 = $8B53;

-  GL_INT_VEC3 = $8B54;

-  GL_INT_VEC4 = $8B55;

-  GL_BOOL = $8B56;

-  GL_BOOL_VEC2 = $8B57;

-  GL_BOOL_VEC3 = $8B58;

-  GL_BOOL_VEC4 = $8B59;

-  GL_FLOAT_MAT2 = $8B5A;

-  GL_FLOAT_MAT3 = $8B5B;

-  GL_FLOAT_MAT4 = $8B5C;

-  GL_SAMPLER_1D = $8B5D;

-  GL_SAMPLER_2D = $8B5E;

-  GL_SAMPLER_3D = $8B5F;

-  GL_SAMPLER_CUBE = $8B60;

-  GL_SAMPLER_1D_SHADOW = $8B61;

-  GL_SAMPLER_2D_SHADOW = $8B62;

-  GL_DELETE_STATUS = $8B80;

-  GL_COMPILE_STATUS = $8B81;

-  GL_LINK_STATUS = $8B82;

-  GL_VALIDATE_STATUS = $8B83;

-  GL_INFO_LOG_LENGTH = $8B84;

-  GL_ATTACHED_SHADERS = $8B85;

-  GL_ACTIVE_UNIFORMS = $8B86;

-  GL_ACTIVE_UNIFORM_MAX_LENGTH = $8B87;

-  GL_SHADER_SOURCE_LENGTH = $8B88;

-  GL_ACTIVE_ATTRIBUTES = $8B89;

-  GL_ACTIVE_ATTRIBUTE_MAX_LENGTH = $8B8A;

-  GL_FRAGMENT_SHADER_DERIVATIVE_HINT = $8B8B;

-  GL_SHADING_LANGUAGE_VERSION = $8B8C;

-  GL_CURRENT_PROGRAM = $8B8D;

-  GL_POINT_SPRITE_COORD_ORIGIN = $8CA0;

-  GL_LOWER_LEFT = $8CA1;

-  GL_UPPER_LEFT = $8CA2;

-  GL_STENCIL_BACK_REF = $8CA3;

-  GL_STENCIL_BACK_VALUE_MASK = $8CA4;

-  GL_STENCIL_BACK_WRITEMASK = $8CA5;

-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.

+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 = $8032;
+  GL_UNSIGNED_SHORT_4_4_4_4 = $8033;
+  GL_UNSIGNED_SHORT_5_5_5_1 = $8034;
+  GL_UNSIGNED_INT_8_8_8_8 = $8035;
+  GL_UNSIGNED_INT_10_10_10_2 = $8036;
+  GL_RESCALE_NORMAL = $803A;
+  GL_UNSIGNED_BYTE_2_3_3_REV = $8362;
+  GL_UNSIGNED_SHORT_5_6_5 = $8363;
+  GL_UNSIGNED_SHORT_5_6_5_REV = $8364;
+  GL_UNSIGNED_SHORT_4_4_4_4_REV = $8365;
+  GL_UNSIGNED_SHORT_1_5_5_5_REV = $8366;
+  GL_UNSIGNED_INT_8_8_8_8_REV = $8367;
+  GL_UNSIGNED_INT_2_10_10_10_REV = $8368;
+  GL_BGR = $80E0;
+  GL_BGRA = $80E1;
+  GL_MAX_ELEMENTS_VERTICES = $80E8;
+  GL_MAX_ELEMENTS_INDICES = $80E9;
+  GL_CLAMP_TO_EDGE = $812F;
+  GL_TEXTURE_MIN_LOD = $813A;
+  GL_TEXTURE_MAX_LOD = $813B;
+  GL_TEXTURE_BASE_LEVEL = $813C;
+  GL_TEXTURE_MAX_LEVEL = $813D;
+  GL_LIGHT_MODEL_COLOR_CONTROL = $81F8;
+  GL_SINGLE_COLOR = $81F9;
+  GL_SEPARATE_SPECULAR_COLOR = $81FA;
+  GL_SMOOTH_POINT_SIZE_RANGE = $0B12;
+  GL_SMOOTH_POINT_SIZE_GRANULARITY = $0B13;
+  GL_SMOOTH_LINE_WIDTH_RANGE = $0B22;
+  GL_SMOOTH_LINE_WIDTH_GRANULARITY = $0B23;
+  GL_ALIASED_POINT_SIZE_RANGE = $846D;
+  GL_ALIASED_LINE_WIDTH_RANGE = $846E;
+  GL_PACK_SKIP_IMAGES = $806B;
+  GL_PACK_IMAGE_HEIGHT = $806C;
+  GL_UNPACK_SKIP_IMAGES = $806D;
+  GL_UNPACK_IMAGE_HEIGHT = $806E;
+  GL_TEXTURE_3D = $806F;
+  GL_PROXY_TEXTURE_3D = $8070;
+  GL_TEXTURE_DEPTH = $8071;
+  GL_TEXTURE_WRAP_R = $8072;
+  GL_MAX_3D_TEXTURE_SIZE = $8073;
+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 = $8001;
+  GL_ONE_MINUS_CONSTANT_COLOR = $8002;
+  GL_CONSTANT_ALPHA = $8003;
+  GL_ONE_MINUS_CONSTANT_ALPHA = $8004;
+  GL_BLEND_COLOR = $8005;
+  GL_FUNC_ADD = $8006;
+  GL_MIN = $8007;
+  GL_MAX = $8008;
+  GL_BLEND_EQUATION = $8009;
+  GL_FUNC_SUBTRACT = $800A;
+  GL_FUNC_REVERSE_SUBTRACT = $800B;
+  GL_CONVOLUTION_1D = $8010;
+  GL_CONVOLUTION_2D = $8011;
+  GL_SEPARABLE_2D = $8012;
+  GL_CONVOLUTION_BORDER_MODE = $8013;
+  GL_CONVOLUTION_FILTER_SCALE = $8014;
+  GL_CONVOLUTION_FILTER_BIAS = $8015;
+  GL_REDUCE = $8016;
+  GL_CONVOLUTION_FORMAT = $8017;
+  GL_CONVOLUTION_WIDTH = $8018;
+  GL_CONVOLUTION_HEIGHT = $8019;
+  GL_MAX_CONVOLUTION_WIDTH = $801A;
+  GL_MAX_CONVOLUTION_HEIGHT = $801B;
+  GL_POST_CONVOLUTION_RED_SCALE = $801C;
+  GL_POST_CONVOLUTION_GREEN_SCALE = $801D;
+  GL_POST_CONVOLUTION_BLUE_SCALE = $801E;
+  GL_POST_CONVOLUTION_ALPHA_SCALE = $801F;
+  GL_POST_CONVOLUTION_RED_BIAS = $8020;
+  GL_POST_CONVOLUTION_GREEN_BIAS = $8021;
+  GL_POST_CONVOLUTION_BLUE_BIAS = $8022;
+  GL_POST_CONVOLUTION_ALPHA_BIAS = $8023;
+  GL_HISTOGRAM = $8024;
+  GL_PROXY_HISTOGRAM = $8025;
+  GL_HISTOGRAM_WIDTH = $8026;
+  GL_HISTOGRAM_FORMAT = $8027;
+  GL_HISTOGRAM_RED_SIZE = $8028;
+  GL_HISTOGRAM_GREEN_SIZE = $8029;
+  GL_HISTOGRAM_BLUE_SIZE = $802A;
+  GL_HISTOGRAM_ALPHA_SIZE = $802B;
+  GL_HISTOGRAM_LUMINANCE_SIZE = $802C;
+  GL_HISTOGRAM_SINK = $802D;
+  GL_MINMAX = $802E;
+  GL_MINMAX_FORMAT = $802F;
+  GL_MINMAX_SINK = $8030;
+  GL_TABLE_TOO_LARGE = $8031;
+  GL_COLOR_MATRIX = $80B1;
+  GL_COLOR_MATRIX_STACK_DEPTH = $80B2;
+  GL_MAX_COLOR_MATRIX_STACK_DEPTH = $80B3;
+  GL_POST_COLOR_MATRIX_RED_SCALE = $80B4;
+  GL_POST_COLOR_MATRIX_GREEN_SCALE = $80B5;
+  GL_POST_COLOR_MATRIX_BLUE_SCALE = $80B6;
+  GL_POST_COLOR_MATRIX_ALPHA_SCALE = $80B7;
+  GL_POST_COLOR_MATRIX_RED_BIAS = $80B8;
+  GL_POST_COLOR_MATRIX_GREEN_BIAS = $80B9;
+  GL_POST_COLOR_MATRIX_BLUE_BIAS = $80BA;
+  GL_POST_COLOR_MATIX_ALPHA_BIAS = $80BB;
+  GL_COLOR_TABLE = $80D0;
+  GL_POST_CONVOLUTION_COLOR_TABLE = $80D1;
+  GL_POST_COLOR_MATRIX_COLOR_TABLE = $80D2;
+  GL_PROXY_COLOR_TABLE = $80D3;
+  GL_PROXY_POST_CONVOLUTION_COLOR_TABLE = $80D4;
+  GL_PROXY_POST_COLOR_MATRIX_COLOR_TABLE = $80D5;
+  GL_COLOR_TABLE_SCALE = $80D6;
+  GL_COLOR_TABLE_BIAS = $80D7;
+  GL_COLOR_TABLE_FORMAT = $80D8;
+  GL_COLOR_TABLE_WIDTH = $80D9;
+  GL_COLOR_TABLE_RED_SIZE = $80DA;
+  GL_COLOR_TABLE_GREEN_SIZE = $80DB;
+  GL_COLOR_TABLE_BLUE_SIZE = $80DC;
+  GL_COLOR_TABLE_ALPHA_SIZE = $80DD;
+  GL_COLOR_TABLE_LUMINANCE_SIZE = $80DE;
+  GL_COLOR_TABLE_INTENSITY_SIZE = $80DF;
+  GL_IGNORE_BORDER = $8150;
+  GL_CONSTANT_BORDER = $8151;
+  GL_WRAP_BORDER = $8152;
+  GL_REPLICATE_BORDER = $8153;
+  GL_CONVOLUTION_BORDER_COLOR = $8154;
+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 = $84C0;
+  GL_TEXTURE1 = $84C1;
+  GL_TEXTURE2 = $84C2;
+  GL_TEXTURE3 = $84C3;
+  GL_TEXTURE4 = $84C4;
+  GL_TEXTURE5 = $84C5;
+  GL_TEXTURE6 = $84C6;
+  GL_TEXTURE7 = $84C7;
+  GL_TEXTURE8 = $84C8;
+  GL_TEXTURE9 = $84C9;
+  GL_TEXTURE10 = $84CA;
+  GL_TEXTURE11 = $84CB;
+  GL_TEXTURE12 = $84CC;
+  GL_TEXTURE13 = $84CD;
+  GL_TEXTURE14 = $84CE;
+  GL_TEXTURE15 = $84CF;
+  GL_TEXTURE16 = $84D0;
+  GL_TEXTURE17 = $84D1;
+  GL_TEXTURE18 = $84D2;
+  GL_TEXTURE19 = $84D3;
+  GL_TEXTURE20 = $84D4;
+  GL_TEXTURE21 = $84D5;
+  GL_TEXTURE22 = $84D6;
+  GL_TEXTURE23 = $84D7;
+  GL_TEXTURE24 = $84D8;
+  GL_TEXTURE25 = $84D9;
+  GL_TEXTURE26 = $84DA;
+  GL_TEXTURE27 = $84DB;
+  GL_TEXTURE28 = $84DC;
+  GL_TEXTURE29 = $84DD;
+  GL_TEXTURE30 = $84DE;
+  GL_TEXTURE31 = $84DF;
+  GL_ACTIVE_TEXTURE = $84E0;
+  GL_CLIENT_ACTIVE_TEXTURE = $84E1;
+  GL_MAX_TEXTURE_UNITS = $84E2;
+  GL_TRANSPOSE_MODELVIEW_MATRIX = $84E3;
+  GL_TRANSPOSE_PROJECTION_MATRIX = $84E4;
+  GL_TRANSPOSE_TEXTURE_MATRIX = $84E5;
+  GL_TRANSPOSE_COLOR_MATRIX = $84E6;
+  GL_MULTISAMPLE = $809D;
+  GL_SAMPLE_ALPHA_TO_COVERAGE = $809E;
+  GL_SAMPLE_ALPHA_TO_ONE = $809F;
+  GL_SAMPLE_COVERAGE = $80A0;
+  GL_SAMPLE_BUFFERS = $80A8;
+  GL_SAMPLES = $80A9;
+  GL_SAMPLE_COVERAGE_VALUE = $80AA;
+  GL_SAMPLE_COVERAGE_INVERT = $80AB;
+  GL_MULTISAMPLE_BIT = $20000000;
+  GL_NORMAL_MAP = $8511;
+  GL_REFLECTION_MAP = $8512;
+  GL_TEXTURE_CUBE_MAP = $8513;
+  GL_TEXTURE_BINDING_CUBE_MAP = $8514;
+  GL_TEXTURE_CUBE_MAP_POSITIVE_X = $8515;
+  GL_TEXTURE_CUBE_MAP_NEGATIVE_X = $8516;
+  GL_TEXTURE_CUBE_MAP_POSITIVE_Y = $8517;
+  GL_TEXTURE_CUBE_MAP_NEGATIVE_Y = $8518;
+  GL_TEXTURE_CUBE_MAP_POSITIVE_Z = $8519;
+  GL_TEXTURE_CUBE_MAP_NEGATIVE_Z = $851A;
+  GL_PROXY_TEXTURE_CUBE_MAP = $851B;
+  GL_MAX_CUBE_MAP_TEXTURE_SIZE = $851C;
+  GL_COMPRESSED_ALPHA = $84E9;
+  GL_COMPRESSED_LUMINANCE = $84EA;
+  GL_COMPRESSED_LUMINANCE_ALPHA = $84EB;
+  GL_COMPRESSED_INTENSITY = $84EC;
+  GL_COMPRESSED_RGB = $84ED;
+  GL_COMPRESSED_RGBA = $84EE;
+  GL_TEXTURE_COMPRESSION_HINT = $84EF;
+  GL_TEXTURE_COMPRESSED_IMAGE_SIZE = $86A0;
+  GL_TEXTURE_COMPRESSED = $86A1;
+  GL_NUM_COMPRESSED_TEXTURE_FORMATS = $86A2;
+  GL_COMPRESSED_TEXTURE_FORMATS = $86A3;
+  GL_CLAMP_TO_BORDER = $812D;
+  GL_CLAMP_TO_BORDER_SGIS = $812D;
+  GL_COMBINE = $8570;
+  GL_COMBINE_RGB = $8571;
+  GL_COMBINE_ALPHA = $8572;
+  GL_SOURCE0_RGB = $8580;
+  GL_SOURCE1_RGB = $8581;
+  GL_SOURCE2_RGB = $8582;
+  GL_SOURCE0_ALPHA = $8588;
+  GL_SOURCE1_ALPHA = $8589;
+  GL_SOURCE2_ALPHA = $858A;
+  GL_OPERAND0_RGB = $8590;
+  GL_OPERAND1_RGB = $8591;
+  GL_OPERAND2_RGB = $8592;
+  GL_OPERAND0_ALPHA = $8598;
+  GL_OPERAND1_ALPHA = $8599;
+  GL_OPERAND2_ALPHA = $859A;
+  GL_RGB_SCALE = $8573;
+  GL_ADD_SIGNED = $8574;
+  GL_INTERPOLATE = $8575;
+  GL_SUBTRACT = $84E7;
+  GL_CONSTANT = $8576;
+  GL_PRIMARY_COLOR = $8577;
+  GL_PREVIOUS = $8578;
+  GL_DOT3_RGB = $86AE;
+  GL_DOT3_RGBA = $86AF;
+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 = $84C0;
+  GL_TEXTURE1_ARB = $84C1;
+  GL_TEXTURE2_ARB = $84C2;
+  GL_TEXTURE3_ARB = $84C3;
+  GL_TEXTURE4_ARB = $84C4;
+  GL_TEXTURE5_ARB = $84C5;
+  GL_TEXTURE6_ARB = $84C6;
+  GL_TEXTURE7_ARB = $84C7;
+  GL_TEXTURE8_ARB = $84C8;
+  GL_TEXTURE9_ARB = $84C9;
+  GL_TEXTURE10_ARB = $84CA;
+  GL_TEXTURE11_ARB = $84CB;
+  GL_TEXTURE12_ARB = $84CC;
+  GL_TEXTURE13_ARB = $84CD;
+  GL_TEXTURE14_ARB = $84CE;
+  GL_TEXTURE15_ARB = $84CF;
+  GL_TEXTURE16_ARB = $84D0;
+  GL_TEXTURE17_ARB = $84D1;
+  GL_TEXTURE18_ARB = $84D2;
+  GL_TEXTURE19_ARB = $84D3;
+  GL_TEXTURE20_ARB = $84D4;
+  GL_TEXTURE21_ARB = $84D5;
+  GL_TEXTURE22_ARB = $84D6;
+  GL_TEXTURE23_ARB = $84D7;
+  GL_TEXTURE24_ARB = $84D8;
+  GL_TEXTURE25_ARB = $84D9;
+  GL_TEXTURE26_ARB = $84DA;
+  GL_TEXTURE27_ARB = $84DB;
+  GL_TEXTURE28_ARB = $84DC;
+  GL_TEXTURE29_ARB = $84DD;
+  GL_TEXTURE30_ARB = $84DE;
+  GL_TEXTURE31_ARB = $84DF;
+  GL_ACTIVE_TEXTURE_ARB = $84E0;
+  GL_CLIENT_ACTIVE_TEXTURE_ARB = $84E1;
+  GL_MAX_TEXTURE_UNITS_ARB = $84E2;
+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 = $84E3;
+  GL_TRANSPOSE_PROJECTION_MATRIX_ARB = $84E4;
+  GL_TRANSPOSE_TEXTURE_MATRIX_ARB = $84E5;
+  GL_TRANSPOSE_COLOR_MATRIX_ARB = $84E6;
+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 = $2041;
+  WGL_SAMPLES_ARB = $2042;
+  GL_MULTISAMPLE_ARB = $809D;
+  GL_SAMPLE_ALPHA_TO_COVERAGE_ARB = $809E;
+  GL_SAMPLE_ALPHA_TO_ONE_ARB = $809F;
+  GL_SAMPLE_COVERAGE_ARB = $80A0;
+  GL_MULTISAMPLE_BIT_ARB = $20000000;
+  GL_SAMPLE_BUFFERS_ARB = $80A8;
+  GL_SAMPLES_ARB = $80A9;
+  GL_SAMPLE_COVERAGE_VALUE_ARB = $80AA;
+  GL_SAMPLE_COVERAGE_INVERT_ARB = $80AB;
+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 = $0001;
+  WGL_BACK_COLOR_BUFFER_BIT_ARB = $0002;
+  WGL_DEPTH_BUFFER_BIT_ARB = $0004;
+  WGL_STENCIL_BUFFER_BIT_ARB = $0008;
+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 = $8511;
+  GL_REFLECTION_MAP_ARB = $8512;
+  GL_TEXTURE_CUBE_MAP_ARB = $8513;
+  GL_TEXTURE_BINDING_CUBE_MAP_ARB = $8514;
+  GL_TEXTURE_CUBE_MAP_POSITIVE_X_ARB = $8515;
+  GL_TEXTURE_CUBE_MAP_NEGATIVE_X_ARB = $8516;
+  GL_TEXTURE_CUBE_MAP_POSITIVE_Y_ARB = $8517;
+  GL_TEXTURE_CUBE_MAP_NEGATIVE_Y_ARB = $8518;
+  GL_TEXTURE_CUBE_MAP_POSITIVE_Z_ARB = $8519;
+  GL_TEXTURE_CUBE_MAP_NEGATIVE_Z_ARB = $851A;
+  GL_PROXY_TEXTURE_CUBE_MAP_ARB = $851B;
+  GL_MAX_CUBE_MAP_TEXTURE_SIZE_ARB = $851C;
+
+function Load_GL_ARB_texture_cube_map: Boolean;
+
+//***** GL_ARB_depth_texture *****//
+const
+  GL_DEPTH_COMPONENT16_ARB = $81A5;
+  GL_DEPTH_COMPONENT24_ARB = $81A6;
+  GL_DEPTH_COMPONENT32_ARB = $81A7;
+  GL_TEXTURE_DEPTH_SIZE_ARB = $884A;
+  GL_DEPTH_TEXTURE_MODE_ARB = $884B;
+
+function Load_GL_ARB_depth_texture: Boolean;
+
+//***** GL_ARB_point_parameters *****//
+const
+  GL_POINT_SIZE_MIN_ARB = $8126;
+  GL_POINT_SIZE_MAX_ARB = $8127;
+  GL_POINT_FADE_THRESHOLD_SIZE_ARB = $8128;
+  GL_POINT_DISTANCE_ATTENUATION_ARB = $8129;
+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 = $884C;
+  GL_TEXTURE_COMPARE_FUNC_ARB = $884D;
+  GL_COMPARE_R_TO_TEXTURE_ARB = $884E;
+
+function Load_GL_ARB_shadow: Boolean;
+
+//***** GL_ARB_shadow_ambient *****//
+const
+  GL_TEXTURE_COMPARE_FAIL_VALUE_ARB = $80BF;
+
+function Load_GL_ARB_shadow_ambient: Boolean;
+
+//***** GL_ARB_texture_border_clamp *****//
+const
+  GL_CLAMP_TO_BORDER_ARB = $812D;
+
+function Load_GL_ARB_texture_border_clamp: Boolean;
+
+//***** GL_ARB_texture_compression *****//
+const
+  GL_COMPRESSED_ALPHA_ARB = $84E9;
+  GL_COMPRESSED_LUMINANCE_ARB = $84EA;
+  GL_COMPRESSED_LUMINANCE_ALPHA_ARB = $84EB;
+  GL_COMPRESSED_INTENSITY_ARB = $84EC;
+  GL_COMPRESSED_RGB_ARB = $84ED;
+  GL_COMPRESSED_RGBA_ARB = $84EE;
+  GL_TEXTURE_COMPRESSION_HINT_ARB = $84EF;
+  GL_TEXTURE_COMPRESSED_IMAGE_SIZE_ARB = $86A0;
+  GL_TEXTURE_COMPRESSED_ARB = $86A1;
+  GL_NUM_COMPRESSED_TEXTURE_FORMATS_ARB = $86A2;
+  GL_COMPRESSED_TEXTURE_FORMATS_ARB = $86A3;
+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 = $8570;
+  GL_COMBINE_RGB_ARB = $8571;
+  GL_COMBINE_ALPHA_ARB = $8572;
+  GL_SOURCE0_RGB_ARB = $8580;
+  GL_SOURCE1_RGB_ARB = $8581;
+  GL_SOURCE2_RGB_ARB = $8582;
+  GL_SOURCE0_ALPHA_ARB = $8588;
+  GL_SOURCE1_ALPHA_ARB = $8589;
+  GL_SOURCE2_ALPHA_ARB = $858A;
+  GL_OPERAND0_RGB_ARB = $8590;
+  GL_OPERAND1_RGB_ARB = $8591;
+  GL_OPERAND2_RGB_ARB = $8592;
+  GL_OPERAND0_ALPHA_ARB = $8598;
+  GL_OPERAND1_ALPHA_ARB = $8599;
+  GL_OPERAND2_ALPHA_ARB = $859A;
+  GL_RGB_SCALE_ARB = $8573;
+  GL_ADD_SIGNED_ARB = $8574;
+  GL_INTERPOLATE_ARB = $8575;
+  GL_SUBTRACT_ARB = $84E7;
+  GL_CONSTANT_ARB = $8576;
+  GL_PRIMARY_COLOR_ARB = $8577;
+  GL_PREVIOUS_ARB = $8578;
+
+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 = $86AE;
+  GL_DOT3_RGBA_ARB = $86AF;
+
+function Load_GL_ARB_texture_env_dot3: Boolean;
+
+//***** GL_ARB_texture_mirrored_repeat *****//
+const
+  GL_MIRRORED_REPEAT_ARB = $8370;
+
+function Load_GL_ARB_texture_mirrored_repeat: Boolean;
+
+//***** GL_ARB_vertex_blend *****//
+const
+  GL_MAX_VERTEX_UNITS_ARB = $86A4;
+  GL_ACTIVE_VERTEX_UNITS_ARB = $86A5;
+  GL_WEIGHT_SUM_UNITY_ARB = $86A6;
+  GL_VERTEX_BLEND_ARB = $86A7;
+  GL_MODELVIEW0_ARB = $1700;
+  GL_MODELVIEW1_ARB = $850A;
+  GL_MODELVIEW2_ARB = $8722;
+  GL_MODELVIEW3_ARB = $8723;
+  GL_MODELVIEW4_ARB = $8724;
+  GL_MODELVIEW5_ARB = $8725;
+  GL_MODELVIEW6_ARB = $8726;
+  GL_MODELVIEW7_ARB = $8727;
+  GL_MODELVIEW8_ARB = $8728;
+  GL_MODELVIEW9_ARB = $8729;
+  GL_MODELVIEW10_ARB = $872A;
+  GL_MODELVIEW11_ARB = $872B;
+  GL_MODELVIEW12_ARB = $872C;
+  GL_MODELVIEW13_ARB = $872D;
+  GL_MODELVIEW14_ARB = $872E;
+  GL_MODELVIEW15_ARB = $872F;
+  GL_MODELVIEW16_ARB = $8730;
+  GL_MODELVIEW17_ARB = $8731;
+  GL_MODELVIEW18_ARB = $8732;
+  GL_MODELVIEW19_ARB = $8733;
+  GL_MODELVIEW20_ARB = $8734;
+  GL_MODELVIEW21_ARB = $8735;
+  GL_MODELVIEW22_ARB = $8736;
+  GL_MODELVIEW23_ARB = $8737;
+  GL_MODELVIEW24_ARB = $8738;
+  GL_MODELVIEW25_ARB = $8739;
+  GL_MODELVIEW26_ARB = $873A;
+  GL_MODELVIEW27_ARB = $873B;
+  GL_MODELVIEW28_ARB = $873C;
+  GL_MODELVIEW29_ARB = $873D;
+  GL_MODELVIEW30_ARB = $873E;
+  GL_MODELVIEW31_ARB = $873F;
+  GL_CURRENT_WEIGHT_ARB = $86A8;
+  GL_WEIGHT_ARRAY_TYPE_ARB = $86A9;
+  GL_WEIGHT_ARRAY_STRIDE_ARB = $86AA;
+  GL_WEIGHT_ARRAY_SIZE_ARB = $86AB;
+  GL_WEIGHT_ARRAY_POINTER_ARB = $86AC;
+  GL_WEIGHT_ARRAY_ARB = $86AD;
+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 = $8620;
+  GL_VERTEX_PROGRAM_POINT_SIZE_ARB = $8642;
+  GL_VERTEX_PROGRAM_TWO_SIDE_ARB = $8643;
+  GL_COLOR_SUM_ARB = $8458;
+  GL_PROGRAM_FORMAT_ASCII_ARB = $8875;
+  GL_VERTEX_ATTRIB_ARRAY_ENABLED_ARB = $8622;
+  GL_VERTEX_ATTRIB_ARRAY_SIZE_ARB = $8623;
+  GL_VERTEX_ATTRIB_ARRAY_STRIDE_ARB = $8624;
+  GL_VERTEX_ATTRIB_ARRAY_TYPE_ARB = $8625;
+  GL_VERTEX_ATTRIB_ARRAY_NORMALIZED_ARB = $886A;
+  GL_CURRENT_VERTEX_ATTRIB_ARB = $8626;
+  GL_VERTEX_ATTRIB_ARRAY_POINTER_ARB = $8645;
+  GL_PROGRAM_LENGTH_ARB = $8627;
+  GL_PROGRAM_FORMAT_ARB = $8876;
+  GL_PROGRAM_BINDING_ARB = $8677;
+  GL_PROGRAM_INSTRUCTIONS_ARB = $88A0;
+  GL_MAX_PROGRAM_INSTRUCTIONS_ARB = $88A1;
+  GL_PROGRAM_NATIVE_INSTRUCTIONS_ARB = $88A2;
+  GL_MAX_PROGRAM_NATIVE_INSTRUCTIONS_ARB = $88A3;
+  GL_PROGRAM_TEMPORARIES_ARB = $88A4;
+  GL_MAX_PROGRAM_TEMPORARIES_ARB = $88A5;
+  GL_PROGRAM_NATIVE_TEMPORARIES_ARB = $88A6;
+  GL_MAX_PROGRAM_NATIVE_TEMPORARIES_ARB = $88A7;
+  GL_PROGRAM_PARAMETERS_ARB = $88A8;
+  GL_MAX_PROGRAM_PARAMETERS_ARB = $88A9;
+  GL_PROGRAM_NATIVE_PARAMETERS_ARB = $88AA;
+  GL_MAX_PROGRAM_NATIVE_PARAMETERS_ARB = $88AB;
+  GL_PROGRAM_ATTRIBS_ARB = $88AC;
+  GL_MAX_PROGRAM_ATTRIBS_ARB = $88AD;
+  GL_PROGRAM_NATIVE_ATTRIBS_ARB = $88AE;
+  GL_MAX_PROGRAM_NATIVE_ATTRIBS_ARB = $88AF;
+  GL_PROGRAM_ADDRESS_REGISTERS_ARB = $88B0;
+  GL_MAX_PROGRAM_ADDRESS_REGISTERS_ARB = $88B1;
+  GL_PROGRAM_NATIVE_ADDRESS_REGISTERS_ARB = $88B2;
+  GL_MAX_PROGRAM_NATIVE_ADDRESS_REGISTERS_ARB = $88B3;
+  GL_MAX_PROGRAM_LOCAL_PARAMETERS_ARB = $88B4;
+  GL_MAX_PROGRAM_ENV_PARAMETERS_ARB = $88B5;
+  GL_PROGRAM_UNDER_NATIVE_LIMITS_ARB = $88B6;
+  GL_PROGRAM_STRING_ARB = $8628;
+  GL_PROGRAM_ERROR_POSITION_ARB = $864B;
+  GL_CURRENT_MATRIX_ARB = $8641;
+  GL_TRANSPOSE_CURRENT_MATRIX_ARB = $88B7;
+  GL_CURRENT_MATRIX_STACK_DEPTH_ARB = $8640;
+  GL_MAX_VERTEX_ATTRIBS_ARB = $8869;
+  GL_MAX_PROGRAM_MATRICES_ARB = $862F;
+  GL_MAX_PROGRAM_MATRIX_STACK_DEPTH_ARB = $862E;
+  GL_PROGRAM_ERROR_STRING_ARB = $8874;
+  GL_MATRIX0_ARB = $88C0;
+  GL_MATRIX1_ARB = $88C1;
+  GL_MATRIX2_ARB = $88C2;
+  GL_MATRIX3_ARB = $88C3;
+  GL_MATRIX4_ARB = $88C4;
+  GL_MATRIX5_ARB = $88C5;
+  GL_MATRIX6_ARB = $88C6;
+  GL_MATRIX7_ARB = $88C7;
+  GL_MATRIX8_ARB = $88C8;
+  GL_MATRIX9_ARB = $88C9;
+  GL_MATRIX10_ARB = $88CA;
+  GL_MATRIX11_ARB = $88CB;
+  GL_MATRIX12_ARB = $88CC;
+  GL_MATRIX13_ARB = $88CD;
+  GL_MATRIX14_ARB = $88CE;
+  GL_MATRIX15_ARB = $88CF;
+  GL_MATRIX16_ARB = $88D0;
+  GL_MATRIX17_ARB = $88D1;
+  GL_MATRIX18_ARB = $88D2;
+  GL_MATRIX19_ARB = $88D3;
+  GL_MATRIX20_ARB = $88D4;
+  GL_MATRIX21_ARB = $88D5;
+  GL_MATRIX22_ARB = $88D6;
+  GL_MATRIX23_ARB = $88D7;
+  GL_MATRIX24_ARB = $88D8;
+  GL_MATRIX25_ARB = $88D9;
+  GL_MATRIX26_ARB = $88DA;
+  GL_MATRIX27_ARB = $88DB;
+  GL_MATRIX28_ARB = $88DC;
+  GL_MATRIX29_ARB = $88DD;
+  GL_MATRIX30_ARB = $88DE;
+  GL_MATRIX31_ARB = $88DF;
+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 = $80CC;
+  GL_422_REV_EXT = $80CD;
+  GL_422_AVERAGE_EXT = $80CE;
+  GL_422_REV_AVERAGE_EXT = $80CF;
+
+function Load_GL_EXT_422_pixels: Boolean;
+
+//***** GL_EXT_abgr *****//
+const
+  GL_ABGR_EXT = $8000;
+
+function Load_GL_EXT_abgr: Boolean;
+
+//***** GL_EXT_bgra *****//
+const
+  GL_BGR_EXT = $80E0;
+  GL_BGRA_EXT = $80E1;
+
+function Load_GL_EXT_bgra: Boolean;
+
+//***** GL_EXT_blend_color *****//
+const
+  GL_CONSTANT_COLOR_EXT = $8001;
+  GL_ONE_MINUS_CONSTANT_COLOR_EXT = $8002;
+  GL_CONSTANT_ALPHA_EXT = $8003;
+  GL_ONE_MINUS_CONSTANT_ALPHA_EXT = $8004;
+  GL_BLEND_COLOR_EXT = $8005;
+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 = $80C8;
+  GL_BLEND_SRC_RGB_EXT = $80C9;
+  GL_BLEND_DST_ALPHA_EXT = $80CA;
+  GL_BLEND_SRC_ALPHA_EXT = $80CB;
+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 = $8006;
+  GL_MIN_EXT = $8007;
+  GL_MAX_EXT = $8008;
+  GL_BLEND_EQUATION_EXT = $8009;
+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 = $800A;
+  GL_FUNC_REVERSE_SUBTRACT_EXT = $800B;
+
+function Load_GL_EXT_blend_subtract: Boolean;
+
+//***** GL_EXT_clip_volume_hint *****//
+const
+  GL_CLIP_VOLUME_CLIPPING_HINT_EXT = $80F0;
+
+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 = $81A8;
+  GL_ARRAY_ELEMENT_LOCK_COUNT_EXT = $81A9;
+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 = $8010;
+  GL_CONVOLUTION_2D_EXT = $8011;
+  GL_SEPARABLE_2D_EXT = $8012;
+  GL_CONVOLUTION_BORDER_MODE_EXT = $8013;
+  GL_CONVOLUTION_FILTER_SCALE_EXT = $8014;
+  GL_CONVOLUTION_FILTER_BIAS_EXT = $8015;
+  GL_REDUCE_EXT = $8016;
+  GL_CONVOLUTION_FORMAT_EXT = $8017;
+  GL_CONVOLUTION_WIDTH_EXT = $8018;
+  GL_CONVOLUTION_HEIGHT_EXT = $8019;
+  GL_MAX_CONVOLUTION_WIDTH_EXT = $801A;
+  GL_MAX_CONVOLUTION_HEIGHT_EXT = $801B;
+  GL_POST_CONVOLUTION_RED_SCALE_EXT = $801C;
+  GL_POST_CONVOLUTION_GREEN_SCALE_EXT = $801D;
+  GL_POST_CONVOLUTION_BLUE_SCALE_EXT = $801E;
+  GL_POST_CONVOLUTION_ALPHA_SCALE_EXT = $801F;
+  GL_POST_CONVOLUTION_RED_BIAS_EXT = $8020;
+  GL_POST_CONVOLUTION_GREEN_BIAS_EXT = $8021;
+  GL_POST_CONVOLUTION_BLUE_BIAS_EXT = $8022;
+  GL_POST_CONVOLUTION_ALPHA_BIAS_EXT = $8023;
+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 = $8024;
+  GL_PROXY_HISTOGRAM_EXT = $8025;
+  GL_HISTOGRAM_WIDTH_EXT = $8026;
+  GL_HISTOGRAM_FORMAT_EXT = $8027;
+  GL_HISTOGRAM_RED_SIZE_EXT = $8028;
+  GL_HISTOGRAM_GREEN_SIZE_EXT = $8029;
+  GL_HISTOGRAM_BLUE_SIZE_EXT = $802A;
+  GL_HISTOGRAM_ALPHA_SIZE_EXT = $802B;
+  GL_HISTOGRAM_LUMINANCE_SIZE_EXT = $802C;
+  GL_HISTOGRAM_SINK_EXT = $802D;
+  GL_MINMAX_EXT = $802E;
+  GL_MINMAX_FORMAT_EXT = $802F;
+  GL_MINMAX_SINK_EXT = $8030;
+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 = $8032;
+  GL_UNSIGNED_SHORT_4_4_4_4_EXT = $8033;
+  GL_UNSIGNED_SHORT_5_5_5_1_EXT = $8034;
+  GL_UNSIGNED_INT_8_8_8_8_EXT = $8035;
+  GL_UNSIGNED_INT_10_10_10_2_EXT = $8036;
+
+function Load_GL_EXT_packed_pixels: Boolean;
+
+//***** GL_EXT_paletted_texture *****//
+const
+  GL_COLOR_INDEX1_EXT = $80E2;
+  GL_COLOR_INDEX2_EXT = $80E3;
+  GL_COLOR_INDEX4_EXT = $80E4;
+  GL_COLOR_INDEX8_EXT = $80E5;
+  GL_COLOR_INDEX12_EXT = $80E6;
+  GL_COLOR_INDEX16_EXT = $80E7;
+  GL_COLOR_TABLE_FORMAT_EXT = $80D8;
+  GL_COLOR_TABLE_WIDTH_EXT = $80D9;
+  GL_COLOR_TABLE_RED_SIZE_EXT = $80DA;
+  GL_COLOR_TABLE_GREEN_SIZE_EXT = $80DB;
+  GL_COLOR_TABLE_BLUE_SIZE_EXT = $80DC;
+  GL_COLOR_TABLE_ALPHA_SIZE_EXT = $80DD;
+  GL_COLOR_TABLE_LUMINANCE_SIZE_EXT = $80DE;
+  GL_COLOR_TABLE_INTENSITY_SIZE_EXT = $80DF;
+  GL_TEXTURE_INDEX_SIZE_EXT = $80ED;
+  GL_TEXTURE_1D = $0DE0;
+  GL_TEXTURE_2D = $0DE1;
+  GL_TEXTURE_3D_EXT = $806F;
+  // GL_TEXTURE_CUBE_MAP_ARB  { already defined }
+  GL_PROXY_TEXTURE_1D = $8063;
+  GL_PROXY_TEXTURE_2D = $8064;
+  GL_PROXY_TEXTURE_3D_EXT = $8070;
+  // 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 = $8126;
+  GL_POINT_SIZE_MAX_EXT = $8127;
+  GL_POINT_FADE_THRESHOLD_SIZE_EXT = $8128;
+  GL_DISTANCE_ATTENUATION_EXT = $8129;
+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 = $8037;
+  GL_POLYGON_OFFSET_FACTOR_EXT = $8038;
+  GL_POLYGON_OFFSET_BIAS_EXT = $8039;
+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 = $81F8;
+  GL_SINGLE_COLOR_EXT = $81F9;
+  GL_SEPARATE_SPECULAR_COLOR_EXT = $81FA;
+
+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 = $81FB;
+
+function Load_GL_EXT_shared_texture_palette: Boolean;
+
+//***** GL_EXT_stencil_two_side *****//
+const
+  GL_STENCIL_TEST_TWO_SIDE_EXT = $8910;
+  GL_ACTIVE_STENCIL_FACE_EXT = $8911;
+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 = $8507;
+  GL_DECR_WRAP_EXT = $8508;
+
+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 = $806B;
+  GL_PACK_IMAGE_HEIGHT_EXT = $806C;
+  GL_UNPACK_SKIP_IMAGES_EXT = $806D;
+  GL_UNPACK_IMAGE_HEIGHT_EXT = $806E;
+  // GL_TEXTURE_3D_EXT  { already defined }
+  // GL_PROXY_TEXTURE_3D_EXT  { already defined }
+  GL_TEXTURE_DEPTH_EXT = $8071;
+  GL_TEXTURE_WRAP_R_EXT = $8072;
+  GL_MAX_3D_TEXTURE_SIZE_EXT = $8073;
+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 = $83F0;
+  GL_COMPRESSED_RGBA_S3TC_DXT1_EXT = $83F1;
+  GL_COMPRESSED_RGBA_S3TC_DXT3_EXT = $83F2;
+  GL_COMPRESSED_RGBA_S3TC_DXT5_EXT = $83F3;
+
+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 = $8570;
+  GL_COMBINE_RGB_EXT = $8571;
+  GL_COMBINE_ALPHA_EXT = $8572;
+  GL_SOURCE0_RGB_EXT = $8580;
+  GL_SOURCE1_RGB_EXT = $8581;
+  GL_SOURCE2_RGB_EXT = $8582;
+  GL_SOURCE0_ALPHA_EXT = $8588;
+  GL_SOURCE1_ALPHA_EXT = $8589;
+  GL_SOURCE2_ALPHA_EXT = $858A;
+  GL_OPERAND0_RGB_EXT = $8590;
+  GL_OPERAND1_RGB_EXT = $8591;
+  GL_OPERAND2_RGB_EXT = $8592;
+  GL_OPERAND0_ALPHA_EXT = $8598;
+  GL_OPERAND1_ALPHA_EXT = $8599;
+  GL_OPERAND2_ALPHA_EXT = $859A;
+  GL_RGB_SCALE_EXT = $8573;
+  GL_ADD_SIGNED_EXT = $8574;
+  GL_INTERPOLATE_EXT = $8575;
+  GL_CONSTANT_EXT = $8576;
+  GL_PRIMARY_COLOR_EXT = $8577;
+  GL_PREVIOUS_EXT = $8578;
+
+function Load_GL_EXT_texture_env_combine: Boolean;
+
+//***** GL_EXT_texture_env_dot3 *****//
+const
+  GL_DOT3_RGB_EXT = $8740;
+  GL_DOT3_RGBA_EXT = $8741;
+
+function Load_GL_EXT_texture_env_dot3: Boolean;
+
+//***** GL_EXT_texture_filter_anisotropic *****//
+const
+  GL_TEXTURE_MAX_ANISOTROPY_EXT = $84FE;
+  GL_MAX_TEXTURE_MAX_ANISOTROPY_EXT = $84FF;
+
+function Load_GL_EXT_texture_filter_anisotropic: Boolean;
+
+//***** GL_EXT_texture_lod_bias *****//
+const
+  GL_TEXTURE_FILTER_CONTROL_EXT = $8500;
+  GL_TEXTURE_LOD_BIAS_EXT = $8501;
+  GL_MAX_TEXTURE_LOD_BIAS_EXT = $84FD;
+
+function Load_GL_EXT_texture_lod_bias: Boolean;
+
+//***** GL_EXT_texture_object *****//
+const
+  GL_TEXTURE_PRIORITY_EXT = $8066;
+  GL_TEXTURE_RESIDENT_EXT = $8067;
+  GL_TEXTURE_1D_BINDING_EXT = $8068;
+  GL_TEXTURE_2D_BINDING_EXT = $8069;
+  GL_TEXTURE_3D_BINDING_EXT = $806A;
+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 = $8074;
+  GL_NORMAL_ARRAY_EXT = $8075;
+  GL_COLOR_ARRAY_EXT = $8076;
+  GL_INDEX_ARRAY_EXT = $8077;
+  GL_TEXTURE_COORD_ARRAY_EXT = $8078;
+  GL_EDGE_FLAG_ARRAY_EXT = $8079;
+  GL_DOUBLE_EXT = $140A;
+  GL_VERTEX_ARRAY_SIZE_EXT = $807A;
+  GL_VERTEX_ARRAY_TYPE_EXT = $807B;
+  GL_VERTEX_ARRAY_STRIDE_EXT = $807C;
+  GL_VERTEX_ARRAY_COUNT_EXT = $807D;
+  GL_NORMAL_ARRAY_TYPE_EXT = $807E;
+  GL_NORMAL_ARRAY_STRIDE_EXT = $807F;
+  GL_NORMAL_ARRAY_COUNT_EXT = $8080;
+  GL_COLOR_ARRAY_SIZE_EXT = $8081;
+  GL_COLOR_ARRAY_TYPE_EXT = $8082;
+  GL_COLOR_ARRAY_STRIDE_EXT = $8083;
+  GL_COLOR_ARRAY_COUNT_EXT = $8084;
+  GL_INDEX_ARRAY_TYPE_EXT = $8085;
+  GL_INDEX_ARRAY_STRIDE_EXT = $8086;
+  GL_INDEX_ARRAY_COUNT_EXT = $8087;
+  GL_TEXTURE_COORD_ARRAY_SIZE_EXT = $8088;
+  GL_TEXTURE_COORD_ARRAY_TYPE_EXT = $8089;
+  GL_TEXTURE_COORD_ARRAY_STRIDE_EXT = $808A;
+  GL_TEXTURE_COORD_ARRAY_COUNT_EXT = $808B;
+  GL_EDGE_FLAG_ARRAY_STRIDE_EXT = $808C;
+  GL_EDGE_FLAG_ARRAY_COUNT_EXT = $808D;
+  GL_VERTEX_ARRAY_POINTER_EXT = $808E;
+  GL_NORMAL_ARRAY_POINTER_EXT = $808F;
+  GL_COLOR_ARRAY_POINTER_EXT = $8090;
+  GL_INDEX_ARRAY_POINTER_EXT = $8091;
+  GL_TEXTURE_COORD_ARRAY_POINTER_EXT = $8092;
+  GL_EDGE_FLAG_ARRAY_POINTER_EXT = $8093;
+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 = $8780;
+  GL_VARIANT_VALUE_EXT = $87E4;
+  GL_VARIANT_DATATYPE_EXT = $87E5;
+  GL_VARIANT_ARRAY_STRIDE_EXT = $87E6;
+  GL_VARIANT_ARRAY_TYPE_EXT = $87E7;
+  GL_VARIANT_ARRAY_EXT = $87E8;
+  GL_VARIANT_ARRAY_POINTER_EXT = $87E9;
+  GL_INVARIANT_VALUE_EXT = $87EA;
+  GL_INVARIANT_DATATYPE_EXT = $87EB;
+  GL_LOCAL_CONSTANT_VALUE_EXT = $87EC;
+  GL_LOCAL_CONSTANT_DATATYPE_EXT = $87ED;
+  GL_OP_INDEX_EXT = $8782;
+  GL_OP_NEGATE_EXT = $8783;
+  GL_OP_DOT3_EXT = $8784;
+  GL_OP_DOT4_EXT = $8785;
+  GL_OP_MUL_EXT = $8786;
+  GL_OP_ADD_EXT = $8787;
+  GL_OP_MADD_EXT = $8788;
+  GL_OP_FRAC_EXT = $8789;
+  GL_OP_MAX_EXT = $878A;
+  GL_OP_MIN_EXT = $878B;
+  GL_OP_SET_GE_EXT = $878C;
+  GL_OP_SET_LT_EXT = $878D;
+  GL_OP_CLAMP_EXT = $878E;
+  GL_OP_FLOOR_EXT = $878F;
+  GL_OP_ROUND_EXT = $8790;
+  GL_OP_EXP_BASE_2_EXT = $8791;
+  GL_OP_LOG_BASE_2_EXT = $8792;
+  GL_OP_POWER_EXT = $8793;
+  GL_OP_RECIP_EXT = $8794;
+  GL_OP_RECIP_SQRT_EXT = $8795;
+  GL_OP_SUB_EXT = $8796;
+  GL_OP_CROSS_PRODUCT_EXT = $8797;
+  GL_OP_MULTIPLY_MATRIX_EXT = $8798;
+  GL_OP_MOV_EXT = $8799;
+  GL_OUTPUT_VERTEX_EXT = $879A;
+  GL_OUTPUT_COLOR0_EXT = $879B;
+  GL_OUTPUT_COLOR1_EXT = $879C;
+  GL_OUTPUT_TEXTURE_COORD0_EXT = $879D;
+  GL_OUTPUT_TEXTURE_COORD1_EXT = $879E;
+  GL_OUTPUT_TEXTURE_COORD2_EXT = $879F;
+  GL_OUTPUT_TEXTURE_COORD3_EXT = $87A0;
+  GL_OUTPUT_TEXTURE_COORD4_EXT = $87A1;
+  GL_OUTPUT_TEXTURE_COORD5_EXT = $87A2;
+  GL_OUTPUT_TEXTURE_COORD6_EXT = $87A3;
+  GL_OUTPUT_TEXTURE_COORD7_EXT = $87A4;
+  GL_OUTPUT_TEXTURE_COORD8_EXT = $87A5;
+  GL_OUTPUT_TEXTURE_COORD9_EXT = $87A6;
+  GL_OUTPUT_TEXTURE_COORD10_EXT = $87A7;
+  GL_OUTPUT_TEXTURE_COORD11_EXT = $87A8;
+  GL_OUTPUT_TEXTURE_COORD12_EXT = $87A9;
+  GL_OUTPUT_TEXTURE_COORD13_EXT = $87AA;
+  GL_OUTPUT_TEXTURE_COORD14_EXT = $87AB;
+  GL_OUTPUT_TEXTURE_COORD15_EXT = $87AC;
+  GL_OUTPUT_TEXTURE_COORD16_EXT = $87AD;
+  GL_OUTPUT_TEXTURE_COORD17_EXT = $87AE;
+  GL_OUTPUT_TEXTURE_COORD18_EXT = $87AF;
+  GL_OUTPUT_TEXTURE_COORD19_EXT = $87B0;
+  GL_OUTPUT_TEXTURE_COORD20_EXT = $87B1;
+  GL_OUTPUT_TEXTURE_COORD21_EXT = $87B2;
+  GL_OUTPUT_TEXTURE_COORD22_EXT = $87B3;
+  GL_OUTPUT_TEXTURE_COORD23_EXT = $87B4;
+  GL_OUTPUT_TEXTURE_COORD24_EXT = $87B5;
+  GL_OUTPUT_TEXTURE_COORD25_EXT = $87B6;
+  GL_OUTPUT_TEXTURE_COORD26_EXT = $87B7;
+  GL_OUTPUT_TEXTURE_COORD27_EXT = $87B8;
+  GL_OUTPUT_TEXTURE_COORD28_EXT = $87B9;
+  GL_OUTPUT_TEXTURE_COORD29_EXT = $87BA;
+  GL_OUTPUT_TEXTURE_COORD30_EXT = $87BB;
+  GL_OUTPUT_TEXTURE_COORD31_EXT = $87BC;
+  GL_OUTPUT_FOG_EXT = $87BD;
+  GL_SCALAR_EXT = $87BE;
+  GL_VECTOR_EXT = $87BF;
+  GL_MATRIX_EXT = $87C0;
+  GL_VARIANT_EXT = $87C1;
+  GL_INVARIANT_EXT = $87C2;
+  GL_LOCAL_CONSTANT_EXT = $87C3;
+  GL_LOCAL_EXT = $87C4;
+  GL_MAX_VERTEX_SHADER_INSTRUCTIONS_EXT = $87C5;
+  GL_MAX_VERTEX_SHADER_VARIANTS_EXT = $87C6;
+  GL_MAX_VERTEX_SHADER_INVARIANTS_EXT = $87C7;
+  GL_MAX_VERTEX_SHADER_LOCAL_CONSTANTS_EXT = $87C8;
+  GL_MAX_VERTEX_SHADER_LOCALS_EXT = $87C9;
+  GL_MAX_OPTIMIZED_VERTEX_SHADER_INSTRUCTIONS_EXT = $87CA;
+  GL_MAX_OPTIMIZED_VERTEX_SHADER_VARIANTS_EXT = $87CB;
+  GL_MAX_OPTIMIZED_VERTEX_SHADER_LOCAL_CONSTANTS_EXT = $87CC;
+  GL_MAX_OPTIMIZED_VERTEX_SHADER_INVARIANTS_EXT = $87CD;
+  GL_MAX_OPTIMIZED_VERTEX_SHADER_LOCALS_EXT = $87CE;
+  GL_VERTEX_SHADER_INSTRUCTIONS_EXT = $87CF;
+  GL_VERTEX_SHADER_VARIANTS_EXT = $87D0;
+  GL_VERTEX_SHADER_INVARIANTS_EXT = $87D1;
+  GL_VERTEX_SHADER_LOCAL_CONSTANTS_EXT = $87D2;
+  GL_VERTEX_SHADER_LOCALS_EXT = $87D3;
+  GL_VERTEX_SHADER_BINDING_EXT = $8781;
+  GL_VERTEX_SHADER_OPTIMIZED_EXT = $87D4;
+  GL_X_EXT = $87D5;
+  GL_Y_EXT = $87D6;
+  GL_Z_EXT = $87D7;
+  GL_W_EXT = $87D8;
+  GL_NEGATIVE_X_EXT = $87D9;
+  GL_NEGATIVE_Y_EXT = $87DA;
+  GL_NEGATIVE_Z_EXT = $87DB;
+  GL_NEGATIVE_W_EXT = $87DC;
+  GL_ZERO_EXT = $87DD;
+  GL_ONE_EXT = $87DE;
+  GL_NEGATIVE_ONE_EXT = $87DF;
+  GL_NORMALIZED_RANGE_EXT = $87E0;
+  GL_FULL_RANGE_EXT = $87E1;
+  GL_CURRENT_VERTEX_EXT = $87E2;
+  GL_MVP_MATRIX_EXT = $87E3;
+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 = $8509;
+  GL_MODELVIEW0_EXT = $1700;
+  GL_MODELVIEW1_EXT = $850A;
+  GL_MODELVIEW0_MATRIX_EXT = $0BA6;
+  GL_MODELVIEW1_MATRIX_EXT = $8506;
+  GL_CURRENT_VERTEX_WEIGHT_EXT = $850B;
+  GL_VERTEX_WEIGHT_ARRAY_EXT = $850C;
+  GL_VERTEX_WEIGHT_ARRAY_SIZE_EXT = $850D;
+  GL_VERTEX_WEIGHT_ARRAY_TYPE_EXT = $850E;
+  GL_VERTEX_WEIGHT_ARRAY_STRIDE_EXT = $850F;
+  GL_MODELVIEW0_STACK_DEPTH_EXT = $0BA3;
+  GL_MODELVIEW1_STACK_DEPTH_EXT = $8502;
+  GL_VERTEX_WEIGHT_ARRAY_POINTER_EXT = $8510;
+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 = $8165;
+  GL_OCCLUSION_TEST_RESULT_HP = $8166;
+
+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 = $886E;
+  GL_DEPTH_STENCIL_TO_BGRA_NV = $886F;
+
+function Load_GL_NV_copy_depth_to_color: Boolean;
+
+//***** GL_NV_depth_clamp *****//
+const
+  GL_DEPTH_CLAMP_NV = $864F;
+
+function Load_GL_NV_depth_clamp: Boolean;
+
+//***** GL_NV_evaluators *****//
+const
+  GL_EVAL_2D_NV = $86C0;
+  GL_EVAL_TRIANGULAR_2D_NV = $86C1;
+  GL_MAP_TESSELLATION_NV = $86C2;
+  GL_MAP_ATTRIB_U_ORDER_NV = $86C3;
+  GL_MAP_ATTRIB_V_ORDER_NV = $86C4;
+  GL_EVAL_FRACTIONAL_TESSELLATION_NV = $86C5;
+  GL_EVAL_VERTEX_ATTRIB0_NV = $86C6;
+  GL_EVAL_VERTEX_ATTRIB1_NV = $86C7;
+  GL_EVAL_VERTEX_ATTRIB2_NV = $86C8;
+  GL_EVAL_VERTEX_ATTRIB3_NV = $86C9;
+  GL_EVAL_VERTEX_ATTRIB4_NV = $86CA;
+  GL_EVAL_VERTEX_ATTRIB5_NV = $86CB;
+  GL_EVAL_VERTEX_ATTRIB6_NV = $86CC;
+  GL_EVAL_VERTEX_ATTRIB7_NV = $86CD;
+  GL_EVAL_VERTEX_ATTRIB8_NV = $86CE;
+  GL_EVAL_VERTEX_ATTRIB9_NV = $86CF;
+  GL_EVAL_VERTEX_ATTRIB10_NV = $86D0;
+  GL_EVAL_VERTEX_ATTRIB11_NV = $86D1;
+  GL_EVAL_VERTEX_ATTRIB12_NV = $86D2;
+  GL_EVAL_VERTEX_ATTRIB13_NV = $86D3;
+  GL_EVAL_VERTEX_ATTRIB14_NV = $86D4;
+  GL_EVAL_VERTEX_ATTRIB15_NV = $86D5;
+  GL_MAX_MAP_TESSELLATION_NV = $86D6;
+  GL_MAX_RATIONAL_EVAL_ORDER_NV = $86D7;
+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 = $84F2;
+  GL_FENCE_STATUS_NV = $84F3;
+  GL_FENCE_CONDITION_NV = $84F4;
+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 = $855A;
+  GL_EYE_RADIAL_NV = $855B;
+  GL_EYE_PLANE_ABSOLUTE_NV = $855C;
+
+function Load_GL_NV_fog_distance: Boolean;
+
+//***** GL_NV_light_max_exponent *****//
+const
+  GL_MAX_SHININESS_NV = $8504;
+  GL_MAX_SPOT_EXPONENT_NV = $8505;
+
+function Load_GL_NV_light_max_exponent: Boolean;
+
+//***** GL_NV_multisample_filter_hint *****//
+const
+  GL_MULTISAMPLE_FILTER_HINT_NV = $8534;
+
+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 = $8864;
+  GL_CURRENT_OCCLUSION_QUERY_ID_NV = $8865;
+  GL_PIXEL_COUNT_NV = $8866;
+  GL_PIXEL_COUNT_AVAILABLE_NV = $8867;
+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 = $84F9;
+  GL_UNSIGNED_INT_24_8_NV = $84FA;
+
+function Load_GL_NV_packed_depth_stencil: Boolean;
+
+//***** GL_NV_point_sprite *****//
+const
+  GL_POINT_SPRITE_NV = $8861;
+  GL_COORD_REPLACE_NV = $8862;
+  GL_POINT_SPRITE_R_MODE_NV = $8863;
+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 = $8522;
+  GL_COMBINER0_NV = $8550;
+  GL_COMBINER1_NV = $8551;
+  GL_COMBINER2_NV = $8552;
+  GL_COMBINER3_NV = $8553;
+  GL_COMBINER4_NV = $8554;
+  GL_COMBINER5_NV = $8555;
+  GL_COMBINER6_NV = $8556;
+  GL_COMBINER7_NV = $8557;
+  GL_VARIABLE_A_NV = $8523;
+  GL_VARIABLE_B_NV = $8524;
+  GL_VARIABLE_C_NV = $8525;
+  GL_VARIABLE_D_NV = $8526;
+  GL_VARIABLE_E_NV = $8527;
+  GL_VARIABLE_F_NV = $8528;
+  GL_VARIABLE_G_NV = $8529;
+  GL_CONSTANT_COLOR0_NV = $852A;
+  GL_CONSTANT_COLOR1_NV = $852B;
+  GL_PRIMARY_COLOR_NV = $852C;
+  GL_SECONDARY_COLOR_NV = $852D;
+  GL_SPARE0_NV = $852E;
+  GL_SPARE1_NV = $852F;
+  GL_UNSIGNED_IDENTITY_NV = $8536;
+  GL_UNSIGNED_INVERT_NV = $8537;
+  GL_EXPAND_NORMAL_NV = $8538;
+  GL_EXPAND_NEGATE_NV = $8539;
+  GL_HALF_BIAS_NORMAL_NV = $853A;
+  GL_HALF_BIAS_NEGATE_NV = $853B;
+  GL_SIGNED_IDENTITY_NV = $853C;
+  GL_SIGNED_NEGATE_NV = $853D;
+  GL_E_TIMES_F_NV = $8531;
+  GL_SPARE0_PLUS_SECONDARY_COLOR_NV = $8532;
+  GL_SCALE_BY_TWO_NV = $853E;
+  GL_SCALE_BY_FOUR_NV = $853F;
+  GL_SCALE_BY_ONE_HALF_NV = $8540;
+  GL_BIAS_BY_NEGATIVE_ONE_HALF_NV = $8541;
+  GL_DISCARD_NV = $8530;
+  GL_COMBINER_INPUT_NV = $8542;
+  GL_COMBINER_MAPPING_NV = $8543;
+  GL_COMBINER_COMPONENT_USAGE_NV = $8544;
+  GL_COMBINER_AB_DOT_PRODUCT_NV = $8545;
+  GL_COMBINER_CD_DOT_PRODUCT_NV = $8546;
+  GL_COMBINER_MUX_SUM_NV = $8547;
+  GL_COMBINER_SCALE_NV = $8548;
+  GL_COMBINER_BIAS_NV = $8549;
+  GL_COMBINER_AB_OUTPUT_NV = $854A;
+  GL_COMBINER_CD_OUTPUT_NV = $854B;
+  GL_COMBINER_SUM_OUTPUT_NV = $854C;
+  GL_NUM_GENERAL_COMBINERS_NV = $854E;
+  GL_COLOR_SUM_CLAMP_NV = $854F;
+  GL_MAX_GENERAL_COMBINERS_NV = $854D;
+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 = $8535;
+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 = $855F;
+  GL_EMBOSS_LIGHT_NV = $855D;
+  GL_EMBOSS_CONSTANT_NV = $855E;
+
+function Load_GL_NV_texgen_emboss: Boolean;
+
+//***** GL_NV_texgen_reflection *****//
+const
+  GL_NORMAL_MAP_NV = $8511;
+  GL_REFLECTION_MAP_NV = $8512;
+
+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 = $8503;
+  GL_SOURCE3_RGB_NV = $8583;
+  GL_SOURCE3_ALPHA_NV = $858B;
+  GL_OPERAND3_RGB_NV = $8593;
+  GL_OPERAND3_ALPHA_NV = $859B;
+
+function Load_GL_NV_texture_env_combine4: Boolean;
+
+//***** GL_NV_texture_rectangle *****//
+const
+  GL_TEXTURE_RECTANGLE_NV = $84F5;
+  GL_TEXTURE_BINDING_RECTANGLE_NV = $84F6;
+  GL_PROXY_TEXTURE_RECTANGLE_NV = $84F7;
+  GL_MAX_RECTANGLE_TEXTURE_SIZE_NV = $84F8;
+
+function Load_GL_NV_texture_rectangle: Boolean;
+
+//***** GL_NV_texture_shader *****//
+const
+  GL_TEXTURE_SHADER_NV = $86DE;
+  GL_RGBA_UNSIGNED_DOT_PRODUCT_MAPPING_NV = $86D9;
+  GL_SHADER_OPERATION_NV = $86DF;
+  GL_CULL_MODES_NV = $86E0;
+  GL_OFFSET_TEXTURE_MATRIX_NV = $86E1;
+  GL_OFFSET_TEXTURE_SCALE_NV = $86E2;
+  GL_OFFSET_TEXTURE_BIAS_NV = $86E3;
+  GL_PREVIOUS_TEXTURE_INPUT_NV = $86E4;
+  GL_CONST_EYE_NV = $86E5;
+  GL_SHADER_CONSISTENT_NV = $86DD;
+  GL_PASS_THROUGH_NV = $86E6;
+  GL_CULL_FRAGMENT_NV = $86E7;
+  GL_OFFSET_TEXTURE_2D_NV = $86E8;
+  GL_OFFSET_TEXTURE_RECTANGLE_NV = $864C;
+  GL_OFFSET_TEXTURE_RECTANGLE_SCALE_NV = $864D;
+  GL_DEPENDENT_AR_TEXTURE_2D_NV = $86E9;
+  GL_DEPENDENT_GB_TEXTURE_2D_NV = $86EA;
+  GL_DOT_PRODUCT_NV = $86EC;
+  GL_DOT_PRODUCT_DEPTH_REPLACE_NV = $86ED;
+  GL_DOT_PRODUCT_TEXTURE_2D_NV = $86EE;
+  GL_DOT_PRODUCT_TEXTURE_RECTANGLE_NV = $864E;
+  GL_DOT_PRODUCT_TEXTURE_CUBE_MAP_NV = $86F0;
+  GL_DOT_PRODUCT_DIFFUSE_CUBE_MAP_NV = $86F1;
+  GL_DOT_PRODUCT_REFLECT_CUBE_MAP_NV = $86F2;
+  GL_DOT_PRODUCT_CONST_EYE_REFLECT_CUBE_MAP_NV = $86F3;
+  GL_HILO_NV = $86F4;
+  GL_DSDT_NV = $86F5;
+  GL_DSDT_MAG_NV = $86F6;
+  GL_DSDT_MAG_VIB_NV = $86F7;
+  GL_UNSIGNED_INT_S8_S8_8_8_NV = $86DA;
+  GL_UNSIGNED_INT_8_8_S8_S8_REV_NV = $86DB;
+  GL_SIGNED_RGBA_NV = $86FB;
+  GL_SIGNED_RGBA8_NV = $86FC;
+  GL_SIGNED_RGB_NV = $86FE;
+  GL_SIGNED_RGB8_NV = $86FF;
+  GL_SIGNED_LUMINANCE_NV = $8701;
+  GL_SIGNED_LUMINANCE8_NV = $8702;
+  GL_SIGNED_LUMINANCE_ALPHA_NV = $8703;
+  GL_SIGNED_LUMINANCE8_ALPHA8_NV = $8704;
+  GL_SIGNED_ALPHA_NV = $8705;
+  GL_SIGNED_ALPHA8_NV = $8706;
+  GL_SIGNED_INTENSITY_NV = $8707;
+  GL_SIGNED_INTENSITY8_NV = $8708;
+  GL_SIGNED_RGB_UNSIGNED_ALPHA_NV = $870C;
+  GL_SIGNED_RGB8_UNSIGNED_ALPHA8_NV = $870D;
+  GL_HILO16_NV = $86F8;
+  GL_SIGNED_HILO_NV = $86F9;
+  GL_SIGNED_HILO16_NV = $86FA;
+  GL_DSDT8_NV = $8709;
+  GL_DSDT8_MAG8_NV = $870A;
+  GL_DSDT_MAG_INTENSITY_NV = $86DC;
+  GL_DSDT8_MAG8_INTENSITY8_NV = $870B;
+  GL_HI_SCALE_NV = $870E;
+  GL_LO_SCALE_NV = $870F;
+  GL_DS_SCALE_NV = $8710;
+  GL_DT_SCALE_NV = $8711;
+  GL_MAGNITUDE_SCALE_NV = $8712;
+  GL_VIBRANCE_SCALE_NV = $8713;
+  GL_HI_BIAS_NV = $8714;
+  GL_LO_BIAS_NV = $8715;
+  GL_DS_BIAS_NV = $8716;
+  GL_DT_BIAS_NV = $8717;
+  GL_MAGNITUDE_BIAS_NV = $8718;
+  GL_VIBRANCE_BIAS_NV = $8719;
+  GL_TEXTURE_BORDER_VALUES_NV = $871A;
+  GL_TEXTURE_HI_SIZE_NV = $871B;
+  GL_TEXTURE_LO_SIZE_NV = $871C;
+  GL_TEXTURE_DS_SIZE_NV = $871D;
+  GL_TEXTURE_DT_SIZE_NV = $871E;
+  GL_TEXTURE_MAG_SIZE_NV = $871F;
+
+function Load_GL_NV_texture_shader: Boolean;
+
+//***** GL_NV_texture_shader2 *****//
+const
+  GL_DOT_PRODUCT_TEXTURE_3D_NV = $86EF;
+  // 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 = $8850;
+  GL_OFFSET_PROJECTIVE_TEXTURE_2D_SCALE_NV = $8851;
+  GL_OFFSET_PROJECTIVE_TEXTURE_RECTANGLE_NV = $8852;
+  GL_OFFSET_PROJECTIVE_TEXTURE_RECTANGLE_SCALE_NV = $8853;
+  GL_OFFSET_HILO_TEXTURE_2D_NV = $8854;
+  GL_OFFSET_HILO_TEXTURE_RECTANGLE_NV = $8855;
+  GL_OFFSET_HILO_PROJECTIVE_TEXTURE_2D_NV = $8856;
+  GL_OFFSET_HILO_PROJECTIVE_TEXTURE_RECTANGLE_NV = $8857;
+  GL_DEPENDENT_HILO_TEXTURE_2D_NV = $8858;
+  GL_DEPENDENT_RGB_TEXTURE_3D_NV = $8859;
+  GL_DEPENDENT_RGB_TEXTURE_CUBE_MAP_NV = $885A;
+  GL_DOT_PRODUCT_PASS_THROUGH_NV = $885B;
+  GL_DOT_PRODUCT_TEXTURE_1D_NV = $885C;
+  GL_DOT_PRODUCT_AFFINE_DEPTH_REPLACE_NV = $885D;
+  GL_HILO8_NV = $885E;
+  GL_SIGNED_HILO8_NV = $885F;
+  GL_FORCE_BLUE_TO_ONE_NV = $8860;
+
+function Load_GL_NV_texture_shader3: Boolean;
+
+//***** GL_NV_vertex_array_range *****//
+const
+  GL_VERTEX_ARRAY_RANGE_NV = $851D;
+  GL_VERTEX_ARRAY_RANGE_LENGTH_NV = $851E;
+  GL_VERTEX_ARRAY_RANGE_VALID_NV = $851F;
+  GL_MAX_VERTEX_ARRAY_RANGE_ELEMENT_NV = $8520;
+  GL_VERTEX_ARRAY_RANGE_POINTER_NV = $8521;
+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 = $8533;
+
+function Load_GL_NV_vertex_array_range2: Boolean;
+
+//***** GL_NV_vertex_program *****//
+const
+  GL_VERTEX_PROGRAM_NV = $8620;
+  GL_VERTEX_PROGRAM_POINT_SIZE_NV = $8642;
+  GL_VERTEX_PROGRAM_TWO_SIDE_NV = $8643;
+  GL_VERTEX_STATE_PROGRAM_NV = $8621;
+  GL_ATTRIB_ARRAY_SIZE_NV = $8623;
+  GL_ATTRIB_ARRAY_STRIDE_NV = $8624;
+  GL_ATTRIB_ARRAY_TYPE_NV = $8625;
+  GL_CURRENT_ATTRIB_NV = $8626;
+  GL_PROGRAM_PARAMETER_NV = $8644;
+  GL_ATTRIB_ARRAY_POINTER_NV = $8645;
+  GL_PROGRAM_TARGET_NV = $8646;
+  GL_PROGRAM_LENGTH_NV = $8627;
+  GL_PROGRAM_RESIDENT_NV = $8647;
+  GL_PROGRAM_STRING_NV = $8628;
+  GL_TRACK_MATRIX_NV = $8648;
+  GL_TRACK_MATRIX_TRANSFORM_NV = $8649;
+  GL_MAX_TRACK_MATRIX_STACK_DEPTH_NV = $862E;
+  GL_MAX_TRACK_MATRICES_NV = $862F;
+  GL_CURRENT_MATRIX_STACK_DEPTH_NV = $8640;
+  GL_CURRENT_MATRIX_NV = $8641;
+  GL_VERTEX_PROGRAM_BINDING_NV = $864A;
+  GL_PROGRAM_ERROR_POSITION_NV = $864B;
+  GL_MODELVIEW_PROJECTION_NV = $8629;
+  GL_MATRIX0_NV = $8630;
+  GL_MATRIX1_NV = $8631;
+  GL_MATRIX2_NV = $8632;
+  GL_MATRIX3_NV = $8633;
+  GL_MATRIX4_NV = $8634;
+  GL_MATRIX5_NV = $8635;
+  GL_MATRIX6_NV = $8636;
+  GL_MATRIX7_NV = $8637;
+  GL_IDENTITY_NV = $862A;
+  GL_INVERSE_NV = $862B;
+  GL_TRANSPOSE_NV = $862C;
+  GL_INVERSE_TRANSPOSE_NV = $862D;
+  GL_VERTEX_ATTRIB_ARRAY0_NV = $8650;
+  GL_VERTEX_ATTRIB_ARRAY1_NV = $8651;
+  GL_VERTEX_ATTRIB_ARRAY2_NV = $8652;
+  GL_VERTEX_ATTRIB_ARRAY3_NV = $8653;
+  GL_VERTEX_ATTRIB_ARRAY4_NV = $8654;
+  GL_VERTEX_ATTRIB_ARRAY5_NV = $8655;
+  GL_VERTEX_ATTRIB_ARRAY6_NV = $8656;
+  GL_VERTEX_ATTRIB_ARRAY7_NV = $8657;
+  GL_VERTEX_ATTRIB_ARRAY8_NV = $8658;
+  GL_VERTEX_ATTRIB_ARRAY9_NV = $8659;
+  GL_VERTEX_ATTRIB_ARRAY10_NV = $865A;
+  GL_VERTEX_ATTRIB_ARRAY11_NV = $865B;
+  GL_VERTEX_ATTRIB_ARRAY12_NV = $865C;
+  GL_VERTEX_ATTRIB_ARRAY13_NV = $865D;
+  GL_VERTEX_ATTRIB_ARRAY14_NV = $865E;
+  GL_VERTEX_ATTRIB_ARRAY15_NV = $865F;
+  GL_MAP1_VERTEX_ATTRIB0_4_NV = $8660;
+  GL_MAP1_VERTEX_ATTRIB1_4_NV = $8661;
+  GL_MAP1_VERTEX_ATTRIB2_4_NV = $8662;
+  GL_MAP1_VERTEX_ATTRIB3_4_NV = $8663;
+  GL_MAP1_VERTEX_ATTRIB4_4_NV = $8664;
+  GL_MAP1_VERTEX_ATTRIB5_4_NV = $8665;
+  GL_MAP1_VERTEX_ATTRIB6_4_NV = $8666;
+  GL_MAP1_VERTEX_ATTRIB7_4_NV = $8667;
+  GL_MAP1_VERTEX_ATTRIB8_4_NV = $8668;
+  GL_MAP1_VERTEX_ATTRIB9_4_NV = $8669;
+  GL_MAP1_VERTEX_ATTRIB10_4_NV = $866A;
+  GL_MAP1_VERTEX_ATTRIB11_4_NV = $866B;
+  GL_MAP1_VERTEX_ATTRIB12_4_NV = $866C;
+  GL_MAP1_VERTEX_ATTRIB13_4_NV = $866D;
+  GL_MAP1_VERTEX_ATTRIB14_4_NV = $866E;
+  GL_MAP1_VERTEX_ATTRIB15_4_NV = $866F;
+  GL_MAP2_VERTEX_ATTRIB0_4_NV = $8670;
+  GL_MAP2_VERTEX_ATTRIB1_4_NV = $8671;
+  GL_MAP2_VERTEX_ATTRIB2_4_NV = $8672;
+  GL_MAP2_VERTEX_ATTRIB3_4_NV = $8673;
+  GL_MAP2_VERTEX_ATTRIB4_4_NV = $8674;
+  GL_MAP2_VERTEX_ATTRIB5_4_NV = $8675;
+  GL_MAP2_VERTEX_ATTRIB6_4_NV = $8676;
+  GL_MAP2_VERTEX_ATTRIB7_4_NV = $8677;
+  GL_MAP2_VERTEX_ATTRIB8_4_NV = $8678;
+  GL_MAP2_VERTEX_ATTRIB9_4_NV = $8679;
+  GL_MAP2_VERTEX_ATTRIB10_4_NV = $867A;
+  GL_MAP2_VERTEX_ATTRIB11_4_NV = $867B;
+  GL_MAP2_VERTEX_ATTRIB12_4_NV = $867C;
+  GL_MAP2_VERTEX_ATTRIB13_4_NV = $867D;
+  GL_MAP2_VERTEX_ATTRIB14_4_NV = $867E;
+  GL_MAP2_VERTEX_ATTRIB15_4_NV = $867F;
+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 = $8768;
+  GL_ELEMENT_ARRAY_TYPE_ATI = $8769;
+  GL_ELEMENT_ARRAY_POINTER_ATI = $876A;
+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 = $8775;
+  GL_BUMP_ROT_MATRIX_SIZE_ATI = $8776;
+  GL_BUMP_NUM_TEX_UNITS_ATI = $8777;
+  GL_BUMP_TEX_UNITS_ATI = $8778;
+  GL_DUDV_ATI = $8779;
+  GL_DU8DV8_ATI = $877A;
+  GL_BUMP_ENVMAP_ATI = $877B;
+  GL_BUMP_TARGET_ATI = $877C;
+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 = $8920;
+  GL_REG_0_ATI = $8921;
+  GL_REG_1_ATI = $8922;
+  GL_REG_2_ATI = $8923;
+  GL_REG_3_ATI = $8924;
+  GL_REG_4_ATI = $8925;
+  GL_REG_5_ATI = $8926;
+  GL_CON_0_ATI = $8941;
+  GL_CON_1_ATI = $8942;
+  GL_CON_2_ATI = $8943;
+  GL_CON_3_ATI = $8944;
+  GL_CON_4_ATI = $8945;
+  GL_CON_5_ATI = $8946;
+  GL_CON_6_ATI = $8947;
+  GL_CON_7_ATI = $8948;
+  GL_MOV_ATI = $8961;
+  GL_ADD_ATI = $8963;
+  GL_MUL_ATI = $8964;
+  GL_SUB_ATI = $8965;
+  GL_DOT3_ATI = $8966;
+  GL_DOT4_ATI = $8967;
+  GL_MAD_ATI = $8968;
+  GL_LERP_ATI = $8969;
+  GL_CND_ATI = $896A;
+  GL_CND0_ATI = $896B;
+  GL_DOT2_ADD_ATI = $896C;
+  GL_SECONDARY_INTERPOLATOR_ATI = $896D;
+  GL_SWIZZLE_STR_ATI = $8976;
+  GL_SWIZZLE_STQ_ATI = $8977;
+  GL_SWIZZLE_STR_DR_ATI = $8978;
+  GL_SWIZZLE_STQ_DQ_ATI = $8979;
+  GL_RED_BIT_ATI = $0001;
+  GL_GREEN_BIT_ATI = $0002;
+  GL_BLUE_BIT_ATI = $0004;
+  GL_2X_BIT_ATI = $0001;
+  GL_4X_BIT_ATI = $0002;
+  GL_8X_BIT_ATI = $0004;
+  GL_HALF_BIT_ATI = $0008;
+  GL_QUARTER_BIT_ATI = $0010;
+  GL_EIGHTH_BIT_ATI = $0020;
+  GL_SATURATE_BIT_ATI = $0040;
+  // GL_2X_BIT_ATI  { already defined }
+  GL_COMP_BIT_ATI = $0002;
+  GL_NEGATE_BIT_ATI = $0004;
+  GL_BIAS_BIT_ATI = $0008;
+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 = $87F0;
+  GL_MAX_PN_TRIANGLES_TESSELATION_LEVEL_ATI = $87F1;
+  GL_PN_TRIANGLES_POINT_MODE_ATI = $87F2;
+  GL_PN_TRIANGLES_NORMAL_MODE_ATI = $87F3;
+  GL_PN_TRIANGLES_TESSELATION_LEVEL_ATI = $87F4;
+  GL_PN_TRIANGLES_POINT_MODE_LINEAR_ATI = $87F5;
+  GL_PN_TRIANGLES_POINT_MODE_CUBIC_ATI = $87F6;
+  GL_PN_TRIANGLES_NORMAL_MODE_LINEAR_ATI = $87F7;
+  GL_PN_TRIANGLES_NORMAL_MODE_QUADRATIC_ATI = $87F8;
+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 = $8742;
+  GL_MIRROR_CLAMP_TO_EDGE_ATI = $8743;
+
+function Load_GL_ATI_texture_mirror_once: Boolean;
+
+//***** GL_ATI_vertex_array_object *****//
+const
+  GL_STATIC_ATI = $8760;
+  GL_DYNAMIC_ATI = $8761;
+  GL_PRESERVE_ATI = $8762;
+  GL_DISCARD_ATI = $8763;
+  GL_OBJECT_BUFFER_SIZE_ATI = $8764;
+  GL_OBJECT_BUFFER_USAGE_ATI = $8765;
+  GL_ARRAY_OBJECT_BUFFER_ATI = $8766;
+  GL_ARRAY_OBJECT_OFFSET_ATI = $8767;
+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 = $876B;
+  GL_VERTEX_STREAM0_ATI = $876C;
+  GL_VERTEX_STREAM1_ATI = $876D;
+  GL_VERTEX_STREAM2_ATI = $876E;
+  GL_VERTEX_STREAM3_ATI = $876F;
+  GL_VERTEX_STREAM4_ATI = $8770;
+  GL_VERTEX_STREAM5_ATI = $8771;
+  GL_VERTEX_STREAM6_ATI = $8772;
+  GL_VERTEX_STREAM7_ATI = $8773;
+  GL_VERTEX_SOURCE_ATI = $8774;
+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 = $0001;
+  WGL_IMAGE_BUFFER_LOCK_I3D = $0002;
+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 = $86B0;
+  GL_COMPRESSED_RGBA_FXT1_3DFX = $86B1;
+
+function Load_GL_3DFX_texture_compression_FXT1: Boolean;
+
+//***** GL_IBM_cull_vertex *****//
+const
+  GL_CULL_VERTEX_IBM = $1928A;
+
+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 = $19262;
+
+function Load_GL_IBM_raster_pos_clip: Boolean;
+
+//***** GL_IBM_texture_mirrored_repeat *****//
+const
+  GL_MIRRORED_REPEAT_IBM = $8370;
+
+function Load_GL_IBM_texture_mirrored_repeat: Boolean;
+
+//***** GL_IBM_vertex_array_lists *****//
+const
+  GL_VERTEX_ARRAY_LIST_IBM = $1929E;
+  GL_NORMAL_ARRAY_LIST_IBM = $1929F;
+  GL_COLOR_ARRAY_LIST_IBM = $192A0;
+  GL_INDEX_ARRAY_LIST_IBM = $192A1;
+  GL_TEXTURE_COORD_ARRAY_LIST_IBM = $192A2;
+  GL_EDGE_FLAG_ARRAY_LIST_IBM = $192A3;
+  GL_FOG_COORDINATE_ARRAY_LIST_IBM = $192A4;
+  GL_SECONDARY_COLOR_ARRAY_LIST_IBM = $192A5;
+  GL_VERTEX_ARRAY_LIST_STRIDE_IBM = $192A8;
+  GL_NORMAL_ARRAY_LIST_STRIDE_IBM = $192A9;
+  GL_COLOR_ARRAY_LIST_STRIDE_IBM = $192AA;
+  GL_INDEX_ARRAY_LIST_STRIDE_IBM = $192AB;
+  GL_TEXTURE_COORD_ARRAY_LIST_STRIDE_IBM = $192AC;
+  GL_EDGE_FLAG_ARRAY_LIST_STRIDE_IBM = $192AD;
+  GL_FOG_COORDINATE_ARRAY_LIST_STRIDE_IBM = $192AE;
+  GL_SECONDARY_COLOR_ARRAY_LIST_STRIDE_IBM = $192AF;
+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 = $8980;
+  GL_INTERLACE_READ_OML = $8981;
+
+function Load_GL_OML_interlace: Boolean;
+
+//***** GL_OML_resample *****//
+const
+  GL_PACK_RESAMPLE_OML = $8984;
+  GL_UNPACK_RESAMPLE_OML = $8985;
+  GL_RESAMPLE_REPLICATE_OML = $8986;
+  GL_RESAMPLE_ZERO_FILL_OML = $8987;
+  GL_RESAMPLE_AVERAGE_OML = $8988;
+  GL_RESAMPLE_DECIMATE_OML = $8989;
+  // GL_RESAMPLE_AVERAGE_OML  { already defined }
+
+function Load_GL_OML_resample: Boolean;
+
+//***** GL_OML_subsample *****//
+const
+  GL_FORMAT_SUBSAMPLE_24_24_OML = $8982;
+  GL_FORMAT_SUBSAMPLE_244_244_OML = $8983;
+
+function Load_GL_OML_subsample: Boolean;
+
+//***** GL_SGIS_generate_mipmap *****//
+const
+  GL_GENERATE_MIPMAP_SGIS = $8191;
+  GL_GENERATE_MIPMAP_HINT_SGIS = $8192;
+
+function Load_GL_SGIS_generate_mipmap: Boolean;
+
+//***** GL_SGIS_multisample *****//
+const
+  GLX_SAMPLE_BUFFERS_SGIS = $186A0;
+  GLX_SAMPLES_SGIS = $186A1;
+  GL_MULTISAMPLE_SGIS = $809D;
+  GL_SAMPLE_ALPHA_TO_MASK_SGIS = $809E;
+  GL_SAMPLE_ALPHA_TO_ONE_SGIS = $809F;
+  GL_SAMPLE_MASK_SGIS = $80A0;
+  GL_MULTISAMPLE_BIT_EXT = $20000000;
+  GL_1PASS_SGIS = $80A1;
+  GL_2PASS_0_SGIS = $80A2;
+  GL_2PASS_1_SGIS = $80A3;
+  GL_4PASS_0_SGIS = $80A4;
+  GL_4PASS_1_SGIS = $80A5;
+  GL_4PASS_2_SGIS = $80A6;
+  GL_4PASS_3_SGIS = $80A7;
+  GL_SAMPLE_BUFFERS_SGIS = $80A8;
+  GL_SAMPLES_SGIS = $80A9;
+  GL_SAMPLE_MASK_VALUE_SGIS = $80AA;
+  GL_SAMPLE_MASK_INVERT_SGIS = $80AB;
+  GL_SAMPLE_PATTERN_SGIS = $80AC;
+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 = $8353;
+  GL_PIXEL_FRAGMENT_RGB_SOURCE_SGIS = $8354;
+  GL_PIXEL_FRAGMENT_ALPHA_SOURCE_SGIS = $8355;
+  GL_PIXEL_GROUP_COLOR_SGIS = $8356;
+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 = $81EF;
+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 = $812F;
+
+function Load_GL_SGIS_texture_edge_clamp: Boolean;
+
+//***** GL_SGIS_texture_lod *****//
+const
+  GL_TEXTURE_MIN_LOD_SGIS = $813A;
+  GL_TEXTURE_MAX_LOD_SGIS = $813B;
+  GL_TEXTURE_BASE_LEVEL_SGIS = $813C;
+  GL_TEXTURE_MAX_LEVEL_SGIS = $813D;
+
+function Load_GL_SGIS_texture_lod: Boolean;
+
+//***** GL_SGIS_depth_texture *****//
+const
+  GL_DEPTH_COMPONENT16_SGIX = $81A5;
+  GL_DEPTH_COMPONENT24_SGIX = $81A6;
+  GL_DEPTH_COMPONENT32_SGIX = $81A7;
+
+function Load_GL_SGIS_depth_texture: Boolean;
+
+//***** GL_SGIX_fog_offset *****//
+const
+  GL_FOG_OFFSET_SGIX = $8198;
+  GL_FOG_OFFSET_VALUE_SGIX = $8199;
+
+function Load_GL_SGIX_fog_offset: Boolean;
+
+//***** GL_SGIX_interlace *****//
+const
+  GL_INTERLACE_SGIX = $8094;
+
+function Load_GL_SGIX_interlace: Boolean;
+
+//***** GL_SGIX_shadow_ambient *****//
+const
+  GL_SHADOW_AMBIENT_SGIX = $80BF;
+
+function Load_GL_SGIX_shadow_ambient: Boolean;
+
+//***** GL_SGI_color_matrix *****//
+const
+  GL_COLOR_MATRIX_SGI = $80B1;
+  GL_COLOR_MATRIX_STACK_DEPTH_SGI = $80B2;
+  GL_MAX_COLOR_MATRIX_STACK_DEPTH_SGI = $80B3;
+  GL_POST_COLOR_MATRIX_RED_SCALE_SGI = $80B4;
+  GL_POST_COLOR_MATRIX_GREEN_SCALE_SGI = $80B5;
+  GL_POST_COLOR_MATRIX_BLUE_SCALE_SGI = $80B6;
+  GL_POST_COLOR_MATRIX_ALPHA_SCALE_SGI = $80B7;
+  GL_POST_COLOR_MATRIX_RED_BIAS_SGI = $80B8;
+  GL_POST_COLOR_MATRIX_GREEN_BIAS_SGI = $80B9;
+  GL_POST_COLOR_MATRIX_BLUE_BIAS_SGI = $80BA;
+  GL_POST_COLOR_MATRIX_ALPHA_BIAS_SGI = $80BB;
+
+function Load_GL_SGI_color_matrix: Boolean;
+
+//***** GL_SGI_color_table *****//
+const
+  GL_COLOR_TABLE_SGI = $80D0;
+  GL_POST_CONVOLUTION_COLOR_TABLE_SGI = $80D1;
+  GL_POST_COLOR_MATRIX_COLOR_TABLE_SGI = $80D2;
+  GL_PROXY_COLOR_TABLE_SGI = $80D3;
+  GL_PROXY_POST_CONVOLUTION_COLOR_TABLE_SGI = $80D4;
+  GL_PROXY_POST_COLOR_MATRIX_COLOR_TABLE_SGI = $80D5;
+  GL_COLOR_TABLE_SCALE_SGI = $80D6;
+  GL_COLOR_TABLE_BIAS_SGI = $80D7;
+  GL_COLOR_TABLE_FORMAT_SGI = $80D8;
+  GL_COLOR_TABLE_WIDTH_SGI = $80D9;
+  GL_COLOR_TABLE_RED_SIZE_SGI = $80DA;
+  GL_COLOR_TABLE_GREEN_SIZE_SGI = $80DB;
+  GL_COLOR_TABLE_BLUE_SIZE_SGI = $80DC;
+  GL_COLOR_TABLE_ALPHA_SIZE_SGI = $80DD;
+  GL_COLOR_TABLE_LUMINANCE_SIZE_SGI = $80DE;
+  GL_COLOR_TABLE_INTENSITY_SIZE_SGI = $80DF;
+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 = $80BC;
+  GL_PROXY_TEXTURE_COLOR_TABLE_SGI = $80BD;
+
+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 = $8804;
+  // 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 = $8805;
+  GL_PROGRAM_TEX_INSTRUCTIONS_ARB = $8806;
+  GL_PROGRAM_TEX_INDIRECTIONS_ARB = $8807;
+  GL_PROGRAM_NATIVE_ALU_INSTRUCTIONS_ARB = $8808;
+  GL_PROGRAM_NATIVE_TEX_INSTRUCTIONS_ARB = $8809;
+  GL_PROGRAM_NATIVE_TEX_INDIRECTIONS_ARB = $880A;
+  GL_MAX_PROGRAM_ALU_INSTRUCTIONS_ARB = $880B;
+  GL_MAX_PROGRAM_TEX_INSTRUCTIONS_ARB = $880C;
+  GL_MAX_PROGRAM_TEX_INDIRECTIONS_ARB = $880D;
+  GL_MAX_PROGRAM_NATIVE_ALU_INSTRUCTIONS_ARB = $880E;
+  GL_MAX_PROGRAM_NATIVE_TEX_INSTRUCTIONS_ARB = $880F;
+  GL_MAX_PROGRAM_NATIVE_TEX_INDIRECTIONS_ARB = $8810;
+  // 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 = $8871;
+  GL_MAX_TEXTURE_IMAGE_UNITS_ARB = $8872;
+  // 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 = $8200;
+
+function Load_GL_ATI_text_fragment_shader: Boolean;
+
+//***** GL_APPLE_client_storage *****//
+const
+  GL_UNPACK_CLIENT_STORAGE_APPLE = $85B2;
+
+function Load_GL_APPLE_client_storage: Boolean;
+
+//***** GL_APPLE_element_array *****//
+const
+  GL_ELEMENT_ARRAY_APPLE = $8768;
+  GL_ELEMENT_ARRAY_TYPE_APPLE = $8769;
+  GL_ELEMENT_ARRAY_POINTER_APPLE = $876A;
+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 = $8A0A;
+  GL_FENCE_APPLE = $8A0B;
+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 = $85B5;
+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 = $851D;
+  GL_VERTEX_ARRAY_RANGE_LENGTH_APPLE = $851E;
+  GL_MAX_VERTEX_ARRAY_RANGE_ELEMENT_APPLE = $8520;
+  GL_VERTEX_ARRAY_RANGE_POINTER_APPLE = $8521;
+  GL_VERTEX_ARRAY_STORAGE_HINT_APPLE = $851F;
+  GL_STORAGE_CACHED_APPLE = $85BE;
+  GL_STORAGE_SHARED_APPLE = $85BF;
+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 = $2000;
+  WGL_DRAW_TO_WINDOW_ARB = $2001;
+  WGL_DRAW_TO_BITMAP_ARB = $2002;
+  WGL_ACCELERATION_ARB = $2003;
+  WGL_NEED_PALETTE_ARB = $2004;
+  WGL_NEED_SYSTEM_PALETTE_ARB = $2005;
+  WGL_SWAP_LAYER_BUFFERS_ARB = $2006;
+  WGL_SWAP_METHOD_ARB = $2007;
+  WGL_NUMBER_OVERLAYS_ARB = $2008;
+  WGL_NUMBER_UNDERLAYS_ARB = $2009;
+  WGL_TRANSPARENT_ARB = $200A;
+  WGL_TRANSPARENT_RED_VALUE_ARB = $2037;
+  WGL_TRANSPARENT_GREEN_VALUE_ARB = $2038;
+  WGL_TRANSPARENT_BLUE_VALUE_ARB = $2039;
+  WGL_TRANSPARENT_ALPHA_VALUE_ARB = $203A;
+  WGL_TRANSPARENT_INDEX_VALUE_ARB = $203B;
+  WGL_SHARE_DEPTH_ARB = $200C;
+  WGL_SHARE_STENCIL_ARB = $200D;
+  WGL_SHARE_ACCUM_ARB = $200E;
+  WGL_SUPPORT_GDI_ARB = $200F;
+  WGL_SUPPORT_OPENGL_ARB = $2010;
+  WGL_DOUBLE_BUFFER_ARB = $2011;
+  WGL_STEREO_ARB = $2012;
+  WGL_PIXEL_TYPE_ARB = $2013;
+  WGL_COLOR_BITS_ARB = $2014;
+  WGL_RED_BITS_ARB = $2015;
+  WGL_RED_SHIFT_ARB = $2016;
+  WGL_GREEN_BITS_ARB = $2017;
+  WGL_GREEN_SHIFT_ARB = $2018;
+  WGL_BLUE_BITS_ARB = $2019;
+  WGL_BLUE_SHIFT_ARB = $201A;
+  WGL_ALPHA_BITS_ARB = $201B;
+  WGL_ALPHA_SHIFT_ARB = $201C;
+  WGL_ACCUM_BITS_ARB = $201D;
+  WGL_ACCUM_RED_BITS_ARB = $201E;
+  WGL_ACCUM_GREEN_BITS_ARB = $201F;
+  WGL_ACCUM_BLUE_BITS_ARB = $2020;
+  WGL_ACCUM_ALPHA_BITS_ARB = $2021;
+  WGL_DEPTH_BITS_ARB = $2022;
+  WGL_STENCIL_BITS_ARB = $2023;
+  WGL_AUX_BUFFERS_ARB = $2024;
+  WGL_NO_ACCELERATION_ARB = $2025;
+  WGL_GENERIC_ACCELERATION_ARB = $2026;
+  WGL_FULL_ACCELERATION_ARB = $2027;
+  WGL_SWAP_EXCHANGE_ARB = $2028;
+  WGL_SWAP_COPY_ARB = $2029;
+  WGL_SWAP_UNDEFINED_ARB = $202A;
+  WGL_TYPE_RGBA_ARB = $202B;
+  WGL_TYPE_COLORINDEX_ARB = $202C;
+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 = $2043;
+  WGL_ERROR_INCOMPATIBLE_DEVICE_CONTEXTS_ARB = $2054;
+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 = $202D;
+  // WGL_DRAW_TO_PBUFFER_ARB  { already defined }
+  WGL_MAX_PBUFFER_PIXELS_ARB = $202E;
+  WGL_MAX_PBUFFER_WIDTH_ARB = $202F;
+  WGL_MAX_PBUFFER_HEIGHT_ARB = $2030;
+  WGL_PBUFFER_LARGEST_ARB = $2033;
+  WGL_PBUFFER_WIDTH_ARB = $2034;
+  WGL_PBUFFER_HEIGHT_ARB = $2035;
+  WGL_PBUFFER_LOST_ARB = $2036;
+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 = $2070;
+  WGL_BIND_TO_TEXTURE_RGBA_ARB = $2071;
+  WGL_TEXTURE_FORMAT_ARB = $2072;
+  WGL_TEXTURE_TARGET_ARB = $2073;
+  WGL_MIPMAP_TEXTURE_ARB = $2074;
+  WGL_TEXTURE_RGB_ARB = $2075;
+  WGL_TEXTURE_RGBA_ARB = $2076;
+  WGL_NO_TEXTURE_ARB = $2077;
+  WGL_TEXTURE_CUBE_MAP_ARB = $2078;
+  WGL_TEXTURE_1D_ARB = $2079;
+  WGL_TEXTURE_2D_ARB = $207A;
+  // WGL_NO_TEXTURE_ARB  { already defined }
+  WGL_MIPMAP_LEVEL_ARB = $207B;
+  WGL_CUBE_MAP_FACE_ARB = $207C;
+  WGL_TEXTURE_CUBE_MAP_POSITIVE_X_ARB = $207D;
+  WGL_TEXTURE_CUBE_MAP_NEGATIVE_X_ARB = $207E;
+  WGL_TEXTURE_CUBE_MAP_POSITIVE_Y_ARB = $207F;
+  WGL_TEXTURE_CUBE_MAP_NEGATIVE_Y_ARB = $2080;
+  WGL_TEXTURE_CUBE_MAP_POSITIVE_Z_ARB = $2081;
+  WGL_TEXTURE_CUBE_MAP_NEGATIVE_Z_ARB = $2082;
+  WGL_FRONT_LEFT_ARB = $2083;
+  WGL_FRONT_RIGHT_ARB = $2084;
+  WGL_BACK_LEFT_ARB = $2085;
+  WGL_BACK_RIGHT_ARB = $2086;
+  WGL_AUX0_ARB = $2087;
+  WGL_AUX1_ARB = $2088;
+  WGL_AUX2_ARB = $2089;
+  WGL_AUX3_ARB = $208A;
+  WGL_AUX4_ARB = $208B;
+  WGL_AUX5_ARB = $208C;
+  WGL_AUX6_ARB = $208D;
+  WGL_AUX7_ARB = $208E;
+  WGL_AUX8_ARB = $208F;
+  WGL_AUX9_ARB = $2090;
+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 = $202D;
+  WGL_MAX_PBUFFER_PIXELS_EXT = $202E;
+  WGL_MAX_PBUFFER_WIDTH_EXT = $202F;
+  WGL_MAX_PBUFFER_HEIGHT_EXT = $2030;
+  WGL_OPTIMAL_PBUFFER_WIDTH_EXT = $2031;
+  WGL_OPTIMAL_PBUFFER_HEIGHT_EXT = $2032;
+  WGL_PBUFFER_LARGEST_EXT = $2033;
+  WGL_PBUFFER_WIDTH_EXT = $2034;
+  WGL_PBUFFER_HEIGHT_EXT = $2035;
+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 = $2000;
+  WGL_DRAW_TO_WINDOW_EXT = $2001;
+  WGL_DRAW_TO_BITMAP_EXT = $2002;
+  WGL_ACCELERATION_EXT = $2003;
+  WGL_NEED_PALETTE_EXT = $2004;
+  WGL_NEED_SYSTEM_PALETTE_EXT = $2005;
+  WGL_SWAP_LAYER_BUFFERS_EXT = $2006;
+  WGL_SWAP_METHOD_EXT = $2007;
+  WGL_NUMBER_OVERLAYS_EXT = $2008;
+  WGL_NUMBER_UNDERLAYS_EXT = $2009;
+  WGL_TRANSPARENT_EXT = $200A;
+  WGL_TRANSPARENT_VALUE_EXT = $200B;
+  WGL_SHARE_DEPTH_EXT = $200C;
+  WGL_SHARE_STENCIL_EXT = $200D;
+  WGL_SHARE_ACCUM_EXT = $200E;
+  WGL_SUPPORT_GDI_EXT = $200F;
+  WGL_SUPPORT_OPENGL_EXT = $2010;
+  WGL_DOUBLE_BUFFER_EXT = $2011;
+  WGL_STEREO_EXT = $2012;
+  WGL_PIXEL_TYPE_EXT = $2013;
+  WGL_COLOR_BITS_EXT = $2014;
+  WGL_RED_BITS_EXT = $2015;
+  WGL_RED_SHIFT_EXT = $2016;
+  WGL_GREEN_BITS_EXT = $2017;
+  WGL_GREEN_SHIFT_EXT = $2018;
+  WGL_BLUE_BITS_EXT = $2019;
+  WGL_BLUE_SHIFT_EXT = $201A;
+  WGL_ALPHA_BITS_EXT = $201B;
+  WGL_ALPHA_SHIFT_EXT = $201C;
+  WGL_ACCUM_BITS_EXT = $201D;
+  WGL_ACCUM_RED_BITS_EXT = $201E;
+  WGL_ACCUM_GREEN_BITS_EXT = $201F;
+  WGL_ACCUM_BLUE_BITS_EXT = $2020;
+  WGL_ACCUM_ALPHA_BITS_EXT = $2021;
+  WGL_DEPTH_BITS_EXT = $2022;
+  WGL_STENCIL_BITS_EXT = $2023;
+  WGL_AUX_BUFFERS_EXT = $2024;
+  WGL_NO_ACCELERATION_EXT = $2025;
+  WGL_GENERIC_ACCELERATION_EXT = $2026;
+  WGL_FULL_ACCELERATION_EXT = $2027;
+  WGL_SWAP_EXCHANGE_EXT = $2028;
+  WGL_SWAP_COPY_EXT = $2029;
+  WGL_SWAP_UNDEFINED_EXT = $202A;
+  WGL_TYPE_RGBA_EXT = $202B;
+  WGL_TYPE_COLORINDEX_EXT = $202C;
+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 = $2050;
+  WGL_DIGITAL_VIDEO_CURSOR_ALPHA_VALUE_I3D = $2051;
+  WGL_DIGITAL_VIDEO_CURSOR_INCLUDED_I3D = $2052;
+  WGL_DIGITAL_VIDEO_GAMMA_CORRECTED_I3D = $2053;
+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 = $204E;
+  WGL_GAMMA_EXCLUDE_DESKTOP_I3D = $204F;
+  // 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 = $2044;
+  WGL_GENLOCK_SOURCE_EXTERNAL_SYNC_I3D = $2045;
+  WGL_GENLOCK_SOURCE_EXTERNAL_FIELD_I3D = $2046;
+  WGL_GENLOCK_SOURCE_EXTERNAL_TTL_I3D = $2047;
+  WGL_GENLOCK_SOURCE_DIGITAL_SYNC_I3D = $2048;
+  WGL_GENLOCK_SOURCE_DIGITAL_FIELD_I3D = $2049;
+  WGL_GENLOCK_SOURCE_EDGE_FALLING_I3D = $204A;
+  WGL_GENLOCK_SOURCE_EDGE_RISING_I3D = $204B;
+  WGL_GENLOCK_SOURCE_EDGE_BOTH_I3D = $204C;
+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 = $8840;
+  GL_MAX_MATRIX_PALETTE_STACK_DEPTH_ARB = $8841;
+  GL_MAX_PALETTE_MATRICES_ARB = $8842;
+  GL_CURRENT_PALETTE_MATRIX_ARB = $8843;
+  GL_MATRIX_INDEX_ARRAY_ARB = $8844;
+  GL_CURRENT_MATRIX_INDEX_ARB = $8845;
+  GL_MATRIX_INDEX_ARRAY_SIZE_ARB = $8846;
+  GL_MATRIX_INDEX_ARRAY_TYPE_ARB = $8847;
+  GL_MATRIX_INDEX_ARRAY_STRIDE_ARB = $8848;
+  GL_MATRIX_INDEX_ARRAY_POINTER_ARB = $8849;
+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 = $8769;
+  GL_ELEMENT_ARRAY_POINTER_NV = $876A;
+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 = $8880;
+  GL_FLOAT_RG_NV = $8881;
+  GL_FLOAT_RGB_NV = $8882;
+  GL_FLOAT_RGBA_NV = $8883;
+  GL_FLOAT_R16_NV = $8884;
+  GL_FLOAT_R32_NV = $8885;
+  GL_FLOAT_RG16_NV = $8886;
+  GL_FLOAT_RG32_NV = $8887;
+  GL_FLOAT_RGB16_NV = $8888;
+  GL_FLOAT_RGB32_NV = $8889;
+  GL_FLOAT_RGBA16_NV = $888A;
+  GL_FLOAT_RGBA32_NV = $888B;
+  GL_TEXTURE_FLOAT_COMPONENTS_NV = $888C;
+  GL_FLOAT_CLEAR_COLOR_VALUE_NV = $888D;
+  GL_FLOAT_RGBA_MODE_NV = $888E;
+{$IFDEF WINDOWS}
+  WGL_FLOAT_COMPONENTS_NV = $20B0;
+  WGL_BIND_TO_TEXTURE_RECTANGLE_FLOAT_R_NV = $20B1;
+  WGL_BIND_TO_TEXTURE_RECTANGLE_FLOAT_RG_NV = $20B2;
+  WGL_BIND_TO_TEXTURE_RECTANGLE_FLOAT_RGB_NV = $20B3;
+  WGL_BIND_TO_TEXTURE_RECTANGLE_FLOAT_RGBA_NV = $20B4;
+  WGL_TEXTURE_FLOAT_R_NV = $20B5;
+  WGL_TEXTURE_FLOAT_RG_NV = $20B6;
+  WGL_TEXTURE_FLOAT_RGB_NV = $20B7;
+  WGL_TEXTURE_FLOAT_RGBA_NV = $20B8;
+{$ENDIF}
+
+function Load_GL_NV_float_buffer: Boolean;
+
+//***** GL_NV_fragment_program *****//
+const
+  GL_FRAGMENT_PROGRAM_NV = $8870;
+  GL_MAX_TEXTURE_COORDS_NV = $8871;
+  GL_MAX_TEXTURE_IMAGE_UNITS_NV = $8872;
+  GL_FRAGMENT_PROGRAM_BINDING_NV = $8873;
+  GL_MAX_FRAGMENT_PROGRAM_LOCAL_PARAMETERS_NV = $8868;
+  GL_PROGRAM_ERROR_STRING_NV = $8874;
+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 = $8558;
+  GL_PRIMITIVE_RESTART_INDEX_NV = $8559;
+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 = $20A0;
+  WGL_BIND_TO_TEXTURE_RECTANGLE_RGBA_NV = $20A1;
+  WGL_TEXTURE_RECTANGLE_NV = $20A2;
+
+function Load_WGL_NV_render_texture_rectangle: Boolean;
+{$ENDIF}
+
+//***** GL_NV_pixel_data_range *****//
+const
+  GL_WRITE_PIXEL_DATA_RANGE_NV = $8878;
+  GL_READ_PIXEL_DATA_RANGE_NV = $8879;
+  GL_WRITE_PIXEL_DATA_RANGE_LENGTH_NV = $887A;
+  GL_READ_PIXEL_DATA_RANGE_LENGTH_NV = $887B;
+  GL_WRITE_PIXEL_DATA_RANGE_POINTER_NV = $887C;
+  GL_READ_PIXEL_DATA_RANGE_POINTER_NV = $887D;
+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 = $84F5;
+  GL_TEXTURE_BINDING_RECTANGLE_EXT = $84F6;
+  GL_PROXY_TEXTURE_RECTANGLE_EXT = $84F7;
+  GL_MAX_RECTANGLE_TEXTURE_SIZE_EXT = $84F8;
+
+function Load_GL_EXT_texture_rectangle: Boolean;
+
+//***** GL_S3_s3tc *****//
+const
+  GL_RGB_S3TC = $83A0;
+  GL_RGB4_S3TC = $83A1;
+  GL_RGBA_S3TC = $83A2;
+  GL_RGBA4_S3TC = $83A3;
+
+function Load_GL_S3_s3tc: Boolean;
+
+//***** GL_ATI_draw_buffers *****//
+const
+  GL_MAX_DRAW_BUFFERS_ATI = $8824;
+  GL_DRAW_BUFFER0_ATI = $8825;
+  GL_DRAW_BUFFER1_ATI = $8826;
+  GL_DRAW_BUFFER2_ATI = $8827;
+  GL_DRAW_BUFFER3_ATI = $8828;
+  GL_DRAW_BUFFER4_ATI = $8829;
+  GL_DRAW_BUFFER5_ATI = $882A;
+  GL_DRAW_BUFFER6_ATI = $882B;
+  GL_DRAW_BUFFER7_ATI = $882C;
+  GL_DRAW_BUFFER8_ATI = $882D;
+  GL_DRAW_BUFFER9_ATI = $882E;
+  GL_DRAW_BUFFER10_ATI = $882F;
+  GL_DRAW_BUFFER11_ATI = $8830;
+  GL_DRAW_BUFFER12_ATI = $8831;
+  GL_DRAW_BUFFER13_ATI = $8832;
+  GL_DRAW_BUFFER14_ATI = $8833;
+  GL_DRAW_BUFFER15_ATI = $8834;
+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 = $8820;
+  WGL_COLOR_CLEAR_UNCLAMPED_VALUE_ATI = $8835;
+  WGL_TYPE_RGBA_FLOAT_ATI = $21A0;
+
+function Load_WGL_ATI_pixel_format_float: Boolean;
+{$ENDIF}
+
+//***** GL_ATI_texture_env_combine3 *****//
+const
+  GL_MODULATE_ADD_ATI = $8744;
+  GL_MODULATE_SIGNED_ADD_ATI = $8745;
+  GL_MODULATE_SUBTRACT_ATI = $8746;
+
+function Load_GL_ATI_texture_env_combine3: Boolean;
+
+//***** GL_ATI_texture_float *****//
+const
+  GL_RGBA_FLOAT32_ATI = $8814;
+  GL_RGB_FLOAT32_ATI = $8815;
+  GL_ALPHA_FLOAT32_ATI = $8816;
+  GL_INTENSITY_FLOAT32_ATI = $8817;
+  GL_LUMINANCE_FLOAT32_ATI = $8818;
+  GL_LUMINANCE_ALPHA_FLOAT32_ATI = $8819;
+  GL_RGBA_FLOAT16_ATI = $881A;
+  GL_RGB_FLOAT16_ATI = $881B;
+  GL_ALPHA_FLOAT16_ATI = $881C;
+  GL_INTENSITY_FLOAT16_ATI = $881D;
+  GL_LUMINANCE_FLOAT16_ATI = $881E;
+  GL_LUMINANCE_ALPHA_FLOAT16_ATI = $881F;
+
+function Load_GL_ATI_texture_float: Boolean;
+
+//***** GL_NV_texture_expand_normal *****//
+const
+  GL_TEXTURE_UNSIGNED_REMAP_MODE_NV = $888F;
+
+function Load_GL_NV_texture_expand_normal: Boolean;
+
+//***** GL_NV_half_float *****//
+const
+  GL_HALF_FLOAT_NV = $140B;
+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 = $1E00;
+  GL_ZERO = $0000;
+  GL_REPLACE = $1E01;
+  GL_INCR = $1E02;
+  GL_DECR = $1E03;
+  GL_INVERT = $150A;
+  GL_NEVER = $0200;
+  GL_LESS = $0201;
+  GL_LEQUAL = $0203;
+  GL_GREATER = $0204;
+  GL_GEQUAL = $0206;
+  GL_EQUAL = $0202;
+  GL_NOTEQUAL = $0205;
+  GL_ALWAYS = $0207;
+  GL_FRONT = $0404;
+  GL_BACK = $0405;
+  GL_FRONT_AND_BACK = $0408;
+  GL_STENCIL_BACK_FUNC_ATI = $8800;
+  GL_STENCIL_BACK_FAIL_ATI = $8801;
+  GL_STENCIL_BACK_PASS_DEPTH_FAIL_ATI = $8802;
+  GL_STENCIL_BACK_PASS_DEPTH_PASS_ATI = $8803;
+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 = $8892;
+  GL_ELEMENT_ARRAY_BUFFER_ARB = $8893;
+  GL_ARRAY_BUFFER_BINDING_ARB = $8894;
+  GL_ELEMENT_ARRAY_BUFFER_BINDING_ARB = $8895;
+  GL_VERTEX_ARRAY_BUFFER_BINDING_ARB = $8896;
+  GL_NORMAL_ARRAY_BUFFER_BINDING_ARB = $8897;
+  GL_COLOR_ARRAY_BUFFER_BINDING_ARB = $8898;
+  GL_INDEX_ARRAY_BUFFER_BINDING_ARB = $8899;
+  GL_TEXTURE_COORD_ARRAY_BUFFER_BINDING_ARB = $889A;
+  GL_EDGE_FLAG_ARRAY_BUFFER_BINDING_ARB = $889B;
+  GL_SECONDARY_COLOR_ARRAY_BUFFER_BINDING_ARB = $889C;
+  GL_FOG_COORDINATE_ARRAY_BUFFER_BINDING_ARB = $889D;
+  GL_WEIGHT_ARRAY_BUFFER_BINDING_ARB = $889E;
+  GL_VERTEX_ATTRIB_ARRAY_BUFFER_BINDING_ARB = $889F;
+  GL_STREAM_DRAW_ARB = $88E0;
+  GL_STREAM_READ_ARB = $88E1;
+  GL_STREAM_COPY_ARB = $88E2;
+  GL_STATIC_DRAW_ARB = $88E4;
+  GL_STATIC_READ_ARB = $88E5;
+  GL_STATIC_COPY_ARB = $88E6;
+  GL_DYNAMIC_DRAW_ARB = $88E8;
+  GL_DYNAMIC_READ_ARB = $88E9;
+  GL_DYNAMIC_COPY_ARB = $88EA;
+  GL_READ_ONLY_ARB = $88B8;
+  GL_WRITE_ONLY_ARB = $88B9;
+  GL_READ_WRITE_ARB = $88BA;
+  GL_BUFFER_SIZE_ARB = $8764;
+  GL_BUFFER_USAGE_ARB = $8765;
+  GL_BUFFER_ACCESS_ARB = $88BB;
+  GL_BUFFER_MAPPED_ARB = $88BC;
+  GL_BUFFER_MAP_POINTER_ARB = $88BD;
+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 = $8914;
+  GL_QUERY_COUNTER_BITS_ARB = $8864;
+  GL_CURRENT_QUERY_ARB = $8865;
+  GL_QUERY_RESULT_ARB = $8866;
+  GL_QUERY_RESULT_AVAILABLE_ARB = $8867;
+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 = $8B40;
+  GL_OBJECT_TYPE_ARB = $8B4E;
+  GL_OBJECT_SUBTYPE_ARB = $8B4F;
+  GL_OBJECT_DELETE_STATUS_ARB = $8B80;
+  GL_OBJECT_COMPILE_STATUS_ARB = $8B81;
+  GL_OBJECT_LINK_STATUS_ARB = $8B82;
+  GL_OBJECT_VALIDATE_STATUS_ARB = $8B83;
+  GL_OBJECT_INFO_LOG_LENGTH_ARB = $8B84;
+  GL_OBJECT_ATTACHED_OBJECTS_ARB = $8B85;
+  GL_OBJECT_ACTIVE_UNIFORMS_ARB = $8B86;
+  GL_OBJECT_ACTIVE_UNIFORM_MAX_LENGTH_ARB = $8B87;
+  GL_OBJECT_SHADER_SOURCE_LENGTH_ARB = $8B88;
+  GL_SHADER_OBJECT_ARB = $8B48;
+  GL_FLOAT = $1406;
+  GL_FLOAT_VEC2_ARB = $8B50;
+  GL_FLOAT_VEC3_ARB = $8B51;
+  GL_FLOAT_VEC4_ARB = $8B52;
+  GL_INT = $1404;
+  GL_INT_VEC2_ARB = $8B53;
+  GL_INT_VEC3_ARB = $8B54;
+  GL_INT_VEC4_ARB = $8B55;
+  GL_BOOL_ARB = $8B56;
+  GL_BOOL_VEC2_ARB = $8B57;
+  GL_BOOL_VEC3_ARB = $8B58;
+  GL_BOOL_VEC4_ARB = $8B59;
+  GL_FLOAT_MAT2_ARB = $8B5A;
+  GL_FLOAT_MAT3_ARB = $8B5B;
+  GL_FLOAT_MAT4_ARB = $8B5C;
+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 = $8B31;
+  GL_MAX_VERTEX_UNIFORM_COMPONENTS_ARB = $8B4A;
+  GL_MAX_VARYING_FLOATS_ARB = $8B4B;
+  // GL_MAX_VERTEX_ATTRIBS_ARB  { already defined }
+  // GL_MAX_TEXTURE_IMAGE_UNITS_ARB  { already defined }
+  GL_MAX_VERTEX_TEXTURE_IMAGE_UNITS_ARB = $8B4C;
+  GL_MAX_COMBINED_TEXTURE_IMAGE_UNITS_ARB = $8B4D;
+  // 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 = $8B89;
+  GL_OBJECT_ACTIVE_ATTRIBUTE_MAX_LENGTH_ARB = $8B8A;
+  // 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 = $8B30;
+  GL_MAX_FRAGMENT_UNIFORM_COMPONENTS_ARB = $8B49;
+  // 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 = $8861;
+  GL_COORD_REPLACE_ARB = $8862;
+
+function Load_GL_ARB_point_sprite: Boolean;
+
+//***** GL_EXT_depth_bounds_test *****//
+const
+  GL_DEPTH_BOUNDS_TEST_EXT = $8890;
+  GL_DEPTH_BOUNDS_EXT = $8891;
+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 = $8458;
+  GL_CURRENT_SECONDARY_COLOR_EXT = $8459;
+  GL_SECONDARY_COLOR_ARRAY_SIZE_EXT = $845A;
+  GL_SECONDARY_COLOR_ARRAY_TYPE_EXT = $845B;
+  GL_SECONDARY_COLOR_ARRAY_STRIDE_EXT = $845C;
+  GL_SECONDARY_COLOR_ARRAY_POINTER_EXT = $845D;
+  GL_SECONDARY_COLOR_ARRAY_EXT = $845E;
+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 = $8742;
+  GL_MIRROR_CLAMP_TO_EDGE_EXT = $8743;
+  GL_MIRROR_CLAMP_TO_BORDER_EXT = $8912;
+
+function Load_GL_EXT_texture_mirror_clamp: Boolean;
+
+//***** GL_EXT_blend_equation_separate *****//
+const
+  GL_BLEND_EQUATION_RGB_EXT = $8009;
+  GL_BLEND_EQUATION_ALPHA_EXT = $883D;
+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 = $8758;
+
+function Load_GL_MESA_pack_invert: Boolean;
+
+//***** GL_MESA_ycbcr_texture *****//
+const
+  GL_YCBCR_MESA = $8757;
+  GL_UNSIGNED_SHORT_8_8_MESA = $85BA;
+  GL_UNSIGNED_SHORT_8_8_REV_MESA = $85BB;
+
+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 = $8450;
+  GL_FOG_COORDINATE_EXT = $8451;
+  GL_FRAGMENT_DEPTH_EXT = $8452;
+  GL_CURRENT_FOG_COORDINATE_EXT = $8453;
+  GL_FOG_COORDINATE_ARRAY_TYPE_EXT = $8454;
+  GL_FOG_COORDINATE_ARRAY_STRIDE_EXT = $8455;
+  GL_FOG_COORDINATE_ARRAY_POINTER_EXT = $8456;
+  GL_FOG_COORDINATE_ARRAY_EXT = $8457;
+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 = $88EB;
+  GL_PIXEL_UNPACK_BUFFER_EXT = $88EC;
+  GL_PIXEL_PACK_BUFFER_BINDING_EXT = $88ED;
+  GL_PIXEL_UNPACK_BUFFER_BINDING_EXT = $88EF;
+
+function Load_GL_EXT_pixel_buffer_object: Boolean;
+
+//***** GL_NV_fragment_program2 *****//
+const
+  GL_MAX_PROGRAM_EXEC_INSTRUCTIONS_NV = $88F4;
+  GL_MAX_PROGRAM_CALL_DEPTH_NV = $88F5;
+  GL_MAX_PROGRAM_IF_DEPTH_NV = $88F6;
+  GL_MAX_PROGRAM_LOOP_DEPTH_NV = $88F7;
+  GL_MAX_PROGRAM_LOOP_COUNT_NV = $88F8;
+
+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 = $8824;
+  GL_DRAW_BUFFER0_ARB = $8825;
+  GL_DRAW_BUFFER1_ARB = $8826;
+  GL_DRAW_BUFFER2_ARB = $8827;
+  GL_DRAW_BUFFER3_ARB = $8828;
+  GL_DRAW_BUFFER4_ARB = $8829;
+  GL_DRAW_BUFFER5_ARB = $882A;
+  GL_DRAW_BUFFER6_ARB = $882B;
+  GL_DRAW_BUFFER7_ARB = $882C;
+  GL_DRAW_BUFFER8_ARB = $882D;
+  GL_DRAW_BUFFER9_ARB = $882E;
+  GL_DRAW_BUFFER10_ARB = $882F;
+  GL_DRAW_BUFFER11_ARB = $8830;
+  GL_DRAW_BUFFER12_ARB = $8831;
+  GL_DRAW_BUFFER13_ARB = $8832;
+  GL_DRAW_BUFFER14_ARB = $8833;
+  GL_DRAW_BUFFER15_ARB = $8834;
+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 = $84F5;
+  GL_TEXTURE_BINDING_RECTANGLE_ARB = $84F6;
+  GL_PROXY_TEXTURE_RECTANGLE_ARB = $84F7;
+  GL_MAX_RECTANGLE_TEXTURE_SIZE_ARB = $84F8;
+
+function Load_GL_ARB_texture_rectangle: Boolean;
+
+//***** GL_ARB_color_buffer_float *****//
+const
+  GL_RGBA_FLOAT_MODE_ARB = $8820;
+  GL_CLAMP_VERTEX_COLOR_ARB = $891A;
+  GL_CLAMP_FRAGMENT_COLOR_ARB = $891B;
+  GL_CLAMP_READ_COLOR_ARB = $891C;
+  GL_FIXED_ONLY_ARB = $891D;
+  WGL_TYPE_RGBA_FLOAT_ARB = $21A0;
+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 = $140B;
+
+function Load_GL_ARB_half_float_pixel: Boolean;
+
+//***** GL_ARB_texture_float *****//
+const
+  GL_TEXTURE_RED_TYPE_ARB = $8C10;
+  GL_TEXTURE_GREEN_TYPE_ARB = $8C11;
+  GL_TEXTURE_BLUE_TYPE_ARB = $8C12;
+  GL_TEXTURE_ALPHA_TYPE_ARB = $8C13;
+  GL_TEXTURE_LUMINANCE_TYPE_ARB = $8C14;
+  GL_TEXTURE_INTENSITY_TYPE_ARB = $8C15;
+  GL_TEXTURE_DEPTH_TYPE_ARB = $8C16;
+  GL_UNSIGNED_NORMALIZED_ARB = $8C17;
+  GL_RGBA32F_ARB = $8814;
+  GL_RGB32F_ARB = $8815;
+  GL_ALPHA32F_ARB = $8816;
+  GL_INTENSITY32F_ARB = $8817;
+  GL_LUMINANCE32F_ARB = $8818;
+  GL_LUMINANCE_ALPHA32F_ARB = $8819;
+  GL_RGBA16F_ARB = $881A;
+  GL_RGB16F_ARB = $881B;
+  GL_ALPHA16F_ARB = $881C;
+  GL_INTENSITY16F_ARB = $881D;
+  GL_LUMINANCE16F_ARB = $881E;
+  GL_LUMINANCE_ALPHA16F_ARB = $881F;
+
+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 = $88EB;
+  GL_PIXEL_UNPACK_BUFFER_ARB = $88EC;
+  GL_PIXEL_PACK_BUFFER_BINDING_ARB = $88ED;
+  GL_PIXEL_UNPACK_BUFFER_BINDING_ARB = $88EF;
+
+function Load_GL_ARB_pixel_buffer_object: Boolean;
+
+//***** GL_EXT_framebuffer_object *****//
+const
+  GL_FRAMEBUFFER_EXT = $8D40;
+  GL_RENDERBUFFER_EXT = $8D41;
+  GL_STENCIL_INDEX_EXT = $8D45;
+  GL_STENCIL_INDEX1_EXT = $8D46;
+  GL_STENCIL_INDEX4_EXT = $8D47;
+  GL_STENCIL_INDEX8_EXT = $8D48;
+  GL_STENCIL_INDEX16_EXT = $8D49;
+  GL_RENDERBUFFER_WIDTH_EXT = $8D42;
+  GL_RENDERBUFFER_HEIGHT_EXT = $8D43;
+  GL_RENDERBUFFER_INTERNAL_FORMAT_EXT = $8D44;
+  GL_FRAMEBUFFER_ATTACHMENT_OBJECT_TYPE_EXT = $8CD0;
+  GL_FRAMEBUFFER_ATTACHMENT_OBJECT_NAME_EXT = $8CD1;
+  GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_LEVEL_EXT = $8CD2;
+  GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_CUBE_MAP_FACE_EXT = $8CD3;
+  GL_FRAMEBUFFER_ATTACHMENT_TEXTURE_3D_ZOFFSET_EXT = $8CD4;
+  GL_COLOR_ATTACHMENT0_EXT = $8CE0;
+  GL_COLOR_ATTACHMENT1_EXT = $8CE1;
+  GL_COLOR_ATTACHMENT2_EXT = $8CE2;
+  GL_COLOR_ATTACHMENT3_EXT = $8CE3;
+  GL_COLOR_ATTACHMENT4_EXT = $8CE4;
+  GL_COLOR_ATTACHMENT5_EXT = $8CE5;
+  GL_COLOR_ATTACHMENT6_EXT = $8CE6;
+  GL_COLOR_ATTACHMENT7_EXT = $8CE7;
+  GL_COLOR_ATTACHMENT8_EXT = $8CE8;
+  GL_COLOR_ATTACHMENT9_EXT = $8CE9;
+  GL_COLOR_ATTACHMENT10_EXT = $8CEA;
+  GL_COLOR_ATTACHMENT11_EXT = $8CEB;
+  GL_COLOR_ATTACHMENT12_EXT = $8CEC;
+  GL_COLOR_ATTACHMENT13_EXT = $8CED;
+  GL_COLOR_ATTACHMENT14_EXT = $8CEE;
+  GL_COLOR_ATTACHMENT15_EXT = $8CEF;
+  GL_DEPTH_ATTACHMENT_EXT = $8D00;
+  GL_STENCIL_ATTACHMENT_EXT = $8D20;
+  GL_FRAMEBUFFER_COMPLETE_EXT = $8CD5;
+  GL_FRAMEBUFFER_INCOMPLETE_ATTACHMENT_EXT = $8CD6;
+  GL_FRAMEBUFFER_INCOMPLETE_MISSING_ATTACHMENT_EXT = $8CD7;
+  GL_FRAMEBUFFER_INCOMPLETE_DUPLICATE_ATTACHMENT_EXT = $8CD8;
+  GL_FRAMEBUFFER_INCOMPLETE_DIMENSIONS_EXT = $8CD9;
+  GL_FRAMEBUFFER_INCOMPLETE_FORMATS_EXT = $8CDA;
+  GL_FRAMEBUFFER_INCOMPLETE_DRAW_BUFFER_EXT = $8CDB;
+  GL_FRAMEBUFFER_INCOMPLETE_READ_BUFFER_EXT = $8CDC;
+  GL_FRAMEBUFFER_UNSUPPORTED_EXT = $8CDD;
+  GL_FRAMEBUFFER_STATUS_ERROR_EXT = $8CDE;
+  GL_FRAMEBUFFER_BINDING_EXT = $8CA6;
+  GL_RENDERBUFFER_BINDING_EXT = $8CA7;
+  GL_MAX_COLOR_ATTACHMENTS_EXT = $8CDF;
+  GL_MAX_RENDERBUFFER_SIZE_EXT = $84E8;
+  GL_INVALID_FRAMEBUFFER_OPERATION_EXT = $0506;
+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 = $80C8;
+  GL_BLEND_SRC_RGB = $80C9;
+  GL_BLEND_DST_ALPHA = $80CA;
+  GL_BLEND_SRC_ALPHA = $80CB;
+  GL_POINT_SIZE_MIN = $8126;
+  GL_POINT_SIZE_MAX = $8127;
+  GL_POINT_FADE_THRESHOLD_SIZE = $8128;
+  GL_POINT_DISTANCE_ATTENUATION = $8129;
+  GL_GENERATE_MIPMAP = $8191;
+  GL_GENERATE_MIPMAP_HINT = $8192;
+  GL_DEPTH_COMPONENT16 = $81A5;
+  GL_DEPTH_COMPONENT24 = $81A6;
+  GL_DEPTH_COMPONENT32 = $81A7;
+  GL_MIRRORED_REPEAT = $8370;
+  GL_FOG_COORDINATE_SOURCE = $8450;
+  GL_FOG_COORDINATE = $8451;
+  GL_FRAGMENT_DEPTH = $8452;
+  GL_CURRENT_FOG_COORDINATE = $8453;
+  GL_FOG_COORDINATE_ARRAY_TYPE = $8454;
+  GL_FOG_COORDINATE_ARRAY_STRIDE = $8455;
+  GL_FOG_COORDINATE_ARRAY_POINTER = $8456;
+  GL_FOG_COORDINATE_ARRAY = $8457;
+  GL_COLOR_SUM = $8458;
+  GL_CURRENT_SECONDARY_COLOR = $8459;
+  GL_SECONDARY_COLOR_ARRAY_SIZE = $845A;
+  GL_SECONDARY_COLOR_ARRAY_TYPE = $845B;
+  GL_SECONDARY_COLOR_ARRAY_STRIDE = $845C;
+  GL_SECONDARY_COLOR_ARRAY_POINTER = $845D;
+  GL_SECONDARY_COLOR_ARRAY = $845E;
+  GL_MAX_TEXTURE_LOD_BIAS = $84FD;
+  GL_TEXTURE_FILTER_CONTROL = $8500;
+  GL_TEXTURE_LOD_BIAS = $8501;
+  GL_INCR_WRAP = $8507;
+  GL_DECR_WRAP = $8508;
+  GL_TEXTURE_DEPTH_SIZE = $884A;
+  GL_DEPTH_TEXTURE_MODE = $884B;
+  GL_TEXTURE_COMPARE_MODE = $884C;
+  GL_TEXTURE_COMPARE_FUNC = $884D;
+  GL_COMPARE_R_TO_TEXTURE = $884E;
+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 = $8764;
+  GL_BUFFER_USAGE = $8765;
+  GL_QUERY_COUNTER_BITS = $8864;
+  GL_CURRENT_QUERY = $8865;
+  GL_QUERY_RESULT = $8866;
+  GL_QUERY_RESULT_AVAILABLE = $8867;
+  GL_ARRAY_BUFFER = $8892;
+  GL_ELEMENT_ARRAY_BUFFER = $8893;
+  GL_ARRAY_BUFFER_BINDING = $8894;
+  GL_ELEMENT_ARRAY_BUFFER_BINDING = $8895;
+  GL_VERTEX_ARRAY_BUFFER_BINDING = $8896;
+  GL_NORMAL_ARRAY_BUFFER_BINDING = $8897;
+  GL_COLOR_ARRAY_BUFFER_BINDING = $8898;
+  GL_INDEX_ARRAY_BUFFER_BINDING = $8899;
+  GL_TEXTURE_COORD_ARRAY_BUFFER_BINDING = $889A;
+  GL_EDGE_FLAG_ARRAY_BUFFER_BINDING = $889B;
+  GL_SECONDARY_COLOR_ARRAY_BUFFER_BINDING = $889C;
+  GL_FOG_COORDINATE_ARRAY_BUFFER_BINDING = $889D;
+  GL_WEIGHT_ARRAY_BUFFER_BINDING = $889E;
+  GL_VERTEX_ATTRIB_ARRAY_BUFFER_BINDING = $889F;
+  GL_READ_ONLY = $88B8;
+  GL_WRITE_ONLY = $88B9;
+  GL_READ_WRITE = $88BA;
+  GL_BUFFER_ACCESS = $88BB;
+  GL_BUFFER_MAPPED = $88BC;
+  GL_BUFFER_MAP_POINTER = $88BD;
+  GL_STREAM_DRAW = $88E0;
+  GL_STREAM_READ = $88E1;
+  GL_STREAM_COPY = $88E2;
+  GL_STATIC_DRAW = $88E4;
+  GL_STATIC_READ = $88E5;
+  GL_STATIC_COPY = $88E6;
+  GL_DYNAMIC_DRAW = $88E8;
+  GL_DYNAMIC_READ = $88E9;
+  GL_DYNAMIC_COPY = $88EA;
+  GL_SAMPLES_PASSED = $8914;
+  GL_FOG_COORD_SRC = $8450;
+  GL_FOG_COORD = $8451;
+  GL_CURRENT_FOG_COORD = $8453;
+  GL_FOG_COORD_ARRAY_TYPE = $8454;
+  GL_FOG_COORD_ARRAY_STRIDE = $8455;
+  GL_FOG_COORD_ARRAY_POINTER = $8456;
+  GL_FOG_COORD_ARRAY = $8457;
+  GL_FOG_COORD_ARRAY_BUFFER_BINDING = $889D;
+  GL_SRC0_RGB = $8580;
+  GL_SRC1_RGB = $8581;
+  GL_SRC2_RGB = $8582;
+  GL_SRC0_ALPHA = $8588;
+  GL_SRC1_ALPHA = $8589;
+  GL_SRC2_ALPHA = $858A;
+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 = $8009;
+  GL_VERTEX_ATTRIB_ARRAY_ENABLED = $8622;
+  GL_VERTEX_ATTRIB_ARRAY_SIZE = $8623;
+  GL_VERTEX_ATTRIB_ARRAY_STRIDE = $8624;
+  GL_VERTEX_ATTRIB_ARRAY_TYPE = $8625;
+  GL_CURRENT_VERTEX_ATTRIB = $8626;
+  GL_VERTEX_PROGRAM_POINT_SIZE = $8642;
+  GL_VERTEX_PROGRAM_TWO_SIDE = $8643;
+  GL_VERTEX_ATTRIB_ARRAY_POINTER = $8645;
+  GL_STENCIL_BACK_FUNC = $8800;
+  GL_STENCIL_BACK_FAIL = $8801;
+  GL_STENCIL_BACK_PASS_DEPTH_FAIL = $8802;
+  GL_STENCIL_BACK_PASS_DEPTH_PASS = $8803;
+  GL_MAX_DRAW_BUFFERS = $8824;
+  GL_DRAW_BUFFER0 = $8825;
+  GL_DRAW_BUFFER1 = $8826;
+  GL_DRAW_BUFFER2 = $8827;
+  GL_DRAW_BUFFER3 = $8828;
+  GL_DRAW_BUFFER4 = $8829;
+  GL_DRAW_BUFFER5 = $882A;
+  GL_DRAW_BUFFER6 = $882B;
+  GL_DRAW_BUFFER7 = $882C;
+  GL_DRAW_BUFFER8 = $882D;
+  GL_DRAW_BUFFER9 = $882E;
+  GL_DRAW_BUFFER10 = $882F;
+  GL_DRAW_BUFFER11 = $8830;
+  GL_DRAW_BUFFER12 = $8831;
+  GL_DRAW_BUFFER13 = $8832;
+  GL_DRAW_BUFFER14 = $8833;
+  GL_DRAW_BUFFER15 = $8834;
+  GL_BLEND_EQUATION_ALPHA = $883D;
+  GL_POINT_SPRITE = $8861;
+  GL_COORD_REPLACE = $8862;
+  GL_MAX_VERTEX_ATTRIBS = $8869;
+  GL_VERTEX_ATTRIB_ARRAY_NORMALIZED = $886A;
+  GL_MAX_TEXTURE_COORDS = $8871;
+  GL_MAX_TEXTURE_IMAGE_UNITS = $8872;
+  GL_FRAGMENT_SHADER = $8B30;
+  GL_VERTEX_SHADER = $8B31;
+  GL_MAX_FRAGMENT_UNIFORM_COMPONENTS = $8B49;
+  GL_MAX_VERTEX_UNIFORM_COMPONENTS = $8B4A;
+  GL_MAX_VARYING_FLOATS = $8B4B;
+  GL_MAX_VERTEX_TEXTURE_IMAGE_UNITS = $8B4C;
+  GL_MAX_COMBINED_TEXTURE_IMAGE_UNITS = $8B4D;
+  GL_SHADER_TYPE = $8B4F;
+  GL_FLOAT_VEC2 = $8B50;
+  GL_FLOAT_VEC3 = $8B51;
+  GL_FLOAT_VEC4 = $8B52;
+  GL_INT_VEC2 = $8B53;
+  GL_INT_VEC3 = $8B54;
+  GL_INT_VEC4 = $8B55;
+  GL_BOOL = $8B56;
+  GL_BOOL_VEC2 = $8B57;
+  GL_BOOL_VEC3 = $8B58;
+  GL_BOOL_VEC4 = $8B59;
+  GL_FLOAT_MAT2 = $8B5A;
+  GL_FLOAT_MAT3 = $8B5B;
+  GL_FLOAT_MAT4 = $8B5C;
+  GL_SAMPLER_1D = $8B5D;
+  GL_SAMPLER_2D = $8B5E;
+  GL_SAMPLER_3D = $8B5F;
+  GL_SAMPLER_CUBE = $8B60;
+  GL_SAMPLER_1D_SHADOW = $8B61;
+  GL_SAMPLER_2D_SHADOW = $8B62;
+  GL_DELETE_STATUS = $8B80;
+  GL_COMPILE_STATUS = $8B81;
+  GL_LINK_STATUS = $8B82;
+  GL_VALIDATE_STATUS = $8B83;
+  GL_INFO_LOG_LENGTH = $8B84;
+  GL_ATTACHED_SHADERS = $8B85;
+  GL_ACTIVE_UNIFORMS = $8B86;
+  GL_ACTIVE_UNIFORM_MAX_LENGTH = $8B87;
+  GL_SHADER_SOURCE_LENGTH = $8B88;
+  GL_ACTIVE_ATTRIBUTES = $8B89;
+  GL_ACTIVE_ATTRIBUTE_MAX_LENGTH = $8B8A;
+  GL_FRAGMENT_SHADER_DERIVATIVE_HINT = $8B8B;
+  GL_SHADING_LANGUAGE_VERSION = $8B8C;
+  GL_CURRENT_PROGRAM = $8B8D;
+  GL_POINT_SPRITE_COORD_ORIGIN = $8CA0;
+  GL_LOWER_LEFT = $8CA1;
+  GL_UPPER_LEFT = $8CA2;
+  GL_STENCIL_BACK_REF = $8CA3;
+  GL_STENCIL_BACK_VALUE_MASK = $8CA4;
+  GL_STENCIL_BACK_WRITEMASK = $8CA5;
+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.
diff --git a/Game/Code/lib/JEDI-SDL/OpenGL/Pas/glu.pas b/Game/Code/lib/JEDI-SDL/OpenGL/Pas/glu.pas
index 371ccdda..29647d12 100644
--- a/Game/Code/lib/JEDI-SDL/OpenGL/Pas/glu.pas
+++ b/Game/Code/lib/JEDI-SDL/OpenGL/Pas/glu.pas
@@ -1,582 +1,582 @@
-unit glu;

-{

-  $Id: glu.pas,v 1.8 2007/05/20 20:28:31 savage Exp $

-

-  Adaption of the delphi3d.net OpenGL units to FreePascal

-  Sebastian Guenther (sg@freepascal.org) in 2002

-  These units are free to use

-}

-

-(*++ BUILD Version: 0004    // Increment this if a change has global effects

-

-Copyright (c) 1985-95, Microsoft Corporation

-

-Module Name:

-

-    glu.h

-

-Abstract:

-

-    Procedure declarations, constant definitions and macros for the OpenGL

-    Utility Library.

-

---*)

-

-(*

-** Copyright 1991-1993, Silicon Graphics, Inc.

-** All Rights Reserved.

-**

-** This is UNPUBLISHED PROPRIETARY SOURCE CODE of Silicon Graphics, Inc.;

-** the contents of this file may not be disclosed to third parties, copied or

-** duplicated in any form, in whole or in part, without the prior written

-** permission of Silicon Graphics, Inc.

-**

-** RESTRICTED RIGHTS LEGEND:

-** Use, duplication or disclosure by the Government is subject to restrictions

-** as set forth in subdivision (c)(1)(ii) of the Rights in Technical Data

-** and Computer Software clause at DFARS 252.227-7013, and/or in similar or

-** successor clauses in the FAR, DOD or NASA FAR Supplement. Unpublished -

-** rights reserved under the Copyright Laws of the United States.

-*)

-

-(*

-** Return the error string associated with a particular error code.

-** This will return 0 for an invalid error code.

-**

-** The generic function prototype that can be compiled for ANSI or Unicode

-** is defined as follows:

-**

-** LPCTSTR APIENTRY gluErrorStringWIN (GLenum errCode);

-*)

-

-{******************************************************************************}

-{                                                                              }

-{ Converted to Delphi by Tom Nuydens (tom@delphi3d.net)                        }

-{ For the latest updates, visit Delphi3D: http://www.delphi3d.net              }

-{                                                                              }

-{ Modified for Delphi/Kylix and FreePascal                                     }

-{    by Dominique Louis ( Dominique@Savagesoftware.com.au)                     }

-{ For the latest updates, visit JEDI-SDL : http://www.sf.net/projects/jedi-sdl }

-{                                                                              }

-{******************************************************************************}

-

-{

-  $Log: glu.pas,v $

-  Revision 1.8  2007/05/20 20:28:31  savage

-  Initial Changes to Handle 64 Bits

-

-  Revision 1.7  2006/11/26 16:35:49  savage

-  Messed up the last change to GLUtessCombineDataProc, had to reapply it. Thanks Michalis.

-

-  Revision 1.6  2006/11/25 23:38:02  savage

-  Changes as proposed by Michalis Kamburelis for better FPC support

-

-  Revision 1.5  2006/11/20 21:20:59  savage

-  Updated to work in MacOS X

-

-  Revision 1.4  2005/05/22 18:52:09  savage

-  Changes as suggested by Michalis Kamburelis. Thanks again.

-

-  Revision 1.3  2004/10/07 21:01:29  savage

-  Fix for FPC

-

-  Revision 1.2  2004/08/14 22:54:30  savage

-  Updated so that Library name defines are correctly defined for MacOS X.

-

-  Revision 1.1  2004/03/30 21:53:54  savage

-  Moved to it's own folder.

-

-  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 00:23:39  savage

-  As UNIX is defined in jedi-sdl.inc this will be used to check linux compatability as well. Units have been changed to reflect this change.

-

-  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.4  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.

-

-  Revision 1.3  2003/05/29 22:55:00  savage

-  Make use of new DLLFunctions

-

-  Revision 1.2  2003/05/27 09:39:53  savage

-  Added better Gnu Pascal support.

-

-  Revision 1.1  2003/05/11 13:18:03  savage

-  Newest OpenGL Headers For Delphi, Kylix and FPC

-

-  Revision 1.2  2002/10/13 14:36:47  sg

-  * Win32 fix: The OS symbol is called "Win32", not "Windows"

-

-  Revision 1.1  2002/10/13 13:57:31  sg

-  * Finally, the new units are available: Match the C headers more closely;

-    support for OpenGL extensions, and much more. Based on the Delphi units

-    by Tom Nuydens of delphi3d.net

-

-}

-

-interface

-

-{$I jedi-sdl.inc}

-

-uses

-{$IFDEF __GPC__}

-  gpc,

-{$ENDIF}

-  moduleloader,

-  gl;

-

-const

-{$IFDEF WINDOWS}

-  GLuLibName   = 'glu32.dll';

-{$ENDIF}

-

-{$IFDEF UNIX}

-{$IFDEF DARWIN}

-  GLuLibName   = '/System/Library/Frameworks/OpenGL.framework/Libraries/libGLU.dylib';

-{$ELSE}

-  GLuLibName   = 'libGLU.so';

-{$ENDIF}

-{$ENDIF}

-

-type

-  TViewPortArray = array[ 0..3 ] of GLint;

-  T16dArray = array[ 0..15 ] of GLdouble;

-  TCallBack = procedure;

-  T3dArray = array[ 0..2 ] of GLdouble;

-  T4pArray = array[ 0..3 ] of Pointer;

-  T4fArray = array[ 0..3 ] of GLfloat;

-{$IFNDEF __GPC__}

-  PPointer = ^Pointer;

-{$ENDIF}

-

-var

-  gluErrorString : function( errCode : GLenum ) : PChar; {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluErrorUnicodeStringEXT : function( errCode : GLenum ) : PWideChar; {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluGetString : function( name : GLenum ) : PChar; {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluOrtho2D   : procedure( left, right, bottom, top : GLdouble ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluPerspective : procedure( fovy, aspect, zNear, zFar : GLdouble ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluPickMatrix : procedure( x, y, width, height : GLdouble; var viewport : TViewPortArray ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluLookAt    : procedure( eyex, eyey, eyez, centerx, centery, centerz, upx, upy, upz : GLdouble ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluProject   : function( objx, objy, objz : GLdouble; var modelMatrix, projMatrix : T16dArray; var viewport : TViewPortArray; winx, winy, winz : PGLdouble ) : Integer; {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluUnProject : function( winx, winy, winz : GLdouble; var modelMatrix, projMatrix : T16dArray; var viewport : TViewPortArray; objx, objy, objz : PGLdouble ) : Integer; {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluScaleImage : function( format : GLenum; widthin, heightin : GLint; typein : GLenum; const datain : Pointer; widthout, heightout : GLint; typeout : GLenum; dataout : Pointer ) : Integer; {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluBuild1DMipmaps : function( target : GLenum; components, width : GLint; format, atype : GLenum; const data : Pointer ) : Integer; {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluBuild2DMipmaps : function( target : GLenum; components, width, height : GLint; format, atype : GLenum; const data : Pointer ) : Integer; {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-

-type

-  GLUnurbs = record

-  end; PGLUnurbs = ^GLUnurbs;

-  GLUquadric = record

-  end; PGLUquadric = ^GLUquadric;

-  GLUtesselator = record

-  end; PGLUtesselator = ^GLUtesselator;

-

-  // backwards compatibility:

-  GLUnurbsObj = GLUnurbs; PGLUnurbsObj = PGLUnurbs;

-  GLUquadricObj = GLUquadric; PGLUquadricObj = PGLUquadric;

-  GLUtesselatorObj = GLUtesselator; PGLUtesselatorObj = PGLUtesselator;

-  GLUtriangulatorObj = GLUtesselator; PGLUtriangulatorObj = PGLUtesselator;

-

-var

-  gluNewQuadric : function : PGLUquadric; {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluDeleteQuadric : procedure( state : PGLUquadric ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluQuadricNormals : procedure( quadObject : PGLUquadric; normals : GLenum ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluQuadricTexture : procedure( quadObject : PGLUquadric; textureCoords : GLboolean ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluQuadricOrientation : procedure( quadObject : PGLUquadric; orientation : GLenum ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluQuadricDrawStyle : procedure( quadObject : PGLUquadric; drawStyle : GLenum ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluCylinder  : procedure( qobj : PGLUquadric; baseRadius, topRadius, height : GLdouble; slices, stacks : GLint ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluDisk      : procedure( qobj : PGLUquadric; innerRadius, outerRadius : GLdouble; slices, loops : GLint ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluPartialDisk : procedure( qobj : PGLUquadric; innerRadius, outerRadius : GLdouble; slices, loops : GLint; startAngle, sweepAngle : GLdouble ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluSphere    : procedure( qobj : PGLuquadric; radius : GLdouble; slices, stacks : GLint ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluQuadricCallback : procedure( qobj : PGLUquadric; which : GLenum; fn : TCallBack ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluNewTess   : function : PGLUtesselator; {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluDeleteTess : procedure( tess : PGLUtesselator ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluTessBeginPolygon : procedure( tess : PGLUtesselator; polygon_data : Pointer ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluTessBeginContour : procedure( tess : PGLUtesselator ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluTessVertex : procedure( tess : PGLUtesselator; var coords : T3dArray; data : Pointer ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluTessEndContour : procedure( tess : PGLUtesselator ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluTessEndPolygon : procedure( tess : PGLUtesselator ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluTessProperty : procedure( tess : PGLUtesselator; which : GLenum; value : GLdouble ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluTessNormal : procedure( tess : PGLUtesselator; x, y, z : GLdouble ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluTessCallback : procedure( tess : PGLUtesselator; which : GLenum; fn : TCallBack ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluGetTessProperty : procedure( tess : PGLUtesselator; which : GLenum; value : PGLdouble ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluNewNurbsRenderer : function : PGLUnurbs; {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluDeleteNurbsRenderer : procedure( nobj : PGLUnurbs ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluBeginSurface : procedure( nobj : PGLUnurbs ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluBeginCurve : procedure( nobj : PGLUnurbs ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluEndCurve  : procedure( nobj : PGLUnurbs ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluEndSurface : procedure( nobj : PGLUnurbs ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluBeginTrim : procedure( nobj : PGLUnurbs ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluEndTrim   : procedure( nobj : PGLUnurbs ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluPwlCurve  : procedure( nobj : PGLUnurbs; count : GLint; aarray : PGLfloat; stride : GLint; atype : GLenum ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluNurbsCurve : procedure( nobj : PGLUnurbs; nknots : GLint; knot : PGLfloat; stride : GLint; ctlarray : PGLfloat; order : GLint; atype : GLenum ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluNurbsSurface : procedure( nobj : PGLUnurbs; sknot_count : GLint; sknot : PGLfloat; tknot_count : GLint; tknot : PGLfloat; s_stride, t_stride : GLint; ctlarray : PGLfloat; sorder, torder : GLint; atype : GLenum ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluLoadSamplingMatrices : procedure( nobj : PGLUnurbs; var modelMatrix, projMatrix : T16dArray; var viewport : TViewPortArray ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluNurbsProperty : procedure( nobj : PGLUnurbs; aproperty : GLenum; value : GLfloat ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluGetNurbsProperty : procedure( nobj : PGLUnurbs; aproperty : GLenum; value : PGLfloat ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluNurbsCallback : procedure( nobj : PGLUnurbs; which : GLenum; fn : TCallBack ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-

-(**** Callback function prototypes ****)

-

-type

-  // gluQuadricCallback

-  GLUquadricErrorProc = procedure( p : GLenum ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-

-  // gluTessCallback

-  GLUtessBeginProc = procedure( p : GLenum ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  GLUtessEdgeFlagProc = procedure( p : GLboolean ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  GLUtessVertexProc = procedure( p : Pointer ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  GLUtessEndProc = procedure; {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  GLUtessErrorProc = procedure( p : GLenum ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  GLUtessCombineProc = procedure( var p1 : T3dArray; p2 : T4pArray; p3 : T4fArray; p4 : PPointer ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  GLUtessBeginDataProc = procedure( p1 : GLenum; p2 : Pointer ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  GLUtessEdgeFlagDataProc = procedure( p1 : GLboolean; p2 : Pointer ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  GLUtessVertexDataProc = procedure( p1, p2 : Pointer ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  GLUtessEndDataProc = procedure( p : Pointer ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  GLUtessErrorDataProc = procedure( p1 : GLenum; p2 : Pointer ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  GLUtessCombineDataProc = procedure( var p1 : T3dArray; var p2 : T4pArray; var p3 : T4fArray;

-    p4 : PPointer; p5 : Pointer ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-

-  // gluNurbsCallback

-  GLUnurbsErrorProc = procedure( p : GLenum ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-

-

-//***           Generic constants               ****/

-

-const

-  // Version

-  GLU_VERSION_1_1 = 1;

-  GLU_VERSION_1_2 = 1;

-

-  // Errors: (return value 0 = no error)

-  GLU_INVALID_ENUM = 100900;

-  GLU_INVALID_VALUE = 100901;

-  GLU_OUT_OF_MEMORY = 100902;

-  GLU_INCOMPATIBLE_GL_VERSION = 100903;

-

-  // StringName

-  GLU_VERSION  = 100800;

-  GLU_EXTENSIONS = 100801;

-

-  // Boolean

-  GLU_TRUE     = GL_TRUE;

-  GLU_FALSE    = GL_FALSE;

-

-

-  //***           Quadric constants               ****/

-

-  // QuadricNormal

-  GLU_SMOOTH   = 100000;

-  GLU_FLAT     = 100001;

-  GLU_NONE     = 100002;

-

-  // QuadricDrawStyle

-  GLU_POINT    = 100010;

-  GLU_LINE     = 100011;

-  GLU_FILL     = 100012;

-  GLU_SILHOUETTE = 100013;

-

-  // QuadricOrientation

-  GLU_OUTSIDE  = 100020;

-  GLU_INSIDE   = 100021;

-

-  // Callback types:

-  //      GLU_ERROR       = 100103;

-

-

-  //***           Tesselation constants           ****/

-

-  GLU_TESS_MAX_COORD = 1.0E150;

-

-  // TessProperty

-  GLU_TESS_WINDING_RULE = 100140;

-  GLU_TESS_BOUNDARY_ONLY = 100141;

-  GLU_TESS_TOLERANCE = 100142;

-

-  // TessWinding

-  GLU_TESS_WINDING_ODD = 100130;

-  GLU_TESS_WINDING_NONZERO = 100131;

-  GLU_TESS_WINDING_POSITIVE = 100132;

-  GLU_TESS_WINDING_NEGATIVE = 100133;

-  GLU_TESS_WINDING_ABS_GEQ_TWO = 100134;

-

-  // TessCallback

-  GLU_TESS_BEGIN = 100100; // void (CALLBACK*)(GLenum    type)

-  GLU_TESS_VERTEX = 100101; // void (CALLBACK*)(void      *data)

-  GLU_TESS_END = 100102; // void (CALLBACK*)(void)

-  GLU_TESS_ERROR = 100103; // void (CALLBACK*)(GLenum    errno)

-  GLU_TESS_EDGE_FLAG = 100104; // void (CALLBACK*)(GLboolean boundaryEdge)

-  GLU_TESS_COMBINE = 100105; { void (CALLBACK*)(GLdouble  coords[3],

-                                                            void      *data[4],

-                                                            GLfloat   weight[4],

-                                                            void      **dataOut) }

-  GLU_TESS_BEGIN_DATA = 100106; { void (CALLBACK*)(GLenum    type,

-                                                            void      *polygon_data) }

-  GLU_TESS_VERTEX_DATA = 100107; { void (CALLBACK*)(void      *data,

-                                                            void      *polygon_data) }

-  GLU_TESS_END_DATA = 100108; // void (CALLBACK*)(void      *polygon_data)

-  GLU_TESS_ERROR_DATA = 100109; { void (CALLBACK*)(GLenum    errno,

-                                                            void      *polygon_data) }

-  GLU_TESS_EDGE_FLAG_DATA = 100110; { void (CALLBACK*)(GLboolean boundaryEdge,

-                                                            void      *polygon_data) }

-  GLU_TESS_COMBINE_DATA = 100111; { void (CALLBACK*)(GLdouble  coords[3],

-                                                            void      *data[4],

-                                                            GLfloat   weight[4],

-                                                            void      **dataOut,

-                                                            void      *polygon_data) }

-

-  // TessError

-  GLU_TESS_ERROR1 = 100151;

-  GLU_TESS_ERROR2 = 100152;

-  GLU_TESS_ERROR3 = 100153;

-  GLU_TESS_ERROR4 = 100154;

-  GLU_TESS_ERROR5 = 100155;

-  GLU_TESS_ERROR6 = 100156;

-  GLU_TESS_ERROR7 = 100157;

-  GLU_TESS_ERROR8 = 100158;

-

-  GLU_TESS_MISSING_BEGIN_POLYGON = GLU_TESS_ERROR1;

-  GLU_TESS_MISSING_BEGIN_CONTOUR = GLU_TESS_ERROR2;

-  GLU_TESS_MISSING_END_POLYGON = GLU_TESS_ERROR3;

-  GLU_TESS_MISSING_END_CONTOUR = GLU_TESS_ERROR4;

-  GLU_TESS_COORD_TOO_LARGE = GLU_TESS_ERROR5;

-  GLU_TESS_NEED_COMBINE_CALLBACK = GLU_TESS_ERROR6;

-

-  //***           NURBS constants                 ****/

-

-  // NurbsProperty

-  GLU_AUTO_LOAD_MATRIX = 100200;

-  GLU_CULLING  = 100201;

-  GLU_SAMPLING_TOLERANCE = 100203;

-  GLU_DISPLAY_MODE = 100204;

-  GLU_PARAMETRIC_TOLERANCE = 100202;

-  GLU_SAMPLING_METHOD = 100205;

-  GLU_U_STEP   = 100206;

-  GLU_V_STEP   = 100207;

-

-  // NurbsSampling

-  GLU_PATH_LENGTH = 100215;

-  GLU_PARAMETRIC_ERROR = 100216;

-  GLU_DOMAIN_DISTANCE = 100217;

-

-

-  // NurbsTrim

-  GLU_MAP1_TRIM_2 = 100210;

-  GLU_MAP1_TRIM_3 = 100211;

-

-  // NurbsDisplay

-  //      GLU_FILL                = 100012;

-  GLU_OUTLINE_POLYGON = 100240;

-  GLU_OUTLINE_PATCH = 100241;

-

-  // NurbsCallback

-  //      GLU_ERROR               = 100103;

-

-  // NurbsErrors

-  GLU_NURBS_ERROR1 = 100251;

-  GLU_NURBS_ERROR2 = 100252;

-  GLU_NURBS_ERROR3 = 100253;

-  GLU_NURBS_ERROR4 = 100254;

-  GLU_NURBS_ERROR5 = 100255;

-  GLU_NURBS_ERROR6 = 100256;

-  GLU_NURBS_ERROR7 = 100257;

-  GLU_NURBS_ERROR8 = 100258;

-  GLU_NURBS_ERROR9 = 100259;

-  GLU_NURBS_ERROR10 = 100260;

-  GLU_NURBS_ERROR11 = 100261;

-  GLU_NURBS_ERROR12 = 100262;

-  GLU_NURBS_ERROR13 = 100263;

-  GLU_NURBS_ERROR14 = 100264;

-  GLU_NURBS_ERROR15 = 100265;

-  GLU_NURBS_ERROR16 = 100266;

-  GLU_NURBS_ERROR17 = 100267;

-  GLU_NURBS_ERROR18 = 100268;

-  GLU_NURBS_ERROR19 = 100269;

-  GLU_NURBS_ERROR20 = 100270;

-  GLU_NURBS_ERROR21 = 100271;

-  GLU_NURBS_ERROR22 = 100272;

-  GLU_NURBS_ERROR23 = 100273;

-  GLU_NURBS_ERROR24 = 100274;

-  GLU_NURBS_ERROR25 = 100275;

-  GLU_NURBS_ERROR26 = 100276;

-  GLU_NURBS_ERROR27 = 100277;

-  GLU_NURBS_ERROR28 = 100278;

-  GLU_NURBS_ERROR29 = 100279;

-  GLU_NURBS_ERROR30 = 100280;

-  GLU_NURBS_ERROR31 = 100281;

-  GLU_NURBS_ERROR32 = 100282;

-  GLU_NURBS_ERROR33 = 100283;

-  GLU_NURBS_ERROR34 = 100284;

-  GLU_NURBS_ERROR35 = 100285;

-  GLU_NURBS_ERROR36 = 100286;

-  GLU_NURBS_ERROR37 = 100287;

-

-//***           Backwards compatibility for old tesselator           ****/

-

-var

-  gluBeginPolygon : procedure( tess : PGLUtesselator ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluNextContour : procedure( tess : PGLUtesselator; atype : GLenum ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-  gluEndPolygon : procedure( tess : PGLUtesselator ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}

-

-const

-  // Contours types -- obsolete!

-  GLU_CW       = 100120;

-  GLU_CCW      = 100121;

-  GLU_INTERIOR = 100122;

-  GLU_EXTERIOR = 100123;

-  GLU_UNKNOWN  = 100124;

-

-  // Names without "TESS_" prefix

-  GLU_BEGIN    = GLU_TESS_BEGIN;

-  GLU_VERTEX   = GLU_TESS_VERTEX;

-  GLU_END      = GLU_TESS_END;

-  GLU_ERROR    = GLU_TESS_ERROR;

-  GLU_EDGE_FLAG = GLU_TESS_EDGE_FLAG;

-

-procedure LoadGLu( const dll : PChar );

-procedure FreeGLu;

-

-implementation

-

-var

-  LibGlu       : TModuleHandle;

-

-procedure FreeGLu;

-begin

-

-  @gluErrorString := nil;

-  @gluErrorUnicodeStringEXT := nil;

-  @gluGetString := nil;

-  @gluOrtho2D := nil;

-  @gluPerspective := nil;

-  @gluPickMatrix := nil;

-  @gluLookAt := nil;

-  @gluProject := nil;

-  @gluUnProject := nil;

-  @gluScaleImage := nil;

-  @gluBuild1DMipmaps := nil;

-  @gluBuild2DMipmaps := nil;

-  @gluNewQuadric := nil;

-  @gluDeleteQuadric := nil;

-  @gluQuadricNormals := nil;

-  @gluQuadricTexture := nil;

-  @gluQuadricOrientation := nil;

-  @gluQuadricDrawStyle := nil;

-  @gluCylinder := nil;

-  @gluDisk := nil;

-  @gluPartialDisk := nil;

-  @gluSphere := nil;

-  @gluQuadricCallback := nil;

-  @gluNewTess := nil;

-  @gluDeleteTess := nil;

-  @gluTessBeginPolygon := nil;

-  @gluTessBeginContour := nil;

-  @gluTessVertex := nil;

-  @gluTessEndContour := nil;

-  @gluTessEndPolygon := nil;

-  @gluTessProperty := nil;

-  @gluTessNormal := nil;

-  @gluTessCallback := nil;

-  @gluGetTessProperty := nil;

-  @gluNewNurbsRenderer := nil;

-  @gluDeleteNurbsRenderer := nil;

-  @gluBeginSurface := nil;

-  @gluBeginCurve := nil;

-  @gluEndCurve := nil;

-  @gluEndSurface := nil;

-  @gluBeginTrim := nil;

-  @gluEndTrim := nil;

-  @gluPwlCurve := nil;

-  @gluNurbsCurve := nil;

-  @gluNurbsSurface := nil;

-  @gluLoadSamplingMatrices := nil;

-  @gluNurbsProperty := nil;

-  @gluGetNurbsProperty := nil;

-  @gluNurbsCallback := nil;

-  @gluBeginPolygon := nil;

-  @gluNextContour := nil;

-  @gluEndPolygon := nil;

-

-  UnLoadModule( LibGlu );

-

-end;

-

-procedure LoadGLu( const dll : PChar );

-begin

-

-  FreeGLu;

-

-  if LoadModule( LibGlu, dll ) then

-  begin

-    @gluErrorString := GetModuleSymbol( LibGlu, 'gluErrorString' );

-    @gluErrorUnicodeStringEXT := GetModuleSymbol( LibGlu, 'gluErrorUnicodeStringEXT' );

-    @gluGetString := GetModuleSymbol( LibGlu, 'gluGetString' );

-    @gluOrtho2D := GetModuleSymbol( LibGlu, 'gluOrtho2D' );

-    @gluPerspective := GetModuleSymbol( LibGlu, 'gluPerspective' );

-    @gluPickMatrix := GetModuleSymbol( LibGlu, 'gluPickMatrix' );

-    @gluLookAt := GetModuleSymbol( LibGlu, 'gluLookAt' );

-    @gluProject := GetModuleSymbol( LibGlu, 'gluProject' );

-    @gluUnProject := GetModuleSymbol( LibGlu, 'gluUnProject' );

-    @gluScaleImage := GetModuleSymbol( LibGlu, 'gluScaleImage' );

-    @gluBuild1DMipmaps := GetModuleSymbol( LibGlu, 'gluBuild1DMipmaps' );

-    @gluBuild2DMipmaps := GetModuleSymbol( LibGlu, 'gluBuild2DMipmaps' );

-    @gluNewQuadric := GetModuleSymbol( LibGlu, 'gluNewQuadric' );

-    @gluDeleteQuadric := GetModuleSymbol( LibGlu, 'gluDeleteQuadric' );

-    @gluQuadricNormals := GetModuleSymbol( LibGlu, 'gluQuadricNormals' );

-    @gluQuadricTexture := GetModuleSymbol( LibGlu, 'gluQuadricTexture' );

-    @gluQuadricOrientation := GetModuleSymbol( LibGlu, 'gluQuadricOrientation' );

-    @gluQuadricDrawStyle := GetModuleSymbol( LibGlu, 'gluQuadricDrawStyle' );

-    @gluCylinder := GetModuleSymbol( LibGlu, 'gluCylinder' );

-    @gluDisk := GetModuleSymbol( LibGlu, 'gluDisk' );

-    @gluPartialDisk := GetModuleSymbol( LibGlu, 'gluPartialDisk' );

-    @gluSphere := GetModuleSymbol( LibGlu, 'gluSphere' );

-    @gluQuadricCallback := GetModuleSymbol( LibGlu, 'gluQuadricCallback' );

-    @gluNewTess := GetModuleSymbol( LibGlu, 'gluNewTess' );

-    @gluDeleteTess := GetModuleSymbol( LibGlu, 'gluDeleteTess' );

-    @gluTessBeginPolygon := GetModuleSymbol( LibGlu, 'gluTessBeginPolygon' );

-    @gluTessBeginContour := GetModuleSymbol( LibGlu, 'gluTessBeginContour' );

-    @gluTessVertex := GetModuleSymbol( LibGlu, 'gluTessVertex' );

-    @gluTessEndContour := GetModuleSymbol( LibGlu, 'gluTessEndContour' );

-    @gluTessEndPolygon := GetModuleSymbol( LibGlu, 'gluTessEndPolygon' );

-    @gluTessProperty := GetModuleSymbol( LibGlu, 'gluTessProperty' );

-    @gluTessNormal := GetModuleSymbol( LibGlu, 'gluTessNormal' );

-    @gluTessCallback := GetModuleSymbol( LibGlu, 'gluTessCallback' );

-    @gluGetTessProperty := GetModuleSymbol( LibGlu, 'gluGetTessProperty' );

-    @gluNewNurbsRenderer := GetModuleSymbol( LibGlu, 'gluNewNurbsRenderer' );

-    @gluDeleteNurbsRenderer := GetModuleSymbol( LibGlu, 'gluDeleteNurbsRenderer' );

-    @gluBeginSurface := GetModuleSymbol( LibGlu, 'gluBeginSurface' );

-    @gluBeginCurve := GetModuleSymbol( LibGlu, 'gluBeginCurve' );

-    @gluEndCurve := GetModuleSymbol( LibGlu, 'gluEndCurve' );

-    @gluEndSurface := GetModuleSymbol( LibGlu, 'gluEndSurface' );

-    @gluBeginTrim := GetModuleSymbol( LibGlu, 'gluBeginTrim' );

-    @gluEndTrim := GetModuleSymbol( LibGlu, 'gluEndTrim' );

-    @gluPwlCurve := GetModuleSymbol( LibGlu, 'gluPwlCurve' );

-    @gluNurbsCurve := GetModuleSymbol( LibGlu, 'gluNurbsCurve' );

-    @gluNurbsSurface := GetModuleSymbol( LibGlu, 'gluNurbsSurface' );

-    @gluLoadSamplingMatrices := GetModuleSymbol( LibGlu, 'gluLoadSamplingMatrices' );

-    @gluNurbsProperty := GetModuleSymbol( LibGlu, 'gluNurbsProperty' );

-    @gluGetNurbsProperty := GetModuleSymbol( LibGlu, 'gluGetNurbsProperty' );

-    @gluNurbsCallback := GetModuleSymbol( LibGlu, 'gluNurbsCallback' );

-

-    @gluBeginPolygon := GetModuleSymbol( LibGlu, 'gluBeginPolygon' );

-    @gluNextContour := GetModuleSymbol( LibGlu, 'gluNextContour' );

-    @gluEndPolygon := GetModuleSymbol( LibGlu, 'gluEndPolygon' );

-  end;

-end;

-

-initialization

-

-  LoadGLu( GLuLibName );

-

-finalization

-

-  FreeGLu;

-

-end.

-

+unit glu;
+{
+  $Id: glu.pas,v 1.8 2007/05/20 20:28:31 savage Exp $
+
+  Adaption of the delphi3d.net OpenGL units to FreePascal
+  Sebastian Guenther (sg@freepascal.org) in 2002
+  These units are free to use
+}
+
+(*++ BUILD Version: 0004    // Increment this if a change has global effects
+
+Copyright (c) 1985-95, Microsoft Corporation
+
+Module Name:
+
+    glu.h
+
+Abstract:
+
+    Procedure declarations, constant definitions and macros for the OpenGL
+    Utility Library.
+
+--*)
+
+(*
+** Copyright 1991-1993, Silicon Graphics, Inc.
+** All Rights Reserved.
+**
+** This is UNPUBLISHED PROPRIETARY SOURCE CODE of Silicon Graphics, Inc.;
+** the contents of this file may not be disclosed to third parties, copied or
+** duplicated in any form, in whole or in part, without the prior written
+** permission of Silicon Graphics, Inc.
+**
+** RESTRICTED RIGHTS LEGEND:
+** Use, duplication or disclosure by the Government is subject to restrictions
+** as set forth in subdivision (c)(1)(ii) of the Rights in Technical Data
+** and Computer Software clause at DFARS 252.227-7013, and/or in similar or
+** successor clauses in the FAR, DOD or NASA FAR Supplement. Unpublished -
+** rights reserved under the Copyright Laws of the United States.
+*)
+
+(*
+** Return the error string associated with a particular error code.
+** This will return 0 for an invalid error code.
+**
+** The generic function prototype that can be compiled for ANSI or Unicode
+** is defined as follows:
+**
+** LPCTSTR APIENTRY gluErrorStringWIN (GLenum errCode);
+*)
+
+{******************************************************************************}
+{                                                                              }
+{ Converted to Delphi by Tom Nuydens (tom@delphi3d.net)                        }
+{ For the latest updates, visit Delphi3D: http://www.delphi3d.net              }
+{                                                                              }
+{ Modified for Delphi/Kylix and FreePascal                                     }
+{    by Dominique Louis ( Dominique@Savagesoftware.com.au)                     }
+{ For the latest updates, visit JEDI-SDL : http://www.sf.net/projects/jedi-sdl }
+{                                                                              }
+{******************************************************************************}
+
+{
+  $Log: glu.pas,v $
+  Revision 1.8  2007/05/20 20:28:31  savage
+  Initial Changes to Handle 64 Bits
+
+  Revision 1.7  2006/11/26 16:35:49  savage
+  Messed up the last change to GLUtessCombineDataProc, had to reapply it. Thanks Michalis.
+
+  Revision 1.6  2006/11/25 23:38:02  savage
+  Changes as proposed by Michalis Kamburelis for better FPC support
+
+  Revision 1.5  2006/11/20 21:20:59  savage
+  Updated to work in MacOS X
+
+  Revision 1.4  2005/05/22 18:52:09  savage
+  Changes as suggested by Michalis Kamburelis. Thanks again.
+
+  Revision 1.3  2004/10/07 21:01:29  savage
+  Fix for FPC
+
+  Revision 1.2  2004/08/14 22:54:30  savage
+  Updated so that Library name defines are correctly defined for MacOS X.
+
+  Revision 1.1  2004/03/30 21:53:54  savage
+  Moved to it's own folder.
+
+  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 00:23:39  savage
+  As UNIX is defined in jedi-sdl.inc this will be used to check linux compatability as well. Units have been changed to reflect this change.
+
+  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.4  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.
+
+  Revision 1.3  2003/05/29 22:55:00  savage
+  Make use of new DLLFunctions
+
+  Revision 1.2  2003/05/27 09:39:53  savage
+  Added better Gnu Pascal support.
+
+  Revision 1.1  2003/05/11 13:18:03  savage
+  Newest OpenGL Headers For Delphi, Kylix and FPC
+
+  Revision 1.2  2002/10/13 14:36:47  sg
+  * Win32 fix: The OS symbol is called "Win32", not "Windows"
+
+  Revision 1.1  2002/10/13 13:57:31  sg
+  * Finally, the new units are available: Match the C headers more closely;
+    support for OpenGL extensions, and much more. Based on the Delphi units
+    by Tom Nuydens of delphi3d.net
+
+}
+
+interface
+
+{$I jedi-sdl.inc}
+
+uses
+{$IFDEF __GPC__}
+  gpc,
+{$ENDIF}
+  moduleloader,
+  gl;
+
+const
+{$IFDEF WINDOWS}
+  GLuLibName   = 'glu32.dll';
+{$ENDIF}
+
+{$IFDEF UNIX}
+{$IFDEF DARWIN}
+  GLuLibName   = '/System/Library/Frameworks/OpenGL.framework/Libraries/libGLU.dylib';
+{$ELSE}
+  GLuLibName   = 'libGLU.so';
+{$ENDIF}
+{$ENDIF}
+
+type
+  TViewPortArray = array[ 0..3 ] of GLint;
+  T16dArray = array[ 0..15 ] of GLdouble;
+  TCallBack = procedure;
+  T3dArray = array[ 0..2 ] of GLdouble;
+  T4pArray = array[ 0..3 ] of Pointer;
+  T4fArray = array[ 0..3 ] of GLfloat;
+{$IFNDEF __GPC__}
+  PPointer = ^Pointer;
+{$ENDIF}
+
+var
+  gluErrorString : function( errCode : GLenum ) : PChar; {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluErrorUnicodeStringEXT : function( errCode : GLenum ) : PWideChar; {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluGetString : function( name : GLenum ) : PChar; {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluOrtho2D   : procedure( left, right, bottom, top : GLdouble ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluPerspective : procedure( fovy, aspect, zNear, zFar : GLdouble ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluPickMatrix : procedure( x, y, width, height : GLdouble; var viewport : TViewPortArray ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluLookAt    : procedure( eyex, eyey, eyez, centerx, centery, centerz, upx, upy, upz : GLdouble ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluProject   : function( objx, objy, objz : GLdouble; var modelMatrix, projMatrix : T16dArray; var viewport : TViewPortArray; winx, winy, winz : PGLdouble ) : Integer; {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluUnProject : function( winx, winy, winz : GLdouble; var modelMatrix, projMatrix : T16dArray; var viewport : TViewPortArray; objx, objy, objz : PGLdouble ) : Integer; {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluScaleImage : function( format : GLenum; widthin, heightin : GLint; typein : GLenum; const datain : Pointer; widthout, heightout : GLint; typeout : GLenum; dataout : Pointer ) : Integer; {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluBuild1DMipmaps : function( target : GLenum; components, width : GLint; format, atype : GLenum; const data : Pointer ) : Integer; {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluBuild2DMipmaps : function( target : GLenum; components, width, height : GLint; format, atype : GLenum; const data : Pointer ) : Integer; {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+
+type
+  GLUnurbs = record
+  end; PGLUnurbs = ^GLUnurbs;
+  GLUquadric = record
+  end; PGLUquadric = ^GLUquadric;
+  GLUtesselator = record
+  end; PGLUtesselator = ^GLUtesselator;
+
+  // backwards compatibility:
+  GLUnurbsObj = GLUnurbs; PGLUnurbsObj = PGLUnurbs;
+  GLUquadricObj = GLUquadric; PGLUquadricObj = PGLUquadric;
+  GLUtesselatorObj = GLUtesselator; PGLUtesselatorObj = PGLUtesselator;
+  GLUtriangulatorObj = GLUtesselator; PGLUtriangulatorObj = PGLUtesselator;
+
+var
+  gluNewQuadric : function : PGLUquadric; {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluDeleteQuadric : procedure( state : PGLUquadric ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluQuadricNormals : procedure( quadObject : PGLUquadric; normals : GLenum ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluQuadricTexture : procedure( quadObject : PGLUquadric; textureCoords : GLboolean ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluQuadricOrientation : procedure( quadObject : PGLUquadric; orientation : GLenum ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluQuadricDrawStyle : procedure( quadObject : PGLUquadric; drawStyle : GLenum ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluCylinder  : procedure( qobj : PGLUquadric; baseRadius, topRadius, height : GLdouble; slices, stacks : GLint ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluDisk      : procedure( qobj : PGLUquadric; innerRadius, outerRadius : GLdouble; slices, loops : GLint ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluPartialDisk : procedure( qobj : PGLUquadric; innerRadius, outerRadius : GLdouble; slices, loops : GLint; startAngle, sweepAngle : GLdouble ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluSphere    : procedure( qobj : PGLuquadric; radius : GLdouble; slices, stacks : GLint ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluQuadricCallback : procedure( qobj : PGLUquadric; which : GLenum; fn : TCallBack ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluNewTess   : function : PGLUtesselator; {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluDeleteTess : procedure( tess : PGLUtesselator ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluTessBeginPolygon : procedure( tess : PGLUtesselator; polygon_data : Pointer ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluTessBeginContour : procedure( tess : PGLUtesselator ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluTessVertex : procedure( tess : PGLUtesselator; var coords : T3dArray; data : Pointer ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluTessEndContour : procedure( tess : PGLUtesselator ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluTessEndPolygon : procedure( tess : PGLUtesselator ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluTessProperty : procedure( tess : PGLUtesselator; which : GLenum; value : GLdouble ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluTessNormal : procedure( tess : PGLUtesselator; x, y, z : GLdouble ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluTessCallback : procedure( tess : PGLUtesselator; which : GLenum; fn : TCallBack ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluGetTessProperty : procedure( tess : PGLUtesselator; which : GLenum; value : PGLdouble ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluNewNurbsRenderer : function : PGLUnurbs; {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluDeleteNurbsRenderer : procedure( nobj : PGLUnurbs ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluBeginSurface : procedure( nobj : PGLUnurbs ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluBeginCurve : procedure( nobj : PGLUnurbs ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluEndCurve  : procedure( nobj : PGLUnurbs ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluEndSurface : procedure( nobj : PGLUnurbs ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluBeginTrim : procedure( nobj : PGLUnurbs ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluEndTrim   : procedure( nobj : PGLUnurbs ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluPwlCurve  : procedure( nobj : PGLUnurbs; count : GLint; aarray : PGLfloat; stride : GLint; atype : GLenum ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluNurbsCurve : procedure( nobj : PGLUnurbs; nknots : GLint; knot : PGLfloat; stride : GLint; ctlarray : PGLfloat; order : GLint; atype : GLenum ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluNurbsSurface : procedure( nobj : PGLUnurbs; sknot_count : GLint; sknot : PGLfloat; tknot_count : GLint; tknot : PGLfloat; s_stride, t_stride : GLint; ctlarray : PGLfloat; sorder, torder : GLint; atype : GLenum ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluLoadSamplingMatrices : procedure( nobj : PGLUnurbs; var modelMatrix, projMatrix : T16dArray; var viewport : TViewPortArray ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluNurbsProperty : procedure( nobj : PGLUnurbs; aproperty : GLenum; value : GLfloat ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluGetNurbsProperty : procedure( nobj : PGLUnurbs; aproperty : GLenum; value : PGLfloat ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluNurbsCallback : procedure( nobj : PGLUnurbs; which : GLenum; fn : TCallBack ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+
+(**** Callback function prototypes ****)
+
+type
+  // gluQuadricCallback
+  GLUquadricErrorProc = procedure( p : GLenum ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+
+  // gluTessCallback
+  GLUtessBeginProc = procedure( p : GLenum ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  GLUtessEdgeFlagProc = procedure( p : GLboolean ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  GLUtessVertexProc = procedure( p : Pointer ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  GLUtessEndProc = procedure; {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  GLUtessErrorProc = procedure( p : GLenum ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  GLUtessCombineProc = procedure( var p1 : T3dArray; p2 : T4pArray; p3 : T4fArray; p4 : PPointer ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  GLUtessBeginDataProc = procedure( p1 : GLenum; p2 : Pointer ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  GLUtessEdgeFlagDataProc = procedure( p1 : GLboolean; p2 : Pointer ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  GLUtessVertexDataProc = procedure( p1, p2 : Pointer ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  GLUtessEndDataProc = procedure( p : Pointer ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  GLUtessErrorDataProc = procedure( p1 : GLenum; p2 : Pointer ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  GLUtessCombineDataProc = procedure( var p1 : T3dArray; var p2 : T4pArray; var p3 : T4fArray;
+    p4 : PPointer; p5 : Pointer ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+
+  // gluNurbsCallback
+  GLUnurbsErrorProc = procedure( p : GLenum ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+
+
+//***           Generic constants               ****/
+
+const
+  // Version
+  GLU_VERSION_1_1 = 1;
+  GLU_VERSION_1_2 = 1;
+
+  // Errors: (return value 0 = no error)
+  GLU_INVALID_ENUM = 100900;
+  GLU_INVALID_VALUE = 100901;
+  GLU_OUT_OF_MEMORY = 100902;
+  GLU_INCOMPATIBLE_GL_VERSION = 100903;
+
+  // StringName
+  GLU_VERSION  = 100800;
+  GLU_EXTENSIONS = 100801;
+
+  // Boolean
+  GLU_TRUE     = GL_TRUE;
+  GLU_FALSE    = GL_FALSE;
+
+
+  //***           Quadric constants               ****/
+
+  // QuadricNormal
+  GLU_SMOOTH   = 100000;
+  GLU_FLAT     = 100001;
+  GLU_NONE     = 100002;
+
+  // QuadricDrawStyle
+  GLU_POINT    = 100010;
+  GLU_LINE     = 100011;
+  GLU_FILL     = 100012;
+  GLU_SILHOUETTE = 100013;
+
+  // QuadricOrientation
+  GLU_OUTSIDE  = 100020;
+  GLU_INSIDE   = 100021;
+
+  // Callback types:
+  //      GLU_ERROR       = 100103;
+
+
+  //***           Tesselation constants           ****/
+
+  GLU_TESS_MAX_COORD = 1.0E150;
+
+  // TessProperty
+  GLU_TESS_WINDING_RULE = 100140;
+  GLU_TESS_BOUNDARY_ONLY = 100141;
+  GLU_TESS_TOLERANCE = 100142;
+
+  // TessWinding
+  GLU_TESS_WINDING_ODD = 100130;
+  GLU_TESS_WINDING_NONZERO = 100131;
+  GLU_TESS_WINDING_POSITIVE = 100132;
+  GLU_TESS_WINDING_NEGATIVE = 100133;
+  GLU_TESS_WINDING_ABS_GEQ_TWO = 100134;
+
+  // TessCallback
+  GLU_TESS_BEGIN = 100100; // void (CALLBACK*)(GLenum    type)
+  GLU_TESS_VERTEX = 100101; // void (CALLBACK*)(void      *data)
+  GLU_TESS_END = 100102; // void (CALLBACK*)(void)
+  GLU_TESS_ERROR = 100103; // void (CALLBACK*)(GLenum    errno)
+  GLU_TESS_EDGE_FLAG = 100104; // void (CALLBACK*)(GLboolean boundaryEdge)
+  GLU_TESS_COMBINE = 100105; { void (CALLBACK*)(GLdouble  coords[3],
+                                                            void      *data[4],
+                                                            GLfloat   weight[4],
+                                                            void      **dataOut) }
+  GLU_TESS_BEGIN_DATA = 100106; { void (CALLBACK*)(GLenum    type,
+                                                            void      *polygon_data) }
+  GLU_TESS_VERTEX_DATA = 100107; { void (CALLBACK*)(void      *data,
+                                                            void      *polygon_data) }
+  GLU_TESS_END_DATA = 100108; // void (CALLBACK*)(void      *polygon_data)
+  GLU_TESS_ERROR_DATA = 100109; { void (CALLBACK*)(GLenum    errno,
+                                                            void      *polygon_data) }
+  GLU_TESS_EDGE_FLAG_DATA = 100110; { void (CALLBACK*)(GLboolean boundaryEdge,
+                                                            void      *polygon_data) }
+  GLU_TESS_COMBINE_DATA = 100111; { void (CALLBACK*)(GLdouble  coords[3],
+                                                            void      *data[4],
+                                                            GLfloat   weight[4],
+                                                            void      **dataOut,
+                                                            void      *polygon_data) }
+
+  // TessError
+  GLU_TESS_ERROR1 = 100151;
+  GLU_TESS_ERROR2 = 100152;
+  GLU_TESS_ERROR3 = 100153;
+  GLU_TESS_ERROR4 = 100154;
+  GLU_TESS_ERROR5 = 100155;
+  GLU_TESS_ERROR6 = 100156;
+  GLU_TESS_ERROR7 = 100157;
+  GLU_TESS_ERROR8 = 100158;
+
+  GLU_TESS_MISSING_BEGIN_POLYGON = GLU_TESS_ERROR1;
+  GLU_TESS_MISSING_BEGIN_CONTOUR = GLU_TESS_ERROR2;
+  GLU_TESS_MISSING_END_POLYGON = GLU_TESS_ERROR3;
+  GLU_TESS_MISSING_END_CONTOUR = GLU_TESS_ERROR4;
+  GLU_TESS_COORD_TOO_LARGE = GLU_TESS_ERROR5;
+  GLU_TESS_NEED_COMBINE_CALLBACK = GLU_TESS_ERROR6;
+
+  //***           NURBS constants                 ****/
+
+  // NurbsProperty
+  GLU_AUTO_LOAD_MATRIX = 100200;
+  GLU_CULLING  = 100201;
+  GLU_SAMPLING_TOLERANCE = 100203;
+  GLU_DISPLAY_MODE = 100204;
+  GLU_PARAMETRIC_TOLERANCE = 100202;
+  GLU_SAMPLING_METHOD = 100205;
+  GLU_U_STEP   = 100206;
+  GLU_V_STEP   = 100207;
+
+  // NurbsSampling
+  GLU_PATH_LENGTH = 100215;
+  GLU_PARAMETRIC_ERROR = 100216;
+  GLU_DOMAIN_DISTANCE = 100217;
+
+
+  // NurbsTrim
+  GLU_MAP1_TRIM_2 = 100210;
+  GLU_MAP1_TRIM_3 = 100211;
+
+  // NurbsDisplay
+  //      GLU_FILL                = 100012;
+  GLU_OUTLINE_POLYGON = 100240;
+  GLU_OUTLINE_PATCH = 100241;
+
+  // NurbsCallback
+  //      GLU_ERROR               = 100103;
+
+  // NurbsErrors
+  GLU_NURBS_ERROR1 = 100251;
+  GLU_NURBS_ERROR2 = 100252;
+  GLU_NURBS_ERROR3 = 100253;
+  GLU_NURBS_ERROR4 = 100254;
+  GLU_NURBS_ERROR5 = 100255;
+  GLU_NURBS_ERROR6 = 100256;
+  GLU_NURBS_ERROR7 = 100257;
+  GLU_NURBS_ERROR8 = 100258;
+  GLU_NURBS_ERROR9 = 100259;
+  GLU_NURBS_ERROR10 = 100260;
+  GLU_NURBS_ERROR11 = 100261;
+  GLU_NURBS_ERROR12 = 100262;
+  GLU_NURBS_ERROR13 = 100263;
+  GLU_NURBS_ERROR14 = 100264;
+  GLU_NURBS_ERROR15 = 100265;
+  GLU_NURBS_ERROR16 = 100266;
+  GLU_NURBS_ERROR17 = 100267;
+  GLU_NURBS_ERROR18 = 100268;
+  GLU_NURBS_ERROR19 = 100269;
+  GLU_NURBS_ERROR20 = 100270;
+  GLU_NURBS_ERROR21 = 100271;
+  GLU_NURBS_ERROR22 = 100272;
+  GLU_NURBS_ERROR23 = 100273;
+  GLU_NURBS_ERROR24 = 100274;
+  GLU_NURBS_ERROR25 = 100275;
+  GLU_NURBS_ERROR26 = 100276;
+  GLU_NURBS_ERROR27 = 100277;
+  GLU_NURBS_ERROR28 = 100278;
+  GLU_NURBS_ERROR29 = 100279;
+  GLU_NURBS_ERROR30 = 100280;
+  GLU_NURBS_ERROR31 = 100281;
+  GLU_NURBS_ERROR32 = 100282;
+  GLU_NURBS_ERROR33 = 100283;
+  GLU_NURBS_ERROR34 = 100284;
+  GLU_NURBS_ERROR35 = 100285;
+  GLU_NURBS_ERROR36 = 100286;
+  GLU_NURBS_ERROR37 = 100287;
+
+//***           Backwards compatibility for old tesselator           ****/
+
+var
+  gluBeginPolygon : procedure( tess : PGLUtesselator ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluNextContour : procedure( tess : PGLUtesselator; atype : GLenum ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+  gluEndPolygon : procedure( tess : PGLUtesselator ); {$IFDEF WINDOWS}stdcall; {$ELSE}cdecl; {$ENDIF}
+
+const
+  // Contours types -- obsolete!
+  GLU_CW       = 100120;
+  GLU_CCW      = 100121;
+  GLU_INTERIOR = 100122;
+  GLU_EXTERIOR = 100123;
+  GLU_UNKNOWN  = 100124;
+
+  // Names without "TESS_" prefix
+  GLU_BEGIN    = GLU_TESS_BEGIN;
+  GLU_VERTEX   = GLU_TESS_VERTEX;
+  GLU_END      = GLU_TESS_END;
+  GLU_ERROR    = GLU_TESS_ERROR;
+  GLU_EDGE_FLAG = GLU_TESS_EDGE_FLAG;
+
+procedure LoadGLu( const dll : PChar );
+procedure FreeGLu;
+
+implementation
+
+var
+  LibGlu       : TModuleHandle;
+
+procedure FreeGLu;
+begin
+
+  @gluErrorString := nil;
+  @gluErrorUnicodeStringEXT := nil;
+  @gluGetString := nil;
+  @gluOrtho2D := nil;
+  @gluPerspective := nil;
+  @gluPickMatrix := nil;
+  @gluLookAt := nil;
+  @gluProject := nil;
+  @gluUnProject := nil;
+  @gluScaleImage := nil;
+  @gluBuild1DMipmaps := nil;
+  @gluBuild2DMipmaps := nil;
+  @gluNewQuadric := nil;
+  @gluDeleteQuadric := nil;
+  @gluQuadricNormals := nil;
+  @gluQuadricTexture := nil;
+  @gluQuadricOrientation := nil;
+  @gluQuadricDrawStyle := nil;
+  @gluCylinder := nil;
+  @gluDisk := nil;
+  @gluPartialDisk := nil;
+  @gluSphere := nil;
+  @gluQuadricCallback := nil;
+  @gluNewTess := nil;
+  @gluDeleteTess := nil;
+  @gluTessBeginPolygon := nil;
+  @gluTessBeginContour := nil;
+  @gluTessVertex := nil;
+  @gluTessEndContour := nil;
+  @gluTessEndPolygon := nil;
+  @gluTessProperty := nil;
+  @gluTessNormal := nil;
+  @gluTessCallback := nil;
+  @gluGetTessProperty := nil;
+  @gluNewNurbsRenderer := nil;
+  @gluDeleteNurbsRenderer := nil;
+  @gluBeginSurface := nil;
+  @gluBeginCurve := nil;
+  @gluEndCurve := nil;
+  @gluEndSurface := nil;
+  @gluBeginTrim := nil;
+  @gluEndTrim := nil;
+  @gluPwlCurve := nil;
+  @gluNurbsCurve := nil;
+  @gluNurbsSurface := nil;
+  @gluLoadSamplingMatrices := nil;
+  @gluNurbsProperty := nil;
+  @gluGetNurbsProperty := nil;
+  @gluNurbsCallback := nil;
+  @gluBeginPolygon := nil;
+  @gluNextContour := nil;
+  @gluEndPolygon := nil;
+
+  UnLoadModule( LibGlu );
+
+end;
+
+procedure LoadGLu( const dll : PChar );
+begin
+
+  FreeGLu;
+
+  if LoadModule( LibGlu, dll ) then
+  begin
+    @gluErrorString := GetModuleSymbol( LibGlu, 'gluErrorString' );
+    @gluErrorUnicodeStringEXT := GetModuleSymbol( LibGlu, 'gluErrorUnicodeStringEXT' );
+    @gluGetString := GetModuleSymbol( LibGlu, 'gluGetString' );
+    @gluOrtho2D := GetModuleSymbol( LibGlu, 'gluOrtho2D' );
+    @gluPerspective := GetModuleSymbol( LibGlu, 'gluPerspective' );
+    @gluPickMatrix := GetModuleSymbol( LibGlu, 'gluPickMatrix' );
+    @gluLookAt := GetModuleSymbol( LibGlu, 'gluLookAt' );
+    @gluProject := GetModuleSymbol( LibGlu, 'gluProject' );
+    @gluUnProject := GetModuleSymbol( LibGlu, 'gluUnProject' );
+    @gluScaleImage := GetModuleSymbol( LibGlu, 'gluScaleImage' );
+    @gluBuild1DMipmaps := GetModuleSymbol( LibGlu, 'gluBuild1DMipmaps' );
+    @gluBuild2DMipmaps := GetModuleSymbol( LibGlu, 'gluBuild2DMipmaps' );
+    @gluNewQuadric := GetModuleSymbol( LibGlu, 'gluNewQuadric' );
+    @gluDeleteQuadric := GetModuleSymbol( LibGlu, 'gluDeleteQuadric' );
+    @gluQuadricNormals := GetModuleSymbol( LibGlu, 'gluQuadricNormals' );
+    @gluQuadricTexture := GetModuleSymbol( LibGlu, 'gluQuadricTexture' );
+    @gluQuadricOrientation := GetModuleSymbol( LibGlu, 'gluQuadricOrientation' );
+    @gluQuadricDrawStyle := GetModuleSymbol( LibGlu, 'gluQuadricDrawStyle' );
+    @gluCylinder := GetModuleSymbol( LibGlu, 'gluCylinder' );
+    @gluDisk := GetModuleSymbol( LibGlu, 'gluDisk' );
+    @gluPartialDisk := GetModuleSymbol( LibGlu, 'gluPartialDisk' );
+    @gluSphere := GetModuleSymbol( LibGlu, 'gluSphere' );
+    @gluQuadricCallback := GetModuleSymbol( LibGlu, 'gluQuadricCallback' );
+    @gluNewTess := GetModuleSymbol( LibGlu, 'gluNewTess' );
+    @gluDeleteTess := GetModuleSymbol( LibGlu, 'gluDeleteTess' );
+    @gluTessBeginPolygon := GetModuleSymbol( LibGlu, 'gluTessBeginPolygon' );
+    @gluTessBeginContour := GetModuleSymbol( LibGlu, 'gluTessBeginContour' );
+    @gluTessVertex := GetModuleSymbol( LibGlu, 'gluTessVertex' );
+    @gluTessEndContour := GetModuleSymbol( LibGlu, 'gluTessEndContour' );
+    @gluTessEndPolygon := GetModuleSymbol( LibGlu, 'gluTessEndPolygon' );
+    @gluTessProperty := GetModuleSymbol( LibGlu, 'gluTessProperty' );
+    @gluTessNormal := GetModuleSymbol( LibGlu, 'gluTessNormal' );
+    @gluTessCallback := GetModuleSymbol( LibGlu, 'gluTessCallback' );
+    @gluGetTessProperty := GetModuleSymbol( LibGlu, 'gluGetTessProperty' );
+    @gluNewNurbsRenderer := GetModuleSymbol( LibGlu, 'gluNewNurbsRenderer' );
+    @gluDeleteNurbsRenderer := GetModuleSymbol( LibGlu, 'gluDeleteNurbsRenderer' );
+    @gluBeginSurface := GetModuleSymbol( LibGlu, 'gluBeginSurface' );
+    @gluBeginCurve := GetModuleSymbol( LibGlu, 'gluBeginCurve' );
+    @gluEndCurve := GetModuleSymbol( LibGlu, 'gluEndCurve' );
+    @gluEndSurface := GetModuleSymbol( LibGlu, 'gluEndSurface' );
+    @gluBeginTrim := GetModuleSymbol( LibGlu, 'gluBeginTrim' );
+    @gluEndTrim := GetModuleSymbol( LibGlu, 'gluEndTrim' );
+    @gluPwlCurve := GetModuleSymbol( LibGlu, 'gluPwlCurve' );
+    @gluNurbsCurve := GetModuleSymbol( LibGlu, 'gluNurbsCurve' );
+    @gluNurbsSurface := GetModuleSymbol( LibGlu, 'gluNurbsSurface' );
+    @gluLoadSamplingMatrices := GetModuleSymbol( LibGlu, 'gluLoadSamplingMatrices' );
+    @gluNurbsProperty := GetModuleSymbol( LibGlu, 'gluNurbsProperty' );
+    @gluGetNurbsProperty := GetModuleSymbol( LibGlu, 'gluGetNurbsProperty' );
+    @gluNurbsCallback := GetModuleSymbol( LibGlu, 'gluNurbsCallback' );
+
+    @gluBeginPolygon := GetModuleSymbol( LibGlu, 'gluBeginPolygon' );
+    @gluNextContour := GetModuleSymbol( LibGlu, 'gluNextContour' );
+    @gluEndPolygon := GetModuleSymbol( LibGlu, 'gluEndPolygon' );
+  end;
+end;
+
+initialization
+
+  LoadGLu( GLuLibName );
+
+finalization
+
+  FreeGLu;
+
+end.
+
diff --git a/Game/Code/lib/JEDI-SDL/OpenGL/Pas/glut.pas b/Game/Code/lib/JEDI-SDL/OpenGL/Pas/glut.pas
index 3bea3499..04f69267 100644
--- a/Game/Code/lib/JEDI-SDL/OpenGL/Pas/glut.pas
+++ b/Game/Code/lib/JEDI-SDL/OpenGL/Pas/glut.pas
@@ -1,688 +1,688 @@
-unit glut;

-{

-  $Id: glut.pas,v 1.4 2007/05/20 20:28:31 savage Exp $

-

-  Adaption of the delphi3d.net OpenGL units to FreePascal

-  Sebastian Guenther (sg@freepascal.org) in 2002

-  These units are free to use

-}

-

-// Copyright (c) Mark J. Kilgard, 1994, 1995, 1996. */

-

-(* This program is freely distributable without licensing fees  and is

-   provided without guarantee or warrantee expressed or  implied. This

-   program is -not- in the public domain. *)

-

-{******************************************************************************}

-{                                                                              }

-{ Converted to Delphi by Tom Nuydens (tom@delphi3d.net)                        }

-{ For the latest updates, visit Delphi3D: http://www.delphi3d.net              }

-{                                                                              }

-{ Modified for Delphi/Kylix and FreePascal                                     }

-{    by Dominique Louis ( Dominique@Savagesoftware.com.au)                     }

-{ For the latest updates, visit JEDI-SDL : http://www.sf.net/projects/jedi-sdl }

-{                                                                              }

-{******************************************************************************}

-

-{

-  $Log: glut.pas,v $

-  Revision 1.4  2007/05/20 20:28:31  savage

-  Initial Changes to Handle 64 Bits

-

-  Revision 1.3  2006/11/20 21:20:59  savage

-  Updated to work in MacOS X

-

-  Revision 1.2  2004/08/14 22:54:30  savage

-  Updated so that Library name defines are correctly defined for MacOS X.

-

-  Revision 1.1  2004/03/30 21:53:54  savage

-  Moved to it's own folder.

-

-  Revision 1.5  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.4  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.3  2004/02/14 00:23:39  savage

-  As UNIX is defined in jedi-sdl.inc this will be used to check linux compatability as well. Units have been changed to reflect this change.

-

-  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.4  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

-{$IFDEF __GPC__}

-  system,

-  gpc,

-{$ENDIF}

-

-{$IFDEF WINDOWS}

-  Windows,

-{$ENDIF}

-  moduleloader,

-  gl;

-

-type

-  {$IFNDEF __GPC__}

-  PInteger = ^Integer;

-  PPChar = ^PChar;

-  {$ENDIF}

-  TGlutVoidCallback = procedure; {$IFNDEF __GPC__}{$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}{$ENDIF}

-  TGlut1IntCallback = procedure(value: Integer); {$IFNDEF __GPC__}{$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}{$ENDIF}

-  TGlut2IntCallback = procedure(v1, v2: Integer); {$IFNDEF __GPC__}{$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}{$ENDIF}

-  TGlut3IntCallback = procedure(v1, v2, v3: Integer); {$IFNDEF __GPC__}{$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}{$ENDIF}

-  TGlut4IntCallback = procedure(v1, v2, v3, v4: Integer); {$IFNDEF __GPC__}{$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}{$ENDIF}

-  TGlut1Char2IntCallback = procedure(c: Byte; v1, v2: Integer); {$IFNDEF __GPC__}{$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}{$ENDIF}

-

-const

-{$IFDEF WINDOWS}

-  GlutLibName = 'glut32.dll';

-{$ENDIF}

-

-{$IFDEF UNIX}

-{$IFDEF DARWIN}

-  GlutLibName = '/System/Library/Frameworks/GLUT.framework/Libraries/libglut.dylib';

-{$ELSE}

-  GlutLibName = 'libglut.so';

-{$ENDIF}

-{$ENDIF}

-

-  GLUT_API_VERSION                = 3;

-  GLUT_XLIB_IMPLEMENTATION        = 12;

-  // Display mode bit masks.

-  GLUT_RGB                        = 0;

-  GLUT_RGBA                       = GLUT_RGB;

-  GLUT_INDEX                      = 1;

-  GLUT_SINGLE                     = 0;

-  GLUT_DOUBLE                     = 2;

-  GLUT_ACCUM                      = 4;

-  GLUT_ALPHA                      = 8;

-  GLUT_DEPTH                      = 16;

-  GLUT_STENCIL                    = 32;

-  GLUT_MULTISAMPLE                = 128;

-  GLUT_STEREO                     = 256;

-  GLUT_LUMINANCE                  = 512;

-

-  // Mouse buttons.

-  GLUT_LEFT_BUTTON                = 0;

-  GLUT_MIDDLE_BUTTON              = 1;

-  GLUT_RIGHT_BUTTON               = 2;

-

-  // Mouse button state.

-  GLUT_DOWN                       = 0;

-  GLUT_UP                         = 1;

-

-  // function keys

-  GLUT_KEY_F1                     = 1;

-  GLUT_KEY_F2                     = 2;

-  GLUT_KEY_F3                     = 3;

-  GLUT_KEY_F4                     = 4;

-  GLUT_KEY_F5                     = 5;

-  GLUT_KEY_F6                     = 6;

-  GLUT_KEY_F7                     = 7;

-  GLUT_KEY_F8                     = 8;

-  GLUT_KEY_F9                     = 9;

-  GLUT_KEY_F10                    = 10;

-  GLUT_KEY_F11                    = 11;

-  GLUT_KEY_F12                    = 12;

-  // directional keys

-  GLUT_KEY_LEFT                   = 100;

-  GLUT_KEY_UP                     = 101;

-  GLUT_KEY_RIGHT                  = 102;

-  GLUT_KEY_DOWN                   = 103;

-  GLUT_KEY_PAGE_UP                = 104;

-  GLUT_KEY_PAGE_DOWN              = 105;

-  GLUT_KEY_HOME                   = 106;

-  GLUT_KEY_END                    = 107;

-  GLUT_KEY_INSERT                 = 108;

-

-  // Entry/exit  state.

-  GLUT_LEFT                       = 0;

-  GLUT_ENTERED                    = 1;

-

-  // Menu usage state.

-  GLUT_MENU_NOT_IN_USE            = 0;

-  GLUT_MENU_IN_USE                = 1;

-

-  // Visibility  state.

-  GLUT_NOT_VISIBLE                = 0;

-  GLUT_VISIBLE                    = 1;

-

-  // Window status  state.

-  GLUT_HIDDEN                     = 0;

-  GLUT_FULLY_RETAINED             = 1;

-  GLUT_PARTIALLY_RETAINED         = 2;

-  GLUT_FULLY_COVERED              = 3;

-

-  // Color index component selection values.

-  GLUT_RED                        = 0;

-  GLUT_GREEN                      = 1;

-  GLUT_BLUE                       = 2;

-

-  // Layers for use.

-  GLUT_NORMAL                     = 0;

-  GLUT_OVERLAY                    = 1;

-

-  // Stroke font constants (use these in GLUT program).

-  GLUT_STROKE_ROMAN		  = Pointer(0);

-  GLUT_STROKE_MONO_ROMAN	  = Pointer(1);

-

-  // Bitmap font constants (use these in GLUT program).

-  GLUT_BITMAP_9_BY_15		  = Pointer(2);

-  GLUT_BITMAP_8_BY_13		  = Pointer(3);

-  GLUT_BITMAP_TIMES_ROMAN_10	  = Pointer(4);

-  GLUT_BITMAP_TIMES_ROMAN_24	  = Pointer(5);

-  GLUT_BITMAP_HELVETICA_10	  = Pointer(6);

-  GLUT_BITMAP_HELVETICA_12	  = Pointer(7);

-  GLUT_BITMAP_HELVETICA_18	  = Pointer(8);

-

-  // glutGet parameters.

-  GLUT_WINDOW_X                   = 100;

-  GLUT_WINDOW_Y                   = 101;

-  GLUT_WINDOW_WIDTH               = 102;

-  GLUT_WINDOW_HEIGHT              = 103;

-  GLUT_WINDOW_BUFFER_SIZE         = 104;

-  GLUT_WINDOW_STENCIL_SIZE        = 105;

-  GLUT_WINDOW_DEPTH_SIZE          = 106;

-  GLUT_WINDOW_RED_SIZE            = 107;

-  GLUT_WINDOW_GREEN_SIZE          = 108;

-  GLUT_WINDOW_BLUE_SIZE           = 109;

-  GLUT_WINDOW_ALPHA_SIZE          = 110;

-  GLUT_WINDOW_ACCUM_RED_SIZE      = 111;

-  GLUT_WINDOW_ACCUM_GREEN_SIZE    = 112;

-  GLUT_WINDOW_ACCUM_BLUE_SIZE     = 113;

-  GLUT_WINDOW_ACCUM_ALPHA_SIZE    = 114;

-  GLUT_WINDOW_DOUBLEBUFFER        = 115;

-  GLUT_WINDOW_RGBA                = 116;

-  GLUT_WINDOW_PARENT              = 117;

-  GLUT_WINDOW_NUM_CHILDREN        = 118;

-  GLUT_WINDOW_COLORMAP_SIZE       = 119;

-  GLUT_WINDOW_NUM_SAMPLES         = 120;

-  GLUT_WINDOW_STEREO              = 121;

-  GLUT_WINDOW_CURSOR              = 122;

-  GLUT_SCREEN_WIDTH               = 200;

-  GLUT_SCREEN_HEIGHT              = 201;

-  GLUT_SCREEN_WIDTH_MM            = 202;

-  GLUT_SCREEN_HEIGHT_MM           = 203;

-  GLUT_MENU_NUM_ITEMS             = 300;

-  GLUT_DISPLAY_MODE_POSSIBLE      = 400;

-  GLUT_INIT_WINDOW_X              = 500;

-  GLUT_INIT_WINDOW_Y              = 501;

-  GLUT_INIT_WINDOW_WIDTH          = 502;

-  GLUT_INIT_WINDOW_HEIGHT         = 503;

-  GLUT_INIT_DISPLAY_MODE          = 504;

-  GLUT_ELAPSED_TIME               = 700;

-

-  // glutDeviceGet parameters.

-  GLUT_HAS_KEYBOARD               = 600;

-  GLUT_HAS_MOUSE                  = 601;

-  GLUT_HAS_SPACEBALL              = 602;

-  GLUT_HAS_DIAL_AND_BUTTON_BOX    = 603;

-  GLUT_HAS_TABLET                 = 604;

-  GLUT_NUM_MOUSE_BUTTONS          = 605;

-  GLUT_NUM_SPACEBALL_BUTTONS      = 606;

-  GLUT_NUM_BUTTON_BOX_BUTTONS     = 607;

-  GLUT_NUM_DIALS                  = 608;

-  GLUT_NUM_TABLET_BUTTONS         = 609;

-

-  // glutLayerGet parameters.

-  GLUT_OVERLAY_POSSIBLE           = 800;

-  GLUT_LAYER_IN_USE               = 801;

-  GLUT_HAS_OVERLAY                = 802;

-  GLUT_TRANSPARENT_INDEX          = 803;

-  GLUT_NORMAL_DAMAGED             = 804;

-  GLUT_OVERLAY_DAMAGED            = 805;

-

-  // glutVideoResizeGet parameters.

-  GLUT_VIDEO_RESIZE_POSSIBLE       = 900;

-  GLUT_VIDEO_RESIZE_IN_USE         = 901;

-  GLUT_VIDEO_RESIZE_X_DELTA        = 902;

-  GLUT_VIDEO_RESIZE_Y_DELTA        = 903;

-  GLUT_VIDEO_RESIZE_WIDTH_DELTA    = 904;

-  GLUT_VIDEO_RESIZE_HEIGHT_DELTA   = 905;

-  GLUT_VIDEO_RESIZE_X              = 906;

-  GLUT_VIDEO_RESIZE_Y              = 907;

-  GLUT_VIDEO_RESIZE_WIDTH          = 908;

-  GLUT_VIDEO_RESIZE_HEIGHT         = 909;

-

-  // glutGetModifiers return mask.

-  GLUT_ACTIVE_SHIFT                = 1;

-  GLUT_ACTIVE_CTRL                 = 2;

-  GLUT_ACTIVE_ALT                  = 4;

-

-  // glutSetCursor parameters.

-  // Basic arrows.

-  GLUT_CURSOR_RIGHT_ARROW          = 0;

-  GLUT_CURSOR_LEFT_ARROW           = 1;

-  // Symbolic cursor shapes.

-  GLUT_CURSOR_INFO                 = 2;

-  GLUT_CURSOR_DESTROY              = 3;

-  GLUT_CURSOR_HELP                 = 4;

-  GLUT_CURSOR_CYCLE                = 5;

-  GLUT_CURSOR_SPRAY                = 6;

-  GLUT_CURSOR_WAIT                 = 7;

-  GLUT_CURSOR_TEXT                 = 8;

-  GLUT_CURSOR_CROSSHAIR            = 9;

-  // Directional cursors.

-  GLUT_CURSOR_UP_DOWN              = 10;

-  GLUT_CURSOR_LEFT_RIGHT           = 11;

-  // Sizing cursors.

-  GLUT_CURSOR_TOP_SIDE             = 12;

-  GLUT_CURSOR_BOTTOM_SIDE          = 13;

-  GLUT_CURSOR_LEFT_SIDE            = 14;

-  GLUT_CURSOR_RIGHT_SIDE           = 15;

-  GLUT_CURSOR_TOP_LEFT_CORNER      = 16;

-  GLUT_CURSOR_TOP_RIGHT_CORNER     = 17;

-  GLUT_CURSOR_BOTTOM_RIGHT_CORNER  = 18;

-  GLUT_CURSOR_BOTTOM_LEFT_CORNER   = 19;

-  // Inherit from parent window.

-  GLUT_CURSOR_INHERIT              = 100;

-  // Blank cursor.

-  GLUT_CURSOR_NONE                 = 101;

-  // Fullscreen crosshair (if available).

-  GLUT_CURSOR_FULL_CROSSHAIR       = 102;

-

-  // GLUT game mode sub-API.

-  // glutGameModeGet.

-  GLUT_GAME_MODE_ACTIVE           = 0;

-  GLUT_GAME_MODE_POSSIBLE         = 1;

-  GLUT_GAME_MODE_WIDTH            = 2;

-  GLUT_GAME_MODE_HEIGHT           = 3;

-  GLUT_GAME_MODE_PIXEL_DEPTH      = 4;

-  GLUT_GAME_MODE_REFRESH_RATE     = 5;

-  GLUT_GAME_MODE_DISPLAY_CHANGED  = 6;

-

-var

-// GLUT initialization sub-API.

-  glutInit: procedure(argcp: PInteger; argv: PPChar); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutInitDisplayMode: procedure(mode: Word); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutInitDisplayString: procedure(const str: PChar); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutInitWindowPosition: procedure(x, y: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutInitWindowSize: procedure(width, height: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutMainLoop: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-

-// GLUT window sub-API.

-  glutCreateWindow: function(const title: PChar): Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutCreateSubWindow: function(win, x, y, width, height: Integer): Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutDestroyWindow: procedure(win: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutPostRedisplay: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutPostWindowRedisplay: procedure(win: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutSwapBuffers: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutGetWindow: function: Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutSetWindow: procedure(win: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutSetWindowTitle: procedure(const title: PChar); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutSetIconTitle: procedure(const title: PChar); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutPositionWindow: procedure(x, y: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutReshapeWindow: procedure(width, height: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutPopWindow: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutPushWindow: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutIconifyWindow: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutShowWindow: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutHideWindow: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutFullScreen: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutSetCursor: procedure(cursor: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutWarpPointer: procedure(x, y: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-

-// GLUT overlay sub-API.

-  glutEstablishOverlay: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutRemoveOverlay: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutUseLayer: procedure(layer: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutPostOverlayRedisplay: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutPostWindowOverlayRedisplay: procedure(win: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutShowOverlay: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutHideOverlay: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-

-// GLUT menu sub-API.

-  glutCreateMenu: function(callback: TGlut1IntCallback): Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutDestroyMenu: procedure(menu: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutGetMenu: function: Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutSetMenu: procedure(menu: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutAddMenuEntry: procedure(const caption: PChar; value: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutAddSubMenu: procedure(const caption: PChar; submenu: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutChangeToMenuEntry: procedure(item: Integer; const caption: PChar; value: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutChangeToSubMenu: procedure(item: Integer; const caption: PChar; submenu: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutRemoveMenuItem: procedure(item: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutAttachMenu: procedure(button: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutDetachMenu: procedure(button: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-

-// GLUTsub-API.

-  glutDisplayFunc: procedure(f: TGlutVoidCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutReshapeFunc: procedure(f: TGlut2IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutKeyboardFunc: procedure(f: TGlut1Char2IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutMouseFunc: procedure(f: TGlut4IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutMotionFunc: procedure(f: TGlut2IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutPassiveMotionFunc: procedure(f: TGlut2IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutEntryFunc: procedure(f: TGlut1IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutVisibilityFunc: procedure(f: TGlut1IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutIdleFunc: procedure(f: TGlutVoidCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutTimerFunc: procedure(millis: Word; f: TGlut1IntCallback; value: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutMenuStateFunc: procedure(f: TGlut1IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutSpecialFunc: procedure(f: TGlut3IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutSpaceballMotionFunc: procedure(f: TGlut3IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutSpaceballRotateFunc: procedure(f: TGlut3IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutSpaceballButtonFunc: procedure(f: TGlut2IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutButtonBoxFunc: procedure(f: TGlut2IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutDialsFunc: procedure(f: TGlut2IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutTabletMotionFunc: procedure(f: TGlut2IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutTabletButtonFunc: procedure(f: TGlut4IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutMenuStatusFunc: procedure(f: TGlut3IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutOverlayDisplayFunc: procedure(f:TGlutVoidCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutWindowStatusFunc: procedure(f: TGlut1IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-

-// GLUT color index sub-API.

-  glutSetColor: procedure(cell: Integer; red, green, blue: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutGetColor: function(ndx, component: Integer): GLfloat; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutCopyColormap: procedure(win: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-

-// GLUT state retrieval sub-API.

-  glutGet: function(t: GLenum): Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutDeviceGet: function(t: GLenum): Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-

-// GLUT extension support sub-API

-  glutExtensionSupported: function(const name: PChar): Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutGetModifiers: function: Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutLayerGet: function(t: GLenum): Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-

-// GLUT font sub-API

-  glutBitmapCharacter: procedure(font : pointer; character: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutBitmapWidth: function(font : pointer; character: Integer): Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutStrokeCharacter: procedure(font : pointer; character: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutStrokeWidth: function(font : pointer; character: Integer): Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutBitmapLength: function(font: pointer; const str: PChar): Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutStrokeLength: function(font: pointer; const str: PChar): Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-

-// GLUT pre-built models sub-API

-  glutWireSphere: procedure(radius: GLdouble; slices, stacks: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutSolidSphere: procedure(radius: GLdouble; slices, stacks: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutWireCone: procedure(base, height: GLdouble; slices, stacks: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutSolidCone: procedure(base, height: GLdouble; slices, stacks: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutWireCube: procedure(size: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutSolidCube: procedure(size: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutWireTorus: procedure(innerRadius, outerRadius: GLdouble; sides, rings: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutSolidTorus: procedure(innerRadius, outerRadius: GLdouble; sides, rings: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutWireDodecahedron: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutSolidDodecahedron: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutWireTeapot: procedure(size: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutSolidTeapot: procedure(size: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutWireOctahedron: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutSolidOctahedron: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutWireTetrahedron: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutSolidTetrahedron: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutWireIcosahedron: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutSolidIcosahedron: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-

-// GLUT video resize sub-API.

-  glutVideoResizeGet: function(param: GLenum): Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutSetupVideoResizing: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutStopVideoResizing: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutVideoResize: procedure(x, y, width, height: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutVideoPan: procedure(x, y, width, height: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-

-// GLUT debugging sub-API.

-  glutReportErrors: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-

-var

-  //example glutGameModeString('1280x1024:32@75');

-  glutGameModeString : procedure (const AString : PChar); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutEnterGameMode : function : integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutLeaveGameMode : procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}

-  glutGameModeGet : function (mode : GLenum) : integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF} 

-

-procedure LoadGlut(const dll: PChar);

-procedure FreeGlut;

-

-implementation

-

-var

-  LibGLUT : TModuleHandle;

-

-procedure FreeGlut;

-begin

-

-  UnLoadModule( LibGLUT );

-

-  @glutInit := nil;

-  @glutInitDisplayMode := nil;

-  @glutInitDisplayString := nil;

-  @glutInitWindowPosition := nil;

-  @glutInitWindowSize := nil;

-  @glutMainLoop := nil;

-  @glutCreateWindow := nil;

-  @glutCreateSubWindow := nil;

-  @glutDestroyWindow := nil;

-  @glutPostRedisplay := nil;

-  @glutPostWindowRedisplay := nil;

-  @glutSwapBuffers := nil;

-  @glutGetWindow := nil;

-  @glutSetWindow := nil;

-  @glutSetWindowTitle := nil;

-  @glutSetIconTitle := nil;

-  @glutPositionWindow := nil;

-  @glutReshapeWindow := nil;

-  @glutPopWindow := nil;

-  @glutPushWindow := nil;

-  @glutIconifyWindow := nil;

-  @glutShowWindow := nil;

-  @glutHideWindow := nil;

-  @glutFullScreen := nil;

-  @glutSetCursor := nil;

-  @glutWarpPointer := nil;

-  @glutEstablishOverlay := nil;

-  @glutRemoveOverlay := nil;

-  @glutUseLayer := nil;

-  @glutPostOverlayRedisplay := nil;

-  @glutPostWindowOverlayRedisplay := nil;

-  @glutShowOverlay := nil;

-  @glutHideOverlay := nil;

-  @glutCreateMenu := nil;

-  @glutDestroyMenu := nil;

-  @glutGetMenu := nil;

-  @glutSetMenu := nil;

-  @glutAddMenuEntry := nil;

-  @glutAddSubMenu := nil;

-  @glutChangeToMenuEntry := nil;

-  @glutChangeToSubMenu := nil;

-  @glutRemoveMenuItem := nil;

-  @glutAttachMenu := nil;

-  @glutDetachMenu := nil;

-  @glutDisplayFunc := nil;

-  @glutReshapeFunc := nil;

-  @glutKeyboardFunc := nil;

-  @glutMouseFunc := nil;

-  @glutMotionFunc := nil;

-  @glutPassiveMotionFunc := nil;

-  @glutEntryFunc := nil;

-  @glutVisibilityFunc := nil;

-  @glutIdleFunc := nil;

-  @glutTimerFunc := nil;

-  @glutMenuStateFunc := nil;

-  @glutSpecialFunc := nil;

-  @glutSpaceballMotionFunc := nil;

-  @glutSpaceballRotateFunc := nil;

-  @glutSpaceballButtonFunc := nil;

-  @glutButtonBoxFunc := nil;

-  @glutDialsFunc := nil;

-  @glutTabletMotionFunc := nil;

-  @glutTabletButtonFunc := nil;

-  @glutMenuStatusFunc := nil;

-  @glutOverlayDisplayFunc := nil;

-  @glutWindowStatusFunc := nil;

-  @glutSetColor := nil;

-  @glutGetColor := nil;

-  @glutCopyColormap := nil;

-  @glutGet := nil;

-  @glutDeviceGet := nil;

-  @glutExtensionSupported := nil;

-  @glutGetModifiers := nil;

-  @glutLayerGet := nil;

-  @glutBitmapCharacter := nil;

-  @glutBitmapWidth := nil;

-  @glutStrokeCharacter := nil;

-  @glutStrokeWidth := nil;

-  @glutBitmapLength := nil;

-  @glutStrokeLength := nil;

-  @glutWireSphere := nil;

-  @glutSolidSphere := nil;

-  @glutWireCone := nil;

-  @glutSolidCone := nil;

-  @glutWireCube := nil;

-  @glutSolidCube := nil;

-  @glutWireTorus := nil;

-  @glutSolidTorus := nil;

-  @glutWireDodecahedron := nil;

-  @glutSolidDodecahedron := nil;

-  @glutWireTeapot := nil;

-  @glutSolidTeapot := nil;

-  @glutWireOctahedron := nil;

-  @glutSolidOctahedron := nil;

-  @glutWireTetrahedron := nil;

-  @glutSolidTetrahedron := nil;

-  @glutWireIcosahedron := nil;

-  @glutSolidIcosahedron := nil;

-  @glutVideoResizeGet := nil;

-  @glutSetupVideoResizing := nil;

-  @glutStopVideoResizing := nil;

-  @glutVideoResize := nil;

-  @glutVideoPan := nil;

-  @glutReportErrors := nil;

-

-end;

-

-procedure LoadGlut(const dll: PChar);

-begin

-

-  FreeGlut;

-

-  if LoadModule( LibGLUT, dll ) then

-  begin

-    @glutInit := GetModuleSymbol(LibGLUT, 'glutInit');

-    @glutInitDisplayMode := GetModuleSymbol(LibGLUT, 'glutInitDisplayMode');

-    @glutInitDisplayString := GetModuleSymbol(LibGLUT, 'glutInitDisplayString');

-    @glutInitWindowPosition := GetModuleSymbol(LibGLUT, 'glutInitWindowPosition');

-    @glutInitWindowSize := GetModuleSymbol(LibGLUT, 'glutInitWindowSize');

-    @glutMainLoop := GetModuleSymbol(LibGLUT, 'glutMainLoop');

-    @glutCreateWindow := GetModuleSymbol(LibGLUT, 'glutCreateWindow');

-    @glutCreateSubWindow := GetModuleSymbol(LibGLUT, 'glutCreateSubWindow');

-    @glutDestroyWindow := GetModuleSymbol(LibGLUT, 'glutDestroyWindow');

-    @glutPostRedisplay := GetModuleSymbol(LibGLUT, 'glutPostRedisplay');

-    @glutPostWindowRedisplay := GetModuleSymbol(LibGLUT, 'glutPostWindowRedisplay');

-    @glutSwapBuffers := GetModuleSymbol(LibGLUT, 'glutSwapBuffers');

-    @glutGetWindow := GetModuleSymbol(LibGLUT, 'glutGetWindow');

-    @glutSetWindow := GetModuleSymbol(LibGLUT, 'glutSetWindow');

-    @glutSetWindowTitle := GetModuleSymbol(LibGLUT, 'glutSetWindowTitle');

-    @glutSetIconTitle := GetModuleSymbol(LibGLUT, 'glutSetIconTitle');

-    @glutPositionWindow := GetModuleSymbol(LibGLUT, 'glutPositionWindow');

-    @glutReshapeWindow := GetModuleSymbol(LibGLUT, 'glutReshapeWindow');

-    @glutPopWindow := GetModuleSymbol(LibGLUT, 'glutPopWindow');

-    @glutPushWindow := GetModuleSymbol(LibGLUT, 'glutPushWindow');

-    @glutIconifyWindow := GetModuleSymbol(LibGLUT, 'glutIconifyWindow');

-    @glutShowWindow := GetModuleSymbol(LibGLUT, 'glutShowWindow');

-    @glutHideWindow := GetModuleSymbol(LibGLUT, 'glutHideWindow');

-    @glutFullScreen := GetModuleSymbol(LibGLUT, 'glutFullScreen');

-    @glutSetCursor := GetModuleSymbol(LibGLUT, 'glutSetCursor');

-    @glutWarpPointer := GetModuleSymbol(LibGLUT, 'glutWarpPointer');

-    @glutEstablishOverlay := GetModuleSymbol(LibGLUT, 'glutEstablishOverlay');

-    @glutRemoveOverlay := GetModuleSymbol(LibGLUT, 'glutRemoveOverlay');

-    @glutUseLayer := GetModuleSymbol(LibGLUT, 'glutUseLayer');

-    @glutPostOverlayRedisplay := GetModuleSymbol(LibGLUT, 'glutPostOverlayRedisplay');

-    @glutPostWindowOverlayRedisplay := GetModuleSymbol(LibGLUT, 'glutPostWindowOverlayRedisplay');

-    @glutShowOverlay := GetModuleSymbol(LibGLUT, 'glutShowOverlay');

-    @glutHideOverlay := GetModuleSymbol(LibGLUT, 'glutHideOverlay');

-    @glutCreateMenu := GetModuleSymbol(LibGLUT, 'glutCreateMenu');

-    @glutDestroyMenu := GetModuleSymbol(LibGLUT, 'glutDestroyMenu');

-    @glutGetMenu := GetModuleSymbol(LibGLUT, 'glutGetMenu');

-    @glutSetMenu := GetModuleSymbol(LibGLUT, 'glutSetMenu');

-    @glutAddMenuEntry := GetModuleSymbol(LibGLUT, 'glutAddMenuEntry');

-    @glutAddSubMenu := GetModuleSymbol(LibGLUT, 'glutAddSubMenu');

-    @glutChangeToMenuEntry := GetModuleSymbol(LibGLUT, 'glutChangeToMenuEntry');

-    @glutChangeToSubMenu := GetModuleSymbol(LibGLUT, 'glutChangeToSubMenu');

-    @glutRemoveMenuItem := GetModuleSymbol(LibGLUT, 'glutRemoveMenuItem');

-    @glutAttachMenu := GetModuleSymbol(LibGLUT, 'glutAttachMenu');

-    @glutDetachMenu := GetModuleSymbol(LibGLUT, 'glutDetachMenu');

-    @glutDisplayFunc := GetModuleSymbol(LibGLUT, 'glutDisplayFunc');

-    @glutReshapeFunc := GetModuleSymbol(LibGLUT, 'glutReshapeFunc');

-    @glutKeyboardFunc := GetModuleSymbol(LibGLUT, 'glutKeyboardFunc');

-    @glutMouseFunc := GetModuleSymbol(LibGLUT, 'glutMouseFunc');

-    @glutMotionFunc := GetModuleSymbol(LibGLUT, 'glutMotionFunc');

-    @glutPassiveMotionFunc := GetModuleSymbol(LibGLUT, 'glutPassiveMotionFunc');

-    @glutEntryFunc := GetModuleSymbol(LibGLUT, 'glutEntryFunc');

-    @glutVisibilityFunc := GetModuleSymbol(LibGLUT, 'glutVisibilityFunc');

-    @glutIdleFunc := GetModuleSymbol(LibGLUT, 'glutIdleFunc');

-    @glutTimerFunc := GetModuleSymbol(LibGLUT, 'glutTimerFunc');

-    @glutMenuStateFunc := GetModuleSymbol(LibGLUT, 'glutMenuStateFunc');

-    @glutSpecialFunc := GetModuleSymbol(LibGLUT, 'glutSpecialFunc');

-    @glutSpaceballMotionFunc := GetModuleSymbol(LibGLUT, 'glutSpaceballMotionFunc');

-    @glutSpaceballRotateFunc := GetModuleSymbol(LibGLUT, 'glutSpaceballRotateFunc');

-    @glutSpaceballButtonFunc := GetModuleSymbol(LibGLUT, 'glutSpaceballButtonFunc');

-    @glutButtonBoxFunc := GetModuleSymbol(LibGLUT, 'glutButtonBoxFunc');

-    @glutDialsFunc := GetModuleSymbol(LibGLUT, 'glutDialsFunc');

-    @glutTabletMotionFunc := GetModuleSymbol(LibGLUT, 'glutTabletMotionFunc');

-    @glutTabletButtonFunc := GetModuleSymbol(LibGLUT, 'glutTabletButtonFunc');

-    @glutMenuStatusFunc := GetModuleSymbol(LibGLUT, 'glutMenuStatusFunc');

-    @glutOverlayDisplayFunc := GetModuleSymbol(LibGLUT, 'glutOverlayDisplayFunc');

-    @glutWindowStatusFunc := GetModuleSymbol(LibGLUT, 'glutWindowStatusFunc');

-    @glutSetColor := GetModuleSymbol(LibGLUT, 'glutSetColor');

-    @glutGetColor := GetModuleSymbol(LibGLUT, 'glutGetColor');

-    @glutCopyColormap := GetModuleSymbol(LibGLUT, 'glutCopyColormap');

-    @glutGet := GetModuleSymbol(LibGLUT, 'glutGet');

-    @glutDeviceGet := GetModuleSymbol(LibGLUT, 'glutDeviceGet');

-    @glutExtensionSupported := GetModuleSymbol(LibGLUT, 'glutExtensionSupported');

-    @glutGetModifiers := GetModuleSymbol(LibGLUT, 'glutGetModifiers');

-    @glutLayerGet := GetModuleSymbol(LibGLUT, 'glutLayerGet');

-    @glutBitmapCharacter := GetModuleSymbol(LibGLUT, 'glutBitmapCharacter');

-    @glutBitmapWidth := GetModuleSymbol(LibGLUT, 'glutBitmapWidth');

-    @glutStrokeCharacter := GetModuleSymbol(LibGLUT, 'glutStrokeCharacter');

-    @glutStrokeWidth := GetModuleSymbol(LibGLUT, 'glutStrokeWidth');

-    @glutBitmapLength := GetModuleSymbol(LibGLUT, 'glutBitmapLength');

-    @glutStrokeLength := GetModuleSymbol(LibGLUT, 'glutStrokeLength');

-    @glutWireSphere := GetModuleSymbol(LibGLUT, 'glutWireSphere');

-    @glutSolidSphere := GetModuleSymbol(LibGLUT, 'glutSolidSphere');

-    @glutWireCone := GetModuleSymbol(LibGLUT, 'glutWireCone');

-    @glutSolidCone := GetModuleSymbol(LibGLUT, 'glutSolidCone');

-    @glutWireCube := GetModuleSymbol(LibGLUT, 'glutWireCube');

-    @glutSolidCube := GetModuleSymbol(LibGLUT, 'glutSolidCube');

-    @glutWireTorus := GetModuleSymbol(LibGLUT, 'glutWireTorus');

-    @glutSolidTorus := GetModuleSymbol(LibGLUT, 'glutSolidTorus');

-    @glutWireDodecahedron := GetModuleSymbol(LibGLUT, 'glutWireDodecahedron');

-    @glutSolidDodecahedron := GetModuleSymbol(LibGLUT, 'glutSolidDodecahedron');

-    @glutWireTeapot := GetModuleSymbol(LibGLUT, 'glutWireTeapot');

-    @glutSolidTeapot := GetModuleSymbol(LibGLUT, 'glutSolidTeapot');

-    @glutWireOctahedron := GetModuleSymbol(LibGLUT, 'glutWireOctahedron');

-    @glutSolidOctahedron := GetModuleSymbol(LibGLUT, 'glutSolidOctahedron');

-    @glutWireTetrahedron := GetModuleSymbol(LibGLUT, 'glutWireTetrahedron');

-    @glutSolidTetrahedron := GetModuleSymbol(LibGLUT, 'glutSolidTetrahedron');

-    @glutWireIcosahedron := GetModuleSymbol(LibGLUT, 'glutWireIcosahedron');

-    @glutSolidIcosahedron := GetModuleSymbol(LibGLUT, 'glutSolidIcosahedron');

-    @glutVideoResizeGet := GetModuleSymbol(LibGLUT, 'glutVideoResizeGet');

-    @glutSetupVideoResizing := GetModuleSymbol(LibGLUT, 'glutSetupVideoResizing');

-    @glutStopVideoResizing := GetModuleSymbol(LibGLUT, 'glutStopVideoResizing');

-    @glutVideoResize := GetModuleSymbol(LibGLUT, 'glutVideoResize');

-    @glutVideoPan := GetModuleSymbol(LibGLUT, 'glutVideoPan');

-    @glutReportErrors := GetModuleSymbol(LibGLUT, 'glutReportErrors');

-    @glutGameModeString := GetModuleSymbol(LibGLUT, 'glutGameModeString');

-    @glutEnterGameMode  := GetModuleSymbol(LibGLUT, 'glutEnterGameMode');

-    @glutLeaveGameMode  := GetModuleSymbol(LibGLUT, 'glutLeaveGameMode');

-    @glutGameModeGet    := GetModuleSymbol(LibGLUT, 'glutGameModeGet');

-  end;

-end;

-

-initialization

-  LoadGlut( GlutLibName );

-

-finalization

-  FreeGlut;

-

-end.

+unit glut;
+{
+  $Id: glut.pas,v 1.4 2007/05/20 20:28:31 savage Exp $
+
+  Adaption of the delphi3d.net OpenGL units to FreePascal
+  Sebastian Guenther (sg@freepascal.org) in 2002
+  These units are free to use
+}
+
+// Copyright (c) Mark J. Kilgard, 1994, 1995, 1996. */
+
+(* This program is freely distributable without licensing fees  and is
+   provided without guarantee or warrantee expressed or  implied. This
+   program is -not- in the public domain. *)
+
+{******************************************************************************}
+{                                                                              }
+{ Converted to Delphi by Tom Nuydens (tom@delphi3d.net)                        }
+{ For the latest updates, visit Delphi3D: http://www.delphi3d.net              }
+{                                                                              }
+{ Modified for Delphi/Kylix and FreePascal                                     }
+{    by Dominique Louis ( Dominique@Savagesoftware.com.au)                     }
+{ For the latest updates, visit JEDI-SDL : http://www.sf.net/projects/jedi-sdl }
+{                                                                              }
+{******************************************************************************}
+
+{
+  $Log: glut.pas,v $
+  Revision 1.4  2007/05/20 20:28:31  savage
+  Initial Changes to Handle 64 Bits
+
+  Revision 1.3  2006/11/20 21:20:59  savage
+  Updated to work in MacOS X
+
+  Revision 1.2  2004/08/14 22:54:30  savage
+  Updated so that Library name defines are correctly defined for MacOS X.
+
+  Revision 1.1  2004/03/30 21:53:54  savage
+  Moved to it's own folder.
+
+  Revision 1.5  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.4  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.3  2004/02/14 00:23:39  savage
+  As UNIX is defined in jedi-sdl.inc this will be used to check linux compatability as well. Units have been changed to reflect this change.
+
+  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.4  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
+{$IFDEF __GPC__}
+  system,
+  gpc,
+{$ENDIF}
+
+{$IFDEF WINDOWS}
+  Windows,
+{$ENDIF}
+  moduleloader,
+  gl;
+
+type
+  {$IFNDEF __GPC__}
+  PInteger = ^Integer;
+  PPChar = ^PChar;
+  {$ENDIF}
+  TGlutVoidCallback = procedure; {$IFNDEF __GPC__}{$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}{$ENDIF}
+  TGlut1IntCallback = procedure(value: Integer); {$IFNDEF __GPC__}{$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}{$ENDIF}
+  TGlut2IntCallback = procedure(v1, v2: Integer); {$IFNDEF __GPC__}{$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}{$ENDIF}
+  TGlut3IntCallback = procedure(v1, v2, v3: Integer); {$IFNDEF __GPC__}{$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}{$ENDIF}
+  TGlut4IntCallback = procedure(v1, v2, v3, v4: Integer); {$IFNDEF __GPC__}{$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}{$ENDIF}
+  TGlut1Char2IntCallback = procedure(c: Byte; v1, v2: Integer); {$IFNDEF __GPC__}{$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}{$ENDIF}
+
+const
+{$IFDEF WINDOWS}
+  GlutLibName = 'glut32.dll';
+{$ENDIF}
+
+{$IFDEF UNIX}
+{$IFDEF DARWIN}
+  GlutLibName = '/System/Library/Frameworks/GLUT.framework/Libraries/libglut.dylib';
+{$ELSE}
+  GlutLibName = 'libglut.so';
+{$ENDIF}
+{$ENDIF}
+
+  GLUT_API_VERSION                = 3;
+  GLUT_XLIB_IMPLEMENTATION        = 12;
+  // Display mode bit masks.
+  GLUT_RGB                        = 0;
+  GLUT_RGBA                       = GLUT_RGB;
+  GLUT_INDEX                      = 1;
+  GLUT_SINGLE                     = 0;
+  GLUT_DOUBLE                     = 2;
+  GLUT_ACCUM                      = 4;
+  GLUT_ALPHA                      = 8;
+  GLUT_DEPTH                      = 16;
+  GLUT_STENCIL                    = 32;
+  GLUT_MULTISAMPLE                = 128;
+  GLUT_STEREO                     = 256;
+  GLUT_LUMINANCE                  = 512;
+
+  // Mouse buttons.
+  GLUT_LEFT_BUTTON                = 0;
+  GLUT_MIDDLE_BUTTON              = 1;
+  GLUT_RIGHT_BUTTON               = 2;
+
+  // Mouse button state.
+  GLUT_DOWN                       = 0;
+  GLUT_UP                         = 1;
+
+  // function keys
+  GLUT_KEY_F1                     = 1;
+  GLUT_KEY_F2                     = 2;
+  GLUT_KEY_F3                     = 3;
+  GLUT_KEY_F4                     = 4;
+  GLUT_KEY_F5                     = 5;
+  GLUT_KEY_F6                     = 6;
+  GLUT_KEY_F7                     = 7;
+  GLUT_KEY_F8                     = 8;
+  GLUT_KEY_F9                     = 9;
+  GLUT_KEY_F10                    = 10;
+  GLUT_KEY_F11                    = 11;
+  GLUT_KEY_F12                    = 12;
+  // directional keys
+  GLUT_KEY_LEFT                   = 100;
+  GLUT_KEY_UP                     = 101;
+  GLUT_KEY_RIGHT                  = 102;
+  GLUT_KEY_DOWN                   = 103;
+  GLUT_KEY_PAGE_UP                = 104;
+  GLUT_KEY_PAGE_DOWN              = 105;
+  GLUT_KEY_HOME                   = 106;
+  GLUT_KEY_END                    = 107;
+  GLUT_KEY_INSERT                 = 108;
+
+  // Entry/exit  state.
+  GLUT_LEFT                       = 0;
+  GLUT_ENTERED                    = 1;
+
+  // Menu usage state.
+  GLUT_MENU_NOT_IN_USE            = 0;
+  GLUT_MENU_IN_USE                = 1;
+
+  // Visibility  state.
+  GLUT_NOT_VISIBLE                = 0;
+  GLUT_VISIBLE                    = 1;
+
+  // Window status  state.
+  GLUT_HIDDEN                     = 0;
+  GLUT_FULLY_RETAINED             = 1;
+  GLUT_PARTIALLY_RETAINED         = 2;
+  GLUT_FULLY_COVERED              = 3;
+
+  // Color index component selection values.
+  GLUT_RED                        = 0;
+  GLUT_GREEN                      = 1;
+  GLUT_BLUE                       = 2;
+
+  // Layers for use.
+  GLUT_NORMAL                     = 0;
+  GLUT_OVERLAY                    = 1;
+
+  // Stroke font constants (use these in GLUT program).
+  GLUT_STROKE_ROMAN		  = Pointer(0);
+  GLUT_STROKE_MONO_ROMAN	  = Pointer(1);
+
+  // Bitmap font constants (use these in GLUT program).
+  GLUT_BITMAP_9_BY_15		  = Pointer(2);
+  GLUT_BITMAP_8_BY_13		  = Pointer(3);
+  GLUT_BITMAP_TIMES_ROMAN_10	  = Pointer(4);
+  GLUT_BITMAP_TIMES_ROMAN_24	  = Pointer(5);
+  GLUT_BITMAP_HELVETICA_10	  = Pointer(6);
+  GLUT_BITMAP_HELVETICA_12	  = Pointer(7);
+  GLUT_BITMAP_HELVETICA_18	  = Pointer(8);
+
+  // glutGet parameters.
+  GLUT_WINDOW_X                   = 100;
+  GLUT_WINDOW_Y                   = 101;
+  GLUT_WINDOW_WIDTH               = 102;
+  GLUT_WINDOW_HEIGHT              = 103;
+  GLUT_WINDOW_BUFFER_SIZE         = 104;
+  GLUT_WINDOW_STENCIL_SIZE        = 105;
+  GLUT_WINDOW_DEPTH_SIZE          = 106;
+  GLUT_WINDOW_RED_SIZE            = 107;
+  GLUT_WINDOW_GREEN_SIZE          = 108;
+  GLUT_WINDOW_BLUE_SIZE           = 109;
+  GLUT_WINDOW_ALPHA_SIZE          = 110;
+  GLUT_WINDOW_ACCUM_RED_SIZE      = 111;
+  GLUT_WINDOW_ACCUM_GREEN_SIZE    = 112;
+  GLUT_WINDOW_ACCUM_BLUE_SIZE     = 113;
+  GLUT_WINDOW_ACCUM_ALPHA_SIZE    = 114;
+  GLUT_WINDOW_DOUBLEBUFFER        = 115;
+  GLUT_WINDOW_RGBA                = 116;
+  GLUT_WINDOW_PARENT              = 117;
+  GLUT_WINDOW_NUM_CHILDREN        = 118;
+  GLUT_WINDOW_COLORMAP_SIZE       = 119;
+  GLUT_WINDOW_NUM_SAMPLES         = 120;
+  GLUT_WINDOW_STEREO              = 121;
+  GLUT_WINDOW_CURSOR              = 122;
+  GLUT_SCREEN_WIDTH               = 200;
+  GLUT_SCREEN_HEIGHT              = 201;
+  GLUT_SCREEN_WIDTH_MM            = 202;
+  GLUT_SCREEN_HEIGHT_MM           = 203;
+  GLUT_MENU_NUM_ITEMS             = 300;
+  GLUT_DISPLAY_MODE_POSSIBLE      = 400;
+  GLUT_INIT_WINDOW_X              = 500;
+  GLUT_INIT_WINDOW_Y              = 501;
+  GLUT_INIT_WINDOW_WIDTH          = 502;
+  GLUT_INIT_WINDOW_HEIGHT         = 503;
+  GLUT_INIT_DISPLAY_MODE          = 504;
+  GLUT_ELAPSED_TIME               = 700;
+
+  // glutDeviceGet parameters.
+  GLUT_HAS_KEYBOARD               = 600;
+  GLUT_HAS_MOUSE                  = 601;
+  GLUT_HAS_SPACEBALL              = 602;
+  GLUT_HAS_DIAL_AND_BUTTON_BOX    = 603;
+  GLUT_HAS_TABLET                 = 604;
+  GLUT_NUM_MOUSE_BUTTONS          = 605;
+  GLUT_NUM_SPACEBALL_BUTTONS      = 606;
+  GLUT_NUM_BUTTON_BOX_BUTTONS     = 607;
+  GLUT_NUM_DIALS                  = 608;
+  GLUT_NUM_TABLET_BUTTONS         = 609;
+
+  // glutLayerGet parameters.
+  GLUT_OVERLAY_POSSIBLE           = 800;
+  GLUT_LAYER_IN_USE               = 801;
+  GLUT_HAS_OVERLAY                = 802;
+  GLUT_TRANSPARENT_INDEX          = 803;
+  GLUT_NORMAL_DAMAGED             = 804;
+  GLUT_OVERLAY_DAMAGED            = 805;
+
+  // glutVideoResizeGet parameters.
+  GLUT_VIDEO_RESIZE_POSSIBLE       = 900;
+  GLUT_VIDEO_RESIZE_IN_USE         = 901;
+  GLUT_VIDEO_RESIZE_X_DELTA        = 902;
+  GLUT_VIDEO_RESIZE_Y_DELTA        = 903;
+  GLUT_VIDEO_RESIZE_WIDTH_DELTA    = 904;
+  GLUT_VIDEO_RESIZE_HEIGHT_DELTA   = 905;
+  GLUT_VIDEO_RESIZE_X              = 906;
+  GLUT_VIDEO_RESIZE_Y              = 907;
+  GLUT_VIDEO_RESIZE_WIDTH          = 908;
+  GLUT_VIDEO_RESIZE_HEIGHT         = 909;
+
+  // glutGetModifiers return mask.
+  GLUT_ACTIVE_SHIFT                = 1;
+  GLUT_ACTIVE_CTRL                 = 2;
+  GLUT_ACTIVE_ALT                  = 4;
+
+  // glutSetCursor parameters.
+  // Basic arrows.
+  GLUT_CURSOR_RIGHT_ARROW          = 0;
+  GLUT_CURSOR_LEFT_ARROW           = 1;
+  // Symbolic cursor shapes.
+  GLUT_CURSOR_INFO                 = 2;
+  GLUT_CURSOR_DESTROY              = 3;
+  GLUT_CURSOR_HELP                 = 4;
+  GLUT_CURSOR_CYCLE                = 5;
+  GLUT_CURSOR_SPRAY                = 6;
+  GLUT_CURSOR_WAIT                 = 7;
+  GLUT_CURSOR_TEXT                 = 8;
+  GLUT_CURSOR_CROSSHAIR            = 9;
+  // Directional cursors.
+  GLUT_CURSOR_UP_DOWN              = 10;
+  GLUT_CURSOR_LEFT_RIGHT           = 11;
+  // Sizing cursors.
+  GLUT_CURSOR_TOP_SIDE             = 12;
+  GLUT_CURSOR_BOTTOM_SIDE          = 13;
+  GLUT_CURSOR_LEFT_SIDE            = 14;
+  GLUT_CURSOR_RIGHT_SIDE           = 15;
+  GLUT_CURSOR_TOP_LEFT_CORNER      = 16;
+  GLUT_CURSOR_TOP_RIGHT_CORNER     = 17;
+  GLUT_CURSOR_BOTTOM_RIGHT_CORNER  = 18;
+  GLUT_CURSOR_BOTTOM_LEFT_CORNER   = 19;
+  // Inherit from parent window.
+  GLUT_CURSOR_INHERIT              = 100;
+  // Blank cursor.
+  GLUT_CURSOR_NONE                 = 101;
+  // Fullscreen crosshair (if available).
+  GLUT_CURSOR_FULL_CROSSHAIR       = 102;
+
+  // GLUT game mode sub-API.
+  // glutGameModeGet.
+  GLUT_GAME_MODE_ACTIVE           = 0;
+  GLUT_GAME_MODE_POSSIBLE         = 1;
+  GLUT_GAME_MODE_WIDTH            = 2;
+  GLUT_GAME_MODE_HEIGHT           = 3;
+  GLUT_GAME_MODE_PIXEL_DEPTH      = 4;
+  GLUT_GAME_MODE_REFRESH_RATE     = 5;
+  GLUT_GAME_MODE_DISPLAY_CHANGED  = 6;
+
+var
+// GLUT initialization sub-API.
+  glutInit: procedure(argcp: PInteger; argv: PPChar); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutInitDisplayMode: procedure(mode: Word); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutInitDisplayString: procedure(const str: PChar); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutInitWindowPosition: procedure(x, y: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutInitWindowSize: procedure(width, height: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutMainLoop: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+
+// GLUT window sub-API.
+  glutCreateWindow: function(const title: PChar): Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutCreateSubWindow: function(win, x, y, width, height: Integer): Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutDestroyWindow: procedure(win: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutPostRedisplay: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutPostWindowRedisplay: procedure(win: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutSwapBuffers: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutGetWindow: function: Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutSetWindow: procedure(win: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutSetWindowTitle: procedure(const title: PChar); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutSetIconTitle: procedure(const title: PChar); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutPositionWindow: procedure(x, y: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutReshapeWindow: procedure(width, height: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutPopWindow: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutPushWindow: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutIconifyWindow: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutShowWindow: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutHideWindow: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutFullScreen: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutSetCursor: procedure(cursor: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutWarpPointer: procedure(x, y: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+
+// GLUT overlay sub-API.
+  glutEstablishOverlay: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutRemoveOverlay: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutUseLayer: procedure(layer: GLenum); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutPostOverlayRedisplay: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutPostWindowOverlayRedisplay: procedure(win: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutShowOverlay: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutHideOverlay: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+
+// GLUT menu sub-API.
+  glutCreateMenu: function(callback: TGlut1IntCallback): Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutDestroyMenu: procedure(menu: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutGetMenu: function: Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutSetMenu: procedure(menu: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutAddMenuEntry: procedure(const caption: PChar; value: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutAddSubMenu: procedure(const caption: PChar; submenu: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutChangeToMenuEntry: procedure(item: Integer; const caption: PChar; value: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutChangeToSubMenu: procedure(item: Integer; const caption: PChar; submenu: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutRemoveMenuItem: procedure(item: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutAttachMenu: procedure(button: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutDetachMenu: procedure(button: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+
+// GLUTsub-API.
+  glutDisplayFunc: procedure(f: TGlutVoidCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutReshapeFunc: procedure(f: TGlut2IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutKeyboardFunc: procedure(f: TGlut1Char2IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutMouseFunc: procedure(f: TGlut4IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutMotionFunc: procedure(f: TGlut2IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutPassiveMotionFunc: procedure(f: TGlut2IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutEntryFunc: procedure(f: TGlut1IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutVisibilityFunc: procedure(f: TGlut1IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutIdleFunc: procedure(f: TGlutVoidCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutTimerFunc: procedure(millis: Word; f: TGlut1IntCallback; value: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutMenuStateFunc: procedure(f: TGlut1IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutSpecialFunc: procedure(f: TGlut3IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutSpaceballMotionFunc: procedure(f: TGlut3IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutSpaceballRotateFunc: procedure(f: TGlut3IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutSpaceballButtonFunc: procedure(f: TGlut2IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutButtonBoxFunc: procedure(f: TGlut2IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutDialsFunc: procedure(f: TGlut2IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutTabletMotionFunc: procedure(f: TGlut2IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutTabletButtonFunc: procedure(f: TGlut4IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutMenuStatusFunc: procedure(f: TGlut3IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutOverlayDisplayFunc: procedure(f:TGlutVoidCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutWindowStatusFunc: procedure(f: TGlut1IntCallback); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+
+// GLUT color index sub-API.
+  glutSetColor: procedure(cell: Integer; red, green, blue: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutGetColor: function(ndx, component: Integer): GLfloat; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutCopyColormap: procedure(win: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+
+// GLUT state retrieval sub-API.
+  glutGet: function(t: GLenum): Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutDeviceGet: function(t: GLenum): Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+
+// GLUT extension support sub-API
+  glutExtensionSupported: function(const name: PChar): Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutGetModifiers: function: Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutLayerGet: function(t: GLenum): Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+
+// GLUT font sub-API
+  glutBitmapCharacter: procedure(font : pointer; character: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutBitmapWidth: function(font : pointer; character: Integer): Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutStrokeCharacter: procedure(font : pointer; character: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutStrokeWidth: function(font : pointer; character: Integer): Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutBitmapLength: function(font: pointer; const str: PChar): Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutStrokeLength: function(font: pointer; const str: PChar): Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+
+// GLUT pre-built models sub-API
+  glutWireSphere: procedure(radius: GLdouble; slices, stacks: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutSolidSphere: procedure(radius: GLdouble; slices, stacks: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutWireCone: procedure(base, height: GLdouble; slices, stacks: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutSolidCone: procedure(base, height: GLdouble; slices, stacks: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutWireCube: procedure(size: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutSolidCube: procedure(size: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutWireTorus: procedure(innerRadius, outerRadius: GLdouble; sides, rings: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutSolidTorus: procedure(innerRadius, outerRadius: GLdouble; sides, rings: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutWireDodecahedron: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutSolidDodecahedron: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutWireTeapot: procedure(size: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutSolidTeapot: procedure(size: GLdouble); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutWireOctahedron: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutSolidOctahedron: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutWireTetrahedron: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutSolidTetrahedron: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutWireIcosahedron: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutSolidIcosahedron: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+
+// GLUT video resize sub-API.
+  glutVideoResizeGet: function(param: GLenum): Integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutSetupVideoResizing: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutStopVideoResizing: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutVideoResize: procedure(x, y, width, height: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutVideoPan: procedure(x, y, width, height: Integer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+
+// GLUT debugging sub-API.
+  glutReportErrors: procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+
+var
+  //example glutGameModeString('1280x1024:32@75');
+  glutGameModeString : procedure (const AString : PChar); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutEnterGameMode : function : integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutLeaveGameMode : procedure; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF}
+  glutGameModeGet : function (mode : GLenum) : integer; {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF} 
+
+procedure LoadGlut(const dll: PChar);
+procedure FreeGlut;
+
+implementation
+
+var
+  LibGLUT : TModuleHandle;
+
+procedure FreeGlut;
+begin
+
+  UnLoadModule( LibGLUT );
+
+  @glutInit := nil;
+  @glutInitDisplayMode := nil;
+  @glutInitDisplayString := nil;
+  @glutInitWindowPosition := nil;
+  @glutInitWindowSize := nil;
+  @glutMainLoop := nil;
+  @glutCreateWindow := nil;
+  @glutCreateSubWindow := nil;
+  @glutDestroyWindow := nil;
+  @glutPostRedisplay := nil;
+  @glutPostWindowRedisplay := nil;
+  @glutSwapBuffers := nil;
+  @glutGetWindow := nil;
+  @glutSetWindow := nil;
+  @glutSetWindowTitle := nil;
+  @glutSetIconTitle := nil;
+  @glutPositionWindow := nil;
+  @glutReshapeWindow := nil;
+  @glutPopWindow := nil;
+  @glutPushWindow := nil;
+  @glutIconifyWindow := nil;
+  @glutShowWindow := nil;
+  @glutHideWindow := nil;
+  @glutFullScreen := nil;
+  @glutSetCursor := nil;
+  @glutWarpPointer := nil;
+  @glutEstablishOverlay := nil;
+  @glutRemoveOverlay := nil;
+  @glutUseLayer := nil;
+  @glutPostOverlayRedisplay := nil;
+  @glutPostWindowOverlayRedisplay := nil;
+  @glutShowOverlay := nil;
+  @glutHideOverlay := nil;
+  @glutCreateMenu := nil;
+  @glutDestroyMenu := nil;
+  @glutGetMenu := nil;
+  @glutSetMenu := nil;
+  @glutAddMenuEntry := nil;
+  @glutAddSubMenu := nil;
+  @glutChangeToMenuEntry := nil;
+  @glutChangeToSubMenu := nil;
+  @glutRemoveMenuItem := nil;
+  @glutAttachMenu := nil;
+  @glutDetachMenu := nil;
+  @glutDisplayFunc := nil;
+  @glutReshapeFunc := nil;
+  @glutKeyboardFunc := nil;
+  @glutMouseFunc := nil;
+  @glutMotionFunc := nil;
+  @glutPassiveMotionFunc := nil;
+  @glutEntryFunc := nil;
+  @glutVisibilityFunc := nil;
+  @glutIdleFunc := nil;
+  @glutTimerFunc := nil;
+  @glutMenuStateFunc := nil;
+  @glutSpecialFunc := nil;
+  @glutSpaceballMotionFunc := nil;
+  @glutSpaceballRotateFunc := nil;
+  @glutSpaceballButtonFunc := nil;
+  @glutButtonBoxFunc := nil;
+  @glutDialsFunc := nil;
+  @glutTabletMotionFunc := nil;
+  @glutTabletButtonFunc := nil;
+  @glutMenuStatusFunc := nil;
+  @glutOverlayDisplayFunc := nil;
+  @glutWindowStatusFunc := nil;
+  @glutSetColor := nil;
+  @glutGetColor := nil;
+  @glutCopyColormap := nil;
+  @glutGet := nil;
+  @glutDeviceGet := nil;
+  @glutExtensionSupported := nil;
+  @glutGetModifiers := nil;
+  @glutLayerGet := nil;
+  @glutBitmapCharacter := nil;
+  @glutBitmapWidth := nil;
+  @glutStrokeCharacter := nil;
+  @glutStrokeWidth := nil;
+  @glutBitmapLength := nil;
+  @glutStrokeLength := nil;
+  @glutWireSphere := nil;
+  @glutSolidSphere := nil;
+  @glutWireCone := nil;
+  @glutSolidCone := nil;
+  @glutWireCube := nil;
+  @glutSolidCube := nil;
+  @glutWireTorus := nil;
+  @glutSolidTorus := nil;
+  @glutWireDodecahedron := nil;
+  @glutSolidDodecahedron := nil;
+  @glutWireTeapot := nil;
+  @glutSolidTeapot := nil;
+  @glutWireOctahedron := nil;
+  @glutSolidOctahedron := nil;
+  @glutWireTetrahedron := nil;
+  @glutSolidTetrahedron := nil;
+  @glutWireIcosahedron := nil;
+  @glutSolidIcosahedron := nil;
+  @glutVideoResizeGet := nil;
+  @glutSetupVideoResizing := nil;
+  @glutStopVideoResizing := nil;
+  @glutVideoResize := nil;
+  @glutVideoPan := nil;
+  @glutReportErrors := nil;
+
+end;
+
+procedure LoadGlut(const dll: PChar);
+begin
+
+  FreeGlut;
+
+  if LoadModule( LibGLUT, dll ) then
+  begin
+    @glutInit := GetModuleSymbol(LibGLUT, 'glutInit');
+    @glutInitDisplayMode := GetModuleSymbol(LibGLUT, 'glutInitDisplayMode');
+    @glutInitDisplayString := GetModuleSymbol(LibGLUT, 'glutInitDisplayString');
+    @glutInitWindowPosition := GetModuleSymbol(LibGLUT, 'glutInitWindowPosition');
+    @glutInitWindowSize := GetModuleSymbol(LibGLUT, 'glutInitWindowSize');
+    @glutMainLoop := GetModuleSymbol(LibGLUT, 'glutMainLoop');
+    @glutCreateWindow := GetModuleSymbol(LibGLUT, 'glutCreateWindow');
+    @glutCreateSubWindow := GetModuleSymbol(LibGLUT, 'glutCreateSubWindow');
+    @glutDestroyWindow := GetModuleSymbol(LibGLUT, 'glutDestroyWindow');
+    @glutPostRedisplay := GetModuleSymbol(LibGLUT, 'glutPostRedisplay');
+    @glutPostWindowRedisplay := GetModuleSymbol(LibGLUT, 'glutPostWindowRedisplay');
+    @glutSwapBuffers := GetModuleSymbol(LibGLUT, 'glutSwapBuffers');
+    @glutGetWindow := GetModuleSymbol(LibGLUT, 'glutGetWindow');
+    @glutSetWindow := GetModuleSymbol(LibGLUT, 'glutSetWindow');
+    @glutSetWindowTitle := GetModuleSymbol(LibGLUT, 'glutSetWindowTitle');
+    @glutSetIconTitle := GetModuleSymbol(LibGLUT, 'glutSetIconTitle');
+    @glutPositionWindow := GetModuleSymbol(LibGLUT, 'glutPositionWindow');
+    @glutReshapeWindow := GetModuleSymbol(LibGLUT, 'glutReshapeWindow');
+    @glutPopWindow := GetModuleSymbol(LibGLUT, 'glutPopWindow');
+    @glutPushWindow := GetModuleSymbol(LibGLUT, 'glutPushWindow');
+    @glutIconifyWindow := GetModuleSymbol(LibGLUT, 'glutIconifyWindow');
+    @glutShowWindow := GetModuleSymbol(LibGLUT, 'glutShowWindow');
+    @glutHideWindow := GetModuleSymbol(LibGLUT, 'glutHideWindow');
+    @glutFullScreen := GetModuleSymbol(LibGLUT, 'glutFullScreen');
+    @glutSetCursor := GetModuleSymbol(LibGLUT, 'glutSetCursor');
+    @glutWarpPointer := GetModuleSymbol(LibGLUT, 'glutWarpPointer');
+    @glutEstablishOverlay := GetModuleSymbol(LibGLUT, 'glutEstablishOverlay');
+    @glutRemoveOverlay := GetModuleSymbol(LibGLUT, 'glutRemoveOverlay');
+    @glutUseLayer := GetModuleSymbol(LibGLUT, 'glutUseLayer');
+    @glutPostOverlayRedisplay := GetModuleSymbol(LibGLUT, 'glutPostOverlayRedisplay');
+    @glutPostWindowOverlayRedisplay := GetModuleSymbol(LibGLUT, 'glutPostWindowOverlayRedisplay');
+    @glutShowOverlay := GetModuleSymbol(LibGLUT, 'glutShowOverlay');
+    @glutHideOverlay := GetModuleSymbol(LibGLUT, 'glutHideOverlay');
+    @glutCreateMenu := GetModuleSymbol(LibGLUT, 'glutCreateMenu');
+    @glutDestroyMenu := GetModuleSymbol(LibGLUT, 'glutDestroyMenu');
+    @glutGetMenu := GetModuleSymbol(LibGLUT, 'glutGetMenu');
+    @glutSetMenu := GetModuleSymbol(LibGLUT, 'glutSetMenu');
+    @glutAddMenuEntry := GetModuleSymbol(LibGLUT, 'glutAddMenuEntry');
+    @glutAddSubMenu := GetModuleSymbol(LibGLUT, 'glutAddSubMenu');
+    @glutChangeToMenuEntry := GetModuleSymbol(LibGLUT, 'glutChangeToMenuEntry');
+    @glutChangeToSubMenu := GetModuleSymbol(LibGLUT, 'glutChangeToSubMenu');
+    @glutRemoveMenuItem := GetModuleSymbol(LibGLUT, 'glutRemoveMenuItem');
+    @glutAttachMenu := GetModuleSymbol(LibGLUT, 'glutAttachMenu');
+    @glutDetachMenu := GetModuleSymbol(LibGLUT, 'glutDetachMenu');
+    @glutDisplayFunc := GetModuleSymbol(LibGLUT, 'glutDisplayFunc');
+    @glutReshapeFunc := GetModuleSymbol(LibGLUT, 'glutReshapeFunc');
+    @glutKeyboardFunc := GetModuleSymbol(LibGLUT, 'glutKeyboardFunc');
+    @glutMouseFunc := GetModuleSymbol(LibGLUT, 'glutMouseFunc');
+    @glutMotionFunc := GetModuleSymbol(LibGLUT, 'glutMotionFunc');
+    @glutPassiveMotionFunc := GetModuleSymbol(LibGLUT, 'glutPassiveMotionFunc');
+    @glutEntryFunc := GetModuleSymbol(LibGLUT, 'glutEntryFunc');
+    @glutVisibilityFunc := GetModuleSymbol(LibGLUT, 'glutVisibilityFunc');
+    @glutIdleFunc := GetModuleSymbol(LibGLUT, 'glutIdleFunc');
+    @glutTimerFunc := GetModuleSymbol(LibGLUT, 'glutTimerFunc');
+    @glutMenuStateFunc := GetModuleSymbol(LibGLUT, 'glutMenuStateFunc');
+    @glutSpecialFunc := GetModuleSymbol(LibGLUT, 'glutSpecialFunc');
+    @glutSpaceballMotionFunc := GetModuleSymbol(LibGLUT, 'glutSpaceballMotionFunc');
+    @glutSpaceballRotateFunc := GetModuleSymbol(LibGLUT, 'glutSpaceballRotateFunc');
+    @glutSpaceballButtonFunc := GetModuleSymbol(LibGLUT, 'glutSpaceballButtonFunc');
+    @glutButtonBoxFunc := GetModuleSymbol(LibGLUT, 'glutButtonBoxFunc');
+    @glutDialsFunc := GetModuleSymbol(LibGLUT, 'glutDialsFunc');
+    @glutTabletMotionFunc := GetModuleSymbol(LibGLUT, 'glutTabletMotionFunc');
+    @glutTabletButtonFunc := GetModuleSymbol(LibGLUT, 'glutTabletButtonFunc');
+    @glutMenuStatusFunc := GetModuleSymbol(LibGLUT, 'glutMenuStatusFunc');
+    @glutOverlayDisplayFunc := GetModuleSymbol(LibGLUT, 'glutOverlayDisplayFunc');
+    @glutWindowStatusFunc := GetModuleSymbol(LibGLUT, 'glutWindowStatusFunc');
+    @glutSetColor := GetModuleSymbol(LibGLUT, 'glutSetColor');
+    @glutGetColor := GetModuleSymbol(LibGLUT, 'glutGetColor');
+    @glutCopyColormap := GetModuleSymbol(LibGLUT, 'glutCopyColormap');
+    @glutGet := GetModuleSymbol(LibGLUT, 'glutGet');
+    @glutDeviceGet := GetModuleSymbol(LibGLUT, 'glutDeviceGet');
+    @glutExtensionSupported := GetModuleSymbol(LibGLUT, 'glutExtensionSupported');
+    @glutGetModifiers := GetModuleSymbol(LibGLUT, 'glutGetModifiers');
+    @glutLayerGet := GetModuleSymbol(LibGLUT, 'glutLayerGet');
+    @glutBitmapCharacter := GetModuleSymbol(LibGLUT, 'glutBitmapCharacter');
+    @glutBitmapWidth := GetModuleSymbol(LibGLUT, 'glutBitmapWidth');
+    @glutStrokeCharacter := GetModuleSymbol(LibGLUT, 'glutStrokeCharacter');
+    @glutStrokeWidth := GetModuleSymbol(LibGLUT, 'glutStrokeWidth');
+    @glutBitmapLength := GetModuleSymbol(LibGLUT, 'glutBitmapLength');
+    @glutStrokeLength := GetModuleSymbol(LibGLUT, 'glutStrokeLength');
+    @glutWireSphere := GetModuleSymbol(LibGLUT, 'glutWireSphere');
+    @glutSolidSphere := GetModuleSymbol(LibGLUT, 'glutSolidSphere');
+    @glutWireCone := GetModuleSymbol(LibGLUT, 'glutWireCone');
+    @glutSolidCone := GetModuleSymbol(LibGLUT, 'glutSolidCone');
+    @glutWireCube := GetModuleSymbol(LibGLUT, 'glutWireCube');
+    @glutSolidCube := GetModuleSymbol(LibGLUT, 'glutSolidCube');
+    @glutWireTorus := GetModuleSymbol(LibGLUT, 'glutWireTorus');
+    @glutSolidTorus := GetModuleSymbol(LibGLUT, 'glutSolidTorus');
+    @glutWireDodecahedron := GetModuleSymbol(LibGLUT, 'glutWireDodecahedron');
+    @glutSolidDodecahedron := GetModuleSymbol(LibGLUT, 'glutSolidDodecahedron');
+    @glutWireTeapot := GetModuleSymbol(LibGLUT, 'glutWireTeapot');
+    @glutSolidTeapot := GetModuleSymbol(LibGLUT, 'glutSolidTeapot');
+    @glutWireOctahedron := GetModuleSymbol(LibGLUT, 'glutWireOctahedron');
+    @glutSolidOctahedron := GetModuleSymbol(LibGLUT, 'glutSolidOctahedron');
+    @glutWireTetrahedron := GetModuleSymbol(LibGLUT, 'glutWireTetrahedron');
+    @glutSolidTetrahedron := GetModuleSymbol(LibGLUT, 'glutSolidTetrahedron');
+    @glutWireIcosahedron := GetModuleSymbol(LibGLUT, 'glutWireIcosahedron');
+    @glutSolidIcosahedron := GetModuleSymbol(LibGLUT, 'glutSolidIcosahedron');
+    @glutVideoResizeGet := GetModuleSymbol(LibGLUT, 'glutVideoResizeGet');
+    @glutSetupVideoResizing := GetModuleSymbol(LibGLUT, 'glutSetupVideoResizing');
+    @glutStopVideoResizing := GetModuleSymbol(LibGLUT, 'glutStopVideoResizing');
+    @glutVideoResize := GetModuleSymbol(LibGLUT, 'glutVideoResize');
+    @glutVideoPan := GetModuleSymbol(LibGLUT, 'glutVideoPan');
+    @glutReportErrors := GetModuleSymbol(LibGLUT, 'glutReportErrors');
+    @glutGameModeString := GetModuleSymbol(LibGLUT, 'glutGameModeString');
+    @glutEnterGameMode  := GetModuleSymbol(LibGLUT, 'glutEnterGameMode');
+    @glutLeaveGameMode  := GetModuleSymbol(LibGLUT, 'glutLeaveGameMode');
+    @glutGameModeGet    := GetModuleSymbol(LibGLUT, 'glutGameModeGet');
+  end;
+end;
+
+initialization
+  LoadGlut( GlutLibName );
+
+finalization
+  FreeGlut;
+
+end.
diff --git a/Game/Code/lib/JEDI-SDL/OpenGL/Pas/glx.pas b/Game/Code/lib/JEDI-SDL/OpenGL/Pas/glx.pas
index 125e3e39..f43a4e4c 100644
--- a/Game/Code/lib/JEDI-SDL/OpenGL/Pas/glx.pas
+++ b/Game/Code/lib/JEDI-SDL/OpenGL/Pas/glx.pas
@@ -1,280 +1,280 @@
-unit glx;

-{

-  $Id: glx.pas,v 1.3 2006/11/20 21:20:59 savage Exp $

-

-  Translation of the Mesa GLX headers for FreePascal

-  Copyright (C) 1999 Sebastian Guenther

-

-

-  Mesa 3-D graphics library

-  Version:  3.0

-  Copyright (C) 1995-1998  Brian Paul

-

-  This library is free software; you can redistribute it and/or

-  modify it under the terms of the GNU Library General Public

-  License as published by the Free Software Foundation; either

-  version 2 of the License, or (at your option) any later version.

-

-  This library is distributed in the hope that it will be useful,

-  but WITHOUT ANY WARRANTY; without even the implied warranty of

-  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

-  Library General Public License for more details.

-

-  You should have received a copy of the GNU Library General Public

-  License along with this library; if not, write to the Free

-  Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

-}

-

-// {$MODE delphi}  // objfpc would not work because of direct proc var assignments

-

-{You have to enable Macros (compiler switch "-Sm") for compiling this unit!

- This is necessary for supporting different platforms with different calling

- conventions via a single unit.}

-

-{

-  $Log: glx.pas,v $

-  Revision 1.3  2006/11/20 21:20:59  savage

-  Updated to work in MacOS X

-

-  Revision 1.2  2006/04/18 18:38:33  savage

-  fixed boolean test - thanks grudzio

-

-  Revision 1.1  2004/03/30 21:53:55  savage

-  Moved to it's own folder.

-

-  Revision 1.5  2004/02/15 22:48:35  savage

-  More FPC and FreeBSD support changes.

-

-  Revision 1.4  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.3  2004/02/14 00:23:39  savage

-  As UNIX is defined in jedi-sdl.inc this will be used to check linux compatability as well. Units have been changed to reflect this change.

-

-  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.1  2003/05/11 13:18:03  savage

-  Newest OpenGL Headers For Delphi, Kylix and FPC

-

-  Revision 1.1  2002/10/13 13:57:31  sg

-  * Finally, the new units are available: Match the C headers more closely;

-    support for OpenGL extensions, and much more. Based on the Delphi units

-    by Tom Nuydens of delphi3d.net

-

-}

-

-interface

-

-{$I jedi-sdl.inc}

-

-{$IFDEF UNIX}

-  uses

-    {$IFDEF FPC}

-    x,

-    xlib,

-    xutil;

-    {$ELSE}

-    xlib;

-    {$ENDIF}

-  {$DEFINE HasGLX}  // Activate GLX stuff

-{$ELSE}

-  {$MESSAGE Unsupported platform.}

-{$ENDIF}

-

-{$IFNDEF HasGLX}

-  {$MESSAGE GLX not present on this platform.}

-{$ENDIF}

-

-

-// =======================================================

-//   Unit specific extensions

-// =======================================================

-

-// Note: Requires that the GL library has already been initialized

-function InitGLX: Boolean;

-

-var

-  GLXDumpUnresolvedFunctions,

-  GLXInitialized: Boolean;

-

-

-// =======================================================

-//   GLX consts, types and functions

-// =======================================================

-

-// Tokens for glXChooseVisual and glXGetConfig:

-const

-  GLX_USE_GL                            = 1;

-  GLX_BUFFER_SIZE                       = 2;

-  GLX_LEVEL                             = 3;

-  GLX_RGBA                              = 4;

-  GLX_DOUBLEBUFFER                      = 5;

-  GLX_STEREO                            = 6;

-  GLX_AUX_BUFFERS                       = 7;

-  GLX_RED_SIZE                          = 8;

-  GLX_GREEN_SIZE                        = 9;

-  GLX_BLUE_SIZE                         = 10;

-  GLX_ALPHA_SIZE                        = 11;

-  GLX_DEPTH_SIZE                        = 12;

-  GLX_STENCIL_SIZE                      = 13;

-  GLX_ACCUM_RED_SIZE                    = 14;

-  GLX_ACCUM_GREEN_SIZE                  = 15;

-  GLX_ACCUM_BLUE_SIZE                   = 16;

-  GLX_ACCUM_ALPHA_SIZE                  = 17;

-

-  // GLX_EXT_visual_info extension

-  GLX_X_VISUAL_TYPE_EXT                 = $22;

-  GLX_TRANSPARENT_TYPE_EXT              = $23;

-  GLX_TRANSPARENT_INDEX_VALUE_EXT       = $24;

-  GLX_TRANSPARENT_RED_VALUE_EXT         = $25;

-  GLX_TRANSPARENT_GREEN_VALUE_EXT       = $26;

-  GLX_TRANSPARENT_BLUE_VALUE_EXT        = $27;

-  GLX_TRANSPARENT_ALPHA_VALUE_EXT       = $28;

-

-

-  // Error codes returned by glXGetConfig:

-  GLX_BAD_SCREEN                        = 1;

-  GLX_BAD_ATTRIBUTE                     = 2;

-  GLX_NO_EXTENSION                      = 3;

-  GLX_BAD_VISUAL                        = 4;

-  GLX_BAD_CONTEXT                       = 5;

-  GLX_BAD_VALUE                         = 6;

-  GLX_BAD_ENUM                          = 7;

-

-  // GLX 1.1 and later:

-  GLX_VENDOR                            = 1;

-  GLX_VERSION                           = 2;

-  GLX_EXTENSIONS                        = 3;

-

-  // GLX_visual_info extension

-  GLX_TRUE_COLOR_EXT                    = $8002;

-  GLX_DIRECT_COLOR_EXT                  = $8003;

-  GLX_PSEUDO_COLOR_EXT                  = $8004;

-  GLX_STATIC_COLOR_EXT                  = $8005;

-  GLX_GRAY_SCALE_EXT                    = $8006;

-  GLX_STATIC_GRAY_EXT                   = $8007;

-  GLX_NONE_EXT                          = $8000;

-  GLX_TRANSPARENT_RGB_EXT               = $8008;

-  GLX_TRANSPARENT_INDEX_EXT             = $8009;

-

-type

-  // From XLib:

-  {$IFNDEF FPC}

-  TXID = XID;

-  {$ENDIF}

-  XPixmap = TXID;

-  XFont = TXID;

-  XColormap = TXID;

-

-  GLXContext = Pointer;

-  GLXPixmap = TXID;

-  GLXDrawable = TXID;

-  GLXContextID = TXID;

-

-var

-  glXChooseVisual: function(dpy: PDisplay; screen: Integer; var attribList: Integer): PXVisualInfo; cdecl;

-  glXCreateContext: function(dpy: PDisplay; vis: PXVisualInfo; shareList: GLXContext; direct: Boolean): GLXContext; cdecl;

-  glXDestroyContext: procedure(dpy: PDisplay; ctx: GLXContext); cdecl;

-  glXMakeCurrent: function(dpy: PDisplay; drawable: GLXDrawable; ctx: GLXContext): Boolean; cdecl;

-  glXCopyContext: procedure(dpy: PDisplay; src, dst: GLXContext; mask: LongWord); cdecl;

-  glXSwapBuffers: procedure(dpy: PDisplay; drawable: GLXDrawable); cdecl;

-  glXCreateGLXPixmap: function(dpy: PDisplay; visual: PXVisualInfo; pixmap: XPixmap): GLXPixmap; cdecl;

-  glXDestroyGLXPixmap: procedure(dpy: PDisplay; pixmap: GLXPixmap); cdecl;

-  glXQueryExtension: function(dpy: PDisplay; var errorb, event: Integer): Boolean; cdecl;

-  glXQueryVersion: function(dpy: PDisplay; var maj, min: Integer): Boolean; cdecl;

-  glXIsDirect: function(dpy: PDisplay; ctx: GLXContext): Boolean; cdecl;

-  glXGetConfig: function(dpy: PDisplay; visual: PXVisualInfo; attrib: Integer; var value: Integer): Integer; cdecl;

-  glXGetCurrentContext: function: GLXContext; cdecl;

-  glXGetCurrentDrawable: function: GLXDrawable; cdecl;

-  glXWaitGL: procedure; cdecl;

-  glXWaitX: procedure; cdecl;

-  glXUseXFont: procedure(font: XFont; first, count, list: Integer); cdecl;

-

-  // GLX 1.1 and later

-  glXQueryExtensionsString: function(dpy: PDisplay; screen: Integer): PChar; cdecl;

-  glXQueryServerString: function(dpy: PDisplay; screen, name: Integer): PChar; cdecl;

-  glXGetClientString: function(dpy: PDisplay; name: Integer): PChar; cdecl;

-

-  // Mesa GLX Extensions

-  glXCreateGLXPixmapMESA: function(dpy: PDisplay; visual: PXVisualInfo; pixmap: XPixmap; cmap: XColormap): GLXPixmap; cdecl;

-  glXReleaseBufferMESA: function(dpy: PDisplay; d: GLXDrawable): Boolean; cdecl;

-  glXCopySubBufferMESA: procedure(dpy: PDisplay; drawbale: GLXDrawable; x, y, width, height: Integer); cdecl;

-  glXGetVideoSyncSGI: function(var counter: LongWord): Integer; cdecl;

-  glXWaitVideoSyncSGI: function(divisor, remainder: Integer; var count: LongWord): Integer; cdecl;

-

-

-// =======================================================

-//

-// =======================================================

-

-implementation

-

-uses

-  {$IFNDEF __GPC__}

-  SysUtils,

-  {$ENDIF}

-  moduleloader;

-

-(* {$LINKLIB m}  *)

-

-var

-  libGLX: TModuleHandle;

-

-function InitGLXFromLibrary( dll : PChar ): Boolean;

-begin

-  Result := False;

-

-  if not LoadModule( libGLX, dll ) then

-    exit;

-

-  glXChooseVisual := GetModuleSymbol(libglx, 'glXChooseVisual');

-  glXCreateContext := GetModuleSymbol(libglx, 'glXCreateContext');

-  glXDestroyContext := GetModuleSymbol(libglx, 'glXDestroyContext');

-  glXMakeCurrent := GetModuleSymbol(libglx, 'glXMakeCurrent');

-  glXCopyContext := GetModuleSymbol(libglx, 'glXCopyContext');

-  glXSwapBuffers := GetModuleSymbol(libglx, 'glXSwapBuffers');

-  glXCreateGLXPixmap := GetModuleSymbol(libglx, 'glXCreateGLXPixmap');

-  glXDestroyGLXPixmap := GetModuleSymbol(libglx, 'glXDestroyGLXPixmap');

-  glXQueryExtension := GetModuleSymbol(libglx, 'glXQueryExtension');

-  glXQueryVersion := GetModuleSymbol(libglx, 'glXQueryVersion');

-  glXIsDirect := GetModuleSymbol(libglx, 'glXIsDirect');

-  glXGetConfig := GetModuleSymbol(libglx, 'glXGetConfig');

-  glXGetCurrentContext := GetModuleSymbol(libglx, 'glXGetCurrentContext');

-  glXGetCurrentDrawable := GetModuleSymbol(libglx, 'glXGetCurrentDrawable');

-  glXWaitGL := GetModuleSymbol(libglx, 'glXWaitGL');

-  glXWaitX := GetModuleSymbol(libglx, 'glXWaitX');

-  glXUseXFont := GetModuleSymbol(libglx, 'glXUseXFont');

-  // GLX 1.1 and later

-  glXQueryExtensionsString := GetModuleSymbol(libglx, 'glXQueryExtensionsString');

-  glXQueryServerString := GetModuleSymbol(libglx, 'glXQueryServerString');

-  glXGetClientString := GetModuleSymbol(libglx, 'glXGetClientString');

-  // Mesa GLX Extensions

-  glXCreateGLXPixmapMESA := GetModuleSymbol(libglx, 'glXCreateGLXPixmapMESA');

-  glXReleaseBufferMESA := GetModuleSymbol(libglx, 'glXReleaseBufferMESA');

-  glXCopySubBufferMESA := GetModuleSymbol(libglx, 'glXCopySubBufferMESA');

-  glXGetVideoSyncSGI := GetModuleSymbol(libglx, 'glXGetVideoSyncSGI');

-  glXWaitVideoSyncSGI := GetModuleSymbol(libglx, 'glXWaitVideoSyncSGI');

-

-  GLXInitialized := True;

-  Result := True;

-end;

-

-function InitGLX: Boolean;

-begin

-  Result := InitGLXFromLibrary('libGL.so') or

-            InitGLXFromLibrary('libGL.so.1') or

-            InitGLXFromLibrary('libMesaGL.so') or

-            InitGLXFromLibrary('libMesaGL.so.3');

-end;

-

-

-initialization

-  InitGLX;

-finalization

-  UnloadModule(libGLX);

-end.

+unit glx;
+{
+  $Id: glx.pas,v 1.3 2006/11/20 21:20:59 savage Exp $
+
+  Translation of the Mesa GLX headers for FreePascal
+  Copyright (C) 1999 Sebastian Guenther
+
+
+  Mesa 3-D graphics library
+  Version:  3.0
+  Copyright (C) 1995-1998  Brian Paul
+
+  This library is free software; you can redistribute it and/or
+  modify it under the terms of the GNU Library General Public
+  License as published by the Free Software Foundation; either
+  version 2 of the License, or (at your option) any later version.
+
+  This library is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+  Library General Public License for more details.
+
+  You should have received a copy of the GNU Library General Public
+  License along with this library; if not, write to the Free
+  Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+}
+
+// {$MODE delphi}  // objfpc would not work because of direct proc var assignments
+
+{You have to enable Macros (compiler switch "-Sm") for compiling this unit!
+ This is necessary for supporting different platforms with different calling
+ conventions via a single unit.}
+
+{
+  $Log: glx.pas,v $
+  Revision 1.3  2006/11/20 21:20:59  savage
+  Updated to work in MacOS X
+
+  Revision 1.2  2006/04/18 18:38:33  savage
+  fixed boolean test - thanks grudzio
+
+  Revision 1.1  2004/03/30 21:53:55  savage
+  Moved to it's own folder.
+
+  Revision 1.5  2004/02/15 22:48:35  savage
+  More FPC and FreeBSD support changes.
+
+  Revision 1.4  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.3  2004/02/14 00:23:39  savage
+  As UNIX is defined in jedi-sdl.inc this will be used to check linux compatability as well. Units have been changed to reflect this change.
+
+  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.1  2003/05/11 13:18:03  savage
+  Newest OpenGL Headers For Delphi, Kylix and FPC
+
+  Revision 1.1  2002/10/13 13:57:31  sg
+  * Finally, the new units are available: Match the C headers more closely;
+    support for OpenGL extensions, and much more. Based on the Delphi units
+    by Tom Nuydens of delphi3d.net
+
+}
+
+interface
+
+{$I jedi-sdl.inc}
+
+{$IFDEF UNIX}
+  uses
+    {$IFDEF FPC}
+    x,
+    xlib,
+    xutil;
+    {$ELSE}
+    xlib;
+    {$ENDIF}
+  {$DEFINE HasGLX}  // Activate GLX stuff
+{$ELSE}
+  {$MESSAGE Unsupported platform.}
+{$ENDIF}
+
+{$IFNDEF HasGLX}
+  {$MESSAGE GLX not present on this platform.}
+{$ENDIF}
+
+
+// =======================================================
+//   Unit specific extensions
+// =======================================================
+
+// Note: Requires that the GL library has already been initialized
+function InitGLX: Boolean;
+
+var
+  GLXDumpUnresolvedFunctions,
+  GLXInitialized: Boolean;
+
+
+// =======================================================
+//   GLX consts, types and functions
+// =======================================================
+
+// Tokens for glXChooseVisual and glXGetConfig:
+const
+  GLX_USE_GL                            = 1;
+  GLX_BUFFER_SIZE                       = 2;
+  GLX_LEVEL                             = 3;
+  GLX_RGBA                              = 4;
+  GLX_DOUBLEBUFFER                      = 5;
+  GLX_STEREO                            = 6;
+  GLX_AUX_BUFFERS                       = 7;
+  GLX_RED_SIZE                          = 8;
+  GLX_GREEN_SIZE                        = 9;
+  GLX_BLUE_SIZE                         = 10;
+  GLX_ALPHA_SIZE                        = 11;
+  GLX_DEPTH_SIZE                        = 12;
+  GLX_STENCIL_SIZE                      = 13;
+  GLX_ACCUM_RED_SIZE                    = 14;
+  GLX_ACCUM_GREEN_SIZE                  = 15;
+  GLX_ACCUM_BLUE_SIZE                   = 16;
+  GLX_ACCUM_ALPHA_SIZE                  = 17;
+
+  // GLX_EXT_visual_info extension
+  GLX_X_VISUAL_TYPE_EXT                 = $22;
+  GLX_TRANSPARENT_TYPE_EXT              = $23;
+  GLX_TRANSPARENT_INDEX_VALUE_EXT       = $24;
+  GLX_TRANSPARENT_RED_VALUE_EXT         = $25;
+  GLX_TRANSPARENT_GREEN_VALUE_EXT       = $26;
+  GLX_TRANSPARENT_BLUE_VALUE_EXT        = $27;
+  GLX_TRANSPARENT_ALPHA_VALUE_EXT       = $28;
+
+
+  // Error codes returned by glXGetConfig:
+  GLX_BAD_SCREEN                        = 1;
+  GLX_BAD_ATTRIBUTE                     = 2;
+  GLX_NO_EXTENSION                      = 3;
+  GLX_BAD_VISUAL                        = 4;
+  GLX_BAD_CONTEXT                       = 5;
+  GLX_BAD_VALUE                         = 6;
+  GLX_BAD_ENUM                          = 7;
+
+  // GLX 1.1 and later:
+  GLX_VENDOR                            = 1;
+  GLX_VERSION                           = 2;
+  GLX_EXTENSIONS                        = 3;
+
+  // GLX_visual_info extension
+  GLX_TRUE_COLOR_EXT                    = $8002;
+  GLX_DIRECT_COLOR_EXT                  = $8003;
+  GLX_PSEUDO_COLOR_EXT                  = $8004;
+  GLX_STATIC_COLOR_EXT                  = $8005;
+  GLX_GRAY_SCALE_EXT                    = $8006;
+  GLX_STATIC_GRAY_EXT                   = $8007;
+  GLX_NONE_EXT                          = $8000;
+  GLX_TRANSPARENT_RGB_EXT               = $8008;
+  GLX_TRANSPARENT_INDEX_EXT             = $8009;
+
+type
+  // From XLib:
+  {$IFNDEF FPC}
+  TXID = XID;
+  {$ENDIF}
+  XPixmap = TXID;
+  XFont = TXID;
+  XColormap = TXID;
+
+  GLXContext = Pointer;
+  GLXPixmap = TXID;
+  GLXDrawable = TXID;
+  GLXContextID = TXID;
+
+var
+  glXChooseVisual: function(dpy: PDisplay; screen: Integer; var attribList: Integer): PXVisualInfo; cdecl;
+  glXCreateContext: function(dpy: PDisplay; vis: PXVisualInfo; shareList: GLXContext; direct: Boolean): GLXContext; cdecl;
+  glXDestroyContext: procedure(dpy: PDisplay; ctx: GLXContext); cdecl;
+  glXMakeCurrent: function(dpy: PDisplay; drawable: GLXDrawable; ctx: GLXContext): Boolean; cdecl;
+  glXCopyContext: procedure(dpy: PDisplay; src, dst: GLXContext; mask: LongWord); cdecl;
+  glXSwapBuffers: procedure(dpy: PDisplay; drawable: GLXDrawable); cdecl;
+  glXCreateGLXPixmap: function(dpy: PDisplay; visual: PXVisualInfo; pixmap: XPixmap): GLXPixmap; cdecl;
+  glXDestroyGLXPixmap: procedure(dpy: PDisplay; pixmap: GLXPixmap); cdecl;
+  glXQueryExtension: function(dpy: PDisplay; var errorb, event: Integer): Boolean; cdecl;
+  glXQueryVersion: function(dpy: PDisplay; var maj, min: Integer): Boolean; cdecl;
+  glXIsDirect: function(dpy: PDisplay; ctx: GLXContext): Boolean; cdecl;
+  glXGetConfig: function(dpy: PDisplay; visual: PXVisualInfo; attrib: Integer; var value: Integer): Integer; cdecl;
+  glXGetCurrentContext: function: GLXContext; cdecl;
+  glXGetCurrentDrawable: function: GLXDrawable; cdecl;
+  glXWaitGL: procedure; cdecl;
+  glXWaitX: procedure; cdecl;
+  glXUseXFont: procedure(font: XFont; first, count, list: Integer); cdecl;
+
+  // GLX 1.1 and later
+  glXQueryExtensionsString: function(dpy: PDisplay; screen: Integer): PChar; cdecl;
+  glXQueryServerString: function(dpy: PDisplay; screen, name: Integer): PChar; cdecl;
+  glXGetClientString: function(dpy: PDisplay; name: Integer): PChar; cdecl;
+
+  // Mesa GLX Extensions
+  glXCreateGLXPixmapMESA: function(dpy: PDisplay; visual: PXVisualInfo; pixmap: XPixmap; cmap: XColormap): GLXPixmap; cdecl;
+  glXReleaseBufferMESA: function(dpy: PDisplay; d: GLXDrawable): Boolean; cdecl;
+  glXCopySubBufferMESA: procedure(dpy: PDisplay; drawbale: GLXDrawable; x, y, width, height: Integer); cdecl;
+  glXGetVideoSyncSGI: function(var counter: LongWord): Integer; cdecl;
+  glXWaitVideoSyncSGI: function(divisor, remainder: Integer; var count: LongWord): Integer; cdecl;
+
+
+// =======================================================
+//
+// =======================================================
+
+implementation
+
+uses
+  {$IFNDEF __GPC__}
+  SysUtils,
+  {$ENDIF}
+  moduleloader;
+
+(* {$LINKLIB m}  *)
+
+var
+  libGLX: TModuleHandle;
+
+function InitGLXFromLibrary( dll : PChar ): Boolean;
+begin
+  Result := False;
+
+  if not LoadModule( libGLX, dll ) then
+    exit;
+
+  glXChooseVisual := GetModuleSymbol(libglx, 'glXChooseVisual');
+  glXCreateContext := GetModuleSymbol(libglx, 'glXCreateContext');
+  glXDestroyContext := GetModuleSymbol(libglx, 'glXDestroyContext');
+  glXMakeCurrent := GetModuleSymbol(libglx, 'glXMakeCurrent');
+  glXCopyContext := GetModuleSymbol(libglx, 'glXCopyContext');
+  glXSwapBuffers := GetModuleSymbol(libglx, 'glXSwapBuffers');
+  glXCreateGLXPixmap := GetModuleSymbol(libglx, 'glXCreateGLXPixmap');
+  glXDestroyGLXPixmap := GetModuleSymbol(libglx, 'glXDestroyGLXPixmap');
+  glXQueryExtension := GetModuleSymbol(libglx, 'glXQueryExtension');
+  glXQueryVersion := GetModuleSymbol(libglx, 'glXQueryVersion');
+  glXIsDirect := GetModuleSymbol(libglx, 'glXIsDirect');
+  glXGetConfig := GetModuleSymbol(libglx, 'glXGetConfig');
+  glXGetCurrentContext := GetModuleSymbol(libglx, 'glXGetCurrentContext');
+  glXGetCurrentDrawable := GetModuleSymbol(libglx, 'glXGetCurrentDrawable');
+  glXWaitGL := GetModuleSymbol(libglx, 'glXWaitGL');
+  glXWaitX := GetModuleSymbol(libglx, 'glXWaitX');
+  glXUseXFont := GetModuleSymbol(libglx, 'glXUseXFont');
+  // GLX 1.1 and later
+  glXQueryExtensionsString := GetModuleSymbol(libglx, 'glXQueryExtensionsString');
+  glXQueryServerString := GetModuleSymbol(libglx, 'glXQueryServerString');
+  glXGetClientString := GetModuleSymbol(libglx, 'glXGetClientString');
+  // Mesa GLX Extensions
+  glXCreateGLXPixmapMESA := GetModuleSymbol(libglx, 'glXCreateGLXPixmapMESA');
+  glXReleaseBufferMESA := GetModuleSymbol(libglx, 'glXReleaseBufferMESA');
+  glXCopySubBufferMESA := GetModuleSymbol(libglx, 'glXCopySubBufferMESA');
+  glXGetVideoSyncSGI := GetModuleSymbol(libglx, 'glXGetVideoSyncSGI');
+  glXWaitVideoSyncSGI := GetModuleSymbol(libglx, 'glXWaitVideoSyncSGI');
+
+  GLXInitialized := True;
+  Result := True;
+end;
+
+function InitGLX: Boolean;
+begin
+  Result := InitGLXFromLibrary('libGL.so') or
+            InitGLXFromLibrary('libGL.so.1') or
+            InitGLXFromLibrary('libMesaGL.so') or
+            InitGLXFromLibrary('libMesaGL.so.3');
+end;
+
+
+initialization
+  InitGLX;
+finalization
+  UnloadModule(libGLX);
+end.