qgl_win_gl_imp.inc

雷神之锤2(Quake2)Delphi源码

  SIG( 'glEdgeFlagPointer' );
  dllEdgeFlagPointer( stride, pointer );
end;
procedure logEdgeFlagv (const flag: PGLboolean); stdcall;
begin
  SIG( 'glEdgeFlagv' );
  dllEdgeFlagv( flag );
end;
procedure logEnable (cap: GLenum); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glEnable( 0x%x )\n', cap );
  SIG2 ('glEnable (0x%x)\n', [cap]);
  dllEnable (cap);
end;
procedure logEnableClientState (aarray: GLenum); stdcall;
begin
  SIG( 'glEnableClientState' );
  dllEnableClientState (aarray);
end;
procedure logEnd; stdcall;
begin
  SIG( 'glEnd' );
  dllEnd();
end;
procedure logEndList; stdcall;
begin
  SIG( 'glEndList' );
  dllEndList();
end;
procedure logEvalCoord1d (u: GLdouble); stdcall;
begin
  SIG( 'glEvalCoord1d' );
  dllEvalCoord1d( u );
end;
procedure logEvalCoord1dv (const u: PGLdouble); stdcall;
begin
  SIG( 'glEvalCoord1dv' );
  dllEvalCoord1dv( u );
end;
procedure logEvalCoord1f (u: GLfloat); stdcall;
begin
  SIG( 'glEvalCoord1f' );
  dllEvalCoord1f( u );
end;
procedure logEvalCoord1fv (const u: PGLfloat); stdcall;
begin
  SIG( 'glEvalCoord1fv' );
  dllEvalCoord1fv( u );
end;
procedure logEvalCoord2d (u, v: GLdouble); stdcall;
begin
  SIG( 'glEvalCoord2d' );
  dllEvalCoord2d( u, v );
end;
procedure logEvalCoord2dv (const u: PGLdouble); stdcall;
begin
  SIG( 'glEvalCoord2dv' );
  dllEvalCoord2dv( u );
end;
procedure logEvalCoord2f (u, v: GLfloat); stdcall;
begin
  SIG( 'glEvalCoord2f' );
  dllEvalCoord2f( u, v );
end;
procedure logEvalCoord2fv (const u: PGLfloat); stdcall;
begin
  SIG( 'glEvalCoord2fv' );
  dllEvalCoord2fv( u );
end;
procedure logEvalMesh1 (mode: GLenum; i1, i2: GLint); stdcall;
begin
  SIG( 'glEvalMesh1' );
  dllEvalMesh1( mode, i1, i2 );
end;
procedure logEvalMesh2 (mode: GLenum; i1, i2, j1, j2: GLint); stdcall;
begin
  SIG( 'glEvalMesh2' );
  dllEvalMesh2( mode, i1, i2, j1, j2 );
end;
procedure logEvalPoint1 (i: GLint); stdcall;
begin
  SIG( 'glEvalPoint1' );
  dllEvalPoint1( i );
end;
procedure logEvalPoint2 (i, j: GLint); stdcall;
begin
  SIG( 'glEvalPoint2' );
  dllEvalPoint2( i, j );
end;
procedure logFeedbackBuffer (size: GLsizei; atype: GLenum; buffer: PGLfloat); stdcall;
begin
  SIG('glFeedbackBuffer');
  dllFeedbackBuffer (size, atype, buffer);
end;
procedure logFinish; stdcall;
begin
  SIG( 'glFinish' );
  dllFinish();
end;
procedure logFlush; stdcall;
begin
  SIG( 'glFlush' );
  dllFlush();
end;
procedure logFogf (pname: GLenum; param: GLfloat); stdcall;
begin
  SIG( 'glFogf' );
  dllFogf( pname, param );
end;
procedure logFogfv (pname: GLenum; const params: PGLfloat); stdcall;
begin
  SIG( 'glFogfv' );
  dllFogfv( pname, params );
end;
procedure logFogi (pname: GLenum; param: GLint); stdcall;
begin
  SIG( 'glFogi' );
  dllFogi( pname, param );
end;
procedure logFogiv (pname: GLenum; const params: PGLint); stdcall;
begin
  SIG( 'glFogiv' );
  dllFogiv( pname, params );
end;
procedure logFrontFace (mode: GLenum); stdcall;
begin
  SIG( 'glFrontFace' );
  dllFrontFace( mode );
