qgl_win_gl_imp.inc

雷神之锤2(Quake2)Delphi源码

  SIG ('glIsTexture');
  Result := dllIsTexture (texture);
end;
procedure logLightModelf (pname: GLenum; param: GLfloat); stdcall;
begin
  SIG( 'glLightModelf' );
  dllLightModelf( pname, param );
end;
procedure logLightModelfv (pname: GLenum; const params: PGLfloat); stdcall;
begin
  SIG( 'glLightModelfv' );
  dllLightModelfv( pname, params );
end;
procedure logLightModeli (pname: GLenum; param: GLint); stdcall;
begin
  SIG( 'glLightModeli' );
  dllLightModeli( pname, param );
end;
procedure logLightModeliv (pname: GLenum; const params: PGLint); stdcall;
begin
  SIG( 'glLightModeliv' );
  dllLightModeliv( pname, params );
end;
procedure logLightf (light, pname: GLenum; param: GLfloat); stdcall;
begin
  SIG( 'glLightf' );
  dllLightf( light, pname, param );
end;
procedure logLightfv (light, pname: GLenum; const params: PGLfloat); stdcall;
begin
  SIG( 'glLightfv' );
  dllLightfv( light, pname, params );
end;
procedure logLighti (light, pname: GLenum; param: GLint); stdcall;
begin
  SIG( 'glLighti' );
  dllLighti( light, pname, param );
end;
procedure logLightiv (light, pname: GLenum; const params: GLint); stdcall;
begin
  SIG( 'glLightiv' );
  dllLightiv( light, pname, params );
end;
procedure logLineStipple (factor: GLint; pattern: GLushort); stdcall;
begin
  SIG( 'glLineStipple' );
  dllLineStipple( factor, pattern );
end;
procedure logLineWidth (width: GLfloat); stdcall;
begin
  SIG( 'glLineWidth' );
  dllLineWidth( width );
end;
procedure logListBase (base: GLuint); stdcall;
begin
  SIG( 'glListBase' );
  dllListBase( base );
end;
procedure logLoadIdentity; stdcall;
begin
  SIG( 'glLoadIdentity' );
  dllLoadIdentity();
end;
procedure logLoadMatrixd (const m: PGLdouble); stdcall;
begin
  SIG( 'glLoadMatrixd' );
  dllLoadMatrixd( m );
end;
procedure logLoadMatrixf (const m: PGLfloat); stdcall;
begin
  SIG( 'glLoadMatrixf' );
  dllLoadMatrixf( m );
end;
procedure logLoadName (name: GLuint); stdcall;
begin
  SIG( 'glLoadName' );
  dllLoadName( name );
end;
procedure logLogicOp (opcode: GLenum); stdcall;
begin
  SIG( 'glLogicOp' );
  dllLogicOp( opcode );
end;
procedure logMap1d (target: GLenum; u1, u2: GLdouble; stride, order: GLint; const points: PGLdouble); stdcall;
begin
  SIG( 'glMap1d' );
  dllMap1d( target, u1, u2, stride, order, points );
end;
procedure logMap1f (target: GLenum; u1, u2: GLfloat; stride, order: GLint; const points: PGLfloat); stdcall;
begin
  SIG( 'glMap1f' );
  dllMap1f( target, u1, u2, stride, order, points );
end;
procedure logMap2d (target: GLenum; u1, u2: GLdouble; ustride, uorder: GLint; v1, v2: GLdouble; vstride, vorder: GLint; const points: PGLdouble); stdcall;
begin
  SIG( 'glMap2d' );
  dllMap2d( target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points );
end;
procedure logMap2f (target: GLenum; u1, u2: GLfloat; ustride, uorder: GLint; v1, v2: GLfloat; vstride, vorder: GLint; const points: PGLfloat); stdcall;
begin
  SIG( 'glMap2f' );
  dllMap2f( target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points );
end;
procedure logMapGrid1d (un: GLint; u1, u2: GLdouble); stdcall;
begin
  SIG( 'glMapGrid1d' );
  dllMapGrid1d( un, u1, u2 );
end;
procedure logMapGrid1f (un: GLint; u1, u2: GLfloat); stdcall;
begin
  SIG( 'glMapGrid1f' );
  dllMapGrid1f( un, u1, u2 );
end;
procedure logMapGrid2d (un: GLint; u1, u2: GLdouble; vn: GLint; v1, v2: GLdouble); stdcall;
begin
  SIG( 'glMapGrid2d' );
  dllMapGrid2d( un, u1, u2, vn, v1, v2 );
