qgl_win.pas

delphi编的不错的贪吃蛇

  qglLightModelf             := Nil;
  qglLightModelfv            := Nil;
  qglLightModeli             := Nil;
  qglLightModeliv            := Nil;
  qglLightf                  := Nil;
  qglLightfv                 := Nil;
  qglLighti                  := Nil;
  qglLightiv                 := Nil;
  qglLineStipple             := Nil;
  qglLineWidth               := Nil;
  qglListBase                := Nil;
  qglLoadIdentity            := Nil;
  qglLoadMatrixd             := Nil;
  qglLoadMatrixf             := Nil;
  qglLoadName                := Nil;
  qglLogicOp                 := Nil;
  qglMap1d                   := Nil;
  qglMap1f                   := Nil;
  qglMap2d                   := Nil;
  qglMap2f                   := Nil;
  qglMapGrid1d               := Nil;
  qglMapGrid1f               := Nil;
  qglMapGrid2d               := Nil;
  qglMapGrid2f               := Nil;
  qglMaterialf               := Nil;
  qglMaterialfv              := Nil;
  qglMateriali               := Nil;
  qglMaterialiv              := Nil;
  qglMatrixMode              := Nil;
  qglMultMatrixd             := Nil;
  qglMultMatrixf             := Nil;
  qglNewList                 := Nil;
  qglNormal3b                := Nil;
  qglNormal3bv               := Nil;
  qglNormal3d                := Nil;
  qglNormal3dv               := Nil;
  qglNormal3f                := Nil;
  qglNormal3fv               := Nil;
  qglNormal3i                := Nil;
  qglNormal3iv               := Nil;
  qglNormal3s                := Nil;
  qglNormal3sv               := Nil;
  qglNormalPointer           := Nil;
  qglOrtho                   := Nil;
  qglPassThrough             := Nil;
  qglPixelMapfv              := Nil;
  qglPixelMapuiv             := Nil;
  qglPixelMapusv             := Nil;
  qglPixelStoref             := Nil;
  qglPixelStorei             := Nil;
  qglPixelTransferf          := Nil;
  qglPixelTransferi          := Nil;
  qglPixelZoom               := Nil;
  qglPointSize               := Nil;
  qglPolygonMode             := Nil;
  qglPolygonOffset           := Nil;
  qglPolygonStipple          := Nil;
  qglPopAttrib               := Nil;
  qglPopClientAttrib         := Nil;
  qglPopMatrix               := Nil;
  qglPopName                 := Nil;
  qglPrioritizeTextures      := Nil;
  qglPushAttrib              := Nil;
  qglPushClientAttrib        := Nil;
  qglPushMatrix              := Nil;
  qglPushName                := Nil;
  qglRasterPos2d             := Nil;
  qglRasterPos2dv            := Nil;
  qglRasterPos2f             := Nil;
  qglRasterPos2fv            := Nil;
  qglRasterPos2i             := Nil;
  qglRasterPos2iv            := Nil;
  qglRasterPos2s             := Nil;
  qglRasterPos2sv            := Nil;
  qglRasterPos3d             := Nil;
  qglRasterPos3dv            := Nil;
  qglRasterPos3f             := Nil;
  qglRasterPos3fv            := Nil;
  qglRasterPos3i             := Nil;
  qglRasterPos3iv            := Nil;
  qglRasterPos3s             := Nil;
  qglRasterPos3sv            := Nil;
  qglRasterPos4d             := Nil;
  qglRasterPos4dv            := Nil;
  qglRasterPos4f             := Nil;
  qglRasterPos4fv            := Nil;
  qglRasterPos4i             := Nil;
  qglRasterPos4iv            := Nil;
  qglRasterPos4s             := Nil;
  qglRasterPos4sv            := Nil;
  qglReadBuffer              := Nil;
  qglReadPixels              := Nil;
  qglRectd                   := Nil;
  qglRectdv                  := Nil;
  qglRectf                   := Nil;
  qglRectfv                  := Nil;
  qglRecti                   := Nil;
  qglRectiv                  := Nil;
  qglRects                   := Nil;
  qglRectsv                  := Nil;
  qglRenderMode              := Nil;
  qglRotated                 := Nil;
  qglRotatef                 := Nil;
  qglScaled                  := Nil;
  qglScalef                  := Nil;
  qglScissor                 := Nil;
  qglSelectBuffer            := Nil;
  qglShadeModel              := Nil;
  qglStencilFunc             := Nil;
  qglStencilMask             := Nil;
  qglStencilOp               := Nil;
  qglTexCoord1d              := Nil;
  qglTexCoord1dv             := Nil;
  qglTexCoord1f              := Nil;
  qglTexCoord1fv             := Nil;
  qglTexCoord1i              := Nil;
  qglTexCoord1iv             := Nil;
  qglTexCoord1s              := Nil;
  qglTexCoord1sv             := Nil;
  qglTexCoord2d              := Nil;
  qglTexCoord2dv             := Nil;
  qglTexCoord2f              := Nil;
  qglTexCoord2fv             := Nil;
  qglTexCoord2i              := Nil;
  qglTexCoord2iv             := Nil;
  qglTexCoord2s              := Nil;
  qglTexCoord2sv             := Nil;
  qglTexCoord3d              := Nil;
  qglTexCoord3dv             := Nil;
  qglTexCoord3f              := Nil;
  qglTexCoord3fv             := Nil;
  qglTexCoord3i              := Nil;
  qglTexCoord3iv             := Nil;
  qglTexCoord3s              := Nil;
  qglTexCoord3sv             := Nil;
  qglTexCoord4d              := Nil;
  qglTexCoord4dv             := Nil;
  qglTexCoord4f              := Nil;
  qglTexCoord4fv             := Nil;
  qglTexCoord4i              := Nil;
  qglTexCoord4iv             := Nil;
  qglTexCoord4s              := Nil;
  qglTexCoord4sv             := Nil;
  qglTexCoordPointer         := Nil;
  qglTexEnvf                 := Nil;
  qglTexEnvfv                := Nil;
  qglTexEnvi                 := Nil;
  qglTexEnviv                := Nil;
  qglTexGend                 := Nil;
  qglTexGendv                := Nil;
  qglTexGenf                 := Nil;
  qglTexGenfv                := Nil;
  qglTexGeni                 := Nil;
  qglTexGeniv                := Nil;
  qglTexImage1D              := Nil;
  qglTexImage2D              := Nil;
  qglTexParameterf           := Nil;
  qglTexParameterfv          := Nil;
  qglTexParameteri           := Nil;
  qglTexParameteriv          := Nil;
  qglTexSubImage1D           := Nil;
  qglTexSubImage2D           := Nil;
  qglTranslated              := Nil;
  qglTranslatef              := Nil;
  qglVertex2d                := Nil;
  qglVertex2dv               := Nil;
  qglVertex2f                := Nil;
  qglVertex2fv               := Nil;
  qglVertex2i                := Nil;
  qglVertex2iv               := Nil;
  qglVertex2s                := Nil;
  qglVertex2sv               := Nil;
  qglVertex3d                := Nil;
  qglVertex3dv               := Nil;
  qglVertex3f                := Nil;
  qglVertex3fv               := Nil;
  qglVertex3i                := Nil;
  qglVertex3iv               := Nil;
  qglVertex3s                := Nil;
  qglVertex3sv               := Nil;
  qglVertex4d                := Nil;
  qglVertex4dv               := Nil;
  qglVertex4f                := Nil;
  qglVertex4fv               := Nil;
  qglVertex4i                := Nil;
  qglVertex4iv               := Nil;
  qglVertex4s                := Nil;
  qglVertex4sv               := Nil;
  qglVertexPointer           := Nil;
  qglViewport                := Nil; 

  qwglCopyContext            := Nil;
  qwglCreateContext          := Nil;
  qwglCreateLayerContext     := Nil;
  qwglDeleteContext          := Nil;
  qwglDescribeLayerPlane     := Nil;
  qwglGetCurrentContext      := Nil;
  qwglGetCurrentDC           := Nil;
  qwglGetLayerPaletteEntries := Nil;
  qwglGetProcAddress         := Nil;
  qwglMakeCurrent            := Nil;
  qwglRealizeLayerPalette    := Nil;
  qwglSetLayerPaletteEntries := Nil;
  qwglShareLists             := Nil;
  qwglSwapLayerBuffers       := Nil;
  qwglUseFontBitmaps         := Nil;
  qwglUseFontOutlines        := Nil;

  qwglChoosePixelFormat      := Nil;
  qwglDescribePixelFormat    := Nil;
  qwglGetPixelFormat         := Nil;
  qwglSetPixelFormat         := Nil;
  qwglSwapBuffers            := Nil;

  qwglSwapIntervalEXT	     := Nil;

  qwglGetDeviceGammaRampEXT  := Nil;
  qwglSetDeviceGammaRampEXT  := Nil;
end;//procedure

//#	define GPA( a ) GetProcAddress( glw_state.hinstOpenGL, a )
procedure GPA (var qglProcName, dllProcname : TFarProc; ProcName : PChar);
begin
  dllProcName := GetProcAddress (glw_state.hinstOpenGL, ProcName);
  qglProcName := dllProcName;
end;//procedure
procedure GPA1 (var qwglProcName : {pointer}TFarProc; ProcName : PChar);
begin
  qwglProcName := GetProcAddress (glw_state.hinstOpenGL, ProcName);
end;//procedure

{*
** QGL_Init
**