qgl_win_gl_imp.inc

雷神之锤2(Quake2)Delphi源码

// This text from GL.pas - 336 glProcedures
//   - line 7-342:    glXxx --> dllXxx
//   - line 360-2089: glXxx --> logXxx

var
  //336 dll OpenGL procedures - It's ONLY for IMPLEMENTATION unit-section
  dllAccum: procedure(op: GLenum; value: GLfloat); stdcall;
  dllAlphaFunc: procedure(func: GLenum; ref: GLclampf); stdcall;
  dllAreTexturesResident: function (n: GLsizei; const textures: PGLuint; residences: PGLboolean): GLboolean; stdcall;
  dllArrayElement: procedure(i: GLint); stdcall;
  dllBegin: procedure(mode: GLenum); stdcall;
  dllBindTexture: procedure(target: GLenum; texture: GLuint); stdcall;
  dllBitmap: procedure (width, height: GLsizei; xorig, yorig: GLfloat; xmove, ymove: GLfloat; const bitmap: PGLubyte); stdcall;
  dllBlendFunc: procedure(sfactor, dfactor: GLenum); stdcall;
  dllCallList: procedure(list: GLuint); stdcall;
  dllCallLists: procedure(n: GLsizei; atype: GLenum; const lists: Pointer); stdcall;
  dllClear: procedure(mask: GLbitfield); stdcall;
  dllClearAccum: procedure(red, green, blue, alpha: GLfloat); stdcall;
  dllClearColor: procedure(red, green, blue, alpha: GLclampf); stdcall;
  dllClearDepth: procedure(depth: GLclampd); stdcall;
  dllClearIndex: procedure(c: GLfloat); stdcall;
  dllClearStencil: procedure(s: GLint); stdcall;
  dllClipPlane: procedure(plane: GLenum; const equation: PGLdouble); stdcall;
  dllColor3b: procedure(red, green, blue: GLbyte); stdcall;
  dllColor3bv: procedure(const v: PGLbyte); stdcall;
  dllColor3d: procedure(red, green, blue: GLdouble); stdcall;
  dllColor3dv: procedure(const v: PGLdouble); stdcall;
  dllColor3f: procedure(red, green, blue: GLfloat); stdcall;
  dllColor3fv: procedure(const v: PGLfloat); stdcall;
  dllColor3i: procedure(red, green, blue: GLint); stdcall;
  dllColor3iv: procedure(const v: PGLint); stdcall;
  dllColor3s: procedure(red, green, blue: GLshort); stdcall;
  dllColor3sv: procedure(const v: PGLshort); stdcall;
  dllColor3ub: procedure(red, green, blue: GLubyte); stdcall;
  dllColor3ubv: procedure(const v: PGLubyte); stdcall;
  dllColor3ui: procedure(red, green, blue: GLuint); stdcall;
  dllColor3uiv: procedure(const v: PGLuint); stdcall;
  dllColor3us: procedure(red, green, blue: GLushort); stdcall;
  dllColor3usv: procedure(const v: PGLushort); stdcall;
  dllColor4b: procedure(red, green, blue, alpha: GLbyte); stdcall;
  dllColor4bv: procedure(const v: PGLbyte); stdcall;
  dllColor4d: procedure(red, green, blue, alpha: GLdouble); stdcall;
  dllColor4dv: procedure(const v: PGLdouble); stdcall;
  dllColor4f: procedure(red, green, blue, alpha: GLfloat); stdcall;
  dllColor4fv: procedure(const v: PGLfloat); stdcall;
  dllColor4i: procedure(red, green, blue, alpha: GLint); stdcall;
  dllColor4iv: procedure(const v: PGLint); stdcall;
  dllColor4s: procedure(red, green, blue, alpha: GLshort); stdcall;
  dllColor4sv: procedure(const v: PGLshort); stdcall;
  dllColor4ub: procedure(red, green, blue, alpha: GLubyte); stdcall;
  dllColor4ubv: procedure(const v: PGLubyte); stdcall;
  dllColor4ui: procedure(red, green, blue, alpha: GLuint); stdcall;
  dllColor4uiv: procedure(const v: PGLuint); stdcall;
  dllColor4us: procedure(red, green, blue, alpha: GLushort); stdcall;
  dllColor4usv: procedure(const v: PGLushort); stdcall;
  dllColorMask: procedure(red, green, blue, alpha: GLboolean); stdcall;
  dllColorMaterial: procedure(face, mode: GLenum); stdcall;
  dllColorPointer: procedure(size: GLint; atype: GLenum; stride: GLsizei; const pointer: Pointer); stdcall;
  dllCopyPixels: procedure(x, y: GLint; width, height: GLsizei; atype: GLenum); stdcall;
  dllCopyTexImage1D: procedure (target: GLenum; level: GLint; internalFormat: GLenum; x, y: GLint; width: GLsizei; border: GLint); stdcall;
  dllCopyTexImage2D: procedure(target: GLenum; level: GLint; internalFormat: GLenum; x, y: GLint; width, height: GLsizei; border: GLint); stdcall;
  dllCopyTexSubImage1D: procedure(target: GLenum; level, xoffset, x, y: GLint; width: GLsizei); stdcall;
  dllCopyTexSubImage2D: procedure(target: GLenum; level, xoffset, yoffset, x, y: GLint; width, height: GLsizei); stdcall;
  dllCullFace: procedure(mode: GLenum); stdcall;
  dllDeleteLists: procedure(list: GLuint; range: GLsizei); stdcall;
  dllDeleteTextures: procedure(n: GLsizei; const textures: PGLuint); stdcall;
  dllDepthFunc: procedure(func: GLenum); stdcall;
  dllDepthMask: procedure(flag: GLboolean); stdcall;
  dllDepthRange: procedure(zNear, zFar: GLclampd); stdcall;
  dllDisable: procedure(cap: GLenum); stdcall;
  dllDisableClientState: procedure(aarray: GLenum); stdcall;
  dllDrawArrays: procedure(mode: GLenum; first: GLint; count: GLsizei); stdcall;
  dllDrawBuffer: procedure(mode: GLenum); stdcall;
  dllDrawElements: procedure(mode: GLenum; count: GLsizei; atype: GLenum; const indices: Pointer); stdcall;
  dllDrawPixels: procedure(width, height: GLsizei; format, atype: GLenum; const pixels: Pointer); stdcall;
  dllEdgeFlag: procedure(flag: GLboolean); stdcall;
  dllEdgeFlagPointer: procedure(stride: GLsizei; const pointer: Pointer); stdcall;
  dllEdgeFlagv: procedure(const flag: PGLboolean); stdcall;
  dllEnable: procedure(cap: GLenum); stdcall;
  dllEnableClientState: procedure(aarray: GLenum); stdcall;
  dllEnd: procedure; stdcall;
  dllEndList: procedure; stdcall;
  dllEvalCoord1d: procedure(u: GLdouble); stdcall;
  dllEvalCoord1dv: procedure(const u: PGLdouble); stdcall;
  dllEvalCoord1f: procedure(u: GLfloat); stdcall;
  dllEvalCoord1fv: procedure(const u: PGLfloat); stdcall;
  dllEvalCoord2d: procedure(u, v: GLdouble); stdcall;
  dllEvalCoord2dv: procedure(const u: PGLdouble); stdcall;
  dllEvalCoord2f: procedure(u, v: GLfloat); stdcall;
  dllEvalCoord2fv: procedure(const u: PGLfloat); stdcall;
  dllEvalMesh1: procedure(mode: GLenum; i1, i2: GLint); stdcall;
  dllEvalMesh2: procedure(mode: GLenum; i1, i2, j1, j2: GLint); stdcall;
  dllEvalPoint1: procedure(i: GLint); stdcall;
  dllEvalPoint2: procedure(i, j: GLint); stdcall;
  dllFeedbackBuffer: procedure(size: GLsizei; atype: GLenum; buffer: PGLfloat); stdcall;
  dllFinish: procedure; stdcall;
  dllFlush: procedure; stdcall;
  dllFogf: procedure(pname: GLenum; param: GLfloat); stdcall;
  dllFogfv: procedure(pname: GLenum; const params: PGLfloat); stdcall;
  dllFogi: procedure(pname: GLenum; param: GLint); stdcall;
  dllFogiv: procedure(pname: GLenum; const params: PGLint); stdcall;
  dllFrontFace: procedure(mode: GLenum); stdcall;
  dllFrustum: procedure(left, right, bottom, top, zNear, zFar: GLdouble); stdcall;
  dllGenLists: function(range: GLsizei): GLuint; stdcall;
  dllGenTextures: procedure(n: GLsizei; textures: PGLuint); stdcall;
  dllGetBooleanv: procedure(pname: GLenum; params: PGLboolean); stdcall;
  dllGetClipPlane: procedure(plane: GLenum; equation: PGLdouble); stdcall;
  dllGetDoublev: procedure(pname: GLenum; params: PGLdouble); stdcall;
  dllGetError: function: GLenum; stdcall;
  dllGetFloatv: procedure(pname: GLenum; params: PGLfloat); stdcall;
  dllGetIntegerv: procedure(pname: GLenum; params: PGLint); stdcall;
  dllGetLightfv: procedure(light, pname: GLenum; params: PGLfloat); stdcall;
  dllGetLightiv: procedure(light, pname: GLenum; params: PGLint); stdcall;
  dllGetMapdv: procedure(target, query: GLenum; v: PGLdouble); stdcall;
  dllGetMapfv: procedure(target, query: GLenum; v: PGLfloat); stdcall;
  dllGetMapiv: procedure(target, query: GLenum; v: GLint); stdcall;
  dllGetMaterialfv: procedure(face, pname: GLenum; params: PGLfloat); stdcall;
  dllGetMaterialiv: procedure(face, pname: GLenum; params: GLint); stdcall;
  dllGetPixelMapfv: procedure(map: GLenum; values: PGLfloat); stdcall;
  dllGetPixelMapuiv: procedure(map: GLenum; values: PGLuint); stdcall;
  dllGetPixelMapusv: procedure(map: GLenum; values: PGLushort); stdcall;
  dllGetPointerv: procedure(pname: GLenum; params: Pointer); stdcall;
  dllGetPolygonStipple: procedure(mask: PGLubyte); stdcall;
  dllGetString: function(name: GLenum): PGLubyte; stdcall;
  dllGetTexEnvfv: procedure(target, pname: GLenum; params: PGLfloat); stdcall;
  dllGetTexEnviv: procedure(target, pname: GLenum; params: PGLint); stdcall;
  dllGetTexGendv: procedure(coord, pname: GLenum; params: PGLdouble); stdcall;
  dllGetTexGenfv: procedure(coord, pname: GLenum; params: PGLfloat); stdcall;
  dllGetTexGeniv: procedure(coord, pname: GLenum; params: PGLint); stdcall;
  dllGetTexImage: procedure(target: GLenum; level: GLint; format: GLenum; atype: GLenum; pixels: Pointer); stdcall;
  dllGetTexLevelParameterfv: procedure(target: GLenum; level: GLint; pname: GLenum; params: Pointer); stdcall;
  dllGetTexLevelParameteriv: procedure(target: GLenum; level: GLint; pname: GLenum; params: PGLint); stdcall;
  dllGetTexParameterfv: procedure(target, pname: GLenum; params: PGLfloat); stdcall;
  dllGetTexParameteriv: procedure(target, pname: GLenum; params: PGLint); stdcall;
  dllHint: procedure(target, mode: GLenum); stdcall;
  dllIndexMask: procedure(mask: GLuint); stdcall;
  dllIndexPointer: procedure(atype: GLenum; stride: GLsizei; const pointer: Pointer); stdcall;
  dllIndexd: procedure(c: GLdouble); stdcall;
  dllIndexdv: procedure(const c: PGLdouble); stdcall;
  dllIndexf: procedure(c: GLfloat); stdcall;
  dllIndexfv: procedure(const c: PGLfloat); stdcall;
  dllIndexi: procedure(c: GLint); stdcall;
  dllIndexiv: procedure(const c: PGLint); stdcall;
  dllIndexs: procedure(c: GLshort); stdcall;
  dllIndexsv: procedure(const c: PGLshort); stdcall;
  dllIndexub: procedure(c: GLubyte); stdcall;
  dllIndexubv: procedure(const c: PGLubyte); stdcall;
  dllInitNames: procedure; stdcall;
  dllInterleavedArrays: procedure(format: GLenum; stride: GLsizei; const pointer: Pointer); stdcall;
  dllIsEnabled: function(cap: GLenum): GLboolean; stdcall;
  dllIsList: function(list: GLuint): GLboolean; stdcall;
  dllIsTexture: function(texture: GLuint): GLboolean; stdcall;
  dllLightModelf: procedure(pname: GLenum; param: GLfloat); stdcall;
  dllLightModelfv: procedure(pname: GLenum; const params: PGLfloat); stdcall;
  dllLightModeli: procedure(pname: GLenum; param: GLint); stdcall;
  dllLightModeliv: procedure(pname: GLenum; const params: PGLint); stdcall;
  dllLightf: procedure(light, pname: GLenum; param: GLfloat); stdcall;
  dllLightfv: procedure(light, pname: GLenum; const params: PGLfloat); stdcall;
  dllLighti: procedure(light, pname: GLenum; param: GLint); stdcall;
  dllLightiv: procedure(light, pname: GLenum; const params: GLint); stdcall;
  dllLineStipple: procedure(factor: GLint; pattern: GLushort); stdcall;
  dllLineWidth: procedure(width: GLfloat); stdcall;
  dllListBase: procedure(base: GLuint); stdcall;
  dllLoadIdentity: procedure; stdcall;
  dllLoadMatrixd: procedure(const m: PGLdouble); stdcall;
  dllLoadMatrixf: procedure(const m: PGLfloat); stdcall;
  dllLoadName: procedure(name: GLuint); stdcall;
  dllLogicOp: procedure(opcode: GLenum); stdcall;
  dllMap1d: procedure(target: GLenum; u1, u2: GLdouble; stride, order: GLint; const points: PGLdouble); stdcall;
  dllMap1f: procedure(target: GLenum; u1, u2: GLfloat; stride, order: GLint; const points: PGLfloat); stdcall;
  dllMap2d: procedure(target: GLenum; u1, u2: GLdouble; ustride, uorder: GLint; v1, v2: GLdouble; vstride, vorder: GLint; const points: PGLdouble); stdcall;
  dllMap2f: procedure(target: GLenum; u1, u2: GLfloat; ustride, uorder: GLint; v1, v2: GLfloat; vstride, vorder: GLint; const points: PGLfloat); stdcall;
  dllMapGrid1d: procedure(un: GLint; u1, u2: GLdouble); stdcall;
  dllMapGrid1f: procedure(un: GLint; u1, u2: GLfloat); stdcall;
  dllMapGrid2d: procedure(un: GLint; u1, u2: GLdouble; vn: GLint; v1, v2: GLdouble); stdcall;
  dllMapGrid2f: procedure(un: GLint; u1, u2: GLfloat; vn: GLint; v1, v2: GLfloat); stdcall;
  dllMaterialf: procedure(face, pname: GLenum; param: GLfloat); stdcall;
  dllMaterialfv: procedure(face, pname: GLenum; const params: PGLfloat); stdcall;
  dllMateriali: procedure(face, pname: GLenum; param: GLint); stdcall;
  dllMaterialiv: procedure(face, pname: GLenum; const params: PGLint); stdcall;
  dllMatrixMode: procedure(mode: GLenum); stdcall;
  dllMultMatrixd: procedure(const m: PGLdouble); stdcall;
  dllMultMatrixf: procedure(const m: PGLfloat); stdcall;
  dllNewList: procedure(list: GLuint; mode: GLenum); stdcall;
  dllNormal3b: procedure(nx, ny, nz: GLbyte); stdcall;
  dllNormal3bv: procedure(const v: PGLbyte); stdcall;
  dllNormal3d: procedure(nx, ny, nz: GLdouble); stdcall;
  dllNormal3dv: procedure(const v: PGLdouble); stdcall;
  dllNormal3f: procedure(nx, ny, nz: GLfloat); stdcall;
  dllNormal3fv: procedure(const v: PGLfloat); stdcall;
  dllNormal3i: procedure(nx, ny, nz: GLint); stdcall;
  dllNormal3iv: procedure(const v: PGLint); stdcall;
  dllNormal3s: procedure(nx, ny, nz: GLshort); stdcall;
  dllNormal3sv: procedure(const v: PGLshort); stdcall;
  dllNormalPointer: procedure(atype: GLenum; stride: GLsizei; const pointer: Pointer); stdcall;
  dllOrtho: procedure(left, right, bottom, top, zNear, zFar: GLdouble); stdcall;
  dllPassThrough: procedure(token: GLfloat); stdcall;
  dllPixelMapfv: procedure(map: GLenum; mapsize: GLsizei; const values: PGLfloat); stdcall;
  dllPixelMapuiv: procedure(map: GLenum; mapsize: GLsizei; const values: PGLuint); stdcall;
  dllPixelMapusv: procedure(map: GLenum; mapsize: GLsizei; const values: PGLushort); stdcall;
  dllPixelStoref: procedure(pname: GLenum; param: GLfloat); stdcall;
  dllPixelStorei: procedure(pname: GLenum; param: GLint); stdcall;
  dllPixelTransferf: procedure(pname: GLenum; param: GLfloat); stdcall;
  dllPixelTransferi: procedure(pname: GLenum; param: GLint); stdcall;
  dllPixelZoom: procedure(xfactor, yfactor: GLfloat); stdcall;
  dllPointSize: procedure(size: GLfloat); stdcall;
  dllPolygonMode: procedure(face, mode: GLenum); stdcall;
  dllPolygonOffset: procedure(factor, units: GLfloat); stdcall;
  dllPolygonStipple: procedure(const mask: PGLubyte); stdcall;
  dllPopAttrib: procedure; stdcall;
  dllPopClientAttrib: procedure; stdcall;
  dllPopMatrix: procedure; stdcall;
  dllPopName: procedure; stdcall;
  dllPrioritizeTextures: procedure(n: GLsizei; const textures: PGLuint; const priorities: PGLclampf); stdcall;
  dllPushAttrib: procedure(mask: GLbitfield); stdcall;
  dllPushClientAttrib: procedure(mask: GLbitfield); stdcall;
  dllPushMatrix: procedure; stdcall;
  dllPushName: procedure(name: GLuint); stdcall;
  dllRasterPos2d: procedure(x, y: GLdouble); stdcall;
  dllRasterPos2dv: procedure(const v: PGLdouble); stdcall;
  dllRasterPos2f: procedure(x, y: GLfloat); stdcall;
  dllRasterPos2fv: procedure(const v: PGLfloat); stdcall;
  dllRasterPos2i: procedure(x, y: GLint); stdcall;
  dllRasterPos2iv: procedure(const v: PGLint); stdcall;
  dllRasterPos2s: procedure(x, y: GLshort); stdcall;
  dllRasterPos2sv: procedure(const v: PGLshort); stdcall;
  dllRasterPos3d: procedure(x, y, z: GLdouble); stdcall;
  dllRasterPos3dv: procedure(const v: PGLdouble); stdcall;
  dllRasterPos3f: procedure(x, y, z: GLfloat); stdcall;
  dllRasterPos3fv: procedure(const v: PGLfloat); stdcall;
  dllRasterPos3i: procedure(x, y, z: GLint); stdcall;
  dllRasterPos3iv: procedure(const v: PGLint); stdcall;
  dllRasterPos3s: procedure(x, y, z: GLshort); stdcall;
  dllRasterPos3sv: procedure(const v: PGLshort); stdcall;
  dllRasterPos4d: procedure(x, y, z, w: GLdouble); stdcall;
  dllRasterPos4dv: procedure(const v: PGLdouble); stdcall;
  dllRasterPos4f: procedure(x, y, z, w: GLfloat); stdcall;
  dllRasterPos4fv: procedure(const v: PGLfloat); stdcall;
  dllRasterPos4i: procedure(x, y, z, w: GLint); stdcall;
  dllRasterPos4iv: procedure(const v: PGLint); stdcall;
  dllRasterPos4s: procedure(x, y, z, w: GLshort); stdcall;
  dllRasterPos4sv: procedure(const v: PGLshort); stdcall;
  dllReadBuffer: procedure(mode: GLenum); stdcall;
  dllReadPixels: procedure(x, y: GLint; width, height: GLsizei; format, atype: GLenum; pixels: Pointer); stdcall;
  dllRectd: procedure(x1, y1, x2, y2: GLdouble); stdcall;
  dllRectdv: procedure(const v1: PGLdouble; const v2: PGLdouble); stdcall;
  dllRectf: procedure(x1, y1, x2, y2: GLfloat); stdcall;
  dllRectfv: procedure(const v1: PGLfloat; const v2: PGLfloat); stdcall;
  dllRecti: procedure(x1, y1, x2, y2: GLint); stdcall;
  dllRectiv: procedure(const v1: PGLint; const v2: PGLint); stdcall;
  dllRects: procedure(x1, y1, x2, y2: GLshort); stdcall;
  dllRectsv: procedure(const v1: PGLshort; const v2: PGLshort); stdcall;
  dllRenderMode: function(mode: GLint): GLint; stdcall;
  dllRotated: procedure(angle, x, y, z: GLdouble); stdcall;
  dllRotatef: procedure(angle, x, y, z: GLfloat); stdcall;
  dllScaled: procedure(x, y, z: GLdouble); stdcall;
  dllScalef: procedure(x, y, z: GLfloat); stdcall;
  dllScissor: procedure(x, y: GLint; width, height: GLsizei); stdcall;
  dllSelectBuffer: procedure(size: GLsizei; buffer: PGLuint); stdcall;
  dllShadeModel: procedure(mode: GLenum); stdcall;
  dllStencilFunc: procedure(func: GLenum; ref: GLint; mask: GLuint); stdcall;
  dllStencilMask: procedure(mask: GLuint); stdcall;
  dllStencilOp: procedure(fail, zfail, zpass: GLenum); stdcall;
  dllTexCoord1d: procedure(s: GLdouble); stdcall;
  dllTexCoord1dv: procedure(const v: PGLdouble); stdcall;
  dllTexCoord1f: procedure(s: GLfloat); stdcall;
  dllTexCoord1fv: procedure(const v: PGLfloat); stdcall;
  dllTexCoord1i: procedure(s: GLint); stdcall;
  dllTexCoord1iv: procedure(const v: PGLint); stdcall;
  dllTexCoord1s: procedure(s: GLshort); stdcall;
  dllTexCoord1sv: procedure(const v: PGLshort); stdcall;
  dllTexCoord2d: procedure(s, t: GLdouble); stdcall;
  dllTexCoord2dv: procedure(const v: PGLdouble); stdcall;
  dllTexCoord2f: procedure(s, t: GLfloat); stdcall;
  dllTexCoord2fv: procedure(const v: PGLfloat); stdcall;
  dllTexCoord2i: procedure(s, t: GLint); stdcall;
  dllTexCoord2iv: procedure(const v: PGLint); stdcall;
  dllTexCoord2s: procedure(s, t: GLshort); stdcall;
  dllTexCoord2sv: procedure(const v: PGLshort); stdcall;
  dllTexCoord3d: procedure(s, t, r: GLdouble); stdcall;
  dllTexCoord3dv: procedure(const v: PGLdouble); stdcall;
  dllTexCoord3f: procedure(s, t, r: GLfloat); stdcall;
  dllTexCoord3fv: procedure(const v: PGLfloat); stdcall;
  dllTexCoord3i: procedure(s, t, r: GLint); stdcall;
  dllTexCoord3iv: procedure(const v: PGLint); stdcall;
  dllTexCoord3s: procedure(s, t, r: GLshort); stdcall;
  dllTexCoord3sv: procedure(const v: PGLshort); stdcall;
  dllTexCoord4d: procedure(s, t, r, q: GLdouble); stdcall;
  dllTexCoord4dv: procedure(const v: PGLdouble); stdcall;
  dllTexCoord4f: procedure(s, t, r, q: GLfloat); stdcall;
  dllTexCoord4fv: procedure(const v: PGLfloat); stdcall;
  dllTexCoord4i: procedure(s, t, r, q: GLint); stdcall;
  dllTexCoord4iv: procedure(const v: PGLint); stdcall;
  dllTexCoord4s: procedure(s, t, r, q: GLshort); stdcall;
  dllTexCoord4sv: procedure(const v: PGLshort); stdcall;
  dllTexCoordPointer: procedure(size: GLint; atype: GLenum; stride: GLsizei; const pointer: Pointer); stdcall;
  dllTexEnvf: procedure(target: GLenum; pname: GLenum; param: GLfloat); stdcall;
  dllTexEnvfv: procedure(target: GLenum; pname: GLenum; const params: PGLfloat); stdcall;
  dllTexEnvi: procedure(target: GLenum; pname: GLenum; param: GLint); stdcall;
  dllTexEnviv: procedure(target: GLenum; pname: GLenum; const params: PGLint); stdcall;
  dllTexGend: procedure(coord: GLenum; pname: GLenum; param: GLdouble); stdcall;
  dllTexGendv: procedure(coord: GLenum; pname: GLenum; const params: PGLdouble); stdcall;
  dllTexGenf: procedure(coord: GLenum; pname: GLenum; param: GLfloat); stdcall;
  dllTexGenfv: procedure(coord: GLenum; pname: GLenum; const params: PGLfloat); stdcall;
  dllTexGeni: procedure(coord: GLenum; pname: GLenum; param: GLint); stdcall;
  dllTexGeniv: procedure(coord: GLenum; pname: GLenum; const params: PGLint); stdcall;
  dllTexImage1D: procedure(target: GLenum; level, internalformat: GLint; width: GLsizei; border: GLint; format, atype: GLenum; const pixels: Pointer); stdcall;
  dllTexImage2D: procedure(target: GLenum; level, internalformat: GLint; width, height: GLsizei; border: GLint; format, atype: GLenum; const pixels: Pointer); stdcall;
  dllTexParameterf: procedure(target: GLenum; pname: GLenum; param: GLfloat); stdcall;
  dllTexParameterfv: procedure(target: GLenum; pname: GLenum; const params: PGLfloat); stdcall;
  dllTexParameteri: procedure(target: GLenum; pname: GLenum; param: GLint); stdcall;
  dllTexParameteriv: procedure(target: GLenum; pname: GLenum; const params: PGLint); stdcall;
  dllTexSubImage1D: procedure(target: GLenum; level, xoffset: GLint; width: GLsizei; format, atype: GLenum; const pixels: Pointer); stdcall;
  dllTexSubImage2D: procedure(target: GLenum; level, xoffset, yoffset: GLint; width, height: GLsizei; format, atype: GLenum; const pixels: Pointer); stdcall;
  dllTranslated: procedure(x, y, z: GLdouble); stdcall;
  dllTranslatef: procedure(x, y, z: GLfloat); stdcall;
  dllVertex2d: procedure(x, y: GLdouble); stdcall;
  dllVertex2dv: procedure(const v: PGLdouble); stdcall;
  dllVertex2f: procedure(x, y: GLfloat); stdcall;
  dllVertex2fv: procedure(const v: PGLfloat); stdcall;
  dllVertex2i: procedure(x, y: GLint); stdcall;
  dllVertex2iv: procedure(const v: PGLint); stdcall;
  dllVertex2s: procedure(x, y: GLshort); stdcall;
  dllVertex2sv: procedure(const v: PGLshort); stdcall;
  dllVertex3d: procedure(x, y, z: GLdouble); stdcall;
  dllVertex3dv: procedure(const v: PGLdouble); stdcall;
  dllVertex3f: procedure(x, y, z: GLfloat); stdcall;
  dllVertex3fv: procedure(const v: PGLfloat); stdcall;
  dllVertex3i: procedure(x, y, z: GLint); stdcall;
  dllVertex3iv: procedure(const v: PGLint); stdcall;
  dllVertex3s: procedure(x, y, z: GLshort); stdcall;
  dllVertex3sv: procedure(const v: PGLshort); stdcall;
  dllVertex4d: procedure(x, y, z, w: GLdouble); stdcall;
  dllVertex4dv: procedure(const v: PGLdouble); stdcall;
  dllVertex4f: procedure(x, y, z, w: GLfloat); stdcall;
  dllVertex4fv: procedure(const v: PGLfloat); stdcall;
  dllVertex4i: procedure(x, y, z, w: GLint); stdcall;
  dllVertex4iv: procedure(const v: PGLint); stdcall;
  dllVertex4s: procedure(x, y, z, w: GLshort); stdcall;
  dllVertex4sv: procedure(const v: PGLshort); stdcall;
  dllVertexPointer: procedure(size: GLint; atype: GLenum; stride: GLsizei; const pointer: Pointer); stdcall;
  dllViewport: procedure(x, y: GLint; width, height: GLsizei); stdcall;