end;
procedure logMapGrid2f (un: GLint; u1, u2: GLfloat; vn: GLint; v1, v2: GLfloat); stdcall;
begin
  SIG( 'glMapGrid2f' );
  dllMapGrid2f( un, u1, u2, vn, v1, v2 );
end;
procedure logMaterialf (face, pname: GLenum; param: GLfloat); stdcall;
begin
  SIG( 'glMaterialf' );
  dllMaterialf( face, pname, param );
end;
procedure logMaterialfv (face, pname: GLenum; const params: PGLfloat); stdcall;
begin
  SIG( 'glMaterialfv' );
  dllMaterialfv( face, pname, params );
end;
procedure logMateriali (face, pname: GLenum; param: GLint); stdcall;
begin
  SIG( 'glMateriali' );
  dllMateriali( face, pname, param );
end;
procedure logMaterialiv (face, pname: GLenum; const params: PGLint); stdcall;
begin
  SIG( 'glMaterialiv' );
  dllMaterialiv( face, pname, params );
end;
procedure logMatrixMode (mode: GLenum); stdcall;
begin
  SIG( 'glMatrixMode' );
  dllMatrixMode( mode );
end;
procedure logMultMatrixd (const m: PGLdouble); stdcall;
begin
  SIG( 'glMultMatrixd' );
  dllMultMatrixd( m );
end;
procedure logMultMatrixf (const m: PGLfloat); stdcall;
begin
  SIG( 'glMultMatrixf' );
  dllMultMatrixf( m );
end;
procedure logNewList (list: GLuint; mode: GLenum); stdcall;
begin
  SIG( 'glNewList' );
  dllNewList( list, mode );
end;
procedure logNormal3b (nx, ny, nz: GLbyte); stdcall;
begin
  SIG ('glNormal3b' );
  dllNormal3b( nx, ny, nz );
end;
procedure logNormal3bv (const v: PGLbyte); stdcall;
begin
  SIG( 'glNormal3bv' );
  dllNormal3bv( v );
end;
procedure logNormal3d (nx, ny, nz: GLdouble); stdcall;
begin
  SIG( 'glNormal3d' );
  dllNormal3d( nx, ny, nz );
end;
procedure logNormal3dv (const v: PGLdouble); stdcall;
begin
  SIG( 'glNormal3dv' );
  dllNormal3dv( v );
end;
procedure logNormal3f (nx, ny, nz: GLfloat); stdcall;
begin
  SIG( 'glNormal3f' );
  dllNormal3f( nx, ny, nz );
end;
procedure logNormal3fv (const v: PGLfloat); stdcall;
begin
  SIG( 'glNormal3fv' );
  dllNormal3fv( v );
end;
procedure logNormal3i (nx, ny, nz: GLint); stdcall;
begin
  SIG( 'glNormal3i' );
  dllNormal3i( nx, ny, nz );
end;
procedure logNormal3iv (const v: PGLint); stdcall;
begin
  SIG( 'glNormal3iv' );
  dllNormal3iv( v );
end;
procedure logNormal3s (nx, ny, nz: GLshort); stdcall;
begin
  SIG ('glNormal3s');
  dllNormal3s (nx, ny, nz);
end;
procedure logNormal3sv (const v: PGLshort); stdcall;
begin
  SIG( 'glNormal3sv' );
  dllNormal3sv( v );
end;
procedure logNormalPointer (atype: GLenum; stride: GLsizei; const pointer: Pointer); stdcall;
begin
  SIG ('glNormalPointer');
  dllNormalPointer (atype, stride, pointer);
end;
procedure logOrtho (left, right, bottom, top, zNear, zFar: GLdouble); stdcall;
begin
  SIG ('glOrtho');
  dllOrtho (left, right, bottom, top, zNear, zFar);
end;
procedure logPassThrough (token: GLfloat); stdcall;
begin
  SIG( 'glPassThrough' );
  dllPassThrough( token );
end;
procedure logPixelMapfv (map: GLenum; mapsize: GLsizei; const values: PGLfloat); stdcall;
begin
  SIG( 'glPixelMapfv' );
  dllPixelMapfv( map, mapsize, values );
end;
procedure logPixelMapuiv (map: GLenum; mapsize: GLsizei; const values: PGLuint); stdcall;
begin
  SIG( 'glPixelMapuiv' );
  dllPixelMapuiv( map, mapsize, values );
end;
procedure logPixelMapusv (map: GLenum; mapsize: GLsizei; const values: PGLushort); stdcall;
begin
  SIG( 'glPixelMapusv' );
  dllPixelMapusv( map, mapsize, values );
