qgl_win_gl_imp.inc

delphi编的不错的贪吃蛇

end;
procedure logLightModeli (pname: TGLenum; param: TGLint); stdcall;
begin
  SIG( 'glLightModeli' );
  dllLightModeli( pname, param );
end;
procedure logLightModeliv (pname: TGLenum; params: PGLint); stdcall;
begin
  SIG( 'glLightModeliv' );
  dllLightModeliv( pname, params );
end;
procedure logLightf (light, pname: TGLenum; param: TGLfloat); stdcall;
begin
  SIG( 'glLightf' );
  dllLightf( light, pname, param );
end;
procedure logLightfv (light, pname: TGLenum; params: PGLfloat); stdcall;
begin
  SIG( 'glLightfv' );
  dllLightfv( light, pname, params );
end;
procedure logLighti (light, pname: TGLenum; param: TGLint); stdcall;
begin
  SIG( 'glLighti' );
  dllLighti( light, pname, param );
end;
procedure logLightiv (light, pname: TGLenum; params: TGLint); stdcall;
begin
  SIG( 'glLightiv' );
  dllLightiv( light, pname, params );
end;
procedure logLineStipple (factor: TGLint; pattern: TGLushort); stdcall;
begin
  SIG( 'glLineStipple' );
  dllLineStipple( factor, pattern );
end;
procedure logLineWidth (width: TGLfloat); stdcall;
begin
  SIG( 'glLineWidth' );
  dllLineWidth( width );
end;
procedure logListBase (base: TGLuint); stdcall;
begin
  SIG( 'glListBase' );
  dllListBase( base );
end;
procedure logLoadIdentity; stdcall;
begin
  SIG( 'glLoadIdentity' );
  dllLoadIdentity();
end;
procedure logLoadMatrixd (m: PGLdouble); stdcall;
begin
  SIG( 'glLoadMatrixd' );
  dllLoadMatrixd( m );
end;
procedure logLoadMatrixf (m: PGLfloat); stdcall;
begin
  SIG( 'glLoadMatrixf' );
  dllLoadMatrixf( m );
end;
procedure logLoadName (name: TGLuint); stdcall;
begin
  SIG( 'glLoadName' );
  dllLoadName( name );
end;
procedure logLogicOp (opcode: TGLenum); stdcall;
begin
  SIG( 'glLogicOp' );
  dllLogicOp( opcode );
end;
procedure logMap1d (target: TGLenum; u1, u2: TGLdouble; stride, order: TGLint; points: PGLdouble); stdcall;
begin
  SIG( 'glMap1d' );
  dllMap1d( target, u1, u2, stride, order, points );
end;
procedure logMap1f (target: TGLenum; u1, u2: TGLfloat; stride, order: TGLint; points: PGLfloat); stdcall;
begin
  SIG( 'glMap1f' );
  dllMap1f( target, u1, u2, stride, order, points );
end;
procedure logMap2d (target: TGLenum; u1, u2: TGLdouble; ustride, uorder: TGLint; v1, v2: TGLdouble; vstride, vorder: TGLint; points: PGLdouble); stdcall;
begin
  SIG( 'glMap2d' );
  dllMap2d( target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points );
end;
procedure logMap2f (target: TGLenum; u1, u2: TGLfloat; ustride, uorder: TGLint; v1, v2: TGLfloat; vstride, vorder: TGLint; points: PGLfloat); stdcall;
begin
  SIG( 'glMap2f' );
  dllMap2f( target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points );
end;
procedure logMapGrid1d (un: TGLint; u1, u2: TGLdouble); stdcall;
begin
  SIG( 'glMapGrid1d' );
  dllMapGrid1d( un, u1, u2 );
end;
procedure logMapGrid1f (un: TGLint; u1, u2: TGLfloat); stdcall;
begin
  SIG( 'glMapGrid1f' );
  dllMapGrid1f( un, u1, u2 );
end;
procedure logMapGrid2d (un: TGLint; u1, u2: TGLdouble; vn: TGLint; v1, v2: TGLdouble); stdcall;
begin
  SIG( 'glMapGrid2d' );
  dllMapGrid2d( un, u1, u2, vn, v1, v2 );
end;
procedure logMapGrid2f (un: TGLint; u1, u2: TGLfloat; vn: TGLint; v1, v2: TGLfloat); stdcall;
begin
  SIG( 'glMapGrid2f' );
  dllMapGrid2f( un, u1, u2, vn, v1, v2 );