//#define SIG( x ) fprintf( glw_state.log_fp, x "\n" )
procedure SIG (x : string);
begin
//  fprintf( glw_state.log_fp, x "\n" )
  WriteLn (glw_state.log_fp, x{"\n"});
end;

//Y: my-code
procedure SIG2 (x : string; const Args: array of const);
begin
  WriteLn (glw_state.log_fp, Format(x, Args));
end;


//336 log OpenGL procedures - It's ONLY for IMPLEMENTATION unit-section
procedure logAccum (op: GLenum; value: GLfloat); stdcall;
begin
  SIG ('glAccum');
  dllAccum (op, value);
end;
procedure logAlphaFunc (func: GLenum; ref: GLclampf); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glAlphaFunc( 0x%x, %f )\n', func, ref );
  SIG2 ('glAlphaFunc (0x%x, %f)\n', [func, ref]);
  dllAlphaFunc( func, ref );
end;
function  logAreTexturesResident (n: GLsizei; const textures: PGLuint; residences: PGLboolean): GLboolean; stdcall;
begin
//  fprintf( glw_state.log_fp, 'glAreTexturesResident\n' );
  SIG ('glAreTexturesResident');
  Result := dllAreTexturesResident (n, textures, residences);
end;
procedure logArrayElement (i: GLint); stdcall;