end;
procedure logPixelStoref (pname: GLenum; param: GLfloat); stdcall;
begin
  SIG( 'glPixelStoref' );
  dllPixelStoref( pname, param );
end;
procedure logPixelStorei (pname: GLenum; param: GLint); stdcall;
begin
  SIG( 'glPixelStorei' );
  dllPixelStorei( pname, param );
end;
procedure logPixelTransferf (pname: GLenum; param: GLfloat); stdcall;
begin
  SIG( 'glPixelTransferf' );
  dllPixelTransferf( pname, param );
end;
procedure logPixelTransferi (pname: GLenum; param: GLint); stdcall;
begin
  SIG( 'glPixelTransferi' );
  dllPixelTransferi( pname, param );
end;
procedure logPixelZoom (xfactor, yfactor: GLfloat); stdcall;
begin
  SIG( 'glPixelZoom' );
  dllPixelZoom( xfactor, yfactor );
end;
procedure logPointSize (size: GLfloat); stdcall;
begin
  SIG( 'glPointSize' );
  dllPointSize( size );
end;
procedure logPolygonMode (face, mode: GLenum); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glPolygonMode( 0x%x, 0x%x )\n', face, mode );
  SIG2 ('glPolygonMode (0x%x, 0x%x)\n', [face, mode]);
  dllPolygonMode (face, mode);
end;
procedure logPolygonOffset (factor, units: GLfloat); stdcall;
begin
  SIG( 'glPolygonOffset' );
  dllPolygonOffset( factor, units );
end;
procedure logPolygonStipple (const mask: PGLubyte); stdcall;
begin
  SIG( 'glPolygonStipple' );
  dllPolygonStipple( mask );
end;
procedure logPopAttrib; stdcall;
begin
  SIG( 'glPopAttrib' );
  dllPopAttrib();
end;
procedure logPopClientAttrib; stdcall;
begin
  SIG( 'glPopClientAttrib' );
  dllPopClientAttrib();
end;
procedure logPopMatrix; stdcall;
begin
  SIG( 'glPopMatrix' );
  dllPopMatrix();
end;
procedure logPopName; stdcall;
begin
  SIG( 'glPopName' );
  dllPopName();
end;
procedure logPrioritizeTextures (n: GLsizei; const textures: PGLuint; const priorities: PGLclampf); stdcall;
begin
  SIG( 'glPrioritizeTextures' );
  dllPrioritizeTextures( n, textures, priorities );
end;
procedure logPushAttrib (mask: GLbitfield); stdcall;
begin
  SIG( 'glPushAttrib' );
  dllPushAttrib( mask );
end;
procedure logPushClientAttrib (mask: GLbitfield); stdcall;
begin
  SIG( 'glPushClientAttrib' );
  dllPushClientAttrib( mask );
end;
procedure logPushMatrix; stdcall;
begin
  SIG( 'glPushMatrix' );
  dllPushMatrix();
end;
procedure logPushName (name: GLuint); stdcall;
begin
  SIG( 'glPushName' );
  dllPushName( name );
end;
procedure logRasterPos2d (x, y: GLdouble); stdcall;
begin
  SIG ('glRasterPot2d' );
  dllRasterPos2d( x, y );
end;
procedure logRasterPos2dv (const v: PGLdouble); stdcall;
begin
  SIG( 'glRasterPos2dv' );
  dllRasterPos2dv( v );
end;
procedure logRasterPos2f (x, y: GLfloat); stdcall;
begin
  SIG( 'glRasterPos2f' );
  dllRasterPos2f( x, y );
end;
procedure logRasterPos2fv (const v: PGLfloat); stdcall;
begin
  SIG( 'glRasterPos2dv' );
  dllRasterPos2fv( v );
end;
procedure logRasterPos2i (x, y: GLint); stdcall;
begin
  SIG( 'glRasterPos2if' );
  dllRasterPos2i( x, y );
end;
procedure logRasterPos2iv (const v: PGLint); stdcall;
begin
  SIG( 'glRasterPos2iv' );
  dllRasterPos2iv( v );
end;
procedure logRasterPos2s (x, y: GLshort); stdcall;
begin
  SIG( 'glRasterPos2s' );
  dllRasterPos2s( x, y );
end;
procedure logRasterPos2sv (const v: PGLshort); stdcall;
begin
  SIG( 'glRasterPos2sv' );
  dllRasterPos2sv( v );
end;
procedure logRasterPos3d (x, y, z: GLdouble); stdcall;
begin
  SIG( 'glRasterPos3d' );