qgl_win_gl_imp.inc

delphi编的不错的贪吃蛇

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