qgl_h.pas

delphi编的不错的贪吃蛇

  qglmateriali:procedure(face:TGLenum;pname:TGLenum;param:TGLint);stdcall;
  qglmaterialiv:procedure(face:TGLenum;pname:TGLenum;params:PGLint);stdcall;
  qglmatrixmode:procedure(mode:TGLenum);stdcall;
  qglmultmatrixd:procedure(m:PGLdouble);stdcall;
  qglmultmatrixf:procedure(m:PGLfloat);stdcall;
  qglnewlist:procedure(list:TGLuint;mode:TGLenum);stdcall;
  qglnormal3b:procedure(nx:TGLbyte;ny:TGLbyte;nz:TGLbyte);stdcall;
  qglnormal3bv:procedure(v:PGLbyte);stdcall;
  qglnormal3d:procedure(nx:TGLdouble;ny:TGLdouble;nz:TGLdouble);stdcall;
  qglnormal3dv:procedure(v:PGLdouble);stdcall;
  qglnormal3f:procedure(nx:TGLfloat;ny:TGLfloat;nz:TGLfloat);stdcall;
  qglnormal3fv:procedure(v:PGLfloat);stdcall;
  qglnormal3i:procedure(nx:TGLint;ny:TGLint;nz:TGLint);stdcall;
  qglnormal3iv:procedure(v:PGLint);stdcall;
  qglnormal3s:procedure(nx:TGLshort;ny:TGLshort;nz:TGLshort);stdcall;
  qglnormal3sv:procedure(v:PGLshort);stdcall;
  qglnormalpointer:procedure(_type:TGLenum;stride:TGLsizei;pointer:pointer);stdcall;
  qglortho:procedure(left:TGLdouble;right:TGLdouble;bottom:TGLdouble;top:TGLdouble;znear:TGLdouble;zfar:TGLdouble);stdcall;
  qglpassthrough:procedure(token:TGLfloat);stdcall;
  qglpixelmapfv:procedure(map:TGLenum;mapsize:TGLsizei;values:PGLfloat);stdcall;
  qglpixelmapuiv:procedure(map:TGLenum;mapsize:TGLsizei;values:PGLuint);stdcall;
  qglpixelmapusv:procedure(map:TGLenum;mapsize:TGLsizei;values:PGLushort);stdcall;
  qglpixelstoref:procedure(pname:TGLenum;param:TGLfloat);stdcall;
  qglpixelstorei:procedure(pname:TGLenum;param:TGLint);stdcall;
  qglpixeltransferf:procedure(pname:TGLenum;param:TGLfloat);stdcall;
  qglpixeltransferi:procedure(pname:TGLenum;param:TGLint);stdcall;
  qglpixelzoom:procedure(xfactor:TGLfloat;yfactor:TGLfloat);stdcall;
  qglpointsize:procedure(size:TGLfloat);stdcall;
  qglpolygonmode:procedure(face:TGLenum;mode:TGLenum);stdcall;
  qglpolygonoffset:procedure(factor:TGLfloat;units:TGLfloat);stdcall;
  qglpolygonstipple:procedure(mask:PGLubyte);stdcall;
  qglpopattrib:procedure;stdcall;
  qglpopclientattrib:procedure;stdcall;
  qglpopmatrix:procedure;stdcall;
  qglpopname:procedure;stdcall;
  qglprioritizetextures:procedure(n:TGLsizei;textures:PGLuint;priorities:PGLclampf);stdcall;
  qglpushattrib:procedure(mask:TGLbitfield);stdcall;
  qglpushclientattrib:procedure(mask:TGLbitfield);stdcall;
  qglpushmatrix:procedure;stdcall;
  qglpushname:procedure(name:TGLuint);stdcall;
  qglrasterpos2d:procedure(x:TGLdouble;y:TGLdouble);stdcall;
  qglrasterpos2dv:procedure(v:PGLdouble);stdcall;
  qglrasterpos2f:procedure(x:TGLfloat;y:TGLfloat);stdcall;
  qglrasterpos2fv:procedure(v:PGLfloat);stdcall;
  qglrasterpos2i:procedure(x:TGLint;y:TGLint);stdcall;
  qglrasterpos2iv:procedure(v:PGLint);stdcall;
  qglrasterpos2s:procedure(x:TGLshort;y:TGLshort);stdcall;
  qglrasterpos2sv:procedure(v:PGLshort);stdcall;
  qglrasterpos3d:procedure(x:TGLdouble;y:TGLdouble;z:TGLdouble);stdcall;
  qglrasterpos3dv:procedure(v:PGLdouble);stdcall;
  qglrasterpos3f:procedure(x:TGLfloat;y:TGLfloat;z:TGLfloat);stdcall;
  qglrasterpos3fv:procedure(v:PGLfloat);stdcall;
  qglrasterpos3i:procedure(x:TGLint;y:TGLint;z:TGLint);stdcall;
  qglrasterpos3iv:procedure(v:PGLint);stdcall;
  qglrasterpos3s:procedure(x:TGLshort;y:TGLshort;z:TGLshort);stdcall;
  qglrasterpos3sv:procedure(v:PGLshort);stdcall;
  qglrasterpos4d:procedure(x:TGLdouble;y:TGLdouble;z:TGLdouble;w:TGLdouble);stdcall;
  qglrasterpos4dv:procedure(v:PGLdouble);stdcall;
  qglrasterpos4f:procedure(x:TGLfloat;y:TGLfloat;z:TGLfloat;w:TGLfloat);stdcall;
  qglrasterpos4fv:procedure(v:PGLfloat);stdcall;
  qglrasterpos4i:procedure(x:TGLint;y:TGLint;z:TGLint;w:TGLint);stdcall;
  qglrasterpos4iv:procedure(v:PGLint);stdcall;
  qglrasterpos4s:procedure(x:TGLshort;y:TGLshort;z:TGLshort;w:TGLshort);stdcall;
  qglrasterpos4sv:procedure(v:PGLshort);stdcall;
  qglreadbuffer:procedure(mode:TGLenum);stdcall;
  qglreadpixels:procedure(x:TGLint;y:TGLint;width:TGLsizei;height:TGLsizei;format:TGLenum;_type:TGLenum;pixels:pointer);stdcall;
  qglrectd:procedure(x1:TGLdouble;y1:TGLdouble;x2:TGLdouble;y2:TGLdouble);stdcall;
  qglrectdv:procedure(v1:PGLdouble;v2:PGLdouble);stdcall;
  qglrectf:procedure(x1:TGLfloat;y1:TGLfloat;x2:TGLfloat;y2:TGLfloat);stdcall;
  qglrectfv:procedure(v1:PGLfloat;v2:PGLfloat);stdcall;
  qglrecti:procedure(x1:TGLint;y1:TGLint;x2:TGLint;y2:TGLint);stdcall;
  qglrectiv:procedure(v1:PGLint;v2:PGLint);stdcall;
  qglrects:procedure(x1:TGLshort;y1:TGLshort;x2:TGLshort;y2:TGLshort);stdcall;
  qglrectsv:procedure(v1:PGLshort;v2:PGLshort);stdcall;
  qglrendermode:function(mode:TGLenum):TGLint;stdcall;
  qglrotated:procedure(angle:TGLdouble;x:TGLdouble;y:TGLdouble;z:TGLdouble);stdcall;
  qglrotatef:procedure(angle:TGLfloat;x:TGLfloat;y:TGLfloat;z:TGLfloat);stdcall;
  qglscaled:procedure(x:TGLdouble;y:TGLdouble;z:TGLdouble);stdcall;
  qglscalef:procedure(x:TGLfloat;y:TGLfloat;z:TGLfloat);stdcall;
  qglscissor:procedure(x:TGLint;y:TGLint;width:TGLsizei;height:TGLsizei);stdcall;
  qglselectbuffer:procedure(size:TGLsizei;buffer:PGLuint);stdcall;
  qglshademodel:procedure(mode:TGLenum);stdcall;
  qglstencilfunc:procedure(func:TGLenum;ref:TGLint;mask:TGLuint);stdcall;
  qglstencilmask:procedure(mask:TGLuint);stdcall;
  qglstencilop:procedure(fail:TGLenum;zfail:TGLenum;zpass:TGLenum);stdcall;
  qgltexcoord1d:procedure(s:TGLdouble);stdcall;
  qgltexcoord1dv:procedure(v:PGLdouble);stdcall;
  qgltexcoord1f:procedure(s:TGLfloat);stdcall;
  qgltexcoord1fv:procedure(v:PGLfloat);stdcall;
  qgltexcoord1i:procedure(s:TGLint);stdcall;
  qgltexcoord1iv:procedure(v:PGLint);stdcall;
  qgltexcoord1s:procedure(s:TGLshort);stdcall;
  qgltexcoord1sv:procedure(v:PGLshort);stdcall;
  qgltexcoord2d:procedure(s:TGLdouble;t:TGLdouble);stdcall;
  qgltexcoord2dv:procedure(v:PGLdouble);stdcall;
  qgltexcoord2f:procedure(s:TGLfloat;t:TGLfloat);stdcall;
  qgltexcoord2fv:procedure(v:PGLfloat);stdcall;
  qgltexcoord2i:procedure(s:TGLint;t:TGLint);stdcall;
  qgltexcoord2iv:procedure(v:PGLint);stdcall;
  qgltexcoord2s:procedure(s:TGLshort;t:TGLshort);stdcall;
  qgltexcoord2sv:procedure(v:PGLshort);stdcall;
  qgltexcoord3d:procedure(s:TGLdouble;t:TGLdouble;r:TGLdouble);stdcall;
  qgltexcoord3dv:procedure(v:PGLdouble);stdcall;
  qgltexcoord3f:procedure(s:TGLfloat;t:TGLfloat;r:TGLfloat);stdcall;
  qgltexcoord3fv:procedure(v:PGLfloat);stdcall;
  qgltexcoord3i:procedure(s:TGLint;t:TGLint;r:TGLint);stdcall;
  qgltexcoord3iv:procedure(v:PGLint);stdcall;
  qgltexcoord3s:procedure(s:TGLshort;t:TGLshort;r:TGLshort);stdcall;
  qgltexcoord3sv:procedure(v:PGLshort);stdcall;
  qgltexcoord4d:procedure(s:TGLdouble;t:TGLdouble;r:TGLdouble;q:TGLdouble);stdcall;
  qgltexcoord4dv:procedure(v:PGLdouble);stdcall;
  qgltexcoord4f:procedure(s:TGLfloat;t:TGLfloat;r:TGLfloat;q:TGLfloat);stdcall;
  qgltexcoord4fv:procedure(v:PGLfloat);stdcall;
  qgltexcoord4i:procedure(s:TGLint;t:TGLint;r:TGLint;q:TGLint);stdcall;
  qgltexcoord4iv:procedure(v:PGLint);stdcall;
  qgltexcoord4s:procedure(s:TGLshort;t:TGLshort;r:TGLshort;q:TGLshort);stdcall;
  qgltexcoord4sv:procedure(v:PGLshort);stdcall;
  qgltexcoordpointer:procedure(size:TGLint;_type:TGLenum;stride:TGLsizei;p:pointer);stdcall;
  qgltexenvf:procedure(target:TGLenum;pname:TGLenum;param:TGLfloat);stdcall;
  qgltexenvfv:procedure(target:TGLenum;pname:TGLenum;params:PGLfloat);stdcall;
  qgltexenvi:procedure(target:TGLenum;pname:TGLenum;param:TGLint);stdcall;
  qgltexenviv:procedure(target:TGLenum;pname:TGLenum;params:PGLint);stdcall;
  qgltexgend:procedure(coord:TGLenum;pname:TGLenum;param:TGLdouble);stdcall;
  qgltexgendv:procedure(coord:TGLenum;pname:TGLenum;params:PGLdouble);stdcall;
  qgltexgenf:procedure(coord:TGLenum;pname:TGLenum;param:TGLfloat);stdcall;
  qgltexgenfv:procedure(coord:TGLenum;pname:TGLenum;params:PGLfloat);stdcall;
  qgltexgeni:procedure(coord:TGLenum;pname:TGLenum;param:TGLint);stdcall;
  qgltexgeniv:procedure(coord:TGLenum;pname:TGLenum;params:PGLint);stdcall;
  qglteximage1d:procedure(target:TGLenum;level:TGLint;internalformat:TGLint;width:TGLsizei;border:TGLint;format:TGLenum;_type:TGLenum;pixels:pointer);stdcall;
  qglteximage2d:procedure(target:TGLenum;level:TGLint;internalformat:TGLint;width:TGLsizei;height:TGLsizei;border:TGLint;format:TGLenum;_type:TGLenum;pixels:pointer);stdcall;
  qgltexparameterf:procedure(target:TGLenum;pname:TGLenum;param:TGLfloat);stdcall;
  qgltexparameterfv:procedure(target:TGLenum;pname:TGLenum;params:PGLfloat);stdcall;
  qgltexparameteri:procedure(target:TGLenum;pname:TGLenum;param:TGLint);stdcall;
  qgltexparameteriv:procedure(target:TGLenum;pname:TGLenum;params:PGLint);stdcall;
  qgltexsubimage1d:procedure(target:TGLenum;level:TGLint;xoffset:TGLint;width:TGLsizei;format:TGLenum;_type:TGLenum;pixels:pointer);stdcall;
  qgltexsubimage2d:procedure(target:TGLenum;level:TGLint;xoffset:TGLint;yoffset:TGLint;width:TGLsizei;height:TGLsizei;format:TGLenum;_type:TGLenum;pixels:pointer);stdcall;
  qgltranslated:procedure(x:TGLdouble;y:TGLdouble;z:TGLdouble);stdcall;
  qgltranslatef:procedure(x:TGLfloat;y:TGLfloat;z:TGLfloat);stdcall;
  qglvertex2d:procedure(x:TGLdouble;y:TGLdouble);stdcall;
  qglvertex2dv:procedure(v:PGLdouble);stdcall;
  qglvertex2f:procedure(x:TGLfloat;y:TGLfloat);stdcall;
  qglvertex2fv:procedure(v:PGLfloat);stdcall;
  qglvertex2i:procedure(x:TGLint;y:TGLint);stdcall;
  qglvertex2iv:procedure(v:PGLint);stdcall;
  qglvertex2s:procedure(x:TGLshort;y:TGLshort);stdcall;
  qglvertex2sv:procedure(v:PGLshort);stdcall;
  qglvertex3d:procedure(x:TGLdouble;y:TGLdouble;z:TGLdouble);stdcall;
  qglvertex3dv:procedure(v:PGLdouble);stdcall;
  qglvertex3f:procedure(x:TGLfloat;y:TGLfloat;z:TGLfloat);stdcall;
  qglvertex3fv:procedure(v:PGLfloat);stdcall;
  qglvertex3i:procedure(x:TGLint;y:TGLint;z:TGLint);stdcall;
  qglvertex3iv:procedure(v:PGLint);stdcall;
  qglvertex3s:procedure(x:TGLshort;y:TGLshort;z:TGLshort);stdcall;
  qglvertex3sv:procedure(v:PGLshort);stdcall;
  qglvertex4d:procedure(x:TGLdouble;y:TGLdouble;z:TGLdouble;w:TGLdouble);stdcall;
  qglvertex4dv:procedure(v:PGLdouble);stdcall;
  qglvertex4f:procedure(x:TGLfloat;y:TGLfloat;z:TGLfloat;w:TGLfloat);stdcall;
  qglvertex4fv:procedure(v:PGLfloat);stdcall;
  qglvertex4i:procedure(x:TGLint;y:TGLint;z:TGLint;w:TGLint);stdcall;
  qglvertex4iv:procedure(v:PGLint);stdcall;
  qglvertex4s:procedure(x:TGLshort;y:TGLshort;z:TGLshort;w:TGLshort);stdcall;
  qglvertex4sv:procedure(v:PGLshort);stdcall;
  qglvertexpointer:procedure(size:TGLint;_type:TGLenum;stride:TGLsizei;pointer:pointer);stdcall;
  qglviewport:procedure(x:TGLint;y:TGLint;width:TGLsizei;height:TGLsizei);stdcall;
  qglpointparameterfext:procedure(param:TGLenum;value:TGLfloat);stdcall;
  qglpointparameterfvext:procedure(param:TGLenum;value:PGLfloat);stdcall;
  qglcolortableext:procedure(p1,p2,p3,p4,p5:integer;p6:pointer);stdcall;
  qgllockarraysext:procedure(first,size:integer);stdcall;
  qglunlockarraysext:procedure;stdcall;
  qglmtexcoord2fsgis:procedure(p1:TGLenum;p2:TGLfloat;p3:TGLfloat);stdcall;
  qglselecttexturesgis:procedure(p1:TGLenum);stdcall;

  {$ifdef WIN32}

  qwglchoosepixelformat:function(dc:hdc;pfd:ppixelformatdescriptor):integer;stdcall;
  qwgldescribepixelformat:function(dc:hdc;p2:integer;p3:cardinal;pfd:ppixelformatdescriptor):integer;stdcall;
  qwglgetpixelformat:function(dc:hdc):integer;stdcall;
  qwglsetpixelformat:function(dc:hdc;p2:integer;pfd:ppixelformatdescriptor):bytebool;stdcall;
  qwglswapbuffers:function(dc:hdc):bytebool;stdcall;
  qwglcopycontext:function(rc:hglrc;rc2:hglrc;p3:cardinal):bytebool;stdcall;
  qwglcreatecontext:function(dc:hdc):hglrc;stdcall;
  qwglcreatelayercontext:function(dc:hdc;p2:integer):hglrc;stdcall;
  qwgldeletecontext:function(rc:hglrc):bytebool;stdcall;
  qwglgetcurrentcontext:function:hglrc;stdcall;
  qwglgetcurrentdc:function:hdc;stdcall;
  qwglgetprocaddress:function(procname:pchar):pointer;stdcall;
  qwglmakecurrent:function(dc:hdc;rc:hglrc):bytebool;stdcall;
  qwglsharelists:function(rc:hglrc;rc2:hglrc):bytebool;stdcall;
  qwglusefontbitmaps:function(dc:hdc;p2:dword;p3:dword;p4:dword):bytebool;stdcall;
  qwglusefontoutlines:function(dc:hdc;p2:dword;p3:dword;p4:dword;p5:single;p6:single;p7:integer;p8:pglyphmetricsfloat):bytebool;stdcall;
  qwgldescribelayerplane:function(dc:hdc;p2:integer;p3:integer;p4:cardinal;p5:playerplanedescriptor):bytebool;stdcall;
  qwglsetlayerpaletteentries:function(dc:hdc;p2:integer;p3:integer;p4:integer;cr:colorref):integer;stdcall;
  qwglgetlayerpaletteentries:function(dc:hdc;p2:integer;p3:integer;p4:integer;p5:colorref):integer;stdcall;
  qwglrealizelayerpalette:function(dc:hdc;p2:integer;p3:bytebool):bytebool;stdcall;

  qwglswaplayerbuffers:function(dc:hdc;p2:cardinal):bytebool;stdcall;
  qwglswapintervalext:function(interval:integer):bytebool;stdcall;
  qwglgetdevicegammarampext:function(red,green,blue:pbytearray):bytebool;stdcall;
  qwglsetdevicegammarampext:function(const red,green,blue:pbytearray):bytebool;stdcall;

{$Endif}
*)
{
** extension constants
}
const
  GL_POINT_SIZE_MIN_EXT				=$8126;
  GL_POINT_SIZE_MAX_EXT				=$8127;
  GL_POINT_FADE_THRESHOLD_SIZE_EXT	        =$8128;
  GL_DISTANCE_ATTENUATION_EXT			=$8129;

  {$ifdef __sgi}
  GL_SHARED_TEXTURE_PALETTE_EXT = GL_TEXTURE_COLOR_TABLE_SGI;
  {$else}
  GL_SHARED_TEXTURE_PALETTE_EXT = $81FB;
  {$endif}

  GL_TEXTURE0_SGIS				= $835E;
  GL_TEXTURE1_SGIS				= $835F;
  GL_TEXTURE0_ARB					= $84C0;
  GL_TEXTURE1_ARB					= $84C1;




implementation

end.