end;
procedure logFrustum (left, right, bottom, top, zNear, zFar: GLdouble); stdcall;
begin
  SIG( 'glFrustum' );
  dllFrustum( left, right, bottom, top, zNear, zFar );
end;
function  logGenLists (range: GLsizei): GLuint; stdcall;
begin
  SIG( 'glGenLists' );
  Result := dllGenLists (range);
end;
procedure logGenTextures (n: GLsizei; textures: PGLuint); stdcall;
begin
  SIG( 'glGenTextures' );
  dllGenTextures( n, textures );
end;
procedure logGetBooleanv (pname: GLenum; params: PGLboolean); stdcall;
begin
  SIG( 'glGetBooleanv' );
  dllGetBooleanv( pname, params );
end;
procedure logGetClipPlane (plane: GLenum; equation: PGLdouble); stdcall;
begin
  SIG( 'glGetClipPlane' );
  dllGetClipPlane( plane, equation );
end;
procedure logGetDoublev (pname: GLenum; params: PGLdouble); stdcall;
begin
  SIG( 'glGetDoublev' );
  dllGetDoublev( pname, params );
end;
function  logGetError : GLenum; stdcall;
begin
  SIG ('glGetError');
  Result := dllGetError();
end;
procedure logGetFloatv (pname: GLenum; params: PGLfloat); stdcall;
begin
  SIG( 'glGetFloatv' );
  dllGetFloatv( pname, params );
end;
procedure logGetIntegerv (pname: GLenum; params: PGLint); stdcall;
begin
  SIG( 'glGetIntegerv' );
  dllGetIntegerv( pname, params );
end;
procedure logGetLightfv (light, pname: GLenum; params: PGLfloat); stdcall;
begin
  SIG ('glGetLightfv');
  dllGetLightfv (light, pname, params);
end;
procedure logGetLightiv (light, pname: GLenum; params: PGLint); stdcall;
begin
  SIG( 'glGetLightiv' );
  dllGetLightiv( light, pname, params );
end;
procedure logGetMapdv (target, query: GLenum; v: PGLdouble); stdcall;
begin
  SIG( 'glGetMapdv' );
  dllGetMapdv( target, query, v );
end;
procedure logGetMapfv (target, query: GLenum; v: PGLfloat); stdcall;
begin
  SIG( 'glGetMapfv' );
  dllGetMapfv( target, query, v );
end;
procedure logGetMapiv (target, query: GLenum; v: GLint); stdcall;
begin
  SIG( 'glGetMapiv' );
  dllGetMapiv( target, query, v );
end;
procedure logGetMaterialfv (face, pname: GLenum; params: PGLfloat); stdcall;
begin
  SIG ('glGetMaterialfv');
  dllGetMaterialfv (face, pname, params);
end;
procedure logGetMaterialiv (face, pname: GLenum; params: GLint); stdcall;
begin
  SIG ('glGetMaterialiv');
  dllGetMaterialiv (face, pname, params);
end;
procedure logGetPixelMapfv (map: GLenum; values: PGLfloat); stdcall;
begin
  SIG( 'glGetPixelMapfv' );
  dllGetPixelMapfv( map, values );
end;
procedure logGetPixelMapuiv (map: GLenum; values: PGLuint); stdcall;
begin
  SIG( 'glGetPixelMapuiv' );
  dllGetPixelMapuiv( map, values );
end;
procedure logGetPixelMapusv (map: GLenum; values: PGLushort); stdcall;
begin
  SIG ('glGetPixelMapusv');
  dllGetPixelMapusv (map, values);
end;
procedure logGetPointerv (pname: GLenum; params: Pointer); stdcall;
begin
  SIG( 'glGetPointerv' );
  dllGetPointerv( pname, params );
end;
procedure logGetPolygonStipple (mask: PGLubyte); stdcall;
begin
  SIG( 'glGetPolygonStipple' );
  dllGetPolygonStipple( mask );
end;
function logGetString (name: GLenum): PGLubyte; stdcall;
begin
  SIG ('glGetString');
  Result := dllGetString (name);
end;
procedure logGetTexEnvfv (target, pname: GLenum; params: PGLfloat); stdcall;
begin
  SIG( 'glGetTexEnvfv' );
  dllGetTexEnvfv( target, pname, params );
end;
procedure logGetTexEnviv (target, pname: GLenum; params: PGLint); stdcall;
begin
  SIG( 'glGetTexEnviv' );
  dllGetTexEnviv( target, pname, params );
