src/lib/dgl/GL.pas

   1 (*++ BUILD Version: 0004    // Increment this if a change has global effects
   2
   3 Copyright (c) 1985-96, Microsoft Corporation
   4
   5 Module Name:
   6
   7     gl.h
   8
   9 Abstract:
  10
  11     Procedure declarations, constant definitions and macros for the OpenGL
  12     component.
  13
  14 --*)
  15
  16 (*
  17 ** Copyright 1996 Silicon Graphics, Inc.
  18 ** All Rights Reserved.
  19 **
  20 ** This is UNPUBLISHED PROPRIETARY SOURCE CODE of Silicon Graphics, Inc.;
  21 ** the contents of this file may not be disclosed to third parties, copied or
  22 ** duplicated in any form, in whole or in part, without the prior written
  23 ** permission of Silicon Graphics, Inc.
  24 **
  25 ** RESTRICTED RIGHTS LEGEND:
  26 ** Use, duplication or disclosure by the Government is subject to restrictions
  27 ** as set forth in subdivision (c)(1)(ii) of the Rights in Technical Data
  28 ** and Computer Software clause at DFARS 252.227-7013, and/or in similar or
  29 ** successor clauses in the FAR, DOD or NASA FAR Supplement. Unpublished -
  30 ** rights reserved under the Copyright Laws of the United States.
  31 *)
  32
  33 {******************************************************************************}
  34 { Converted to Delphi by Tom Nuydens (tom@delphi3d.net)                        }
  35 { For the latest updates, visit Delphi3D: http://www.delphi3d.net              }
  36 {******************************************************************************}
  37
  38 unit GL;
  39
  40 interface
  41
  42 uses
  43   SysUtils, Windows;
  44
  45 type
  46   GLenum     = Cardinal;      PGLenum     = ^GLenum;
  47   GLboolean  = Byte;          PGLboolean  = ^GLboolean;
  48   GLbitfield = Cardinal;      PGLbitfield = ^GLbitfield;
  49   GLbyte     = ShortInt;      PGLbyte     = ^GLbyte;
  50   GLshort    = SmallInt;      PGLshort    = ^GLshort;
  51   GLint      = Integer;       PGLint      = ^GLint;
  52   GLsizei    = Integer;       PGLsizei    = ^GLsizei;
  53   GLubyte    = Byte;          PGLubyte    = ^GLubyte;
  54   GLushort   = Word;          PGLushort   = ^GLushort;
  55   GLuint     = Cardinal;      PGLuint     = ^GLuint;
  56   GLfloat    = Single;        PGLfloat    = ^GLfloat;
  57   GLclampf   = Single;        PGLclampf   = ^GLclampf;
  58   GLdouble   = Double;        PGLdouble   = ^GLdouble;
  59   GLclampd   = Double;        PGLclampd   = ^GLclampd;
  60 { GLvoid     = void; }        PGLvoid     = Pointer;
  61
  62 {******************************************************************************}
  63
  64 const
  65   // Version
  66   GL_VERSION_1_1                    = 1;
  67
  68   // AccumOp
  69   GL_ACCUM                          = $0100;
  70   GL_LOAD                           = $0101;
  71   GL_RETURN                         = $0102;
  72   GL_MULT                           = $0103;
  73   GL_ADD                            = $0104;
  74
  75   // AlphaFunction
  76   GL_NEVER                          = $0200;
  77   GL_LESS                           = $0201;
  78   GL_EQUAL                          = $0202;
  79   GL_LEQUAL                         = $0203;
  80   GL_GREATER                        = $0204;
  81   GL_NOTEQUAL                       = $0205;
  82   GL_GEQUAL                         = $0206;
  83   GL_ALWAYS                         = $0207;
  84
  85   // AttribMask
  86   GL_CURRENT_BIT                    = $00000001;
  87   GL_POINT_BIT                      = $00000002;
  88   GL_LINE_BIT                       = $00000004;
  89   GL_POLYGON_BIT                    = $00000008;
  90   GL_POLYGON_STIPPLE_BIT            = $00000010;
  91   GL_PIXEL_MODE_BIT                 = $00000020;
  92   GL_LIGHTING_BIT                   = $00000040;
  93   GL_FOG_BIT                        = $00000080;
  94   GL_DEPTH_BUFFER_BIT               = $00000100;
  95   GL_ACCUM_BUFFER_BIT               = $00000200;
  96   GL_STENCIL_BUFFER_BIT             = $00000400;
  97   GL_VIEWPORT_BIT                   = $00000800;
  98   GL_TRANSFORM_BIT                  = $00001000;
  99   GL_ENABLE_BIT                     = $00002000;
 100   GL_COLOR_BUFFER_BIT               = $00004000;
 101   GL_HINT_BIT                       = $00008000;
 102   GL_EVAL_BIT                       = $00010000;
 103   GL_LIST_BIT                       = $00020000;
 104   GL_TEXTURE_BIT                    = $00040000;
 105   GL_SCISSOR_BIT                    = $00080000;
 106   GL_ALL_ATTRIB_BITS                = $000FFFFF;
 107
 108   // BeginMode
 109   GL_POINTS                         = $0000;
 110   GL_LINES                          = $0001;
 111   GL_LINE_LOOP                      = $0002;
 112   GL_LINE_STRIP                     = $0003;
 113   GL_TRIANGLES                      = $0004;
 114   GL_TRIANGLE_STRIP                 = $0005;
 115   GL_TRIANGLE_FAN                   = $0006;
 116   GL_QUADS                          = $0007;
 117   GL_QUAD_STRIP                     = $0008;
 118   GL_POLYGON                        = $0009;
 119
 120   // BlendingFactorDest
 121   GL_ZERO                           = 0;
 122   GL_ONE                            = 1;
 123   GL_SRC_COLOR                      = $0300;
 124   GL_ONE_MINUS_SRC_COLOR            = $0301;
 125   GL_SRC_ALPHA                      = $0302;
 126   GL_ONE_MINUS_SRC_ALPHA            = $0303;
 127   GL_DST_ALPHA                      = $0304;
 128   GL_ONE_MINUS_DST_ALPHA            = $0305;
 129
 130   // BlendingFactorSrc
 131   //      GL_ZERO
 132   //      GL_ONE
 133   GL_DST_COLOR                      = $0306;
 134   GL_ONE_MINUS_DST_COLOR            = $0307;
 135   GL_SRC_ALPHA_SATURATE             = $0308;
 136   //      GL_SRC_ALPHA
 137   //      GL_ONE_MINUS_SRC_ALPHA
 138   //      GL_DST_ALPHA
 139   //      GL_ONE_MINUS_DST_ALPHA
 140
 141   // Boolean
 142   GL_TRUE                           = 1;
 143   GL_FALSE                          = 0;
 144
 145   // ClearBufferMask
 146   //      GL_COLOR_BUFFER_BIT
 147   //      GL_ACCUM_BUFFER_BIT
 148   //      GL_STENCIL_BUFFER_BIT
 149   //      GL_DEPTH_BUFFER_BIT
 150
 151   // ClientArrayType
 152   //      GL_VERTEX_ARRAY
 153   //      GL_NORMAL_ARRAY
 154   //      GL_COLOR_ARRAY
 155   //      GL_INDEX_ARRAY
 156   //      GL_TEXTURE_COORD_ARRAY
 157   //      GL_EDGE_FLAG_ARRAY
 158
 159   // ClipPlaneName
 160   GL_CLIP_PLANE0                    = $3000;
 161   GL_CLIP_PLANE1                    = $3001;
 162   GL_CLIP_PLANE2                    = $3002;
 163   GL_CLIP_PLANE3                    = $3003;
 164   GL_CLIP_PLANE4                    = $3004;
 165   GL_CLIP_PLANE5                    = $3005;
 166
 167   // ColorMaterialFace
 168   //      GL_FRONT
 169   //      GL_BACK
 170   //      GL_FRONT_AND_BACK
 171
 172   // ColorMaterialParameter
 173   //      GL_AMBIENT
 174   //      GL_DIFFUSE
 175   //      GL_SPECULAR
 176   //      GL_EMISSION
 177   //      GL_AMBIENT_AND_DIFFUSE
 178
 179   // ColorPointerType
 180   //      GL_BYTE
 181   //      GL_UNSIGNED_BYTE
 182   //      GL_SHORT
 183   //      GL_UNSIGNED_SHORT
 184   //      GL_INT
 185   //      GL_UNSIGNED_INT
 186   //      GL_FLOAT
 187   //      GL_DOUBLE
 188
 189   // CullFaceMode
 190   //      GL_FRONT
 191   //      GL_BACK
 192   //      GL_FRONT_AND_BACK
 193
 194   // DataType
 195   GL_BYTE                           = $1400;
 196   GL_UNSIGNED_BYTE                  = $1401;
 197   GL_SHORT                          = $1402;
 198   GL_UNSIGNED_SHORT                 = $1403;
 199   GL_INT                            = $1404;
 200   GL_UNSIGNED_INT                   = $1405;
 201   GL_FLOAT                          = $1406;
 202   GL_2_BYTES                        = $1407;
 203   GL_3_BYTES                        = $1408;
 204   GL_4_BYTES                        = $1409;
 205   GL_DOUBLE                         = $140A;
 206
 207   // DepthFunction
 208   //      GL_NEVER
 209   //      GL_LESS
 210   //      GL_EQUAL
 211   //      GL_LEQUAL
 212   //      GL_GREATER
 213   //      GL_NOTEQUAL
 214   //      GL_GEQUAL
 215   //      GL_ALWAYS
 216
 217   // DrawBufferMode
 218   GL_NONE                           = 0;
 219   GL_FRONT_LEFT                     = $0400;
 220   GL_FRONT_RIGHT                    = $0401;
 221   GL_BACK_LEFT                      = $0402;
 222   GL_BACK_RIGHT                     = $0403;
 223   GL_FRONT                          = $0404;
 224   GL_BACK                           = $0405;
 225   GL_LEFT                           = $0406;
 226   GL_RIGHT                          = $0407;
 227   GL_FRONT_AND_BACK                 = $0408;
 228   GL_AUX0                           = $0409;
 229   GL_AUX1                           = $040A;
 230   GL_AUX2                           = $040B;
 231   GL_AUX3                           = $040C;
 232
 233   // Enable
 234   //      GL_FOG
 235   //      GL_LIGHTING
 236   //      GL_TEXTURE_1D
 237   //      GL_TEXTURE_2D
 238   //      GL_LINE_STIPPLE
 239   //      GL_POLYGON_STIPPLE
 240   //      GL_CULL_FACE
 241   //      GL_ALPHA_TEST
 242   //      GL_BLEND
 243   //      GL_INDEX_LOGIC_OP
 244   //      GL_COLOR_LOGIC_OP
 245   //      GL_DITHER
 246   //      GL_STENCIL_TEST
 247   //      GL_DEPTH_TEST
 248   //      GL_CLIP_PLANE0
 249   //      GL_CLIP_PLANE1
 250   //      GL_CLIP_PLANE2
 251   //      GL_CLIP_PLANE3
 252   //      GL_CLIP_PLANE4
 253   //      GL_CLIP_PLANE5
 254   //      GL_LIGHT0
 255   //      GL_LIGHT1
 256   //      GL_LIGHT2
 257   //      GL_LIGHT3
 258   //      GL_LIGHT4
 259   //      GL_LIGHT5
 260   //      GL_LIGHT6
 261   //      GL_LIGHT7
 262   //      GL_TEXTURE_GEN_S
 263   //      GL_TEXTURE_GEN_T
 264   //      GL_TEXTURE_GEN_R
 265   //      GL_TEXTURE_GEN_Q
 266   //      GL_MAP1_VERTEX_3
 267   //      GL_MAP1_VERTEX_4
 268   //      GL_MAP1_COLOR_4
 269   //      GL_MAP1_INDEX
 270   //      GL_MAP1_NORMAL
 271   //      GL_MAP1_TEXTURE_COORD_1
 272   //      GL_MAP1_TEXTURE_COORD_2
 273   //      GL_MAP1_TEXTURE_COORD_3
 274   //      GL_MAP1_TEXTURE_COORD_4
 275   //      GL_MAP2_VERTEX_3
 276   //      GL_MAP2_VERTEX_4
 277   //      GL_MAP2_COLOR_4
 278   //      GL_MAP2_INDEX
 279   //      GL_MAP2_NORMAL
 280   //      GL_MAP2_TEXTURE_COORD_1
 281   //      GL_MAP2_TEXTURE_COORD_2
 282   //      GL_MAP2_TEXTURE_COORD_3
 283   //      GL_MAP2_TEXTURE_COORD_4
 284   //      GL_POINT_SMOOTH
 285   //      GL_LINE_SMOOTH
 286   //      GL_POLYGON_SMOOTH
 287   //      GL_SCISSOR_TEST
 288   //      GL_COLOR_MATERIAL
 289   //      GL_NORMALIZE
 290   //      GL_AUTO_NORMAL
 291   //      GL_VERTEX_ARRAY
 292   //      GL_NORMAL_ARRAY
 293   //      GL_COLOR_ARRAY
 294   //      GL_INDEX_ARRAY
 295   //      GL_TEXTURE_COORD_ARRAY
 296   //      GL_EDGE_FLAG_ARRAY
 297   //      GL_POLYGON_OFFSET_POINT
 298   //      GL_POLYGON_OFFSET_LINE
 299   //      GL_POLYGON_OFFSET_FILL
 300
 301   // ErrorCode
 302   GL_NO_ERROR                       = 0;
 303   GL_INVALID_ENUM                   = $0500;
 304   GL_INVALID_VALUE                  = $0501;
 305   GL_INVALID_OPERATION              = $0502;
 306   GL_STACK_OVERFLOW                 = $0503;
 307   GL_STACK_UNDERFLOW                = $0504;
 308   GL_OUT_OF_MEMORY                  = $0505;
 309
 310   // FeedBackMode
 311   GL_2D                             = $0600;
 312   GL_3D                             = $0601;
 313   GL_3D_COLOR                       = $0602;
 314   GL_3D_COLOR_TEXTURE               = $0603;
 315   GL_4D_COLOR_TEXTURE               = $0604;
 316
 317   // FeedBackToken
 318   GL_PASS_THROUGH_TOKEN             = $0700;
 319   GL_POINT_TOKEN                    = $0701;
 320   GL_LINE_TOKEN                     = $0702;
 321   GL_POLYGON_TOKEN                  = $0703;
 322   GL_BITMAP_TOKEN                   = $0704;
 323   GL_DRAW_PIXEL_TOKEN               = $0705;
 324   GL_COPY_PIXEL_TOKEN               = $0706;
 325   GL_LINE_RESET_TOKEN               = $0707;
 326
 327   // FogMode
 328   //      GL_LINEAR
 329   GL_EXP                            = $0800;
 330   GL_EXP2                           = $0801;
 331
 332   // FogParameter
 333   //      GL_FOG_COLOR
 334   //      GL_FOG_DENSITY
 335   //      GL_FOG_END
 336   //      GL_FOG_INDEX
 337   //      GL_FOG_MODE
 338   //      GL_FOG_START
 339
 340   // FrontFaceDirection
 341   GL_CW                             = $0900;
 342   GL_CCW                            = $0901;
 343
 344   // GetMapTarget
 345   GL_COEFF                          = $0A00;
 346   GL_ORDER                          = $0A01;
 347   GL_DOMAIN                         = $0A02;
 348
 349   // GetPixelMap
 350   //      GL_PIXEL_MAP_I_TO_I
 351   //      GL_PIXEL_MAP_S_TO_S
 352   //      GL_PIXEL_MAP_I_TO_R
 353   //      GL_PIXEL_MAP_I_TO_G
 354   //      GL_PIXEL_MAP_I_TO_B
 355   //      GL_PIXEL_MAP_I_TO_A
 356   //      GL_PIXEL_MAP_R_TO_R
 357   //      GL_PIXEL_MAP_G_TO_G
 358   //      GL_PIXEL_MAP_B_TO_B
 359   //      GL_PIXEL_MAP_A_TO_A
 360
 361   // GetPointerTarget
 362   //      GL_VERTEX_ARRAY_POINTER
 363   //      GL_NORMAL_ARRAY_POINTER
 364   //      GL_COLOR_ARRAY_POINTER
 365   //      GL_INDEX_ARRAY_POINTER
 366   //      GL_TEXTURE_COORD_ARRAY_POINTER
 367   //      GL_EDGE_FLAG_ARRAY_POINTER
 368
 369   // GetTarget
 370   GL_CURRENT_COLOR                  = $0B00;
 371   GL_CURRENT_INDEX                  = $0B01;
 372   GL_CURRENT_NORMAL                 = $0B02;
 373   GL_CURRENT_TEXTURE_COORDS         = $0B03;
 374   GL_CURRENT_RASTER_COLOR           = $0B04;
 375   GL_CURRENT_RASTER_INDEX           = $0B05;
 376   GL_CURRENT_RASTER_TEXTURE_COORDS  = $0B06;
 377   GL_CURRENT_RASTER_POSITION        = $0B07;
 378   GL_CURRENT_RASTER_POSITION_VALID  = $0B08;
 379   GL_CURRENT_RASTER_DISTANCE        = $0B09;
 380   GL_POINT_SMOOTH                   = $0B10;
 381   GL_POINT_SIZE                     = $0B11;
 382   GL_POINT_SIZE_RANGE               = $0B12;
 383   GL_POINT_SIZE_GRANULARITY         = $0B13;
 384   GL_LINE_SMOOTH                    = $0B20;
 385   GL_LINE_WIDTH                     = $0B21;
 386   GL_LINE_WIDTH_RANGE               = $0B22;
 387   GL_LINE_WIDTH_GRANULARITY         = $0B23;
 388   GL_LINE_STIPPLE                   = $0B24;
 389   GL_LINE_STIPPLE_PATTERN           = $0B25;
 390   GL_LINE_STIPPLE_REPEAT            = $0B26;
 391   GL_LIST_MODE                      = $0B30;
 392   GL_MAX_LIST_NESTING               = $0B31;
 393   GL_LIST_BASE                      = $0B32;
 394   GL_LIST_INDEX                     = $0B33;
 395   GL_POLYGON_MODE                   = $0B40;
 396   GL_POLYGON_SMOOTH                 = $0B41;
 397   GL_POLYGON_STIPPLE                = $0B42;
 398   GL_EDGE_FLAG                      = $0B43;
 399   GL_CULL_FACE                      = $0B44;
 400   GL_CULL_FACE_MODE                 = $0B45;
 401   GL_FRONT_FACE                     = $0B46;
 402   GL_LIGHTING                       = $0B50;
 403   GL_LIGHT_MODEL_LOCAL_VIEWER       = $0B51;
 404   GL_LIGHT_MODEL_TWO_SIDE           = $0B52;
 405   GL_LIGHT_MODEL_AMBIENT            = $0B53;
 406   GL_SHADE_MODEL                    = $0B54;
 407   GL_COLOR_MATERIAL_FACE            = $0B55;
 408   GL_COLOR_MATERIAL_PARAMETER       = $0B56;
 409   GL_COLOR_MATERIAL                 = $0B57;
 410   GL_FOG                            = $0B60;
 411   GL_FOG_INDEX                      = $0B61;
 412   GL_FOG_DENSITY                    = $0B62;
 413   GL_FOG_START                      = $0B63;
 414   GL_FOG_END                        = $0B64;
 415   GL_FOG_MODE                       = $0B65;
 416   GL_FOG_COLOR                      = $0B66;
 417   GL_DEPTH_RANGE                    = $0B70;
 418   GL_DEPTH_TEST                     = $0B71;
 419   GL_DEPTH_WRITEMASK                = $0B72;
 420   GL_DEPTH_CLEAR_VALUE              = $0B73;
 421   GL_DEPTH_FUNC                     = $0B74;
 422   GL_ACCUM_CLEAR_VALUE              = $0B80;
 423   GL_STENCIL_TEST                   = $0B90;
 424   GL_STENCIL_CLEAR_VALUE            = $0B91;
 425   GL_STENCIL_FUNC                   = $0B92;
 426   GL_STENCIL_VALUE_MASK             = $0B93;
 427   GL_STENCIL_FAIL                   = $0B94;
 428   GL_STENCIL_PASS_DEPTH_FAIL        = $0B95;
 429   GL_STENCIL_PASS_DEPTH_PASS        = $0B96;
 430   GL_STENCIL_REF                    = $0B97;
 431   GL_STENCIL_WRITEMASK              = $0B98;
 432   GL_MATRIX_MODE                    = $0BA0;
 433   GL_NORMALIZE                      = $0BA1;
 434   GL_VIEWPORT                       = $0BA2;
 435   GL_MODELVIEW_STACK_DEPTH          = $0BA3;
 436   GL_PROJECTION_STACK_DEPTH         = $0BA4;
 437   GL_TEXTURE_STACK_DEPTH            = $0BA5;
 438   GL_MODELVIEW_MATRIX               = $0BA6;
 439   GL_PROJECTION_MATRIX              = $0BA7;
 440   GL_TEXTURE_MATRIX                 = $0BA8;
 441   GL_ATTRIB_STACK_DEPTH             = $0BB0;
 442   GL_CLIENT_ATTRIB_STACK_DEPTH      = $0BB1;
 443   GL_ALPHA_TEST                     = $0BC0;
 444   GL_ALPHA_TEST_FUNC                = $0BC1;
 445   GL_ALPHA_TEST_REF                 = $0BC2;
 446   GL_DITHER                         = $0BD0;
 447   GL_BLEND_DST                      = $0BE0;
 448   GL_BLEND_SRC                      = $0BE1;
 449   GL_BLEND                          = $0BE2;
 450   GL_LOGIC_OP_MODE                  = $0BF0;
 451   GL_INDEX_LOGIC_OP                 = $0BF1;
 452   GL_COLOR_LOGIC_OP                 = $0BF2;
 453   GL_AUX_BUFFERS                    = $0C00;
 454   GL_DRAW_BUFFER                    = $0C01;
 455   GL_READ_BUFFER                    = $0C02;
 456   GL_SCISSOR_BOX                    = $0C10;
 457   GL_SCISSOR_TEST                   = $0C11;
 458   GL_INDEX_CLEAR_VALUE              = $0C20;
 459   GL_INDEX_WRITEMASK                = $0C21;
 460   GL_COLOR_CLEAR_VALUE              = $0C22;
 461   GL_COLOR_WRITEMASK                = $0C23;
 462   GL_INDEX_MODE                     = $0C30;
 463   GL_RGBA_MODE                      = $0C31;
 464   GL_DOUBLEBUFFER                   = $0C32;
 465   GL_STEREO                         = $0C33;
 466   GL_RENDER_MODE                    = $0C40;
 467   GL_PERSPECTIVE_CORRECTION_HINT    = $0C50;
 468   GL_POINT_SMOOTH_HINT              = $0C51;
 469   GL_LINE_SMOOTH_HINT               = $0C52;
 470   GL_POLYGON_SMOOTH_HINT            = $0C53;
 471   GL_FOG_HINT                       = $0C54;
 472   GL_TEXTURE_GEN_S                  = $0C60;
 473   GL_TEXTURE_GEN_T                  = $0C61;
 474   GL_TEXTURE_GEN_R                  = $0C62;
 475   GL_TEXTURE_GEN_Q                  = $0C63;
 476   GL_PIXEL_MAP_I_TO_I               = $0C70;
 477   GL_PIXEL_MAP_S_TO_S               = $0C71;
 478   GL_PIXEL_MAP_I_TO_R               = $0C72;
 479   GL_PIXEL_MAP_I_TO_G               = $0C73;
 480   GL_PIXEL_MAP_I_TO_B               = $0C74;
 481   GL_PIXEL_MAP_I_TO_A               = $0C75;
 482   GL_PIXEL_MAP_R_TO_R               = $0C76;
 483   GL_PIXEL_MAP_G_TO_G               = $0C77;
 484   GL_PIXEL_MAP_B_TO_B               = $0C78;
 485   GL_PIXEL_MAP_A_TO_A               = $0C79;
 486   GL_PIXEL_MAP_I_TO_I_SIZE          = $0CB0;
 487   GL_PIXEL_MAP_S_TO_S_SIZE          = $0CB1;
 488   GL_PIXEL_MAP_I_TO_R_SIZE          = $0CB2;
 489   GL_PIXEL_MAP_I_TO_G_SIZE          = $0CB3;
 490   GL_PIXEL_MAP_I_TO_B_SIZE          = $0CB4;
 491   GL_PIXEL_MAP_I_TO_A_SIZE          = $0CB5;
 492   GL_PIXEL_MAP_R_TO_R_SIZE          = $0CB6;
 493   GL_PIXEL_MAP_G_TO_G_SIZE          = $0CB7;
 494   GL_PIXEL_MAP_B_TO_B_SIZE          = $0CB8;
 495   GL_PIXEL_MAP_A_TO_A_SIZE          = $0CB9;
 496   GL_UNPACK_SWAP_BYTES              = $0CF0;
 497   GL_UNPACK_LSB_FIRST               = $0CF1;
 498   GL_UNPACK_ROW_LENGTH              = $0CF2;
 499   GL_UNPACK_SKIP_ROWS               = $0CF3;
 500   GL_UNPACK_SKIP_PIXELS             = $0CF4;
 501   GL_UNPACK_ALIGNMENT               = $0CF5;
 502   GL_PACK_SWAP_BYTES                = $0D00;
 503   GL_PACK_LSB_FIRST                 = $0D01;
 504   GL_PACK_ROW_LENGTH                = $0D02;
 505   GL_PACK_SKIP_ROWS                 = $0D03;
 506   GL_PACK_SKIP_PIXELS               = $0D04;
 507   GL_PACK_ALIGNMENT                 = $0D05;
 508   GL_MAP_COLOR                      = $0D10;
 509   GL_MAP_STENCIL                    = $0D11;
 510   GL_INDEX_SHIFT                    = $0D12;
 511   GL_INDEX_OFFSET                   = $0D13;
 512   GL_RED_SCALE                      = $0D14;
 513   GL_RED_BIAS                       = $0D15;
 514   GL_ZOOM_X                         = $0D16;
 515   GL_ZOOM_Y                         = $0D17;
 516   GL_GREEN_SCALE                    = $0D18;
 517   GL_GREEN_BIAS                     = $0D19;
 518   GL_BLUE_SCALE                     = $0D1A;
 519   GL_BLUE_BIAS                      = $0D1B;
 520   GL_ALPHA_SCALE                    = $0D1C;
 521   GL_ALPHA_BIAS                     = $0D1D;
 522   GL_DEPTH_SCALE                    = $0D1E;
 523   GL_DEPTH_BIAS                     = $0D1F;
 524   GL_MAX_EVAL_ORDER                 = $0D30;
 525   GL_MAX_LIGHTS                     = $0D31;
 526   GL_MAX_CLIP_PLANES                = $0D32;
 527   GL_MAX_TEXTURE_SIZE               = $0D33;
 528   GL_MAX_PIXEL_MAP_TABLE            = $0D34;
 529   GL_MAX_ATTRIB_STACK_DEPTH         = $0D35;
 530   GL_MAX_MODELVIEW_STACK_DEPTH      = $0D36;
 531   GL_MAX_NAME_STACK_DEPTH           = $0D37;
 532   GL_MAX_PROJECTION_STACK_DEPTH     = $0D38;
 533   GL_MAX_TEXTURE_STACK_DEPTH        = $0D39;
 534   GL_MAX_VIEWPORT_DIMS              = $0D3A;
 535   GL_MAX_CLIENT_ATTRIB_STACK_DEPTH  = $0D3B;
 536   GL_SUBPIXEL_BITS                  = $0D50;
 537   GL_INDEX_BITS                     = $0D51;
 538   GL_RED_BITS                       = $0D52;
 539   GL_GREEN_BITS                     = $0D53;
 540   GL_BLUE_BITS                      = $0D54;
 541   GL_ALPHA_BITS                     = $0D55;
 542   GL_DEPTH_BITS                     = $0D56;
 543   GL_STENCIL_BITS                   = $0D57;
 544   GL_ACCUM_RED_BITS                 = $0D58;
 545   GL_ACCUM_GREEN_BITS               = $0D59;
 546   GL_ACCUM_BLUE_BITS                = $0D5A;
 547   GL_ACCUM_ALPHA_BITS               = $0D5B;
 548   GL_NAME_STACK_DEPTH               = $0D70;
 549   GL_AUTO_NORMAL                    = $0D80;
 550   GL_MAP1_COLOR_4                   = $0D90;
 551   GL_MAP1_INDEX                     = $0D91;
 552   GL_MAP1_NORMAL                    = $0D92;
 553   GL_MAP1_TEXTURE_COORD_1           = $0D93;
 554   GL_MAP1_TEXTURE_COORD_2           = $0D94;
 555   GL_MAP1_TEXTURE_COORD_3           = $0D95;
 556   GL_MAP1_TEXTURE_COORD_4           = $0D96;
 557   GL_MAP1_VERTEX_3                  = $0D97;
 558   GL_MAP1_VERTEX_4                  = $0D98;
 559   GL_MAP2_COLOR_4                   = $0DB0;
 560   GL_MAP2_INDEX                     = $0DB1;
 561   GL_MAP2_NORMAL                    = $0DB2;
 562   GL_MAP2_TEXTURE_COORD_1           = $0DB3;
 563   GL_MAP2_TEXTURE_COORD_2           = $0DB4;
 564   GL_MAP2_TEXTURE_COORD_3           = $0DB5;
 565   GL_MAP2_TEXTURE_COORD_4           = $0DB6;
 566   GL_MAP2_VERTEX_3                  = $0DB7;
 567   GL_MAP2_VERTEX_4                  = $0DB8;
 568   GL_MAP1_GRID_DOMAIN               = $0DD0;
 569   GL_MAP1_GRID_SEGMENTS             = $0DD1;
 570   GL_MAP2_GRID_DOMAIN               = $0DD2;
 571   GL_MAP2_GRID_SEGMENTS             = $0DD3;
 572   GL_TEXTURE_1D                     = $0DE0;
 573   GL_TEXTURE_2D                     = $0DE1;
 574   GL_FEEDBACK_BUFFER_POINTER        = $0DF0;
 575   GL_FEEDBACK_BUFFER_SIZE           = $0DF1;
 576   GL_FEEDBACK_BUFFER_TYPE           = $0DF2;
 577   GL_SELECTION_BUFFER_POINTER       = $0DF3;
 578   GL_SELECTION_BUFFER_SIZE          = $0DF4;
 579   //      GL_TEXTURE_BINDING_1D
 580   //      GL_TEXTURE_BINDING_2D
 581   //      GL_VERTEX_ARRAY
 582   //      GL_NORMAL_ARRAY
 583   //      GL_COLOR_ARRAY
 584   //      GL_INDEX_ARRAY
 585   //      GL_TEXTURE_COORD_ARRAY
 586   //      GL_EDGE_FLAG_ARRAY
 587   //      GL_VERTEX_ARRAY_SIZE
 588   //      GL_VERTEX_ARRAY_TYPE
 589   //      GL_VERTEX_ARRAY_STRIDE
 590   //      GL_NORMAL_ARRAY_TYPE
 591   //      GL_NORMAL_ARRAY_STRIDE
 592   //      GL_COLOR_ARRAY_SIZE
 593   //      GL_COLOR_ARRAY_TYPE
 594   //      GL_COLOR_ARRAY_STRIDE
 595   //      GL_INDEX_ARRAY_TYPE
 596   //      GL_INDEX_ARRAY_STRIDE
 597   //      GL_TEXTURE_COORD_ARRAY_SIZE
 598   //      GL_TEXTURE_COORD_ARRAY_TYPE
 599   //      GL_TEXTURE_COORD_ARRAY_STRIDE
 600   //      GL_EDGE_FLAG_ARRAY_STRIDE
 601   //      GL_POLYGON_OFFSET_FACTOR
 602   //      GL_POLYGON_OFFSET_UNITS
 603
 604   // GetTextureParameter
 605   //      GL_TEXTURE_MAG_FILTER
 606   //      GL_TEXTURE_MIN_FILTER
 607   //      GL_TEXTURE_WRAP_S
 608   //      GL_TEXTURE_WRAP_T
 609   GL_TEXTURE_WIDTH                  = $1000;
 610   GL_TEXTURE_HEIGHT                 = $1001;
 611   GL_TEXTURE_INTERNAL_FORMAT        = $1003;
 612   GL_TEXTURE_BORDER_COLOR           = $1004;
 613   GL_TEXTURE_BORDER                 = $1005;
 614   //      GL_TEXTURE_RED_SIZE
 615   //      GL_TEXTURE_GREEN_SIZE
 616   //      GL_TEXTURE_BLUE_SIZE
 617   //      GL_TEXTURE_ALPHA_SIZE
 618   //      GL_TEXTURE_LUMINANCE_SIZE
 619   //      GL_TEXTURE_INTENSITY_SIZE
 620   //      GL_TEXTURE_PRIORITY
 621   //      GL_TEXTURE_RESIDENT
 622
 623   // HintMode
 624   GL_DONT_CARE                      = $1100;
 625   GL_FASTEST                        = $1101;
 626   GL_NICEST                         = $1102;
 627
 628   // HintTarget
 629   //      GL_PERSPECTIVE_CORRECTION_HINT
 630   //      GL_POINT_SMOOTH_HINT
 631   //      GL_LINE_SMOOTH_HINT
 632   //      GL_POLYGON_SMOOTH_HINT
 633   //      GL_FOG_HINT
 634
 635   // IndexPointerType
 636   //      GL_SHORT
 637   //      GL_INT
 638   //      GL_FLOAT
 639   //      GL_DOUBLE
 640
 641   // LightModelParameter
 642   //      GL_LIGHT_MODEL_AMBIENT
 643   //      GL_LIGHT_MODEL_LOCAL_VIEWER
 644   //      GL_LIGHT_MODEL_TWO_SIDE
 645
 646   // LightName
 647   GL_LIGHT0                         = $4000;
 648   GL_LIGHT1                         = $4001;
 649   GL_LIGHT2                         = $4002;
 650   GL_LIGHT3                         = $4003;
 651   GL_LIGHT4                         = $4004;
 652   GL_LIGHT5                         = $4005;
 653   GL_LIGHT6                         = $4006;
 654   GL_LIGHT7                         = $4007;
 655
 656   // LightParameter
 657   GL_AMBIENT                        = $1200;
 658   GL_DIFFUSE                        = $1201;
 659   GL_SPECULAR                       = $1202;
 660   GL_POSITION                       = $1203;
 661   GL_SPOT_DIRECTION                 = $1204;
 662   GL_SPOT_EXPONENT                  = $1205;
 663   GL_SPOT_CUTOFF                    = $1206;
 664   GL_CONSTANT_ATTENUATION           = $1207;
 665   GL_LINEAR_ATTENUATION             = $1208;
 666   GL_QUADRATIC_ATTENUATION          = $1209;
 667
 668   // InterleavedArrays
 669   //      GL_V2F
 670   //      GL_V3F
 671   //      GL_C4UB_V2F
 672   //      GL_C4UB_V3F
 673   //      GL_C3F_V3F
 674   //      GL_N3F_V3F
 675   //      GL_C4F_N3F_V3F
 676   //      GL_T2F_V3F
 677   //      GL_T4F_V4F
 678   //      GL_T2F_C4UB_V3F
 679   //      GL_T2F_C3F_V3F
 680   //      GL_T2F_N3F_V3F
 681   //      GL_T2F_C4F_N3F_V3F
 682   //      GL_T4F_C4F_N3F_V4F
 683
 684   // ListMode
 685   GL_COMPILE                        = $1300;
 686   GL_COMPILE_AND_EXECUTE            = $1301;
 687
 688   // ListNameType
 689   //      GL_BYTE
 690   //      GL_UNSIGNED_BYTE
 691   //      GL_SHORT
 692   //      GL_UNSIGNED_SHORT
 693   //      GL_INT
 694   //      GL_UNSIGNED_INT
 695   //      GL_FLOAT
 696   //      GL_2_BYTES
 697   //      GL_3_BYTES
 698   //      GL_4_BYTES
 699
 700   // LogicOp
 701   GL_CLEAR                          = $1500;
 702   GL_AND                            = $1501;
 703   GL_AND_REVERSE                    = $1502;
 704   GL_COPY                           = $1503;
 705   GL_AND_INVERTED                   = $1504;
 706   GL_NOOP                           = $1505;
 707   GL_XOR                            = $1506;
 708   GL_OR                             = $1507;
 709   GL_NOR                            = $1508;
 710   GL_EQUIV                          = $1509;
 711   GL_INVERT                         = $150A;
 712   GL_OR_REVERSE                     = $150B;
 713   GL_COPY_INVERTED                  = $150C;
 714   GL_OR_INVERTED                    = $150D;
 715   GL_NAND                           = $150E;
 716   GL_SET                            = $150F;
 717
 718   // MapTarget
 719   //      GL_MAP1_COLOR_4
 720   //      GL_MAP1_INDEX
 721   //      GL_MAP1_NORMAL
 722   //      GL_MAP1_TEXTURE_COORD_1
 723   //      GL_MAP1_TEXTURE_COORD_2
 724   //      GL_MAP1_TEXTURE_COORD_3
 725   //      GL_MAP1_TEXTURE_COORD_4
 726   //      GL_MAP1_VERTEX_3
 727   //      GL_MAP1_VERTEX_4
 728   //      GL_MAP2_COLOR_4
 729   //      GL_MAP2_INDEX
 730   //      GL_MAP2_NORMAL
 731   //      GL_MAP2_TEXTURE_COORD_1
 732   //      GL_MAP2_TEXTURE_COORD_2
 733   //      GL_MAP2_TEXTURE_COORD_3
 734   //      GL_MAP2_TEXTURE_COORD_4
 735   //      GL_MAP2_VERTEX_3
 736   //      GL_MAP2_VERTEX_4
 737
 738   // MaterialFace
 739   //      GL_FRONT
 740   //      GL_BACK
 741   //      GL_FRONT_AND_BACK
 742
 743   // MaterialParameter
 744   GL_EMISSION                       = $1600;
 745   GL_SHININESS                      = $1601;
 746   GL_AMBIENT_AND_DIFFUSE            = $1602;
 747   GL_COLOR_INDEXES                  = $1603;
 748   //      GL_AMBIENT
 749   //      GL_DIFFUSE
 750   //      GL_SPECULAR
 751
 752   // MatrixMode
 753   GL_MODELVIEW                      = $1700;
 754   GL_PROJECTION                     = $1701;
 755   GL_TEXTURE                        = $1702;
 756
 757   // MeshMode1
 758   //      GL_POINT
 759   //      GL_LINE
 760
 761   // MeshMode2
 762   //      GL_POINT
 763   //      GL_LINE
 764   //      GL_FILL
 765
 766   // NormalPointerType
 767   //      GL_BYTE
 768   //      GL_SHORT
 769   //      GL_INT
 770   //      GL_FLOAT
 771   //      GL_DOUBLE
 772
 773   // PixelCopyType
 774   GL_COLOR                          = $1800;
 775   GL_DEPTH                          = $1801;
 776   GL_STENCIL                        = $1802;
 777
 778   // PixelFormat
 779   GL_COLOR_INDEX                    = $1900;
 780   GL_STENCIL_INDEX                  = $1901;
 781   GL_DEPTH_COMPONENT                = $1902;
 782   GL_RED                            = $1903;
 783   GL_GREEN                          = $1904;
 784   GL_BLUE                           = $1905;
 785   GL_ALPHA                          = $1906;
 786   GL_RGB                            = $1907;
 787   GL_RGBA                           = $1908;
 788   GL_LUMINANCE                      = $1909;
 789   GL_LUMINANCE_ALPHA                = $190A;
 790
 791   // PixelMap
 792   //      GL_PIXEL_MAP_I_TO_I
 793   //      GL_PIXEL_MAP_S_TO_S
 794   //      GL_PIXEL_MAP_I_TO_R
 795   //      GL_PIXEL_MAP_I_TO_G
 796   //      GL_PIXEL_MAP_I_TO_B
 797   //      GL_PIXEL_MAP_I_TO_A
 798   //      GL_PIXEL_MAP_R_TO_R
 799   //      GL_PIXEL_MAP_G_TO_G
 800   //      GL_PIXEL_MAP_B_TO_B
 801   //      GL_PIXEL_MAP_A_TO_A
 802
 803   // PixelStore
 804   //      GL_UNPACK_SWAP_BYTES
 805   //      GL_UNPACK_LSB_FIRST
 806   //      GL_UNPACK_ROW_LENGTH
 807   //      GL_UNPACK_SKIP_ROWS
 808   //      GL_UNPACK_SKIP_PIXELS
 809   //      GL_UNPACK_ALIGNMENT
 810   //      GL_PACK_SWAP_BYTES
 811   //      GL_PACK_LSB_FIRST
 812   //      GL_PACK_ROW_LENGTH
 813   //      GL_PACK_SKIP_ROWS
 814   //      GL_PACK_SKIP_PIXELS
 815   //      GL_PACK_ALIGNMENT
 816
 817   // PixelTransfer
 818   //      GL_MAP_COLOR
 819   //      GL_MAP_STENCIL
 820   //      GL_INDEX_SHIFT
 821   //      GL_INDEX_OFFSET
 822   //      GL_RED_SCALE
 823   //      GL_RED_BIAS
 824   //      GL_GREEN_SCALE
 825   //      GL_GREEN_BIAS
 826   //      GL_BLUE_SCALE
 827   //      GL_BLUE_BIAS
 828   //      GL_ALPHA_SCALE
 829   //      GL_ALPHA_BIAS
 830   //      GL_DEPTH_SCALE
 831   //      GL_DEPTH_BIAS
 832
 833   // PixelType
 834   GL_BITMAP                         = $1A00;
 835   //      GL_BYTE
 836   //      GL_UNSIGNED_BYTE
 837   //      GL_SHORT
 838   //      GL_UNSIGNED_SHORT
 839   //      GL_INT
 840   //      GL_UNSIGNED_INT
 841   //      GL_FLOAT
 842
 843   // PolygonMode
 844   GL_POINT                          = $1B00;
 845   GL_LINE                           = $1B01;
 846   GL_FILL                           = $1B02;
 847
 848   // ReadBufferMode
 849   //      GL_FRONT_LEFT
 850   //      GL_FRONT_RIGHT
 851   //      GL_BACK_LEFT
 852   //      GL_BACK_RIGHT
 853   //      GL_FRONT
 854   //      GL_BACK
 855   //      GL_LEFT
 856   //      GL_RIGHT
 857   //      GL_AUX0
 858   //      GL_AUX1
 859   //      GL_AUX2
 860   //      GL_AUX3
 861
 862   // RenderingMode
 863   GL_RENDER                         = $1C00;
 864   GL_FEEDBACK                       = $1C01;
 865   GL_SELECT                         = $1C02;
 866
 867   // ShadingModel
 868   GL_FLAT                           = $1D00;
 869   GL_SMOOTH                         = $1D01;
 870
 871   // StencilFunction
 872   //      GL_NEVER
 873   //      GL_LESS
 874   //      GL_EQUAL
 875   //      GL_LEQUAL
 876   //      GL_GREATER
 877   //      GL_NOTEQUAL
 878   //      GL_GEQUAL
 879   //      GL_ALWAYS
 880
 881   // StencilOp
 882   //      GL_ZERO
 883   GL_KEEP                           = $1E00;
 884   GL_REPLACE                        = $1E01;
 885   GL_INCR                           = $1E02;
 886   GL_DECR                           = $1E03;
 887   //      GL_INVERT
 888
 889   // StringName
 890   GL_VENDOR                         = $1F00;
 891   GL_RENDERER                       = $1F01;
 892   GL_VERSION                        = $1F02;
 893   GL_EXTENSIONS                     = $1F03;
 894
 895   // TextureCoordName
 896   GL_S                              = $2000;
 897   GL_T                              = $2001;
 898   GL_R                              = $2002;
 899   GL_Q                              = $2003;
 900
 901   // TexCoordPointerType
 902   //      GL_SHORT
 903   //      GL_INT
 904   //      GL_FLOAT
 905   //      GL_DOUBLE
 906
 907   // TextureEnvMode
 908   GL_MODULATE                       = $2100;
 909   GL_DECAL                          = $2101;
 910   //      GL_BLEND
 911   //      GL_REPLACE
 912
 913   // TextureEnvParameter
 914   GL_TEXTURE_ENV_MODE               = $2200;
 915   GL_TEXTURE_ENV_COLOR              = $2201;
 916
 917   // TextureEnvTarget
 918   GL_TEXTURE_ENV                    = $2300;
 919
 920   // TextureGenMode
 921   GL_EYE_LINEAR                     = $2400;
 922   GL_OBJECT_LINEAR                  = $2401;
 923   GL_SPHERE_MAP                     = $2402;
 924
 925   // TextureGenParameter
 926   GL_TEXTURE_GEN_MODE               = $2500;
 927   GL_OBJECT_PLANE                   = $2501;
 928   GL_EYE_PLANE                      = $2502;
 929
 930   // TextureMagFilter
 931   GL_NEAREST                        = $2600;
 932   GL_LINEAR                         = $2601;
 933
 934   // TextureMinFilter
 935   //      GL_NEAREST
 936   //      GL_LINEAR
 937   GL_NEAREST_MIPMAP_NEAREST         = $2700;
 938   GL_LINEAR_MIPMAP_NEAREST          = $2701;
 939   GL_NEAREST_MIPMAP_LINEAR          = $2702;
 940   GL_LINEAR_MIPMAP_LINEAR           = $2703;
 941
 942   // TextureParameterName
 943   GL_TEXTURE_MAG_FILTER             = $2800;
 944   GL_TEXTURE_MIN_FILTER             = $2801;
 945   GL_TEXTURE_WRAP_S                 = $2802;
 946   GL_TEXTURE_WRAP_T                 = $2803;
 947   //      GL_TEXTURE_BORDER_COLOR
 948   //      GL_TEXTURE_PRIORITY
 949
 950   // TextureTarget
 951   //      GL_TEXTURE_1D
 952   //      GL_TEXTURE_2D
 953   //      GL_PROXY_TEXTURE_1D
 954   //      GL_PROXY_TEXTURE_2D
 955
 956   // TextureWrapMode
 957   GL_CLAMP                          = $2900;
 958   GL_REPEAT                         = $2901;
 959
 960   // VertexPointerType
 961   //      GL_SHORT
 962   //      GL_INT
 963   //      GL_FLOAT
 964   //      GL_DOUBLE
 965
 966   // ClientAttribMask
 967   GL_CLIENT_PIXEL_STORE_BIT         = $00000001;
 968   GL_CLIENT_VERTEX_ARRAY_BIT        = $00000002;
 969   GL_CLIENT_ALL_ATTRIB_BITS         = $FFFFFFFF;
 970
 971   // polygon_offset
 972   GL_POLYGON_OFFSET_FACTOR          = $8038;
 973   GL_POLYGON_OFFSET_UNITS           = $2A00;
 974   GL_POLYGON_OFFSET_POINT           = $2A01;
 975   GL_POLYGON_OFFSET_LINE            = $2A02;
 976   GL_POLYGON_OFFSET_FILL            = $8037;
 977
 978   // texture
 979   GL_ALPHA4                         = $803B;
 980   GL_ALPHA8                         = $803C;
 981   GL_ALPHA12                        = $803D;
 982   GL_ALPHA16                        = $803E;
 983   GL_LUMINANCE4                     = $803F;
 984   GL_LUMINANCE8                     = $8040;
 985   GL_LUMINANCE12                    = $8041;
 986   GL_LUMINANCE16                    = $8042;
 987   GL_LUMINANCE4_ALPHA4              = $8043;
 988   GL_LUMINANCE6_ALPHA2              = $8044;
 989   GL_LUMINANCE8_ALPHA8              = $8045;
 990   GL_LUMINANCE12_ALPHA4             = $8046;
 991   GL_LUMINANCE12_ALPHA12            = $8047;
 992   GL_LUMINANCE16_ALPHA16            = $8048;
 993   GL_INTENSITY                      = $8049;
 994   GL_INTENSITY4                     = $804A;
 995   GL_INTENSITY8                     = $804B;
 996   GL_INTENSITY12                    = $804C;
 997   GL_INTENSITY16                    = $804D;
 998   GL_R3_G3_B2                       = $2A10;
 999   GL_RGB4                           = $804F;
1000   GL_RGB5                           = $8050;
1001   GL_RGB8                           = $8051;
1002   GL_RGB10                          = $8052;
1003   GL_RGB12                          = $8053;
1004   GL_RGB16                          = $8054;
1005   GL_RGBA2                          = $8055;
1006   GL_RGBA4                          = $8056;
1007   GL_RGB5_A1                        = $8057;
1008   GL_RGBA8                          = $8058;
1009   GL_RGB10_A2                       = $8059;
1010   GL_RGBA12                         = $805A;
1011   GL_RGBA16                         = $805B;
1012   GL_TEXTURE_RED_SIZE               = $805C;
1013   GL_TEXTURE_GREEN_SIZE             = $805D;
1014   GL_TEXTURE_BLUE_SIZE              = $805E;
1015   GL_TEXTURE_ALPHA_SIZE             = $805F;
1016   GL_TEXTURE_LUMINANCE_SIZE         = $8060;
1017   GL_TEXTURE_INTENSITY_SIZE         = $8061;
1018   GL_PROXY_TEXTURE_1D               = $8063;
1019   GL_PROXY_TEXTURE_2D               = $8064;
1020
1021   // texture_object
1022   GL_TEXTURE_PRIORITY               = $8066;
1023   GL_TEXTURE_RESIDENT               = $8067;
1024   GL_TEXTURE_BINDING_1D             = $8068;
1025   GL_TEXTURE_BINDING_2D             = $8069;
1026
1027   // vertex_array
1028   GL_VERTEX_ARRAY                   = $8074;
1029   GL_NORMAL_ARRAY                   = $8075;
1030   GL_COLOR_ARRAY                    = $8076;
1031   GL_INDEX_ARRAY                    = $8077;
1032   GL_TEXTURE_COORD_ARRAY            = $8078;
1033   GL_EDGE_FLAG_ARRAY                = $8079;
1034   GL_VERTEX_ARRAY_SIZE              = $807A;
1035   GL_VERTEX_ARRAY_TYPE              = $807B;
1036   GL_VERTEX_ARRAY_STRIDE            = $807C;
1037   GL_NORMAL_ARRAY_TYPE              = $807E;
1038   GL_NORMAL_ARRAY_STRIDE            = $807F;
1039   GL_COLOR_ARRAY_SIZE               = $8081;
1040   GL_COLOR_ARRAY_TYPE               = $8082;
1041   GL_COLOR_ARRAY_STRIDE             = $8083;
1042   GL_INDEX_ARRAY_TYPE               = $8085;
1043   GL_INDEX_ARRAY_STRIDE             = $8086;
1044   GL_TEXTURE_COORD_ARRAY_SIZE       = $8088;
1045   GL_TEXTURE_COORD_ARRAY_TYPE       = $8089;
1046   GL_TEXTURE_COORD_ARRAY_STRIDE     = $808A;
1047   GL_EDGE_FLAG_ARRAY_STRIDE         = $808C;
1048   GL_VERTEX_ARRAY_POINTER           = $808E;
1049   GL_NORMAL_ARRAY_POINTER           = $808F;
1050   GL_COLOR_ARRAY_POINTER            = $8090;
1051   GL_INDEX_ARRAY_POINTER            = $8091;
1052   GL_TEXTURE_COORD_ARRAY_POINTER    = $8092;
1053   GL_EDGE_FLAG_ARRAY_POINTER        = $8093;
1054   GL_V2F                            = $2A20;
1055   GL_V3F                            = $2A21;
1056   GL_C4UB_V2F                       = $2A22;
1057   GL_C4UB_V3F                       = $2A23;
1058   GL_C3F_V3F                        = $2A24;
1059   GL_N3F_V3F                        = $2A25;
1060   GL_C4F_N3F_V3F                    = $2A26;
1061   GL_T2F_V3F                        = $2A27;
1062   GL_T4F_V4F                        = $2A28;
1063   GL_T2F_C4UB_V3F                   = $2A29;
1064   GL_T2F_C3F_V3F                    = $2A2A;
1065   GL_T2F_N3F_V3F                    = $2A2B;
1066   GL_T2F_C4F_N3F_V3F                = $2A2C;
1067   GL_T4F_C4F_N3F_V4F                = $2A2D;
1068
1069   // Extensions
1070   GL_EXT_vertex_array               = 1;
1071   GL_WIN_swap_hint                  = 1;
1072   GL_EXT_bgra                       = 1;
1073   GL_EXT_paletted_texture           = 1;
1074
1075   // EXT_vertex_array
1076   GL_VERTEX_ARRAY_EXT               = $8074;
1077   GL_NORMAL_ARRAY_EXT               = $8075;
1078   GL_COLOR_ARRAY_EXT                = $8076;
1079   GL_INDEX_ARRAY_EXT                = $8077;
1080   GL_TEXTURE_COORD_ARRAY_EXT        = $8078;
1081   GL_EDGE_FLAG_ARRAY_EXT            = $8079;
1082   GL_VERTEX_ARRAY_SIZE_EXT          = $807A;
1083   GL_VERTEX_ARRAY_TYPE_EXT          = $807B;
1084   GL_VERTEX_ARRAY_STRIDE_EXT        = $807C;
1085   GL_VERTEX_ARRAY_COUNT_EXT         = $807D;
1086   GL_NORMAL_ARRAY_TYPE_EXT          = $807E;
1087   GL_NORMAL_ARRAY_STRIDE_EXT        = $807F;
1088   GL_NORMAL_ARRAY_COUNT_EXT         = $8080;
1089   GL_COLOR_ARRAY_SIZE_EXT           = $8081;
1090   GL_COLOR_ARRAY_TYPE_EXT           = $8082;
1091   GL_COLOR_ARRAY_STRIDE_EXT         = $8083;
1092   GL_COLOR_ARRAY_COUNT_EXT          = $8084;
1093   GL_INDEX_ARRAY_TYPE_EXT           = $8085;
1094   GL_INDEX_ARRAY_STRIDE_EXT         = $8086;
1095   GL_INDEX_ARRAY_COUNT_EXT          = $8087;
1096   GL_TEXTURE_COORD_ARRAY_SIZE_EXT   = $8088;
1097   GL_TEXTURE_COORD_ARRAY_TYPE_EXT   = $8089;
1098   GL_TEXTURE_COORD_ARRAY_STRIDE_EXT = $808A;
1099   GL_TEXTURE_COORD_ARRAY_COUNT_EXT  = $808B;
1100   GL_EDGE_FLAG_ARRAY_STRIDE_EXT     = $808C;
1101   GL_EDGE_FLAG_ARRAY_COUNT_EXT      = $808D;
1102   GL_VERTEX_ARRAY_POINTER_EXT       = $808E;
1103   GL_NORMAL_ARRAY_POINTER_EXT       = $808F;
1104   GL_COLOR_ARRAY_POINTER_EXT        = $8090;
1105   GL_INDEX_ARRAY_POINTER_EXT        = $8091;
1106   GL_TEXTURE_COORD_ARRAY_POINTER_EXT = $8092;
1107   GL_EDGE_FLAG_ARRAY_POINTER_EXT    = $8093;
1108   GL_DOUBLE_EXT                     = GL_DOUBLE;
1109
1110   // EXT_bgra
1111   GL_BGR_EXT                        = $80E0;
1112   GL_BGRA_EXT                       = $80E1;
1113
1114   // EXT_paletted_texture
1115
1116   // These must match the GL_COLOR_TABLE_*_SGI enumerants
1117   GL_COLOR_TABLE_FORMAT_EXT         = $80D8;
1118   GL_COLOR_TABLE_WIDTH_EXT          = $80D9;
1119   GL_COLOR_TABLE_RED_SIZE_EXT       = $80DA;
1120   GL_COLOR_TABLE_GREEN_SIZE_EXT     = $80DB;
1121   GL_COLOR_TABLE_BLUE_SIZE_EXT      = $80DC;
1122   GL_COLOR_TABLE_ALPHA_SIZE_EXT     = $80DD;
1123   GL_COLOR_TABLE_LUMINANCE_SIZE_EXT = $80DE;
1124   GL_COLOR_TABLE_INTENSITY_SIZE_EXT = $80DF;
1125
1126   GL_COLOR_INDEX1_EXT               = $80E2;
1127   GL_COLOR_INDEX2_EXT               = $80E3;
1128   GL_COLOR_INDEX4_EXT               = $80E4;
1129   GL_COLOR_INDEX8_EXT               = $80E5;
1130   GL_COLOR_INDEX12_EXT              = $80E6;
1131   GL_COLOR_INDEX16_EXT              = $80E7;
1132
1133   // For compatibility with OpenGL v1.0
1134   GL_LOGIC_OP                       = GL_INDEX_LOGIC_OP;
1135   GL_TEXTURE_COMPONENTS             = GL_TEXTURE_INTERNAL_FORMAT;
1136
1137 {******************************************************************************}
1138
1139 var
1140   glAccum: procedure(op: GLenum; value: GLfloat); stdcall;
1141   glAlphaFunc: procedure(func: GLenum; ref: GLclampf); stdcall;
1142   glAreTexturesResident: function (n: GLsizei; const textures: PGLuint; residences: PGLboolean): GLboolean; stdcall;
1143   glArrayElement: procedure(i: GLint); stdcall;
1144   glBegin: procedure(mode: GLenum); stdcall;
1145   glBindTexture: procedure(target: GLenum; texture: GLuint); stdcall;
1146   glBitmap: procedure (width, height: GLsizei; xorig, yorig: GLfloat; xmove, ymove: GLfloat; const bitmap: PGLubyte); stdcall;
1147   glBlendFunc: procedure(sfactor, dfactor: GLenum); stdcall;
1148   glCallList: procedure(list: GLuint); stdcall;
1149   glCallLists: procedure(n: GLsizei; atype: GLenum; const lists: Pointer); stdcall;
1150   glClear: procedure(mask: GLbitfield); stdcall;
1151   glClearAccum: procedure(red, green, blue, alpha: GLfloat); stdcall;
1152   glClearColor: procedure(red, green, blue, alpha: GLclampf); stdcall;
1153   glClearDepth: procedure(depth: GLclampd); stdcall;
1154   glClearIndex: procedure(c: GLfloat); stdcall;
1155   glClearStencil: procedure(s: GLint); stdcall;
1156   glClipPlane: procedure(plane: GLenum; const equation: PGLdouble); stdcall;
1157   glColor3b: procedure(red, green, blue: GLbyte); stdcall;
1158   glColor3bv: procedure(const v: PGLbyte); stdcall;
1159   glColor3d: procedure(red, green, blue: GLdouble); stdcall;
1160   glColor3dv: procedure(const v: PGLdouble); stdcall;
1161   glColor3f: procedure(red, green, blue: GLfloat); stdcall;
1162   glColor3fv: procedure(const v: PGLfloat); stdcall;
1163   glColor3i: procedure(red, green, blue: GLint); stdcall;
1164   glColor3iv: procedure(const v: PGLint); stdcall;
1165   glColor3s: procedure(red, green, blue: GLshort); stdcall;
1166   glColor3sv: procedure(const v: PGLshort); stdcall;
1167   glColor3ub: procedure(red, green, blue: GLubyte); stdcall;
1168   glColor3ubv: procedure(const v: PGLubyte); stdcall;
1169   glColor3ui: procedure(red, green, blue: GLuint); stdcall;
1170   glColor3uiv: procedure(const v: PGLuint); stdcall;
1171   glColor3us: procedure(red, green, blue: GLushort); stdcall;
1172   glColor3usv: procedure(const v: PGLushort); stdcall;
1173   glColor4b: procedure(red, green, blue, alpha: GLbyte); stdcall;
1174   glColor4bv: procedure(const v: PGLbyte); stdcall;
1175   glColor4d: procedure(red, green, blue, alpha: GLdouble); stdcall;
1176   glColor4dv: procedure(const v: PGLdouble); stdcall;
1177   glColor4f: procedure(red, green, blue, alpha: GLfloat); stdcall;
1178   glColor4fv: procedure(const v: PGLfloat); stdcall;
1179   glColor4i: procedure(red, green, blue, alpha: GLint); stdcall;
1180   glColor4iv: procedure(const v: PGLint); stdcall;
1181   glColor4s: procedure(red, green, blue, alpha: GLshort); stdcall;
1182   glColor4sv: procedure(const v: PGLshort); stdcall;
1183   glColor4ub: procedure(red, green, blue, alpha: GLubyte); stdcall;
1184   glColor4ubv: procedure(const v: PGLubyte); stdcall;
1185   glColor4ui: procedure(red, green, blue, alpha: GLuint); stdcall;
1186   glColor4uiv: procedure(const v: PGLuint); stdcall;
1187   glColor4us: procedure(red, green, blue, alpha: GLushort); stdcall;
1188   glColor4usv: procedure(const v: PGLushort); stdcall;
1189   glColorMask: procedure(red, green, blue, alpha: GLboolean); stdcall;
1190   glColorMaterial: procedure(face, mode: GLenum); stdcall;
1191   glColorPointer: procedure(size: GLint; atype: GLenum; stride: GLsizei; const pointer: Pointer); stdcall;
1192   glCopyPixels: procedure(x, y: GLint; width, height: GLsizei; atype: GLenum); stdcall;
1193   glCopyTexImage1D: procedure (target: GLenum; level: GLint; internalFormat: GLenum; x, y: GLint; width: GLsizei; border: GLint); stdcall;
1194   glCopyTexImage2D: procedure(target: GLenum; level: GLint; internalFormat: GLenum; x, y: GLint; width, height: GLsizei; border: GLint); stdcall;
1195   glCopyTexSubImage1D: procedure(target: GLenum; level, xoffset, x, y: GLint; width: GLsizei); stdcall;
1196   glCopyTexSubImage2D: procedure(target: GLenum; level, xoffset, yoffset, x, y: GLint; width, height: GLsizei); stdcall;
1197   glCullFace: procedure(mode: GLenum); stdcall;
1198   glDeleteLists: procedure(list: GLuint; range: GLsizei); stdcall;
1199   glDeleteTextures: procedure(n: GLsizei; const textures: PGLuint); stdcall;
1200   glDepthFunc: procedure(func: GLenum); stdcall;
1201   glDepthMask: procedure(flag: GLboolean); stdcall;
1202   glDepthRange: procedure(zNear, zFar: GLclampd); stdcall;
1203   glDisable: procedure(cap: GLenum); stdcall;
1204   glDisableClientState: procedure(aarray: GLenum); stdcall;
1205   glDrawArrays: procedure(mode: GLenum; first: GLint; count: GLsizei); stdcall;
1206   glDrawBuffer: procedure(mode: GLenum); stdcall;
1207   glDrawElements: procedure(mode: GLenum; count: GLsizei; atype: GLenum; const indices: Pointer); stdcall;
1208   glDrawPixels: procedure(width, height: GLsizei; format, atype: GLenum; const pixels: Pointer); stdcall;
1209   glEdgeFlag: procedure(flag: GLboolean); stdcall;
1210   glEdgeFlagPointer: procedure(stride: GLsizei; const pointer: Pointer); stdcall;
1211   glEdgeFlagv: procedure(const flag: PGLboolean); stdcall;
1212   glEnable: procedure(cap: GLenum); stdcall;
1213   glEnableClientState: procedure(aarray: GLenum); stdcall;
1214   glEnd: procedure; stdcall;
1215   glEndList: procedure; stdcall;
1216   glEvalCoord1d: procedure(u: GLdouble); stdcall;
1217   glEvalCoord1dv: procedure(const u: PGLdouble); stdcall;
1218   glEvalCoord1f: procedure(u: GLfloat); stdcall;
1219   glEvalCoord1fv: procedure(const u: PGLfloat); stdcall;
1220   glEvalCoord2d: procedure(u, v: GLdouble); stdcall;
1221   glEvalCoord2dv: procedure(const u: PGLdouble); stdcall;
1222   glEvalCoord2f: procedure(u, v: GLfloat); stdcall;
1223   glEvalCoord2fv: procedure(const u: PGLfloat); stdcall;
1224   glEvalMesh1: procedure(mode: GLenum; i1, i2: GLint); stdcall;
1225   glEvalMesh2: procedure(mode: GLenum; i1, i2, j1, j2: GLint); stdcall;
1226   glEvalPoint1: procedure(i: GLint); stdcall;
1227   glEvalPoint2: procedure(i, j: GLint); stdcall;
1228   glFeedbackBuffer: procedure(size: GLsizei; atype: GLenum; buffer: PGLfloat); stdcall;
1229   glFinish: procedure; stdcall;
1230   glFlush: procedure; stdcall;
1231   glFogf: procedure(pname: GLenum; param: GLfloat); stdcall;
1232   glFogfv: procedure(pname: GLenum; const params: PGLfloat); stdcall;
1233   glFogi: procedure(pname: GLenum; param: GLint); stdcall;
1234   glFogiv: procedure(pname: GLenum; const params: PGLint); stdcall;
1235   glFrontFace: procedure(mode: GLenum); stdcall;
1236   glFrustum: procedure(left, right, bottom, top, zNear, zFar: GLdouble); stdcall;
1237   glGenLists: function(range: GLsizei): GLuint; stdcall;
1238   glGenTextures: procedure(n: GLsizei; textures: PGLuint); stdcall;
1239   glGetBooleanv: procedure(pname: GLenum; params: PGLboolean); stdcall;
1240   glGetClipPlane: procedure(plane: GLenum; equation: PGLdouble); stdcall;
1241   glGetDoublev: procedure(pname: GLenum; params: PGLdouble); stdcall;
1242   glGetError: function: GLenum; stdcall;
1243   glGetFloatv: procedure(pname: GLenum; params: PGLfloat); stdcall;
1244   glGetIntegerv: procedure(pname: GLenum; params: PGLint); stdcall;
1245   glGetLightfv: procedure(light, pname: GLenum; params: PGLfloat); stdcall;
1246   glGetLightiv: procedure(light, pname: GLenum; params: PGLint); stdcall;
1247   glGetMapdv: procedure(target, query: GLenum; v: PGLdouble); stdcall;
1248   glGetMapfv: procedure(target, query: GLenum; v: PGLfloat); stdcall;
1249   glGetMapiv: procedure(target, query: GLenum; v: GLint); stdcall;
1250   glGetMaterialfv: procedure(face, pname: GLenum; params: PGLfloat); stdcall;
1251   glGetMaterialiv: procedure(face, pname: GLenum; params: GLint); stdcall;
1252   glGetPixelMapfv: procedure(map: GLenum; values: PGLfloat); stdcall;
1253   glGetPixelMapuiv: procedure(map: GLenum; values: PGLuint); stdcall;
1254   glGetPixelMapusv: procedure(map: GLenum; values: PGLushort); stdcall;
1255   glGetPointerv: procedure(pname: GLenum; params: Pointer); stdcall;
1256   glGetPolygonStipple: procedure(mask: PGLubyte); stdcall;
1257   glGetString: function(name: GLenum): PGLubyte; stdcall;
1258   glGetTexEnvfv: procedure(target, pname: GLenum; params: PGLfloat); stdcall;
1259   glGetTexEnviv: procedure(target, pname: GLenum; params: PGLint); stdcall;
1260   glGetTexGendv: procedure(coord, pname: GLenum; params: PGLdouble); stdcall;
1261   glGetTexGenfv: procedure(coord, pname: GLenum; params: PGLfloat); stdcall;
1262   glGetTexGeniv: procedure(coord, pname: GLenum; params: PGLint); stdcall;
1263   glGetTexImage: procedure(target: GLenum; level: GLint; format: GLenum; atype: GLenum; pixels: Pointer); stdcall;
1264   glGetTexLevelParameterfv: procedure(target: GLenum; level: GLint; pname: GLenum; params: Pointer); stdcall;
1265   glGetTexLevelParameteriv: procedure(target: GLenum; level: GLint; pname: GLenum; params: PGLint); stdcall;
1266   glGetTexParameterfv: procedure(target, pname: GLenum; params: PGLfloat); stdcall;
1267   glGetTexParameteriv: procedure(target, pname: GLenum; params: PGLint); stdcall;
1268   glHint: procedure(target, mode: GLenum); stdcall;
1269   glIndexMask: procedure(mask: GLuint); stdcall;
1270   glIndexPointer: procedure(atype: GLenum; stride: GLsizei; const pointer: Pointer); stdcall;
1271   glIndexd: procedure(c: GLdouble); stdcall;
1272   glIndexdv: procedure(const c: PGLdouble); stdcall;
1273   glIndexf: procedure(c: GLfloat); stdcall;
1274   glIndexfv: procedure(const c: PGLfloat); stdcall;
1275   glIndexi: procedure(c: GLint); stdcall;
1276   glIndexiv: procedure(const c: PGLint); stdcall;
1277   glIndexs: procedure(c: GLshort); stdcall;
1278   glIndexsv: procedure(const c: PGLshort); stdcall;
1279   glIndexub: procedure(c: GLubyte); stdcall;
1280   glIndexubv: procedure(const c: PGLubyte); stdcall;
1281   glInitNames: procedure; stdcall;
1282   glInterleavedArrays: procedure(format: GLenum; stride: GLsizei; const pointer: Pointer); stdcall;
1283   glIsEnabled: function(cap: GLenum): GLboolean; stdcall;
1284   glIsList: function(list: GLuint): GLboolean; stdcall;
1285   glIsTexture: function(texture: GLuint): GLboolean; stdcall;
1286   glLightModelf: procedure(pname: GLenum; param: GLfloat); stdcall;
1287   glLightModelfv: procedure(pname: GLenum; const params: PGLfloat); stdcall;
1288   glLightModeli: procedure(pname: GLenum; param: GLint); stdcall;
1289   glLightModeliv: procedure(pname: GLenum; const params: PGLint); stdcall;
1290   glLightf: procedure(light, pname: GLenum; param: GLfloat); stdcall;
1291   glLightfv: procedure(light, pname: GLenum; const params: PGLfloat); stdcall;
1292   glLighti: procedure(light, pname: GLenum; param: GLint); stdcall;
1293   glLightiv: procedure(light, pname: GLenum; const params: GLint); stdcall;
1294   glLineStipple: procedure(factor: GLint; pattern: GLushort); stdcall;
1295   glLineWidth: procedure(width: GLfloat); stdcall;
1296   glListBase: procedure(base: GLuint); stdcall;
1297   glLoadIdentity: procedure; stdcall;
1298   glLoadMatrixd: procedure(const m: PGLdouble); stdcall;
1299   glLoadMatrixf: procedure(const m: PGLfloat); stdcall;
1300   glLoadName: procedure(name: GLuint); stdcall;
1301   glLogicOp: procedure(opcode: GLenum); stdcall;
1302   glMap1d: procedure(target: GLenum; u1, u2: GLdouble; stride, order: GLint; const points: PGLdouble); stdcall;
1303   glMap1f: procedure(target: GLenum; u1, u2: GLfloat; stride, order: GLint; const points: PGLfloat); stdcall;
1304   glMap2d: procedure(target: GLenum; u1, u2: GLdouble; ustride, uorder: GLint; v1, v2: GLdouble; vstride, vorder: GLint; const points: PGLdouble); stdcall;
1305   glMap2f: procedure(target: GLenum; u1, u2: GLfloat; ustride, uorder: GLint; v1, v2: GLfloat; vstride, vorder: GLint; const points: PGLfloat); stdcall;
1306   glMapGrid1d: procedure(un: GLint; u1, u2: GLdouble); stdcall;
1307   glMapGrid1f: procedure(un: GLint; u1, u2: GLfloat); stdcall;
1308   glMapGrid2d: procedure(un: GLint; u1, u2: GLdouble; vn: GLint; v1, v2: GLdouble); stdcall;
1309   glMapGrid2f: procedure(un: GLint; u1, u2: GLfloat; vn: GLint; v1, v2: GLfloat); stdcall;
1310   glMaterialf: procedure(face, pname: GLenum; param: GLfloat); stdcall;
1311   glMaterialfv: procedure(face, pname: GLenum; const params: PGLfloat); stdcall;
1312   glMateriali: procedure(face, pname: GLenum; param: GLint); stdcall;
1313   glMaterialiv: procedure(face, pname: GLenum; const params: PGLint); stdcall;
1314   glMatrixMode: procedure(mode: GLenum); stdcall;
1315   glMultMatrixd: procedure(const m: PGLdouble); stdcall;
1316   glMultMatrixf: procedure(const m: PGLfloat); stdcall;
1317   glNewList: procedure(list: GLuint; mode: GLenum); stdcall;
1318   glNormal3b: procedure(nx, ny, nz: GLbyte); stdcall;
1319   glNormal3bv: procedure(const v: PGLbyte); stdcall;
1320   glNormal3d: procedure(nx, ny, nz: GLdouble); stdcall;
1321   glNormal3dv: procedure(const v: PGLdouble); stdcall;
1322   glNormal3f: procedure(nx, ny, nz: GLfloat); stdcall;
1323   glNormal3fv: procedure(const v: PGLfloat); stdcall;
1324   glNormal3i: procedure(nx, ny, nz: GLint); stdcall;
1325   glNormal3iv: procedure(const v: PGLint); stdcall;
1326   glNormal3s: procedure(nx, ny, nz: GLshort); stdcall;
1327   glNormal3sv: procedure(const v: PGLshort); stdcall;
1328   glNormalPointer: procedure(atype: GLenum; stride: GLsizei; const pointer: Pointer); stdcall;
1329   glOrtho: procedure(left, right, bottom, top, zNear, zFar: GLdouble); stdcall;
1330   glPassThrough: procedure(token: GLfloat); stdcall;
1331   glPixelMapfv: procedure(map: GLenum; mapsize: GLsizei; const values: PGLfloat); stdcall;
1332   glPixelMapuiv: procedure(map: GLenum; mapsize: GLsizei; const values: PGLuint); stdcall;
1333   glPixelMapusv: procedure(map: GLenum; mapsize: GLsizei; const values: PGLushort); stdcall;
1334   glPixelStoref: procedure(pname: GLenum; param: GLfloat); stdcall;
1335   glPixelStorei: procedure(pname: GLenum; param: GLint); stdcall;
1336   glPixelTransferf: procedure(pname: GLenum; param: GLfloat); stdcall;
1337   glPixelTransferi: procedure(pname: GLenum; param: GLint); stdcall;
1338   glPixelZoom: procedure(xfactor, yfactor: GLfloat); stdcall;
1339   glPointSize: procedure(size: GLfloat); stdcall;
1340   glPolygonMode: procedure(face, mode: GLenum); stdcall;
1341   glPolygonOffset: procedure(factor, units: GLfloat); stdcall;
1342   glPolygonStipple: procedure(const mask: PGLubyte); stdcall;
1343   glPopAttrib: procedure; stdcall;
1344   glPopClientAttrib: procedure; stdcall;
1345   glPopMatrix: procedure; stdcall;
1346   glPopName: procedure; stdcall;
1347   glPrioritizeTextures: procedure(n: GLsizei; const textures: PGLuint; const priorities: PGLclampf); stdcall;
1348   glPushAttrib: procedure(mask: GLbitfield); stdcall;
1349   glPushClientAttrib: procedure(mask: GLbitfield); stdcall;
1350   glPushMatrix: procedure; stdcall;
1351   glPushName: procedure(name: GLuint); stdcall;
1352   glRasterPos2d: procedure(x, y: GLdouble); stdcall;
1353   glRasterPos2dv: procedure(const v: PGLdouble); stdcall;
1354   glRasterPos2f: procedure(x, y: GLfloat); stdcall;
1355   glRasterPos2fv: procedure(const v: PGLfloat); stdcall;
1356   glRasterPos2i: procedure(x, y: GLint); stdcall;
1357   glRasterPos2iv: procedure(const v: PGLint); stdcall;
1358   glRasterPos2s: procedure(x, y: GLshort); stdcall;
1359   glRasterPos2sv: procedure(const v: PGLshort); stdcall;
1360   glRasterPos3d: procedure(x, y, z: GLdouble); stdcall;
1361   glRasterPos3dv: procedure(const v: PGLdouble); stdcall;
1362   glRasterPos3f: procedure(x, y, z: GLfloat); stdcall;
1363   glRasterPos3fv: procedure(const v: PGLfloat); stdcall;
1364   glRasterPos3i: procedure(x, y, z: GLint); stdcall;
1365   glRasterPos3iv: procedure(const v: PGLint); stdcall;
1366   glRasterPos3s: procedure(x, y, z: GLshort); stdcall;
1367   glRasterPos3sv: procedure(const v: PGLshort); stdcall;
1368   glRasterPos4d: procedure(x, y, z, w: GLdouble); stdcall;
1369   glRasterPos4dv: procedure(const v: PGLdouble); stdcall;
1370   glRasterPos4f: procedure(x, y, z, w: GLfloat); stdcall;
1371   glRasterPos4fv: procedure(const v: PGLfloat); stdcall;
1372   glRasterPos4i: procedure(x, y, z, w: GLint); stdcall;
1373   glRasterPos4iv: procedure(const v: PGLint); stdcall;
1374   glRasterPos4s: procedure(x, y, z, w: GLshort); stdcall;
1375   glRasterPos4sv: procedure(const v: PGLshort); stdcall;
1376   glReadBuffer: procedure(mode: GLenum); stdcall;
1377   glReadPixels: procedure(x, y: GLint; width, height: GLsizei; format, atype: GLenum; pixels: Pointer); stdcall;
1378   glRectd: procedure(x1, y1, x2, y2: GLdouble); stdcall;
1379   glRectdv: procedure(const v1: PGLdouble; const v2: PGLdouble); stdcall;
1380   glRectf: procedure(x1, y1, x2, y2: GLfloat); stdcall;
1381   glRectfv: procedure(const v1: PGLfloat; const v2: PGLfloat); stdcall;
1382   glRecti: procedure(x1, y1, x2, y2: GLint); stdcall;
1383   glRectiv: procedure(const v1: PGLint; const v2: PGLint); stdcall;
1384   glRects: procedure(x1, y1, x2, y2: GLshort); stdcall;
1385   glRectsv: procedure(const v1: PGLshort; const v2: PGLshort); stdcall;
1386   glRenderMode: function(mode: GLint): GLint; stdcall;
1387   glRotated: procedure(angle, x, y, z: GLdouble); stdcall;
1388   glRotatef: procedure(angle, x, y, z: GLfloat); stdcall;
1389   glScaled: procedure(x, y, z: GLdouble); stdcall;
1390   glScalef: procedure(x, y, z: GLfloat); stdcall;
1391   glScissor: procedure(x, y: GLint; width, height: GLsizei); stdcall;
1392   glSelectBuffer: procedure(size: GLsizei; buffer: PGLuint); stdcall;
1393   glShadeModel: procedure(mode: GLenum); stdcall;
1394   glStencilFunc: procedure(func: GLenum; ref: GLint; mask: GLuint); stdcall;
1395   glStencilMask: procedure(mask: GLuint); stdcall;
1396   glStencilOp: procedure(fail, zfail, zpass: GLenum); stdcall;
1397   glTexCoord1d: procedure(s: GLdouble); stdcall;
1398   glTexCoord1dv: procedure(const v: PGLdouble); stdcall;
1399   glTexCoord1f: procedure(s: GLfloat); stdcall;
1400   glTexCoord1fv: procedure(const v: PGLfloat); stdcall;
1401   glTexCoord1i: procedure(s: GLint); stdcall;
1402   glTexCoord1iv: procedure(const v: PGLint); stdcall;
1403   glTexCoord1s: procedure(s: GLshort); stdcall;
1404   glTexCoord1sv: procedure(const v: PGLshort); stdcall;
1405   glTexCoord2d: procedure(s, t: GLdouble); stdcall;
1406   glTexCoord2dv: procedure(const v: PGLdouble); stdcall;
1407   glTexCoord2f: procedure(s, t: GLfloat); stdcall;
1408   glTexCoord2fv: procedure(const v: PGLfloat); stdcall;
1409   glTexCoord2i: procedure(s, t: GLint); stdcall;
1410   glTexCoord2iv: procedure(const v: PGLint); stdcall;
1411   glTexCoord2s: procedure(s, t: GLshort); stdcall;
1412   glTexCoord2sv: procedure(const v: PGLshort); stdcall;
1413   glTexCoord3d: procedure(s, t, r: GLdouble); stdcall;
1414   glTexCoord3dv: procedure(const v: PGLdouble); stdcall;
1415   glTexCoord3f: procedure(s, t, r: GLfloat); stdcall;
1416   glTexCoord3fv: procedure(const v: PGLfloat); stdcall;
1417   glTexCoord3i: procedure(s, t, r: GLint); stdcall;
1418   glTexCoord3iv: procedure(const v: PGLint); stdcall;
1419   glTexCoord3s: procedure(s, t, r: GLshort); stdcall;
1420   glTexCoord3sv: procedure(const v: PGLshort); stdcall;
1421   glTexCoord4d: procedure(s, t, r, q: GLdouble); stdcall;
1422   glTexCoord4dv: procedure(const v: PGLdouble); stdcall;
1423   glTexCoord4f: procedure(s, t, r, q: GLfloat); stdcall;
1424   glTexCoord4fv: procedure(const v: PGLfloat); stdcall;
1425   glTexCoord4i: procedure(s, t, r, q: GLint); stdcall;
1426   glTexCoord4iv: procedure(const v: PGLint); stdcall;
1427   glTexCoord4s: procedure(s, t, r, q: GLshort); stdcall;
1428   glTexCoord4sv: procedure(const v: PGLshort); stdcall;
1429   glTexCoordPointer: procedure(size: GLint; atype: GLenum; stride: GLsizei; const pointer: Pointer); stdcall;
1430   glTexEnvf: procedure(target: GLenum; pname: GLenum; param: GLfloat); stdcall;
1431   glTexEnvfv: procedure(target: GLenum; pname: GLenum; const params: PGLfloat); stdcall;
1432   glTexEnvi: procedure(target: GLenum; pname: GLenum; param: GLint); stdcall;
1433   glTexEnviv: procedure(target: GLenum; pname: GLenum; const params: PGLint); stdcall;
1434   glTexGend: procedure(coord: GLenum; pname: GLenum; param: GLdouble); stdcall;
1435   glTexGendv: procedure(coord: GLenum; pname: GLenum; const params: PGLdouble); stdcall;
1436   glTexGenf: procedure(coord: GLenum; pname: GLenum; param: GLfloat); stdcall;
1437   glTexGenfv: procedure(coord: GLenum; pname: GLenum; const params: PGLfloat); stdcall;
1438   glTexGeni: procedure(coord: GLenum; pname: GLenum; param: GLint); stdcall;
1439   glTexGeniv: procedure(coord: GLenum; pname: GLenum; const params: PGLint); stdcall;
1440   glTexImage1D: procedure(target: GLenum; level, internalformat: GLint; width: GLsizei; border: GLint; format, atype: GLenum; const pixels: Pointer); stdcall;
1441   glTexImage2D: procedure(target: GLenum; level, internalformat: GLint; width, height: GLsizei; border: GLint; format, atype: GLenum; const pixels: Pointer); stdcall;
1442   glTexParameterf: procedure(target: GLenum; pname: GLenum; param: GLfloat); stdcall;
1443   glTexParameterfv: procedure(target: GLenum; pname: GLenum; const params: PGLfloat); stdcall;
1444   glTexParameteri: procedure(target: GLenum; pname: GLenum; param: GLint); stdcall;
1445   glTexParameteriv: procedure(target: GLenum; pname: GLenum; const params: PGLint); stdcall;
1446   glTexSubImage1D: procedure(target: GLenum; level, xoffset: GLint; width: GLsizei; format, atype: GLenum; const pixels: Pointer); stdcall;
1447   glTexSubImage2D: procedure(target: GLenum; level, xoffset, yoffset: GLint; width, height: GLsizei; format, atype: GLenum; const pixels: Pointer); stdcall;
1448   glTranslated: procedure(x, y, z: GLdouble); stdcall;
1449   glTranslatef: procedure(x, y, z: GLfloat); stdcall;
1450   glVertex2d: procedure(x, y: GLdouble); stdcall;
1451   glVertex2dv: procedure(const v: PGLdouble); stdcall;
1452   glVertex2f: procedure(x, y: GLfloat); stdcall;
1453   glVertex2fv: procedure(const v: PGLfloat); stdcall;
1454   glVertex2i: procedure(x, y: GLint); stdcall;
1455   glVertex2iv: procedure(const v: PGLint); stdcall;
1456   glVertex2s: procedure(x, y: GLshort); stdcall;
1457   glVertex2sv: procedure(const v: PGLshort); stdcall;
1458   glVertex3d: procedure(x, y, z: GLdouble); stdcall;
1459   glVertex3dv: procedure(const v: PGLdouble); stdcall;
1460   glVertex3f: procedure(x, y, z: GLfloat); stdcall;
1461   glVertex3fv: procedure(const v: PGLfloat); stdcall;
1462   glVertex3i: procedure(x, y, z: GLint); stdcall;
1463   glVertex3iv: procedure(const v: PGLint); stdcall;
1464   glVertex3s: procedure(x, y, z: GLshort); stdcall;
1465   glVertex3sv: procedure(const v: PGLshort); stdcall;
1466   glVertex4d: procedure(x, y, z, w: GLdouble); stdcall;
1467   glVertex4dv: procedure(const v: PGLdouble); stdcall;
1468   glVertex4f: procedure(x, y, z, w: GLfloat); stdcall;
1469   glVertex4fv: procedure(const v: PGLfloat); stdcall;
1470   glVertex4i: procedure(x, y, z, w: GLint); stdcall;
1471   glVertex4iv: procedure(const v: PGLint); stdcall;
1472   glVertex4s: procedure(x, y, z, w: GLshort); stdcall;
1473   glVertex4sv: procedure(const v: PGLshort); stdcall;
1474   glVertexPointer: procedure(size: GLint; atype: GLenum; stride: GLsizei; const pointer: Pointer); stdcall;
1475   glViewport: procedure(x, y: GLint; width, height: GLsizei); stdcall;
1476   ChoosePixelFormat: function(DC: HDC; p2: PPixelFormatDescriptor): Integer; stdcall;
1477
1478 type
1479   // EXT_vertex_array
1480   PFNGLARRAYELEMENTEXTPROC = procedure(i: GLint); stdcall;
1481   PFNGLDRAWARRAYSEXTPROC = procedure(mode: GLenum; first: GLint; count: GLsizei); stdcall;
1482   PFNGLVERTEXPOINTEREXTPROC = procedure(size: GLint; atype: GLenum;
1483                                         stride, count: GLsizei; const pointer: Pointer); stdcall;
1484   PFNGLNORMALPOINTEREXTPROC = procedure(atype: GLenum; stride, count: GLsizei;
1485                                         const pointer: Pointer); stdcall;
1486   PFNGLCOLORPOINTEREXTPROC = procedure(size: GLint; atype: GLenum; stride, count: GLsizei;
1487                                        const pointer: Pointer); stdcall;
1488   PFNGLINDEXPOINTEREXTPROC = procedure(atype: GLenum; stride, count: GLsizei;
1489                                        const pointer: Pointer); stdcall;
1490   PFNGLTEXCOORDPOINTEREXTPROC = procedure(size: GLint; atype: GLenum;
1491                                           stride, count: GLsizei; const pointer: Pointer); stdcall;
1492   PFNGLEDGEFLAGPOINTEREXTPROC = procedure(stride, count: GLsizei;
1493                                           const pointer: PGLboolean); stdcall;
1494   PFNGLGETPOINTERVEXTPROC = procedure(pname: GLenum; params: Pointer); stdcall;
1495   PFNGLARRAYELEMENTARRAYEXTPROC = procedure(mode: GLenum; count: GLsizei;
1496                                             const pi: Pointer); stdcall;
1497
1498   // WIN_swap_hint
1499   PFNGLADDSWAPHINTRECTWINPROC = procedure(x, y: GLint; width, height: GLsizei); stdcall;
1500
1501   // EXT_paletted_texture
1502   PFNGLCOLORTABLEEXTPROC = procedure(target, internalFormat: GLenum; width: GLsizei;
1503                                      format, atype: GLenum; const data: Pointer); stdcall;
1504   PFNGLCOLORSUBTABLEEXTPROC = procedure(target: GLenum; start, count: GLsizei;
1505                                         format, atype: GLenum; const data: Pointer); stdcall;
1506   PFNGLGETCOLORTABLEEXTPROC = procedure(target, format, atype: GLenum; data: Pointer); stdcall;
1507   PFNGLGETCOLORTABLEPARAMETERIVEXTPROC = procedure(target, pname: GLenum; params: PGLint); stdcall;
1508   PFNGLGETCOLORTABLEPARAMETERFVEXTPROC = procedure(target, pname: GLenum; params: PGLfloat); stdcall;
1509
1510 procedure LoadOpenGL(const dll: String);
1511 procedure FreeOpenGL;
1512
1513 implementation
1514
1515 var
1516   hDLL: THandle;
1517
1518 procedure FreeOpenGL;
1519 begin
1520
1521   @glAccum := nil;
1522   @glAlphaFunc := nil;
1523   @glAreTexturesResident := nil;
1524   @glArrayElement := nil;
1525   @glBegin := nil;
1526   @glBindTexture := nil;
1527   @glBitmap := nil;
1528   @glBlendFunc := nil;
1529   @glCallList := nil;
1530   @glCallLists := nil;
1531   @glClear := nil;
1532   @glClearAccum := nil;
1533   @glClearColor := nil;
1534   @glClearDepth := nil;
1535   @glClearIndex := nil;
1536   @glClearStencil := nil;
1537   @glClipPlane := nil;
1538   @glColor3b := nil;
1539   @glColor3bv := nil;
1540   @glColor3d := nil;
1541   @glColor3dv := nil;
1542   @glColor3f := nil;
1543   @glColor3fv := nil;
1544   @glColor3i := nil;
1545   @glColor3iv := nil;
1546   @glColor3s := nil;
1547   @glColor3sv := nil;
1548   @glColor3ub := nil;
1549   @glColor3ubv := nil;
1550   @glColor3ui := nil;
1551   @glColor3uiv := nil;
1552   @glColor3us := nil;
1553   @glColor3usv := nil;
1554   @glColor4b := nil;
1555   @glColor4bv := nil;
1556   @glColor4d := nil;
1557   @glColor4dv := nil;
1558   @glColor4f := nil;
1559   @glColor4fv := nil;
1560   @glColor4i := nil;
1561   @glColor4iv := nil;
1562   @glColor4s := nil;
1563   @glColor4sv := nil;
1564   @glColor4ub := nil;
1565   @glColor4ubv := nil;
1566   @glColor4ui := nil;
1567   @glColor4uiv := nil;
1568   @glColor4us := nil;
1569   @glColor4usv := nil;
1570   @glColorMask := nil;
1571   @glColorMaterial := nil;
1572   @glColorPointer := nil;
1573   @glCopyPixels := nil;
1574   @glCopyTexImage1D := nil;
1575   @glCopyTexImage2D := nil;
1576   @glCopyTexSubImage1D := nil;
1577   @glCopyTexSubImage2D := nil;
1578   @glCullFace := nil;
1579   @glDeleteLists := nil;
1580   @glDeleteTextures := nil;
1581   @glDepthFunc := nil;
1582   @glDepthMask := nil;
1583   @glDepthRange := nil;
1584   @glDisable := nil;
1585   @glDisableClientState := nil;
1586   @glDrawArrays := nil;
1587   @glDrawBuffer := nil;
1588   @glDrawElements := nil;
1589   @glDrawPixels := nil;
1590   @glEdgeFlag := nil;
1591   @glEdgeFlagPointer := nil;
1592   @glEdgeFlagv := nil;
1593   @glEnable := nil;
1594   @glEnableClientState := nil;
1595   @glEnd := nil;
1596   @glEndList := nil;
1597   @glEvalCoord1d := nil;
1598   @glEvalCoord1dv := nil;
1599   @glEvalCoord1f := nil;
1600   @glEvalCoord1fv := nil;
1601   @glEvalCoord2d := nil;
1602   @glEvalCoord2dv := nil;
1603   @glEvalCoord2f := nil;
1604   @glEvalCoord2fv := nil;
1605   @glEvalMesh1 := nil;
1606   @glEvalMesh2 := nil;
1607   @glEvalPoint1 := nil;
1608   @glEvalPoint2 := nil;
1609   @glFeedbackBuffer := nil;
1610   @glFinish := nil;
1611   @glFlush := nil;
1612   @glFogf := nil;
1613   @glFogfv := nil;
1614   @glFogi := nil;
1615   @glFogiv := nil;
1616   @glFrontFace := nil;
1617   @glFrustum := nil;
1618   @glGenLists := nil;
1619   @glGenTextures := nil;
1620   @glGetBooleanv := nil;
1621   @glGetClipPlane := nil;
1622   @glGetDoublev := nil;
1623   @glGetError := nil;
1624   @glGetFloatv := nil;
1625   @glGetIntegerv := nil;
1626   @glGetLightfv := nil;
1627   @glGetLightiv := nil;
1628   @glGetMapdv := nil;
1629   @glGetMapfv := nil;
1630   @glGetMapiv := nil;
1631   @glGetMaterialfv := nil;
1632   @glGetMaterialiv := nil;
1633   @glGetPixelMapfv := nil;
1634   @glGetPixelMapuiv := nil;
1635   @glGetPixelMapusv := nil;
1636   @glGetPointerv := nil;
1637   @glGetPolygonStipple := nil;
1638   @glGetString := nil;
1639   @glGetTexEnvfv := nil;
1640   @glGetTexEnviv := nil;
1641   @glGetTexGendv := nil;
1642   @glGetTexGenfv := nil;
1643   @glGetTexGeniv := nil;
1644   @glGetTexImage := nil;
1645   @glGetTexLevelParameterfv := nil;
1646   @glGetTexLevelParameteriv := nil;
1647   @glGetTexParameterfv := nil;
1648   @glGetTexParameteriv := nil;
1649   @glHint := nil;
1650   @glIndexMask := nil;
1651   @glIndexPointer := nil;
1652   @glIndexd := nil;
1653   @glIndexdv := nil;
1654   @glIndexf := nil;
1655   @glIndexfv := nil;
1656   @glIndexi := nil;
1657   @glIndexiv := nil;
1658   @glIndexs := nil;
1659   @glIndexsv := nil;
1660   @glIndexub := nil;
1661   @glIndexubv := nil;
1662   @glInitNames := nil;
1663   @glInterleavedArrays := nil;
1664   @glIsEnabled := nil;
1665   @glIsList := nil;
1666   @glIsTexture := nil;
1667   @glLightModelf := nil;
1668   @glLightModelfv := nil;
1669   @glLightModeli := nil;
1670   @glLightModeliv := nil;
1671   @glLightf := nil;
1672   @glLightfv := nil;
1673   @glLighti := nil;
1674   @glLightiv := nil;
1675   @glLineStipple := nil;
1676   @glLineWidth := nil;
1677   @glListBase := nil;
1678   @glLoadIdentity := nil;
1679   @glLoadMatrixd := nil;
1680   @glLoadMatrixf := nil;
1681   @glLoadName := nil;
1682   @glLogicOp := nil;
1683   @glMap1d := nil;
1684   @glMap1f := nil;
1685   @glMap2d := nil;
1686   @glMap2f := nil;
1687   @glMapGrid1d := nil;
1688   @glMapGrid1f := nil;
1689   @glMapGrid2d := nil;
1690   @glMapGrid2f := nil;
1691   @glMaterialf := nil;
1692   @glMaterialfv := nil;
1693   @glMateriali := nil;
1694   @glMaterialiv := nil;
1695   @glMatrixMode := nil;
1696   @glMultMatrixd := nil;
1697   @glMultMatrixf := nil;
1698   @glNewList := nil;
1699   @glNormal3b := nil;
1700   @glNormal3bv := nil;
1701   @glNormal3d := nil;
1702   @glNormal3dv := nil;
1703   @glNormal3f := nil;
1704   @glNormal3fv := nil;
1705   @glNormal3i := nil;
1706   @glNormal3iv := nil;
1707   @glNormal3s := nil;
1708   @glNormal3sv := nil;
1709   @glNormalPointer := nil;
1710   @glOrtho := nil;
1711   @glPassThrough := nil;
1712   @glPixelMapfv := nil;
1713   @glPixelMapuiv := nil;
1714   @glPixelMapusv := nil;
1715   @glPixelStoref := nil;
1716   @glPixelStorei := nil;
1717   @glPixelTransferf := nil;
1718   @glPixelTransferi := nil;
1719   @glPixelZoom := nil;
1720   @glPointSize := nil;
1721   @glPolygonMode := nil;
1722   @glPolygonOffset := nil;
1723   @glPolygonStipple := nil;
1724   @glPopAttrib := nil;
1725   @glPopClientAttrib := nil;
1726   @glPopMatrix := nil;
1727   @glPopName := nil;
1728   @glPrioritizeTextures := nil;
1729   @glPushAttrib := nil;
1730   @glPushClientAttrib := nil;
1731   @glPushMatrix := nil;
1732   @glPushName := nil;
1733   @glRasterPos2d := nil;
1734   @glRasterPos2dv := nil;
1735   @glRasterPos2f := nil;
1736   @glRasterPos2fv := nil;
1737   @glRasterPos2i := nil;
1738   @glRasterPos2iv := nil;
1739   @glRasterPos2s := nil;
1740   @glRasterPos2sv := nil;
1741   @glRasterPos3d := nil;
1742   @glRasterPos3dv := nil;
1743   @glRasterPos3f := nil;
1744   @glRasterPos3fv := nil;
1745   @glRasterPos3i := nil;
1746   @glRasterPos3iv := nil;
1747   @glRasterPos3s := nil;
1748   @glRasterPos3sv := nil;
1749   @glRasterPos4d := nil;
1750   @glRasterPos4dv := nil;
1751   @glRasterPos4f := nil;
1752   @glRasterPos4fv := nil;
1753   @glRasterPos4i := nil;
1754   @glRasterPos4iv := nil;
1755   @glRasterPos4s := nil;
1756   @glRasterPos4sv := nil;
1757   @glReadBuffer := nil;
1758   @glReadPixels := nil;
1759   @glRectd := nil;
1760   @glRectdv := nil;
1761   @glRectf := nil;
1762   @glRectfv := nil;
1763   @glRecti := nil;
1764   @glRectiv := nil;
1765   @glRects := nil;
1766   @glRectsv := nil;
1767   @glRenderMode := nil;
1768   @glRotated := nil;
1769   @glRotatef := nil;
1770   @glScaled := nil;
1771   @glScalef := nil;
1772   @glScissor := nil;
1773   @glSelectBuffer := nil;
1774   @glShadeModel := nil;
1775   @glStencilFunc := nil;
1776   @glStencilMask := nil;
1777   @glStencilOp := nil;
1778   @glTexCoord1d := nil;
1779   @glTexCoord1dv := nil;
1780   @glTexCoord1f := nil;
1781   @glTexCoord1fv := nil;
1782   @glTexCoord1i := nil;
1783   @glTexCoord1iv := nil;
1784   @glTexCoord1s := nil;
1785   @glTexCoord1sv := nil;
1786   @glTexCoord2d := nil;
1787   @glTexCoord2dv := nil;
1788   @glTexCoord2f := nil;
1789   @glTexCoord2fv := nil;
1790   @glTexCoord2i := nil;
1791   @glTexCoord2iv := nil;
1792   @glTexCoord2s := nil;
1793   @glTexCoord2sv := nil;
1794   @glTexCoord3d := nil;
1795   @glTexCoord3dv := nil;
1796   @glTexCoord3f := nil;
1797   @glTexCoord3fv := nil;
1798   @glTexCoord3i := nil;
1799   @glTexCoord3iv := nil;
1800   @glTexCoord3s := nil;
1801   @glTexCoord3sv := nil;
1802   @glTexCoord4d := nil;
1803   @glTexCoord4dv := nil;
1804   @glTexCoord4f := nil;
1805   @glTexCoord4fv := nil;
1806   @glTexCoord4i := nil;
1807   @glTexCoord4iv := nil;
1808   @glTexCoord4s := nil;
1809   @glTexCoord4sv := nil;
1810   @glTexCoordPointer := nil;
1811   @glTexEnvf := nil;
1812   @glTexEnvfv := nil;
1813   @glTexEnvi := nil;
1814   @glTexEnviv := nil;
1815   @glTexGend := nil;
1816   @glTexGendv := nil;
1817   @glTexGenf := nil;
1818   @glTexGenfv := nil;
1819   @glTexGeni := nil;
1820   @glTexGeniv := nil;
1821   @glTexImage1D := nil;
1822   @glTexImage2D := nil;
1823   @glTexParameterf := nil;
1824   @glTexParameterfv := nil;
1825   @glTexParameteri := nil;
1826   @glTexParameteriv := nil;
1827   @glTexSubImage1D := nil;
1828   @glTexSubImage2D := nil;
1829   @glTranslated := nil;
1830   @glTranslatef := nil;
1831   @glVertex2d := nil;
1832   @glVertex2dv := nil;
1833   @glVertex2f := nil;
1834   @glVertex2fv := nil;
1835   @glVertex2i := nil;
1836   @glVertex2iv := nil;
1837   @glVertex2s := nil;
1838   @glVertex2sv := nil;
1839   @glVertex3d := nil;
1840   @glVertex3dv := nil;
1841   @glVertex3f := nil;
1842   @glVertex3fv := nil;
1843   @glVertex3i := nil;
1844   @glVertex3iv := nil;
1845   @glVertex3s := nil;
1846   @glVertex3sv := nil;
1847   @glVertex4d := nil;
1848   @glVertex4dv := nil;
1849   @glVertex4f := nil;
1850   @glVertex4fv := nil;
1851   @glVertex4i := nil;
1852   @glVertex4iv := nil;
1853   @glVertex4s := nil;
1854   @glVertex4sv := nil;
1855   @glVertexPointer := nil;
1856   @glViewport := nil;
1857   @ChoosePixelFormat := nil;
1858
1859   FreeLibrary(hDLL);
1860
1861 end;
1862
1863 procedure LoadOpenGL(const dll: String);
1864 begin
1865
1866   FreeOpenGL;
1867
1868   hDLL := LoadLibrary(PChar(dll));
1869   if hDLL = 0 then raise Exception.Create('Could not load OpenGL from ' + dll);
1870
1871   @glAccum := GetProcAddress(hDLL, 'glAccum');
1872   @glAlphaFunc := GetProcAddress(hDLL, 'glAlphaFunc');
1873   @glAreTexturesResident := GetProcAddress(hDLL, 'glAreTexturesResident');
1874   @glArrayElement := GetProcAddress(hDLL, 'glArrayElement');
1875   @glBegin := GetProcAddress(hDLL, 'glBegin');
1876   @glBindTexture := GetProcAddress(hDLL, 'glBindTexture');
1877   @glBitmap := GetProcAddress(hDLL, 'glBitmap');
1878   @glBlendFunc := GetProcAddress(hDLL, 'glBlendFunc');
1879   @glCallList := GetProcAddress(hDLL, 'glCallList');
1880   @glCallLists := GetProcAddress(hDLL, 'glCallLists');
1881   @glClear := GetProcAddress(hDLL, 'glClear');
1882   @glClearAccum := GetProcAddress(hDLL, 'glClearAccum');
1883   @glClearColor := GetProcAddress(hDLL, 'glClearColor');
1884   @glClearDepth := GetProcAddress(hDLL, 'glClearDepth');
1885   @glClearIndex := GetProcAddress(hDLL, 'glClearIndex');
1886   @glClearStencil := GetProcAddress(hDLL, 'glClearStencil');
1887   @glClipPlane := GetProcAddress(hDLL, 'glClipPlane');
1888   @glColor3b := GetProcAddress(hDLL, 'glColor3b');
1889   @glColor3bv := GetProcAddress(hDLL, 'glColor3bv');
1890   @glColor3d := GetProcAddress(hDLL, 'glColor3d');
1891   @glColor3dv := GetProcAddress(hDLL, 'glColor3dv');
1892   @glColor3f := GetProcAddress(hDLL, 'glColor3f');
1893   @glColor3fv := GetProcAddress(hDLL, 'glColor3fv');
1894   @glColor3i := GetProcAddress(hDLL, 'glColor3i');
1895   @glColor3iv := GetProcAddress(hDLL, 'glColor3iv');
1896   @glColor3s := GetProcAddress(hDLL, 'glColor3s');
1897   @glColor3sv := GetProcAddress(hDLL, 'glColor3sv');
1898   @glColor3ub := GetProcAddress(hDLL, 'glColor3ub');
1899   @glColor3ubv := GetProcAddress(hDLL, 'glColor3ubv');
1900   @glColor3ui := GetProcAddress(hDLL, 'glColor3ui');
1901   @glColor3uiv := GetProcAddress(hDLL, 'glColor3uiv');
1902   @glColor3us := GetProcAddress(hDLL, 'glColor3us');
1903   @glColor3usv := GetProcAddress(hDLL, 'glColor3usv');
1904   @glColor4b := GetProcAddress(hDLL, 'glColor4b');
1905   @glColor4bv := GetProcAddress(hDLL, 'glColor4bv');
1906   @glColor4d := GetProcAddress(hDLL, 'glColor4d');
1907   @glColor4dv := GetProcAddress(hDLL, 'glColor4dv');
1908   @glColor4f := GetProcAddress(hDLL, 'glColor4f');
1909   @glColor4fv := GetProcAddress(hDLL, 'glColor4fv');
1910   @glColor4i := GetProcAddress(hDLL, 'glColor4i');
1911   @glColor4iv := GetProcAddress(hDLL, 'glColor4iv');
1912   @glColor4s := GetProcAddress(hDLL, 'glColor4s');
1913   @glColor4sv := GetProcAddress(hDLL, 'glColor4sv');
1914   @glColor4ub := GetProcAddress(hDLL, 'glColor4ub');
1915   @glColor4ubv := GetProcAddress(hDLL, 'glColor4ubv');
1916   @glColor4ui := GetProcAddress(hDLL, 'glColor4ui');
1917   @glColor4uiv := GetProcAddress(hDLL, 'glColor4uiv');
1918   @glColor4us := GetProcAddress(hDLL, 'glColor4us');
1919   @glColor4usv := GetProcAddress(hDLL, 'glColor4usv');
1920   @glColorMask := GetProcAddress(hDLL, 'glColorMask');
1921   @glColorMaterial := GetProcAddress(hDLL, 'glColorMaterial');
1922   @glColorPointer := GetProcAddress(hDLL, 'glColorPointer');
1923   @glCopyPixels := GetProcAddress(hDLL, 'glCopyPixels');
1924   @glCopyTexImage1D := GetProcAddress(hDLL, 'glCopyTexImage1D');
1925   @glCopyTexImage2D := GetProcAddress(hDLL, 'glCopyTexImage2D');
1926   @glCopyTexSubImage1D := GetProcAddress(hDLL, 'glCopyTexSubImage1D');
1927   @glCopyTexSubImage2D := GetProcAddress(hDLL, 'glCopyTexSubImage2D');
1928   @glCullFace := GetProcAddress(hDLL, 'glCullFace');
1929   @glDeleteLists := GetProcAddress(hDLL, 'glDeleteLists');
1930   @glDeleteTextures := GetProcAddress(hDLL, 'glDeleteTextures');
1931   @glDepthFunc := GetProcAddress(hDLL, 'glDepthFunc');
1932   @glDepthMask := GetProcAddress(hDLL, 'glDepthMask');
1933   @glDepthRange := GetProcAddress(hDLL, 'glDepthRange');
1934   @glDisable := GetProcAddress(hDLL, 'glDisable');
1935   @glDisableClientState := GetProcAddress(hDLL, 'glDisableClientState');
1936   @glDrawArrays := GetProcAddress(hDLL, 'glDrawArrays');
1937   @glDrawBuffer := GetProcAddress(hDLL, 'glDrawBuffer');
1938   @glDrawElements := GetProcAddress(hDLL, 'glDrawElements');
1939   @glDrawPixels := GetProcAddress(hDLL, 'glDrawPixels');
1940   @glEdgeFlag := GetProcAddress(hDLL, 'glEdgeFlag');
1941   @glEdgeFlagPointer := GetProcAddress(hDLL, 'glEdgeFlagPointer');
1942   @glEdgeFlagv := GetProcAddress(hDLL, 'glEdgeFlagv');
1943   @glEnable := GetProcAddress(hDLL, 'glEnable');
1944   @glEnableClientState := GetProcAddress(hDLL, 'glEnableClientState');
1945   @glEnd := GetProcAddress(hDLL, 'glEnd');
1946   @glEndList := GetProcAddress(hDLL, 'glEndList');
1947   @glEvalCoord1d := GetProcAddress(hDLL, 'glEvalCoord1d');
1948   @glEvalCoord1dv := GetProcAddress(hDLL, 'glEvalCoord1dv');
1949   @glEvalCoord1f := GetProcAddress(hDLL, 'glEvalCoord1f');
1950   @glEvalCoord1fv := GetProcAddress(hDLL, 'glEvalCoord1fv');
1951   @glEvalCoord2d := GetProcAddress(hDLL, 'glEvalCoord2d');
1952   @glEvalCoord2dv := GetProcAddress(hDLL, 'glEvalCoord2dv');
1953   @glEvalCoord2f := GetProcAddress(hDLL, 'glEvalCoord2f');
1954   @glEvalCoord2fv := GetProcAddress(hDLL, 'glEvalCoord2fv');
1955   @glEvalMesh1 := GetProcAddress(hDLL, 'glEvalMesh1');
1956   @glEvalMesh2 := GetProcAddress(hDLL, 'glEvalMesh2');
1957   @glEvalPoint1 := GetProcAddress(hDLL, 'glEvalPoint1');
1958   @glEvalPoint2 := GetProcAddress(hDLL, 'glEvalPoint2');
1959   @glFeedbackBuffer := GetProcAddress(hDLL, 'glFeedbackBuffer');
1960   @glFinish := GetProcAddress(hDLL, 'glFinish');
1961   @glFlush := GetProcAddress(hDLL, 'glFlush');
1962   @glFogf := GetProcAddress(hDLL, 'glFogf');
1963   @glFogfv := GetProcAddress(hDLL, 'glFogfv');
1964   @glFogi := GetProcAddress(hDLL, 'glFogi');
1965   @glFogiv := GetProcAddress(hDLL, 'glFogiv');
1966   @glFrontFace := GetProcAddress(hDLL, 'glFrontFace');
1967   @glFrustum := GetProcAddress(hDLL, 'glFrustum');
1968   @glGenLists := GetProcAddress(hDLL, 'glGenLists');
1969   @glGenTextures := GetProcAddress(hDLL, 'glGenTextures');
1970   @glGetBooleanv := GetProcAddress(hDLL, 'glGetBooleanv');
1971   @glGetClipPlane := GetProcAddress(hDLL, 'glGetClipPlane');
1972   @glGetDoublev := GetProcAddress(hDLL, 'glGetDoublev');
1973   @glGetError := GetProcAddress(hDLL, 'glGetError');
1974   @glGetFloatv := GetProcAddress(hDLL, 'glGetFloatv');
1975   @glGetIntegerv := GetProcAddress(hDLL, 'glGetIntegerv');
1976   @glGetLightfv := GetProcAddress(hDLL, 'glGetLightfv');
1977   @glGetLightiv := GetProcAddress(hDLL, 'glGetLightiv');
1978   @glGetMapdv := GetProcAddress(hDLL, 'glGetMapdv');
1979   @glGetMapfv := GetProcAddress(hDLL, 'glGetMapfv');
1980   @glGetMapiv := GetProcAddress(hDLL, 'glGetMapiv');
1981   @glGetMaterialfv := GetProcAddress(hDLL, 'glGetMaterialfv');
1982   @glGetMaterialiv := GetProcAddress(hDLL, 'glGetMaterialiv');
1983   @glGetPixelMapfv := GetProcAddress(hDLL, 'glGetPixelMapfv');
1984   @glGetPixelMapuiv := GetProcAddress(hDLL, 'glGetPixelMapuiv');
1985   @glGetPixelMapusv := GetProcAddress(hDLL, 'glGetPixelMapusv');
1986   @glGetPointerv := GetProcAddress(hDLL, 'glGetPointerv');
1987   @glGetPolygonStipple := GetProcAddress(hDLL, 'glGetPolygonStipple');
1988   @glGetString := GetProcAddress(hDLL, 'glGetString');
1989   @glGetTexEnvfv := GetProcAddress(hDLL, 'glGetTexEnvfv');
1990   @glGetTexEnviv := GetProcAddress(hDLL, 'glGetTexEnviv');
1991   @glGetTexGendv := GetProcAddress(hDLL, 'glGetTexGendv');
1992   @glGetTexGenfv := GetProcAddress(hDLL, 'glGetTexGenfv');
1993   @glGetTexGeniv := GetProcAddress(hDLL, 'glGetTexGeniv');
1994   @glGetTexImage := GetProcAddress(hDLL, 'glGetTexImage');
1995   @glGetTexLevelParameterfv := GetProcAddress(hDLL, 'glGetTexLevelParameterfv');
1996   @glGetTexLevelParameteriv := GetProcAddress(hDLL, 'glGetTexLevelParameteriv');
1997   @glGetTexParameterfv := GetProcAddress(hDLL, 'glGetTexParameterfv');
1998   @glGetTexParameteriv := GetProcAddress(hDLL, 'glGetTexParameteriv');
1999   @glHint := GetProcAddress(hDLL, 'glHint');
2000   @glIndexMask := GetProcAddress(hDLL, 'glIndexMask');
2001   @glIndexPointer := GetProcAddress(hDLL, 'glIndexPointer');
2002   @glIndexd := GetProcAddress(hDLL, 'glIndexd');
2003   @glIndexdv := GetProcAddress(hDLL, 'glIndexdv');
2004   @glIndexf := GetProcAddress(hDLL, 'glIndexf');
2005   @glIndexfv := GetProcAddress(hDLL, 'glIndexfv');
2006   @glIndexi := GetProcAddress(hDLL, 'glIndexi');
2007   @glIndexiv := GetProcAddress(hDLL, 'glIndexiv');
2008   @glIndexs := GetProcAddress(hDLL, 'glIndexs');
2009   @glIndexsv := GetProcAddress(hDLL, 'glIndexsv');
2010   @glIndexub := GetProcAddress(hDLL, 'glIndexub');
2011   @glIndexubv := GetProcAddress(hDLL, 'glIndexubv');
2012   @glInitNames := GetProcAddress(hDLL, 'glInitNames');
2013   @glInterleavedArrays := GetProcAddress(hDLL, 'glInterleavedArrays');
2014   @glIsEnabled := GetProcAddress(hDLL, 'glIsEnabled');
2015   @glIsList := GetProcAddress(hDLL, 'glIsList');
2016   @glIsTexture := GetProcAddress(hDLL, 'glIsTexture');
2017   @glLightModelf := GetProcAddress(hDLL, 'glLightModelf');
2018   @glLightModelfv := GetProcAddress(hDLL, 'glLightModelfv');
2019   @glLightModeli := GetProcAddress(hDLL, 'glLightModeli');
2020   @glLightModeliv := GetProcAddress(hDLL, 'glLightModeliv');
2021   @glLightf := GetProcAddress(hDLL, 'glLightf');
2022   @glLightfv := GetProcAddress(hDLL, 'glLightfv');
2023   @glLighti := GetProcAddress(hDLL, 'glLighti');
2024   @glLightiv := GetProcAddress(hDLL, 'glLightiv');
2025   @glLineStipple := GetProcAddress(hDLL, 'glLineStipple');
2026   @glLineWidth := GetProcAddress(hDLL, 'glLineWidth');
2027   @glListBase := GetProcAddress(hDLL, 'glListBase');
2028   @glLoadIdentity := GetProcAddress(hDLL, 'glLoadIdentity');
2029   @glLoadMatrixd := GetProcAddress(hDLL, 'glLoadMatrixd');
2030   @glLoadMatrixf := GetProcAddress(hDLL, 'glLoadMatrixf');
2031   @glLoadName := GetProcAddress(hDLL, 'glLoadName');
2032   @glLogicOp := GetProcAddress(hDLL, 'glLogicOp');
2033   @glMap1d := GetProcAddress(hDLL, 'glMap1d');
2034   @glMap1f := GetProcAddress(hDLL, 'glMap1f');
2035   @glMap2d := GetProcAddress(hDLL, 'glMap2d');
2036   @glMap2f := GetProcAddress(hDLL, 'glMap2f');
2037   @glMapGrid1d := GetProcAddress(hDLL, 'glMapGrid1d');
2038   @glMapGrid1f := GetProcAddress(hDLL, 'glMapGrid1f');
2039   @glMapGrid2d := GetProcAddress(hDLL, 'glMapGrid2d');
2040   @glMapGrid2f := GetProcAddress(hDLL, 'glMapGrid2f');
2041   @glMaterialf := GetProcAddress(hDLL, 'glMaterialf');
2042   @glMaterialfv := GetProcAddress(hDLL, 'glMaterialfv');
2043   @glMateriali := GetProcAddress(hDLL, 'glMateriali');
2044   @glMaterialiv := GetProcAddress(hDLL, 'glMaterialiv');
2045   @glMatrixMode := GetProcAddress(hDLL, 'glMatrixMode');
2046   @glMultMatrixd := GetProcAddress(hDLL, 'glMultMatrixd');
2047   @glMultMatrixf := GetProcAddress(hDLL, 'glMultMatrixf');
2048   @glNewList := GetProcAddress(hDLL, 'glNewList');
2049   @glNormal3b := GetProcAddress(hDLL, 'glNormal3b');
2050   @glNormal3bv := GetProcAddress(hDLL, 'glNormal3bv');
2051   @glNormal3d := GetProcAddress(hDLL, 'glNormal3d');
2052   @glNormal3dv := GetProcAddress(hDLL, 'glNormal3dv');
2053   @glNormal3f := GetProcAddress(hDLL, 'glNormal3f');
2054   @glNormal3fv := GetProcAddress(hDLL, 'glNormal3fv');
2055   @glNormal3i := GetProcAddress(hDLL, 'glNormal3i');
2056   @glNormal3iv := GetProcAddress(hDLL, 'glNormal3iv');
2057   @glNormal3s := GetProcAddress(hDLL, 'glNormal3s');
2058   @glNormal3sv := GetProcAddress(hDLL, 'glNormal3sv');
2059   @glNormalPointer := GetProcAddress(hDLL, 'glNormalPointer');
2060   @glOrtho := GetProcAddress(hDLL, 'glOrtho');
2061   @glPassThrough := GetProcAddress(hDLL, 'glPassThrough');
2062   @glPixelMapfv := GetProcAddress(hDLL, 'glPixelMapfv');
2063   @glPixelMapuiv := GetProcAddress(hDLL, 'glPixelMapuiv');
2064   @glPixelMapusv := GetProcAddress(hDLL, 'glPixelMapusv');
2065   @glPixelStoref := GetProcAddress(hDLL, 'glPixelStoref');
2066   @glPixelStorei := GetProcAddress(hDLL, 'glPixelStorei');
2067   @glPixelTransferf := GetProcAddress(hDLL, 'glPixelTransferf');
2068   @glPixelTransferi := GetProcAddress(hDLL, 'glPixelTransferi');
2069   @glPixelZoom := GetProcAddress(hDLL, 'glPixelZoom');
2070   @glPointSize := GetProcAddress(hDLL, 'glPointSize');
2071   @glPolygonMode := GetProcAddress(hDLL, 'glPolygonMode');
2072   @glPolygonOffset := GetProcAddress(hDLL, 'glPolygonOffset');
2073   @glPolygonStipple := GetProcAddress(hDLL, 'glPolygonStipple');
2074   @glPopAttrib := GetProcAddress(hDLL, 'glPopAttrib');
2075   @glPopClientAttrib := GetProcAddress(hDLL, 'glPopClientAttrib');
2076   @glPopMatrix := GetProcAddress(hDLL, 'glPopMatrix');
2077   @glPopName := GetProcAddress(hDLL, 'glPopName');
2078   @glPrioritizeTextures := GetProcAddress(hDLL, 'glPrioritizeTextures');
2079   @glPushAttrib := GetProcAddress(hDLL, 'glPushAttrib');
2080   @glPushClientAttrib := GetProcAddress(hDLL, 'glPushClientAttrib');
2081   @glPushMatrix := GetProcAddress(hDLL, 'glPushMatrix');
2082   @glPushName := GetProcAddress(hDLL, 'glPushName');
2083   @glRasterPos2d := GetProcAddress(hDLL, 'glRasterPos2d');
2084   @glRasterPos2dv := GetProcAddress(hDLL, 'glRasterPos2dv');
2085   @glRasterPos2f := GetProcAddress(hDLL, 'glRasterPos2f');
2086   @glRasterPos2fv := GetProcAddress(hDLL, 'glRasterPos2fv');
2087   @glRasterPos2i := GetProcAddress(hDLL, 'glRasterPos2i');
2088   @glRasterPos2iv := GetProcAddress(hDLL, 'glRasterPos2iv');
2089   @glRasterPos2s := GetProcAddress(hDLL, 'glRasterPos2s');
2090   @glRasterPos2sv := GetProcAddress(hDLL, 'glRasterPos2sv');
2091   @glRasterPos3d := GetProcAddress(hDLL, 'glRasterPos3d');
2092   @glRasterPos3dv := GetProcAddress(hDLL, 'glRasterPos3dv');
2093   @glRasterPos3f := GetProcAddress(hDLL, 'glRasterPos3f');
2094   @glRasterPos3fv := GetProcAddress(hDLL, 'glRasterPos3fv');
2095   @glRasterPos3i := GetProcAddress(hDLL, 'glRasterPos3i');
2096   @glRasterPos3iv := GetProcAddress(hDLL, 'glRasterPos3iv');
2097   @glRasterPos3s := GetProcAddress(hDLL, 'glRasterPos3s');
2098   @glRasterPos3sv := GetProcAddress(hDLL, 'glRasterPos3sv');
2099   @glRasterPos4d := GetProcAddress(hDLL, 'glRasterPos4d');
2100   @glRasterPos4dv := GetProcAddress(hDLL, 'glRasterPos4dv');
2101   @glRasterPos4f := GetProcAddress(hDLL, 'glRasterPos4f');
2102   @glRasterPos4fv := GetProcAddress(hDLL, 'glRasterPos4fv');
2103   @glRasterPos4i := GetProcAddress(hDLL, 'glRasterPos4i');
2104   @glRasterPos4iv := GetProcAddress(hDLL, 'glRasterPos4iv');
2105   @glRasterPos4s := GetProcAddress(hDLL, 'glRasterPos4s');
2106   @glRasterPos4sv := GetProcAddress(hDLL, 'glRasterPos4sv');
2107   @glReadBuffer := GetProcAddress(hDLL, 'glReadBuffer');
2108   @glReadPixels := GetProcAddress(hDLL, 'glReadPixels');
2109   @glRectd := GetProcAddress(hDLL, 'glRectd');
2110   @glRectdv := GetProcAddress(hDLL, 'glRectdv');
2111   @glRectf := GetProcAddress(hDLL, 'glRectf');
2112   @glRectfv := GetProcAddress(hDLL, 'glRectfv');
2113   @glRecti := GetProcAddress(hDLL, 'glRecti');
2114   @glRectiv := GetProcAddress(hDLL, 'glRectiv');
2115   @glRects := GetProcAddress(hDLL, 'glRects');
2116   @glRectsv := GetProcAddress(hDLL, 'glRectsv');
2117   @glRenderMode := GetProcAddress(hDLL, 'glRenderMode');
2118   @glRotated := GetProcAddress(hDLL, 'glRotated');
2119   @glRotatef := GetProcAddress(hDLL, 'glRotatef');
2120   @glScaled := GetProcAddress(hDLL, 'glScaled');
2121   @glScalef := GetProcAddress(hDLL, 'glScalef');
2122   @glScissor := GetProcAddress(hDLL, 'glScissor');
2123   @glSelectBuffer := GetProcAddress(hDLL, 'glSelectBuffer');
2124   @glShadeModel := GetProcAddress(hDLL, 'glShadeModel');
2125   @glStencilFunc := GetProcAddress(hDLL, 'glStencilFunc');
2126   @glStencilMask := GetProcAddress(hDLL, 'glStencilMask');
2127   @glStencilOp := GetProcAddress(hDLL, 'glStencilOp');
2128   @glTexCoord1d := GetProcAddress(hDLL, 'glTexCoord1d');
2129   @glTexCoord1dv := GetProcAddress(hDLL, 'glTexCoord1dv');
2130   @glTexCoord1f := GetProcAddress(hDLL, 'glTexCoord1f');
2131   @glTexCoord1fv := GetProcAddress(hDLL, 'glTexCoord1fv');
2132   @glTexCoord1i := GetProcAddress(hDLL, 'glTexCoord1i');
2133   @glTexCoord1iv := GetProcAddress(hDLL, 'glTexCoord1iv');
2134   @glTexCoord1s := GetProcAddress(hDLL, 'glTexCoord1s');
2135   @glTexCoord1sv := GetProcAddress(hDLL, 'glTexCoord1sv');
2136   @glTexCoord2d := GetProcAddress(hDLL, 'glTexCoord2d');
2137   @glTexCoord2dv := GetProcAddress(hDLL, 'glTexCoord2dv');
2138   @glTexCoord2f := GetProcAddress(hDLL, 'glTexCoord2f');
2139   @glTexCoord2fv := GetProcAddress(hDLL, 'glTexCoord2fv');
2140   @glTexCoord2i := GetProcAddress(hDLL, 'glTexCoord2i');
2141   @glTexCoord2iv := GetProcAddress(hDLL, 'glTexCoord2iv');
2142   @glTexCoord2s := GetProcAddress(hDLL, 'glTexCoord2s');
2143   @glTexCoord2sv := GetProcAddress(hDLL, 'glTexCoord2sv');
2144   @glTexCoord3d := GetProcAddress(hDLL, 'glTexCoord3d');
2145   @glTexCoord3dv := GetProcAddress(hDLL, 'glTexCoord3dv');
2146   @glTexCoord3f := GetProcAddress(hDLL, 'glTexCoord3f');
2147   @glTexCoord3fv := GetProcAddress(hDLL, 'glTexCoord3fv');
2148   @glTexCoord3i := GetProcAddress(hDLL, 'glTexCoord3i');
2149   @glTexCoord3iv := GetProcAddress(hDLL, 'glTexCoord3iv');
2150   @glTexCoord3s := GetProcAddress(hDLL, 'glTexCoord3s');
2151   @glTexCoord3sv := GetProcAddress(hDLL, 'glTexCoord3sv');
2152   @glTexCoord4d := GetProcAddress(hDLL, 'glTexCoord4d');
2153   @glTexCoord4dv := GetProcAddress(hDLL, 'glTexCoord4dv');
2154   @glTexCoord4f := GetProcAddress(hDLL, 'glTexCoord4f');
2155   @glTexCoord4fv := GetProcAddress(hDLL, 'glTexCoord4fv');
2156   @glTexCoord4i := GetProcAddress(hDLL, 'glTexCoord4i');
2157   @glTexCoord4iv := GetProcAddress(hDLL, 'glTexCoord4iv');
2158   @glTexCoord4s := GetProcAddress(hDLL, 'glTexCoord4s');
2159   @glTexCoord4sv := GetProcAddress(hDLL, 'glTexCoord4sv');
2160   @glTexCoordPointer := GetProcAddress(hDLL, 'glTexCoordPointer');
2161   @glTexEnvf := GetProcAddress(hDLL, 'glTexEnvf');
2162   @glTexEnvfv := GetProcAddress(hDLL, 'glTexEnvfv');
2163   @glTexEnvi := GetProcAddress(hDLL, 'glTexEnvi');
2164   @glTexEnviv := GetProcAddress(hDLL, 'glTexEnviv');
2165   @glTexGend := GetProcAddress(hDLL, 'glTexGend');
2166   @glTexGendv := GetProcAddress(hDLL, 'glTexGendv');
2167   @glTexGenf := GetProcAddress(hDLL, 'glTexGenf');
2168   @glTexGenfv := GetProcAddress(hDLL, 'glTexGenfv');
2169   @glTexGeni := GetProcAddress(hDLL, 'glTexGeni');
2170   @glTexGeniv := GetProcAddress(hDLL, 'glTexGeniv');
2171   @glTexImage1D := GetProcAddress(hDLL, 'glTexImage1D');
2172   @glTexImage2D := GetProcAddress(hDLL, 'glTexImage2D');
2173   @glTexParameterf := GetProcAddress(hDLL, 'glTexParameterf');
2174   @glTexParameterfv := GetProcAddress(hDLL, 'glTexParameterfv');
2175   @glTexParameteri := GetProcAddress(hDLL, 'glTexParameteri');
2176   @glTexParameteriv := GetProcAddress(hDLL, 'glTexParameteriv');
2177   @glTexSubImage1D := GetProcAddress(hDLL, 'glTexSubImage1D');
2178   @glTexSubImage2D := GetProcAddress(hDLL, 'glTexSubImage2D');
2179   @glTranslated := GetProcAddress(hDLL, 'glTranslated');
2180   @glTranslatef := GetProcAddress(hDLL, 'glTranslatef');
2181   @glVertex2d := GetProcAddress(hDLL, 'glVertex2d');
2182   @glVertex2dv := GetProcAddress(hDLL, 'glVertex2dv');
2183   @glVertex2f := GetProcAddress(hDLL, 'glVertex2f');
2184   @glVertex2fv := GetProcAddress(hDLL, 'glVertex2fv');
2185   @glVertex2i := GetProcAddress(hDLL, 'glVertex2i');
2186   @glVertex2iv := GetProcAddress(hDLL, 'glVertex2iv');
2187   @glVertex2s := GetProcAddress(hDLL, 'glVertex2s');
2188   @glVertex2sv := GetProcAddress(hDLL, 'glVertex2sv');
2189   @glVertex3d := GetProcAddress(hDLL, 'glVertex3d');
2190   @glVertex3dv := GetProcAddress(hDLL, 'glVertex3dv');
2191   @glVertex3f := GetProcAddress(hDLL, 'glVertex3f');
2192   @glVertex3fv := GetProcAddress(hDLL, 'glVertex3fv');
2193   @glVertex3i := GetProcAddress(hDLL, 'glVertex3i');
2194   @glVertex3iv := GetProcAddress(hDLL, 'glVertex3iv');
2195   @glVertex3s := GetProcAddress(hDLL, 'glVertex3s');
2196   @glVertex3sv := GetProcAddress(hDLL, 'glVertex3sv');
2197   @glVertex4d := GetProcAddress(hDLL, 'glVertex4d');
2198   @glVertex4dv := GetProcAddress(hDLL, 'glVertex4dv');
2199   @glVertex4f := GetProcAddress(hDLL, 'glVertex4f');
2200   @glVertex4fv := GetProcAddress(hDLL, 'glVertex4fv');
2201   @glVertex4i := GetProcAddress(hDLL, 'glVertex4i');
2202   @glVertex4iv := GetProcAddress(hDLL, 'glVertex4iv');
2203   @glVertex4s := GetProcAddress(hDLL, 'glVertex4s');
2204   @glVertex4sv := GetProcAddress(hDLL, 'glVertex4sv');
2205   @glVertexPointer := GetProcAddress(hDLL, 'glVertexPointer');
2206   @glViewport := GetProcAddress(hDLL, 'glViewport');
2207
2208   @ChoosePixelFormat := GetProcAddress(hDLL, 'ChoosePixelFormat');
2209   if not Assigned(ChoosePixelFormat) then
2210     @ChoosePixelFormat := @Windows.ChoosePixelFormat;
2211
2212 end;
2213
2214 initialization
2215
2216   Set8087CW($133F);
2217
2218   try
2219     LoadOpenGL('opengl32.dll');
2220   except end;
2221
2222 finalization
2223
2224   FreeOpenGL;
2225
2226 end.