qgl_win_gl_imp.inc

delphi编的不错的贪吃蛇

end;
procedure logBegin (mode: TGLenum); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glBegin( 0x%x )\n', mode );
  SIG2 ('glBegin (0x%x)\n', [mode]);
  dllBegin (mode);
end;
procedure logBindTexture (target: TGLenum; texture: TGLuint); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glBindTexture( 0x%x, %u )\n', target, texture );
  SIG2 ('glBindTexture (0x%x, %u)\n', [target, texture]);
  dllBindTexture (target, texture);
end;
procedure logBitmap (width, height: TGLsizei; xorig, yorig: TGLfloat; xmove, ymove: TGLfloat; bitmap: PGLubyte); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glBitmap\n' );
  SIG ('glBitmap');
  dllBitmap (width, height, xorig, yorig, xmove, ymove, bitmap);
end;
procedure logBlendFunc (sfactor, dfactor: TGLenum); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glBlendFunc( 0x%x, 0x%x )\n', sfactor, dfactor );
  SIG2 ('glBlendFunc (0x%x, 0x%x)\n', [sfactor, dfactor]);
  dllBlendFunc (sfactor, dfactor);
end;
procedure logCallList (list: TGLuint); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glCallList( %u )\n', list );
  SIG2 ('glCallList( %u )\n', [list]);
  dllCallList (list);
end;
procedure logCallLists (n: TGLsizei; atype: TGLenum; lists: Pointer); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glCallLists\n' );
  SIG ('glCallLists');
  dllCallLists (n, atype, lists);
end;
procedure logClear (mask: TGLbitfield); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glClear\n' );
  SIG ('glClear');
  dllClear (mask);
end;
procedure logClearAccum (red, green, blue, alpha: TGLfloat); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glClearAccum\n' );
  SIG ('glClearAccum');
  dllClearAccum (red, green, blue, alpha);
end;
procedure logClearColor (red, green, blue, alpha: TGLclampf); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glClearColor\n' );
  SIG ('glClearColor');
  dllClearColor (red, green, blue, alpha);
end;
procedure logClearDepth (depth: TGLclampd); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glClearDepth\n' );
  SIG ('glClearDepth');
  dllClearDepth (depth);
end;
procedure logClearIndex (c: TGLfloat); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glClearIndex\n' );
  SIG ('glClearIndex');
  dllClearIndex (c);
end;
procedure logClearStencil (s: TGLint); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glClearStencil\n' );
  SIG ('glClearStencil');
  dllClearStencil (s);
end;
procedure logClipPlane (plane: TGLenum; equation: PGLdouble); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glClipPlane\n' );
  SIG ('glClipPlane');
  dllClipPlane (plane, equation);
end;
procedure logColor3b (red, green, blue: TGLbyte); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glColor3b\n' );
  SIG ('glColor3b');
  dllColor3b (red, green, blue);
end;
procedure logColor3bv (v: PGLbyte); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glColor3bv\n' );
  SIG ('glColor3bv');
  dllColor3bv (v);
end;
procedure logColor3d (red, green, blue: TGLdouble); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glColor3d\n' );
  SIG ('glColor3d');
  dllColor3d (red, green, blue);
end;
procedure logColor3dv (v: PGLdouble); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glColor3dv\n' );
  SIG ('glColor3dv');
  dllColor3dv (v);
end;
procedure logColor3f (red, green, blue: TGLfloat); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glColor3f\n' );
  SIG ('glColor3f');
  dllColor3f (red, green, blue);
end;
procedure logColor3fv (v: PGLfloat); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glColor3fv\n' );
  SIG ('glColor3fv');
  dllColor3fv (v);
end;
procedure logColor3i (red, green, blue: TGLint); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glColor3i\n' );
  SIG ('glColor3i');
  dllColor3i (red, green, blue);
end;
procedure logColor3iv (v: PGLint); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glColor3iv\n' );
  SIG ('glColor3iv');
  dllColor3iv (v);
end;
procedure logColor3s (red, green, blue: TGLshort); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glColor3s\n' );
  SIG ('glColor3s');
  dllColor3s (red, green, blue);
end;
procedure logColor3sv (v: PGLshort); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glColor3sv\n' );
  SIG ('glColor3sv');
  dllColor3sv (v);
end;
procedure logColor3ub (red, green, blue: TGLubyte); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glColor3ub\n' );
  SIG ('glColor3ub');
  dllColor3ub (red, green, blue);