end;
procedure logGetTexGendv (coord, pname: GLenum; params: PGLdouble); stdcall;
begin
  SIG( 'glGetTexGendv' );
  dllGetTexGendv( coord, pname, params );
end;
procedure logGetTexGenfv (coord, pname: GLenum; params: PGLfloat); stdcall;
begin
  SIG( 'glGetTexGenfv' );
  dllGetTexGenfv( coord, pname, params );
end;
procedure logGetTexGeniv (coord, pname: GLenum; params: PGLint); stdcall;
begin
  SIG ('glGetTexGeniv');
  dllGetTexGeniv(coord, pname, params);
end;
procedure logGetTexImage (target: GLenum; level: GLint; format: GLenum; atype: GLenum; pixels: Pointer); stdcall;
begin
  SIG( 'glGetTexImage' );
  dllGetTexImage( target, level, format, atype, pixels );
end;
procedure logGetTexLevelParameterfv (target: GLenum; level: GLint; pname: GLenum; params: Pointer); stdcall;
begin
  SIG ('glGetTexLevelParameterfv');
  dllGetTexLevelParameterfv (target, level, pname, params);
end;
procedure logGetTexLevelParameteriv (target: GLenum; level: GLint; pname: GLenum; params: PGLint); stdcall;
begin
  SIG ('glGetTexLevelParameteriv');
  dllGetTexLevelParameteriv (target, level, pname, params);
end;
procedure logGetTexParameterfv (target, pname: GLenum; params: PGLfloat); stdcall;
begin
  SIG( 'glGetTexParameterfv' );
  dllGetTexParameterfv( target, pname, params );
end;
procedure logGetTexParameteriv (target, pname: GLenum; params: PGLint); stdcall;
begin
  SIG( 'glGetTexParameteriv' );
  dllGetTexParameteriv (target, pname, params);
end;
procedure logHint (target, mode: GLenum); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glHint( 0x%x, 0x%x )\n', target, mode );
  SIG2 ('glHint (0x%x, 0x%x)\n', [target, mode]);
  dllHint (target, mode);
end;
procedure logIndexMask (mask: GLuint); stdcall;
begin
  SIG( 'glIndexMask' );
  dllIndexMask( mask );
end;
procedure logIndexPointer (atype: GLenum; stride: GLsizei; const pointer: Pointer); stdcall;
begin
  SIG ('glIndexPointer');
  dllIndexPointer (atype, stride, pointer);
end;
procedure logIndexd (c: GLdouble); stdcall;
begin
  SIG( 'glIndexd' );
  dllIndexd( c );
end;
procedure logIndexdv (const c: PGLdouble); stdcall;
begin
  SIG( 'glIndexdv' );
  dllIndexdv( c );
end;
procedure logIndexf (c: GLfloat); stdcall;
begin
  SIG( 'glIndexf' );
  dllIndexf( c );
end;
procedure logIndexfv (const c: PGLfloat); stdcall;
begin
  SIG( 'glIndexfv' );
  dllIndexfv( c );
end;
procedure logIndexi (c: GLint); stdcall;
begin
  SIG( 'glIndexi' );
  dllIndexi( c );
end;
procedure logIndexiv (const c: PGLint); stdcall;
begin
  SIG( 'glIndexiv' );
  dllIndexiv( c );
end;
procedure logIndexs (c: GLshort); stdcall;
begin
  SIG( 'glIndexs' );
  dllIndexs( c );
end;
procedure logIndexsv (const c: PGLshort); stdcall;
begin
  SIG ('glIndexsv');
  dllIndexsv (c);
end;
procedure logIndexub (c: GLubyte); stdcall;
begin
  SIG( 'glIndexub' );
  dllIndexub( c );
end;
procedure logIndexubv (const c: PGLubyte); stdcall;
begin
  SIG ('glIndexubv');
  dllIndexubv (c);
end;
procedure logInitNames; stdcall;
begin
  SIG( 'glInitNames' );
  dllInitNames();
end;
procedure logInterleavedArrays (format: GLenum; stride: GLsizei; const pointer: Pointer); stdcall;
begin
  SIG( 'glInitNames' );
  dllInitNames();
end;
function logIsEnabled (cap: GLenum): GLboolean; stdcall;
begin
  SIG ('glIsEnabled');
  Result := dllIsEnabled (cap);
end;
function logIsList (list: GLuint): GLboolean; stdcall;
begin
  SIG ('glIsList');
  Result := dllIsList (list);
end;
function logIsTexture (texture: GLuint): GLboolean; stdcall;
begin