qgl_win_gl_imp.inc

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