end;
procedure logColor3ubv (v: PGLubyte); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glColor3ubv\n' );
  SIG ('glColor3ubv');
  dllColor3ubv (v);
end;
procedure logColor3ui (red, green, blue: TGLuint); stdcall;
begin
  SIG('glColor3ui');
  dllColor3ui (red, green, blue);
end;
procedure logColor3uiv (v: PGLuint); stdcall;
begin
  SIG( 'glColor3uiv' );
  dllColor3uiv( v );
end;
procedure logColor3us (red, green, blue: TGLushort); stdcall;
begin
  SIG( 'glColor3us' );
  dllColor3us( red, green, blue );
end;
procedure logColor3usv (v: PGLushort); stdcall;
begin
  SIG( 'glColor3usv' );
  dllColor3usv( v );
end;
procedure logColor4b (red, green, blue, alpha: TGLubyte); stdcall;
begin
  SIG( 'glColor4b' );
  dllColor4b( red, green, blue, alpha );
end;
procedure logColor4bv (v: PGLbyte); stdcall;
begin
  SIG( 'glColor4bv' );
  dllColor4bv( v );
end;
procedure logColor4d (red, green, blue, alpha: TGLdouble); stdcall;
begin
  SIG( 'glColor4d' );
  dllColor4d( red, green, blue, alpha );
end;
procedure logColor4dv (v: PGLdouble); stdcall;
begin
  SIG( 'glColor4dv' );
  dllColor4dv( v );
end;
procedure logColor4f (red, green, blue, alpha: TGLfloat); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glColor4f( %f,%f,%f,%f )\n', red, green, blue, alpha );
  SIG2 ('glColor4f (%f,%f,%f,%f)\n', [red, green, blue, alpha]);
  dllColor4f (red, green, blue, alpha);
end;

procedure logColor4fv (v: PGLfloat); stdcall;

  //Y: my-code
  type
    PGLArrayF4 = ^TGLArrayF4;
    TGLArrayF4 = array[0..3] of TGLfloat;
  var
    v_ : PGLArrayF4;
  begin
    v_ := PGLArrayF4(v);
  //Y:

//  fprintf( glw_state.log_fp, 'glColor4fv( %f,%f,%f,%f )\n', v[0], v[1], v[2], v[3] );
  SIG2 ('glColor4fv (%f,%f,%f,%f)\n', [v_[0], v_[1], v_[2], v_[3]]);
  dllColor4fv (v);
end;

procedure logColor4i (red, green, blue, alpha: TGLint); stdcall;
begin
  SIG( 'glColor4i' );
  dllColor4i( red, green, blue, alpha );
end;
procedure logColor4iv (v: PGLint); stdcall;
begin
  SIG( 'glColor4iv' );
  dllColor4iv( v );
end;
procedure logColor4s (red, green, blue, alpha: TGLshort); stdcall;
begin
  SIG( 'glColor4s' );
  dllColor4s( red, green, blue, alpha );
end;
procedure logColor4sv (v: PGLshort); stdcall;
begin
  SIG( 'glColor4sv' );
  dllColor4sv( v );
end;
procedure logColor4ub (red, green, blue, alpha: TGLubyte); stdcall;
begin
  SIG( 'glColor4b' );
  dllColor4b( red, green, blue, alpha );
end;
procedure logColor4ubv (v: PGLubyte); stdcall;
begin
  SIG( 'glColor4ubv' );
  dllColor4ubv( v );
end;
procedure logColor4ui (red, green, blue, alpha: TGLuint); stdcall;
begin
  SIG( 'glColor4ui' );
  dllColor4ui( red, green, blue, alpha );
end;
procedure logColor4uiv (v: PGLuint); stdcall;
begin
  SIG( 'glColor4uiv' );
  dllColor4uiv( v );
end;
procedure logColor4us (red, green, blue, alpha: TGLushort); stdcall;
begin
  SIG( 'glColor4us' );
  dllColor4us( red, green, blue, alpha );
end;
procedure logColor4usv (v: PGLushort); stdcall;
begin
  SIG( 'glColor4usv' );
  dllColor4usv( v );
end;
procedure logColorMask (red, green, blue, alpha: TGLboolean); stdcall;
begin
  SIG( 'glColorMask' );
  dllColorMask( red, green, blue, alpha );
end;
procedure logColorMaterial (face, mode: TGLenum); stdcall;
begin
  SIG( 'glColorMaterial' );
  dllColorMaterial( face, mode );
