qgl_win_gl_imp.inc

雷神之锤2(Quake2)Delphi源码

  dllRasterPos3d( x, y, z );
end;
procedure logRasterPos3dv (const v: PGLdouble); stdcall;
begin
  SIG( 'glRasterPos3dv' );
  dllRasterPos3dv( v );
end;
procedure logRasterPos3f (x, y, z: GLfloat); stdcall;
begin
  SIG( 'glRasterPos3f' );
  dllRasterPos3f( x, y, z );
end;
procedure logRasterPos3fv (const v: PGLfloat); stdcall;
begin
  SIG( 'glRasterPos3fv' );
  dllRasterPos3fv( v );
end;
procedure logRasterPos3i (x, y, z: GLint); stdcall;
begin
  SIG( 'glRasterPos3i' );
  dllRasterPos3i( x, y, z );
end;
procedure logRasterPos3iv (const v: PGLint); stdcall;
begin
  SIG( 'glRasterPos3iv' );
  dllRasterPos3iv( v );
end;
procedure logRasterPos3s (x, y, z: GLshort); stdcall;
begin
  SIG( 'glRasterPos3s' );
  dllRasterPos3s( x, y, z );
end;
procedure logRasterPos3sv (const v: PGLshort); stdcall;
begin
  SIG( 'glRasterPos3sv' );
  dllRasterPos3sv( v );
end;
procedure logRasterPos4d (x, y, z, w: GLdouble); stdcall;
begin
  SIG( 'glRasterPos4d' );
  dllRasterPos4d( x, y, z, w );
end;
procedure logRasterPos4dv (const v: PGLdouble); stdcall;
begin
  SIG( 'glRasterPos4dv' );
  dllRasterPos4dv( v );
end;
procedure logRasterPos4f (x, y, z, w: GLfloat); stdcall;
begin
  SIG( 'glRasterPos4f' );
  dllRasterPos4f( x, y, z, w );
end;
procedure logRasterPos4fv (const v: PGLfloat); stdcall;
begin
  SIG( 'glRasterPos4fv' );
  dllRasterPos4fv( v );
end;
procedure logRasterPos4i (x, y, z, w: GLint); stdcall;
begin
  SIG( 'glRasterPos4i' );
  dllRasterPos4i( x, y, z, w );
end;
procedure logRasterPos4iv (const v: PGLint); stdcall;
begin
  SIG( 'glRasterPos4iv' );
  dllRasterPos4iv( v );
end;
procedure logRasterPos4s (x, y, z, w: GLshort); stdcall;
begin
  SIG( 'glRasterPos4s' );
  dllRasterPos4s( x, y, z, w );
end;
procedure logRasterPos4sv (const v: PGLshort); stdcall;
begin
  SIG( 'glRasterPos4sv' );
  dllRasterPos4sv( v );
end;
procedure logReadBuffer (mode: GLenum); stdcall;
begin
  SIG( 'glReadBuffer' );
  dllReadBuffer( mode );
end;
procedure logReadPixels (x, y: GLint; width, height: GLsizei; format, atype: GLenum; pixels: Pointer); stdcall;
begin
  SIG ('glReadPixels');
  dllReadPixels (x, y, width, height, format, atype, pixels);
end;
procedure logRectd (x1, y1, x2, y2: GLdouble); stdcall;
begin
  SIG( 'glRectd' );
  dllRectd( x1, y1, x2, y2 );
end;
procedure logRectdv (const v1: PGLdouble; const v2: PGLdouble); stdcall;
begin
  SIG( 'glRectdv' );
  dllRectdv( v1, v2 );
end;
procedure logRectf (x1, y1, x2, y2: GLfloat); stdcall;
begin
  SIG( 'glRectf' );
  dllRectf( x1, y1, x2, y2 );
end;
procedure logRectfv (const v1: PGLfloat; const v2: PGLfloat); stdcall;
begin
  SIG( 'glRectfv' );
  dllRectfv( v1, v2 );
end;
procedure logRecti (x1, y1, x2, y2: GLint); stdcall;
begin
  SIG( 'glRecti' );
  dllRecti( x1, y1, x2, y2 );
end;
procedure logRectiv (const v1: PGLint; const v2: PGLint); stdcall;
begin
  SIG( 'glRectiv' );
  dllRectiv( v1, v2 );
end;
procedure logRects (x1, y1, x2, y2: GLshort); stdcall;
begin
  SIG( 'glRects' );
  dllRects( x1, y1, x2, y2 );