end;
procedure logMaterialf (face, pname: TGLenum; param: TGLfloat); stdcall;
begin
  SIG( 'glMaterialf' );
  dllMaterialf( face, pname, param );
end;
procedure logMaterialfv (face, pname: TGLenum; params: PGLfloat); stdcall;
begin
  SIG( 'glMaterialfv' );
  dllMaterialfv( face, pname, params );
end;
procedure logMateriali (face, pname: TGLenum; param: TGLint); stdcall;
begin
  SIG( 'glMateriali' );
  dllMateriali( face, pname, param );
end;
procedure logMaterialiv (face, pname: TGLenum; params: PGLint); stdcall;
begin
  SIG( 'glMaterialiv' );
  dllMaterialiv( face, pname, params );
end;
procedure logMatrixMode (mode: TGLenum); stdcall;
begin
  SIG( 'glMatrixMode' );
  dllMatrixMode( mode );
end;
procedure logMultMatrixd (m: PGLdouble); stdcall;
begin
  SIG( 'glMultMatrixd' );
  dllMultMatrixd( m );
end;
procedure logMultMatrixf (m: PGLfloat); stdcall;
begin
  SIG( 'glMultMatrixf' );
  dllMultMatrixf( m );
end;
procedure logNewList (list: TGLuint; mode: TGLenum); stdcall;
begin
  SIG( 'glNewList' );
  dllNewList( list, mode );
end;
procedure logNormal3b (nx, ny, nz: TGLbyte); stdcall;
begin
  SIG ('glNormal3b' );
  dllNormal3b( nx, ny, nz );
end;
procedure logNormal3bv (v: PGLbyte); stdcall;
begin
  SIG( 'glNormal3bv' );
  dllNormal3bv( v );
end;
procedure logNormal3d (nx, ny, nz: TGLdouble); stdcall;
begin
  SIG( 'glNormal3d' );
  dllNormal3d( nx, ny, nz );
end;
procedure logNormal3dv (v: PGLdouble); stdcall;
begin
  SIG( 'glNormal3dv' );
  dllNormal3dv( v );
end;
procedure logNormal3f (nx, ny, nz: TGLfloat); stdcall;
begin
  SIG( 'glNormal3f' );
  dllNormal3f( nx, ny, nz );
end;
procedure logNormal3fv (v: PGLfloat); stdcall;
begin
  SIG( 'glNormal3fv' );
  dllNormal3fv( v );
end;
procedure logNormal3i (nx, ny, nz: TGLint); stdcall;
begin
  SIG( 'glNormal3i' );
  dllNormal3i( nx, ny, nz );
end;
procedure logNormal3iv (v: PGLint); stdcall;
begin
  SIG( 'glNormal3iv' );
  dllNormal3iv( v );
end;
procedure logNormal3s (nx, ny, nz: TGLshort); stdcall;
begin
  SIG ('glNormal3s');
  dllNormal3s (nx, ny, nz);
end;
procedure logNormal3sv (v: PGLshort); stdcall;
begin
  SIG( 'glNormal3sv' );
  dllNormal3sv( v );
end;
procedure logNormalPointer (atype: TGLenum; stride: TGLsizei; pointer: Pointer); stdcall;
begin
  SIG ('glNormalPointer');
  dllNormalPointer (atype, stride, pointer);
end;
procedure logOrtho (left, right, bottom, top, zNear, zFar: TGLdouble); stdcall;
begin
  SIG ('glOrtho');
  dllOrtho (left, right, bottom, top, zNear, zFar);
end;
procedure logPassThrough (token: TGLfloat); stdcall;
begin
  SIG( 'glPassThrough' );
  dllPassThrough( token );
end;
procedure logPixelMapfv (map: TGLenum; mapsize: TGLsizei; values: PGLfloat); stdcall;
begin
  SIG( 'glPixelMapfv' );
  dllPixelMapfv( map, mapsize, values );
end;
procedure logPixelMapuiv (map: TGLenum; mapsize: TGLsizei; values: PGLuint); stdcall;
begin
  SIG( 'glPixelMapuiv' );
  dllPixelMapuiv( map, mapsize, values );