end;
procedure logColorPointer (size: TGLint; atype: TGLenum; stride: TGLsizei; pointer: Pointer); stdcall;
begin
  SIG( 'glColorPointer' );
  dllColorPointer( size, atype, stride, pointer );
end;
procedure logCopyPixels (x, y: TGLint; width, height: TGLsizei; atype: TGLenum); stdcall;
begin
  SIG( 'glCopyPixels' );
  dllCopyPixels( x, y, width, height, atype );
end;
procedure logCopyTexImage1D (target: TGLenum; level: TGLint; internalFormat: TGLenum; x, y: TGLint; width: TGLsizei; border: TGLint); stdcall;
begin
  SIG( 'glCopyTexImage1D' );
  dllCopyTexImage1D( target, level, internalFormat, x, y, width, border );
end;
procedure logCopyTexImage2D (target: TGLenum; level: TGLint; internalFormat: TGLenum; x, y: TGLint; width, height: TGLsizei; border: TGLint); stdcall;
begin
  SIG( 'glCopyTexImage2D' );
  dllCopyTexImage2D( target, level, internalFormat, x, y, width, height, border );
end;
procedure logCopyTexSubImage1D (target: TGLenum; level, xoffset, x, y: TGLint; width: TGLsizei); stdcall;
begin
  SIG( 'glCopyTexSubImage1D' );
  dllCopyTexSubImage1D( target, level, xoffset, x, y, width );
end;
procedure logCopyTexSubImage2D (target: TGLenum; level, xoffset, yoffset, x, y: TGLint; width, height: TGLsizei); stdcall;
begin
  SIG( 'glCopyTexSubImage2D' );
  dllCopyTexSubImage2D( target, level, xoffset, yoffset, x, y, width, height );
end;
procedure logCullFace (mode: TGLenum); stdcall;
begin
  SIG( 'glCullFace' );
  dllCullFace( mode );
end;
procedure logDeleteLists (list: TGLuint; range: TGLsizei); stdcall;
begin
  SIG( 'glDeleteLists' );
  dllDeleteLists( list, range );
end;
procedure logDeleteTextures (n: TGLsizei; textures: PGLuint); stdcall;
begin
  SIG( 'glDeleteTextures' );
  dllDeleteTextures( n, textures );
end;
procedure logDepthFunc (func: TGLenum); stdcall;
begin
  SIG( 'glDepthFunc' );
  dllDepthFunc( func );
end;
procedure logDepthMask (flag: TGLboolean); stdcall;
begin
  SIG( 'glDepthMask' );
  dllDepthMask( flag );
end;
procedure logDepthRange (zNear, zFar: TGLclampd); stdcall;
begin
  SIG( 'glDepthRange' );
  dllDepthRange( zNear, zFar );
end;
procedure logDisable (cap: TGLenum); stdcall;
begin
//  fprintf( glw_state.log_fp, 'glDisable( 0x%x )\n', cap );
  SIG2 ('glDisable (0x%x)\n', [cap]);
  dllDisable (cap);
end;
procedure logDisableClientState (aarray: TGLenum); stdcall;
begin
  SIG( 'glDisableClientState' );
  dllDisableClientState( aarray );
end;
procedure logDrawArrays (mode: TGLenum; first: TGLint; count: TGLsizei); stdcall;
begin
  SIG( 'glDrawArrays' );
  dllDrawArrays( mode, first, count );
end;
procedure logDrawBuffer (mode: TGLenum); stdcall;
begin
  SIG( 'glDrawBuffer' );
  dllDrawBuffer( mode );
end;
procedure logDrawElements (mode: TGLenum; count: TGLsizei; atype: TGLenum; indices: Pointer); stdcall;
begin
  SIG( 'glDrawElements' );
  dllDrawElements( mode, count, atype, indices );
end;
procedure logDrawPixels (width, height: TGLsizei; format, atype: TGLenum; pixels: Pointer); stdcall;
begin
  SIG( 'glDrawPixels' );
  dllDrawPixels( width, height, format, atype, pixels );
end;
procedure logEdgeFlag (flag: TGLboolean); stdcall;
begin
  SIG( 'glEdgeFlag' );
  dllEdgeFlag( flag );
end;
procedure logEdgeFlagPointer (stride: TGLsizei; pointer: Pointer); stdcall;
begin
  SIG( 'glEdgeFlagPointer' );
  dllEdgeFlagPointer( stride, pointer );
end;
procedure logEdgeFlagv (flag: PGLboolean); stdcall;
begin
  SIG( 'glEdgeFlagv' );
  dllEdgeFlagv( flag );
end;