qgl_h.pas

雷神之锤2(Quake2)Delphi源码

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

{$endif}



implementation

end.