end;
procedure logPixelMapusv (map: TGLenum; mapsize: TGLsizei; values: PGLushort); stdcall;
begin
  SIG( 'glPixelMapusv' );
  dllPixelMapusv( map, mapsize, values );
end;
procedure logPixelStoref (pname: TGLenum; param: TGLfloat); stdcall;
begin
  SIG( 'glPixelStoref' );
  dllPixelStoref( pname, param );
end;
procedure logPixelStorei (pname: TGLenum; param: TGLint); stdcall;
begin
  SIG( 'glPixelStorei' );
  dllPixelStorei( pname, param );
end;
procedure logPixelTransferf (pname: TGLenum; param: TGLfloat); stdcall;
begin
  SIG( 'glPixelTransferf' );
  dllPixelTransferf( pname, param );
end;
procedure logPixelTransferi (pname: TGLenum; param: TGLint); stdcall;
begin
  SIG( 'glPixelTransferi' );
  dllPixelTransferi( pname, param );
end;
procedure logPixelZoom (xfactor, yfactor: TGLfloat); stdcall;
begin
  SIG( 'glPixelZoom' );
  dllPixelZoom( xfactor, yfactor );
end;
procedure logPointSize (size: TGLfloat); stdcall;
begin
  SIG( 'glPointSize' );
  dllPointSize( size );
end;
procedure logPolygonMode (face, mode: TGLenum); 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: TGLfloat); stdcall;
begin
  SIG( 'glPolygonOffset' );
  dllPolygonOffset( factor, units );
end;
procedure logPolygonStipple (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: TGLsizei; textures: PGLuint; priorities: PGLclampf); stdcall;
begin
  SIG( 'glPrioritizeTextures' );
  dllPrioritizeTextures( n, textures, priorities );
end;
procedure logPushAttrib (mask: TGLbitfield); stdcall;
begin
  SIG( 'glPushAttrib' );
  dllPushAttrib( mask );
end;
procedure logPushClientAttrib (mask: TGLbitfield); stdcall;
begin
  SIG( 'glPushClientAttrib' );
  dllPushClientAttrib( mask );
end;
procedure logPushMatrix; stdcall;
begin
  SIG( 'glPushMatrix' );
  dllPushMatrix();
end;
procedure logPushName (name: TGLuint); stdcall;
begin
  SIG( 'glPushName' );
  dllPushName( name );
end;
procedure logRasterPos2d (x, y: TGLdouble); stdcall;
begin
  SIG ('glRasterPot2d' );
  dllRasterPos2d( x, y );
end;
procedure logRasterPos2dv (v: PGLdouble); stdcall;
begin
  SIG( 'glRasterPos2dv' );
  dllRasterPos2dv( v );
end;
procedure logRasterPos2f (x, y: TGLfloat); stdcall;
begin
  SIG( 'glRasterPos2f' );
  dllRasterPos2f( x, y );
end;
procedure logRasterPos2fv (v: PGLfloat); stdcall;
begin
  SIG( 'glRasterPos2dv' );
  dllRasterPos2fv( v );
end;
procedure logRasterPos2i (x, y: TGLint); stdcall;
begin
  SIG( 'glRasterPos2if' );
  dllRasterPos2i( x, y );
end;
procedure logRasterPos2iv (v: PGLint); stdcall;
begin
  SIG( 'glRasterPos2iv' );
  dllRasterPos2iv( v );
end;
procedure logRasterPos2s (x, y: TGLshort); stdcall;
begin
  SIG( 'glRasterPos2s' );
  dllRasterPos2s( x, y );
end;
procedure logRasterPos2sv (v: PGLshort); stdcall;
begin
  SIG( 'glRasterPos2sv' );
  dllRasterPos2sv( v );
end;
procedure logRasterPos3d (x, y, z: TGLdouble); stdcall;
begin
  SIG( 'glRasterPos3d' );
  dllRasterPos3d( x, y, z );
end;
procedure logRasterPos3dv (v: PGLdouble); stdcall;
begin
  SIG( 'glRasterPos3dv' );
  dllRasterPos3dv( v );
end;
procedure logRasterPos3f (x, y, z: TGLfloat); stdcall;
begin
  SIG( 'glRasterPos3f' );
  dllRasterPos3f( x, y, z );
end;
procedure logRasterPos3fv (v: PGLfloat); stdcall;
begin
  SIG( 'glRasterPos3fv' );
  dllRasterPos3fv( v );