end;
procedure logRectsv (const v1: PGLshort; const v2: PGLshort); stdcall;
begin
  SIG( 'glRectsv' );
  dllRectsv( v1, v2 );
end;
function logRenderMode (mode: GLint): GLint; stdcall;
begin
  SIG ('glRenderMode');
  Result := dllRenderMode (mode);
end;
procedure logRotated (angle, x, y, z: GLdouble); stdcall;
begin
  SIG( 'glRotated' );
  dllRotated( angle, x, y, z );
end;
procedure logRotatef (angle, x, y, z: GLfloat); stdcall;
begin
  SIG( 'glRotatef' );
  dllRotatef( angle, x, y, z );
end;
procedure logScaled (x, y, z: GLdouble); stdcall;
begin
  SIG( 'glScaled' );
  dllScaled( x, y, z );
end;
procedure logScalef (x, y, z: GLfloat); stdcall;
begin
  SIG( 'glScalef' );
  dllScalef( x, y, z );
end;
procedure logScissor (x, y: GLint; width, height: GLsizei); stdcall;
begin
  SIG( 'glScissor' );
  dllScissor( x, y, width, height );
end;
procedure logSelectBuffer (size: GLsizei; buffer: PGLuint); stdcall;
begin
  SIG( 'glSelectBuffer' );
  dllSelectBuffer( size, buffer );
end;
procedure logShadeModel (mode: GLenum); stdcall;
begin
  SIG( 'glShadeModel' );
  dllShadeModel( mode );
end;
procedure logStencilFunc (func: GLenum; ref: GLint; mask: GLuint); stdcall;
begin
  SIG( 'glStencilFunc' );
  dllStencilFunc( func, ref, mask );
end;
procedure logStencilMask (mask: GLuint); stdcall;
begin
  SIG( 'glStencilMask' );
  dllStencilMask( mask );
end;
procedure logStencilOp (fail, zfail, zpass: GLenum); stdcall;
begin
  SIG( 'glStencilOp' );
  dllStencilOp( fail, zfail, zpass );
end;
procedure logTexCoord1d (s: GLdouble); stdcall;
begin
  SIG( 'glTexCoord1d' );
  dllTexCoord1d( s );
end;
procedure logTexCoord1dv (const v: PGLdouble); stdcall;
begin
  SIG( 'glTexCoord1dv' );
  dllTexCoord1dv( v );
end;
procedure logTexCoord1f (s: GLfloat); stdcall;
begin
  SIG( 'glTexCoord1f' );
  dllTexCoord1f( s );
end;
procedure logTexCoord1fv (const v: PGLfloat); stdcall;
begin
  SIG( 'glTexCoord1fv' );
  dllTexCoord1fv( v );
end;
procedure logTexCoord1i (s: GLint); stdcall;
begin
  SIG( 'glTexCoord1i' );
  dllTexCoord1i( s );
end;
procedure logTexCoord1iv (const v: PGLint); stdcall;
begin
  SIG( 'glTexCoord1iv' );
  dllTexCoord1iv( v );
end;
procedure logTexCoord1s (s: GLshort); stdcall;
begin
  SIG( 'glTexCoord1s' );
  dllTexCoord1s( s );
end;
procedure logTexCoord1sv (const v: PGLshort); stdcall;
begin
  SIG( 'glTexCoord1sv' );
  dllTexCoord1sv( v );
end;
procedure logTexCoord2d (s, t: GLdouble); stdcall;
begin
  SIG( 'glTexCoord2d' );
  dllTexCoord2d( s, t );
end;
procedure logTexCoord2dv (const v: PGLdouble); stdcall;
begin
  SIG( 'glTexCoord2dv' );
  dllTexCoord2dv( v );
end;
procedure logTexCoord2f (s, t: GLfloat); stdcall;
begin
  SIG( 'glTexCoord2f' );
  dllTexCoord2f( s, t );
end;
procedure logTexCoord2fv (const v: PGLfloat); stdcall;
begin
  SIG( 'glTexCoord2fv' );
  dllTexCoord2fv( v );
end;
procedure logTexCoord2i (s, t: GLint); stdcall;
begin
  SIG( 'glTexCoord2i' );
  dllTexCoord2i( s, t );
end;
procedure logTexCoord2iv (const v: PGLint); stdcall;
begin
  SIG( 'glTexCoord2iv' );
  dllTexCoord2iv( v );
end;
procedure logTexCoord2s (s, t: GLshort); stdcall;
begin
  SIG( 'glTexCoord2s' );
  dllTexCoord2s( s, t );
end;
procedure logTexCoord2sv (const v: PGLshort); stdcall;
begin
  SIG( 'glTexCoord2sv' );
  dllTexCoord2sv( v );
end;
procedure logTexCoord3d (s, t, r: GLdouble); stdcall;
begin
  SIG( 'glTexCoord3d' );
  dllTexCoord3d( s, t, r );
end;
procedure logTexCoord3dv (const v: PGLdouble); stdcall;
begin
  SIG( 'glTexCoord3dv' );
  dllTexCoord3dv( v );
end;
procedure logTexCoord3f (s, t, r: GLfloat); stdcall;
begin
  SIG( 'glTexCoord3f' );
  dllTexCoord3f( s, t, r );
end;
procedure logTexCoord3fv (const v: PGLfloat); stdcall;
begin
  SIG( 'glTexCoord3fv' );
  dllTexCoord3fv( v );
end;
procedure logTexCoord3i (s, t, r: GLint); stdcall;
begin
  SIG( 'glTexCoord3i' );
  dllTexCoord3i( s, t, r );
end;
procedure logTexCoord3iv (const v: PGLint); stdcall;
begin
  SIG( 'glTexCoord3iv' );
  dllTexCoord3iv( v );
end;
procedure logTexCoord3s (s, t, r: GLshort); stdcall;
begin
  SIG( 'glTexCoord3s' );
  dllTexCoord3s( s, t, r );
end;
procedure logTexCoord3sv (const v: PGLshort); stdcall;
begin
  SIG( 'glTexCoord3sv' );
  dllTexCoord3sv( v );
end;
procedure logTexCoord4d (s, t, r, q: GLdouble); stdcall;
begin
  SIG( 'glTexCoord4d' );
  dllTexCoord4d( s, t, r, q );
end;
procedure logTexCoord4dv (const v: PGLdouble); stdcall;
begin
  SIG( 'glTexCoord4dv' );
  dllTexCoord4dv( v );
end;
procedure logTexCoord4f (s, t, r, q: GLfloat); stdcall;
begin
  SIG( 'glTexCoord4f' );
  dllTexCoord4f( s, t, r, q );
end;
procedure logTexCoord4fv (const v: PGLfloat); stdcall;
begin
  SIG( 'glTexCoord4fv' );
  dllTexCoord4fv( v );
end;
procedure logTexCoord4i (s, t, r, q: GLint); stdcall;
begin
  SIG( 'glTexCoord4i' );
  dllTexCoord4i( s, t, r, q );
end;
procedure logTexCoord4iv (const v: PGLint); stdcall;
begin
  SIG( 'glTexCoord4iv' );
  dllTexCoord4iv( v );
end;
procedure logTexCoord4s (s, t, r, q: GLshort); stdcall;
begin
  SIG( 'glTexCoord4s' );
  dllTexCoord4s( s, t, r, q );
end;
procedure logTexCoord4sv (const v: PGLshort); stdcall;
begin
  SIG( 'glTexCoord4sv' );
  dllTexCoord4sv( v );
end;
procedure logTexCoordPointer (size: GLint; atype: GLenum; stride: GLsizei; const pointer: Pointer); stdcall;
begin
  SIG ('glTexCoordPointer');
  dllTexCoordPointer (size, atype, stride, pointer);
end;
procedure logTexEnvf (target: GLenum; pname: GLenum; param: GLfloat); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glTexEnvf( 0x%x, 0x%x, %f )\n', target, pname, param );
  SIG2 ('glTexEnvf (0x%x, 0x%x, %f)\n', [target, pname, param]);
  dllTexEnvf (target, pname, param);
end;
procedure logTexEnvfv (target: GLenum; pname: GLenum; const params: PGLfloat); stdcall;
begin
  SIG( 'glTexEnvfv' );
  dllTexEnvfv( target, pname, params );
end;
procedure logTexEnvi (target: GLenum; pname: GLenum; param: GLint); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glTexEnvi( 0x%x, 0x%x, 0x%x )\n', target, pname, param );
  SIG2 ('glTexEnvi (0x%x, 0x%x, 0x%x)\n', [target, pname, param]);
  dllTexEnvi (target, pname, param);
end;
procedure logTexEnviv (target: GLenum; pname: GLenum; const params: PGLint); stdcall;
begin
  SIG( 'glTexEnviv' );
  dllTexEnviv( target, pname, params );
end;
procedure logTexGend (coord: GLenum; pname: GLenum; param: GLdouble); stdcall;
begin
  SIG( 'glTexGend' );
  dllTexGend( coord, pname, param );
end;
pr