opengl.pas

Delphi高级程序开发配书源代码,可以循序渐进的学习Delphi.

procedure glColor4usv (v: PGLushort); stdcall;
  {$EXTERNALSYM glColor4usv}
procedure glColor(red, green, blue: GLbyte); stdcall; overload;
  {$EXTERNALSYM glColor}
procedure glColor(red, green, blue: GLdouble); stdcall; overload;
  {$EXTERNALSYM glColor}
procedure glColor(red, green, blue: GLfloat); stdcall; overload;
  {$EXTERNALSYM glColor}
procedure glColor(red, green, blue: GLint); stdcall; overload;
  {$EXTERNALSYM glColor}
procedure glColor(red, green, blue: GLshort); stdcall; overload;
  {$EXTERNALSYM glColor}
procedure glColor(red, green, blue: GLubyte); stdcall; overload;
  {$EXTERNALSYM glColor}
procedure glColor(red, green, blue: GLuint); stdcall; overload;
  {$EXTERNALSYM glColor}
procedure glColor(red, green, blue: GLushort); stdcall; overload;
  {$EXTERNALSYM glColor}
procedure glColor(red, green, blue, alpha: GLbyte); stdcall; overload;
  {$EXTERNALSYM glColor}
procedure glColor(red, green, blue, alpha: GLdouble); stdcall; overload;
  {$EXTERNALSYM glColor}
procedure glColor(red, green, blue, alpha: GLfloat); stdcall; overload;
  {$EXTERNALSYM glColor}
procedure glColor(red, green, blue, alpha: GLint); stdcall; overload;
  {$EXTERNALSYM glColor}
procedure glColor(red, green, blue, alpha: GLshort); stdcall; overload;
  {$EXTERNALSYM glColor}
procedure glColor(red, green, blue, alpha: GLubyte); stdcall; overload;
  {$EXTERNALSYM glColor}
procedure glColor(red, green, blue, alpha: GLuint); stdcall; overload;
  {$EXTERNALSYM glColor}
procedure glColor(red, green, blue, alpha: GLushort); stdcall; overload;
  {$EXTERNALSYM glColor}
procedure glColor3(v: PGLbyte); stdcall; overload;
  {$EXTERNALSYM glColor3}
procedure glColor3(v: PGLdouble); stdcall; overload;
  {$EXTERNALSYM glColor3}
procedure glColor3(v: PGLfloat); stdcall; overload;
  {$EXTERNALSYM glColor3}
procedure glColor3(v: PGLint); stdcall; overload;
  {$EXTERNALSYM glColor3}
procedure glColor3(v: PGLshort); stdcall; overload;
  {$EXTERNALSYM glColor3}
procedure glColor3(v: PGLubyte); stdcall; overload;
  {$EXTERNALSYM glColor3}
procedure glColor3(v: PGLuint); stdcall; overload;
  {$EXTERNALSYM glColor3}
procedure glColor3(v: PGLushort); stdcall; overload;
  {$EXTERNALSYM glColor3}
procedure glColor4(v: PGLbyte); stdcall; overload;
  {$EXTERNALSYM glColor4}
procedure glColor4(v: PGLdouble); stdcall; overload;
  {$EXTERNALSYM glColor4}
procedure glColor4(v: PGLfloat); stdcall; overload;
  {$EXTERNALSYM glColor4}
procedure glColor4(v: PGLint); stdcall; overload;
  {$EXTERNALSYM glColor4}
procedure glColor4(v: PGLshort); stdcall; overload;
  {$EXTERNALSYM glColor4}
procedure glColor4(v: PGLubyte); stdcall; overload;
  {$EXTERNALSYM glColor4}
procedure glColor4(v: PGLuint); stdcall; overload;
  {$EXTERNALSYM glColor4}
procedure glColor4(v: PGLushort); stdcall; overload;
  {$EXTERNALSYM glColor4}

procedure glColorMask (red, green, blue, alpha: GLboolean); stdcall;
  {$EXTERNALSYM glColorMask}
procedure glColorMaterial (face, mode: GLenum); stdcall;
  {$EXTERNALSYM glColorMaterial}
procedure glCopyPixels (x,y: GLint; width, height: GLsizei; pixeltype: GLenum); stdcall;
  {$EXTERNALSYM glCopyPixels}
procedure glCullFace (mode: GLenum); stdcall;
  {$EXTERNALSYM glCullFace}
procedure glDeleteLists (list: GLuint; range: GLsizei); stdcall;
  {$EXTERNALSYM glDeleteLists}
procedure glDepthFunc (func: GLenum); stdcall;
  {$EXTERNALSYM glDepthFunc}
procedure glDepthMask (flag: GLboolean); stdcall;
  {$EXTERNALSYM glDepthMask}
procedure glDepthRange (zNear, zFar: GLclampd); stdcall;
  {$EXTERNALSYM glDepthRange}
procedure glDisable (cap: GLenum); stdcall;
  {$EXTERNALSYM glDisable}
procedure glDrawBuffer (mode: GLenum); stdcall;
  {$EXTERNALSYM glDrawBuffer}
procedure glDrawPixels (width, height: GLsizei; format, pixeltype: GLenum;
             pixels: Pointer); stdcall;
  {$EXTERNALSYM glDrawPixels}
procedure glEdgeFlag (flag: GLboolean); stdcall;
  {$EXTERNALSYM glEdgeFlag}
procedure glEdgeFlagv (flag: PGLboolean); stdcall;
  {$EXTERNALSYM glEdgeFlagv}
procedure glEnable (cap: GLenum); stdcall;
  {$EXTERNALSYM glEnable}
procedure glEnd; stdcall;
  {$EXTERNALSYM glEnd}
procedure glEndList; stdcall;
  {$EXTERNALSYM glEndList}

procedure glEvalCoord1d (u: GLdouble); stdcall;
  {$EXTERNALSYM glEvalCoord1d}
procedure glEvalCoord1dv (u: PGLdouble); stdcall;
  {$EXTERNALSYM glEvalCoord1dv}
procedure glEvalCoord1f (u: GLfloat); stdcall;
  {$EXTERNALSYM glEvalCoord1f}
procedure glEvalCoord1fv (u: PGLfloat); stdcall;
  {$EXTERNALSYM glEvalCoord1fv}
procedure glEvalCoord2d (u,v: GLdouble); stdcall;
  {$EXTERNALSYM glEvalCoord2d}
procedure glEvalCoord2dv (u: PGLdouble); stdcall;
  {$EXTERNALSYM glEvalCoord2dv}
procedure glEvalCoord2f (u,v: GLfloat); stdcall;
  {$EXTERNALSYM glEvalCoord2f}
procedure glEvalCoord2fv (u: PGLfloat); stdcall;
  {$EXTERNALSYM glEvalCoord2fv}
procedure glEvalCoord(u: GLdouble); stdcall; overload;
  {$EXTERNALSYM glEvalCoord}
procedure glEvalCoord(u: GLfloat); stdcall; overload;
  {$EXTERNALSYM glEvalCoord}
procedure glEvalCoord(u,v: GLdouble); stdcall; overload;
  {$EXTERNALSYM glEvalCoord}
procedure glEvalCoord(u,v: GLfloat); stdcall; overload;
  {$EXTERNALSYM glEvalCoord}
procedure glEvalCoord1(v: PGLdouble); stdcall; overload;
  {$EXTERNALSYM glEvalCoord1}
procedure glEvalCoord1(v: PGLfloat); stdcall; overload;
  {$EXTERNALSYM glEvalCoord1}
procedure glEvalCoord2(v: PGLdouble); stdcall; overload;
  {$EXTERNALSYM glEvalCoord2}
procedure glEvalCoord2(v: PGLfloat); stdcall; overload;
  {$EXTERNALSYM glEvalCoord2}

procedure glEvalMesh1 (mode: GLenum; i1, i2: GLint); stdcall;
  {$EXTERNALSYM glEvalMesh1}
procedure glEvalMesh2 (mode: GLenum; i1, i2, j1, j2: GLint); stdcall;
  {$EXTERNALSYM glEvalMesh2}
procedure glEvalMesh(mode: GLenum; i1, i2: GLint); stdcall; overload;
  {$EXTERNALSYM glEvalMesh}
procedure glEvalMesh(mode: GLenum; i1, i2, j1, j2: GLint); stdcall; overload;
  {$EXTERNALSYM glEvalMesh}

procedure glEvalPoint1 (i: GLint); stdcall;
  {$EXTERNALSYM glEvalPoint1}
procedure glEvalPoint2 (i,j: GLint); stdcall;
  {$EXTERNALSYM glEvalPoint2}
procedure glEvalPoint(i: GLint); stdcall; overload;
  {$EXTERNALSYM glEvalPoint}
procedure glEvalPoint(i,j: GLint); stdcall; overload;
  {$EXTERNALSYM glEvalPoint}

procedure glFeedbackBuffer (size: GLsizei; buftype: GLenum; buffer: PGLFloat); stdcall;
  {$EXTERNALSYM glFeedbackBuffer}
procedure glFinish; stdcall;
  {$EXTERNALSYM glFinish}
procedure glFlush; stdcall;
  {$EXTERNALSYM glFlush}

procedure glFogf (pname: GLenum; param: GLfloat); stdcall;
  {$EXTERNALSYM glFogf}
procedure glFogfv (pname: GLenum; params: PGLfloat); stdcall;
  {$EXTERNALSYM glFogfv}
procedure glFogi (pname: GLenum; param: GLint); stdcall;
  {$EXTERNALSYM glFogi}
procedure glFogiv (pname: GLenum; params: PGLint); stdcall;
  {$EXTERNALSYM glFogiv}
procedure glFog(pname: GLenum; param: GLfloat); stdcall; overload;
  {$EXTERNALSYM glFog}
procedure glFog(pname: GLenum; params: PGLfloat); stdcall; overload;
  {$EXTERNALSYM glFog}
procedure glFog(pname: GLenum; param: GLint); stdcall; overload;
  {$EXTERNALSYM glFog}
procedure glFog(pname: GLenum; params: PGLint); stdcall; overload;
  {$EXTERNALSYM glFog}

procedure glFrontFace (mode: GLenum); stdcall;
  {$EXTERNALSYM glFrontFace}
procedure glFrustum (left, right, bottom, top, zNear, zFar: GLdouble); stdcall;
  {$EXTERNALSYM glFrustum}
function  glGenLists (range: GLsizei): GLuint; stdcall;
  {$EXTERNALSYM glGenLists}
procedure glGetBooleanv (pname: GLenum; params: PGLboolean); stdcall;
  {$EXTERNALSYM glGetBooleanv}
procedure glGetClipPlane (plane: GLenum; equation: PGLdouble); stdcall;
  {$EXTERNALSYM glGetClipPlane}
procedure glGetDoublev (pname: GLenum; params: PGLdouble); stdcall;
  {$EXTERNALSYM glGetDoublev}
function  glGetError: GLenum; stdcall;
  {$EXTERNALSYM glGetError}
procedure glGetFloatv (pname: GLenum; params: PGLfloat); stdcall;
  {$EXTERNALSYM glGetFloatv}
procedure glGetIntegerv (pname: GLenum; params: PGLint); stdcall;
  {$EXTERNALSYM glGetIntegerv}

procedure glGetLightfv (light: GLenum; pname: GLenum; params: PGLfloat); stdcall;
  {$EXTERNALSYM glGetLightfv}
procedure glGetLightiv (light: GLenum; pname: GLenum; params: PGLint); stdcall;
  {$EXTERNALSYM glGetLightiv}
procedure glGetLight(light: GLenum; pname: GLenum; params: PGLfloat); stdcall; overload;
  {$EXTERNALSYM glGetLight}
procedure glGetLight(light: GLenum; pname: GLenum; params: PGLint); stdcall; overload;
  {$EXTERNALSYM glGetLight}

procedure glGetMapdv (target: GLenum; query: GLenum; v: PGLdouble); stdcall;
  {$EXTERNALSYM glGetMapdv}
procedure glGetMapfv (target: GLenum; query: GLenum; v: PGLfloat); stdcall;
  {$EXTERNALSYM glGetMapfv}
procedure glGetMapiv (target: GLenum; query: GLenum; v: PGLint); stdcall;
  {$EXTERNALSYM glGetMapiv}
procedure glGetMap(target: GLenum; query: GLenum; v: PGLdouble); stdcall; overload;
  {$EXTERNALSYM glGetMap}
procedure glGetMap(target: GLenum; query: GLenum; v: PGLfloat); stdcall; overload;
  {$EXTERNALSYM glGetMap}
procedure glGetMap(target: GLenum; query: GLenum; v: PGLint); stdcall; overload;
  {$EXTERNALSYM glGetMap}

procedure glGetMaterialfv (face: GLenum; pname: GLenum; params: PGLfloat); stdcall;
  {$EXTERNALSYM glGetMaterialfv}
procedure glGetMaterialiv (face: GLenum; pname: GLenum; params: PGLint); stdcall;
  {$EXTERNALSYM glGetMaterialiv}
procedure glGetMaterial(face: GLenum; pname: GLenum; params: PGLfloat); stdcall; overload;
  {$EXTERNALSYM glGetMaterial}
procedure glGetMaterial(face: GLenum; pname: GLenum; params: PGLint); stdcall; overload;
  {$EXTERNALSYM glGetMaterial}

procedure glGetPixelMapfv (map: GLenum; values: PGLfloat); stdcall;
  {$EXTERNALSYM glGetPixelMapfv}
procedure glGetPixelMapuiv (map: GLenum; values: PGLuint); stdcall;
  {$EXTERNALSYM glGetPixelMapuiv}
procedure glGetPixelMapusv (map: GLenum; values: PGLushort); stdcall;
  {$EXTERNALSYM glGetPixelMapusv}
procedure glGetPixelMap(map: GLenum; values: PGLfloat); stdcall; overload;
  {$EXTERNALSYM glGetPixelMap}
procedure glGetPixelMap(map: GLenum; values: PGLuint); stdcall; overload;
  {$EXTERNALSYM glGetPixelMap}
procedure glGetPixelMap(map: GLenum; values: PGLushort); stdcall; overload;
  {$EXTERNALSYM glGetPixelMap}

procedure glGetPolygonStipple (var mask: GLubyte); stdcall;
  {$EXTERNALSYM glGetPolygonStipple}
function  glGetString (name: GLenum): PChar; stdcall;
  {$EXTERNALSYM glGetString}

procedure glGetTexEnvfv (target: GLenum; pname: GLenum; params: PGLfloat); stdcall;
  {$EXTERNALSYM glGetTexEnvfv}
procedure glGetTexEnviv (target: GLenum; pname: GLenum; params: PGLint); stdcall;
  {$EXTERNALSYM glGetTexEnviv}
procedure glGetTexEnv(target: GLenum; pname: GLenum; params: PGLfloat); stdcall; overload;
  {$EXTERNALSYM glGetTexEnv}
procedure glGetTexEnv(target: GLenum; pname: GLenum; params: PGLint); stdcall; overload;
  {$EXTERNALSYM glGetTexEnv}

procedure glGetTexGendv (coord: GLenum; pname: GLenum; params: PGLdouble); stdcall;
  {$EXTERNALSYM glGetTexGendv}
procedure glGetTexGenfv (coord: GLenum; pname: GLenum; params: PGLfloat); stdcall;
  {$EXTERNALSYM glGetTexGenfv}
procedure glGetTexGeniv (coord: GLenum; pname: GLenum; params: PGLint); stdcall;
  {$EXTERNALSYM glGetTexGeniv}
procedure glGetTexGen(coord: GLenum; pname: GLenum; params: PGLdouble); stdcall; overload;
  {$EXTERNALSYM glGetTexGen}
procedure glGetTexGen(coord: GLenum; pname: GLenum; params: PGLfloat); stdcall; overload;
  {$EXTERNALSYM glGetTexGen}
procedure glGetTexGen(coord: GLenum; pname: GLenum; params: PGLint); stdcall; overload;
  {$EXTERNALSYM glGetTexGen}

procedure glGetTexImage (target: GLenum; level: GLint; format: GLenum; _type: GLenum; pixels: pointer); stdcall;
  {$EXTERNALSYM glGetTexImage}

procedure glGetTexLevelParameterfv (target: GLenum; level: GLint; pname: GLenum; params: PGLfloat); stdcall;
  {$EXTERNALSYM glGetTexLevelParameterfv}
procedure glGetTexLevelParameteriv (target: GLenum; level: GLint; pname: GLenum; params: PGLint); stdcall;
  {$EXTERNALSYM glGetTexLevelParameteriv}
procedure glGetTexLevelParameter(target: GLenum; level: GLint; pname: GLenum; params: PGLfloat); stdcall; overload;
  {$EXTERNALSYM glGetTexLevelParameter}
procedure glGetTexLevelParameter(target: GLenum; level: GLint; pname: GLenum; params: PGLint); stdcall; overload;
  {$EXTERNALSYM glGetTexLevelParameter}

procedure glGetTexParameterfv (target, pname: GLenum; params: PGLfloat); stdcall;
  {$EXTERNALSYM glGetTexParameterfv}
procedure glGetTexParameteriv (target, pname: GLenum; params: PGLint); stdcall;
  {$EXTERNALSYM glGetTexParameteriv}
procedure glGetTexParameter(target, pname: GLenum; params: PGLfloat); stdcall; overload;
  {$EXTERNALSYM glGetTexParameter}
procedure glGetTexParameter(target, pname: GLenum; params: PGLint); stdcall; overload;
  {$EXTERNALSYM glGetTexParameter}

procedure glHint (target, mode: GLenum); stdcall;
  {$EXTERNALSYM glHint}
procedure glIndexMask (mask: GLuint); stdcall;
  {$EXTERNALSYM glIndexMask}

procedure glIndexd (c: GLdouble); stdcall;
  {$EXTERNALSYM glIndexd}
procedure glIndexdv (c: PGLdouble); stdcall;
  {$EXTERNALSYM glIndexdv}
procedure glIndexf (c: GLfloat); stdcall;
  {$EXTERNALSYM glIndexf}
procedure glIndexfv (c: PGLfloat); stdcall;
  {$EXTERNALSYM glIndexfv}
procedure glIndexi (c: GLint); stdcall;
  {$EXTERNALSYM glIndexi}
procedure glIndexiv (c: PGLint); stdcall;
  {$EXTERNALSYM glIndexiv}
procedure glIndexs (c: GLshort); stdcall;
  {$EXTERNALSYM glIndexs}
procedure glIndexsv (c: PGLshort); stdcall;
  {$EXTERNALSYM glIndexsv}
procedure glIndex(c: GLdouble); stdcall; overload;
  {$EXTERNALSYM glIndex}
procedure glIndex(c: PGLdouble); stdcall; overload;
  {$EXTERNALSYM glIndex}
procedure glIndex(c: GLfloat); stdcall;  overload;
  {$EXTERNALSYM glIndex}
procedure glIndex(c: PGLfloat); stdcall; overload;
  {$EXTERNALSYM glIndex}
procedure glIndex(c: GLint); stdcall; overload;
  {$EXTERNALSYM glIndex}
procedure glIndex(c: PGLint); stdcall; overload;
  {$EXTERNALSYM glIndex}
procedure glIndex(c: GLshort); stdcall; overload;
  {$EXTERNALSYM glIndex}
procedure glIndex(c: PGLshort); stdcall; overload;
  {$EXTERNALSYM glIndex}

procedure glInitNames; stdcall;
  {$EXTERNALSYM glInitNames}
function  glIsEnabled (cap: GLenum): GLBoolean; stdcall;
  {$EXTERNALSYM glIsEnabled}
function  glIsList (list: GLuint): GLBoolean;   stdcall;
  {$EXTERNALSYM glIsList}

procedure glLightModelf (pname: GLenum; param: GLfloat); stdcall;
  {$EXTERNALSYM glLightModelf}
procedure glLightModelfv (pname: GLenum; params: PGLfloat); stdcall;
  {$EXTERNALSYM glLightModelfv}
procedure glLightModeli (pname: GLenum; param: GLint); stdcall;
  {$EXTERNALSYM glLightModeli}
procedure glLightModeliv (pname: GLenum; params: PGLint); stdcall;
  {$EXTERNALSYM glLightModeliv}
procedure glLightModel(pname: GLenum; param: GLfloat); stdcall; overload;
  {$EXTERNALSYM glLightModel}
procedure glLightModel(pname: GLenum; params: PGLfloat); stdcall; overload;
  {$EXTERNALSYM glLightModel}
procedure glLightModel(pname: GLenum; param: GLint); stdcall; overload;
  {$EXTERNALSYM glLightModel}
procedure glLightModel(pname: GLenum; params: PGLint); stdcall; overload;
  {$EXTERNALSYM glLightModel}

procedure glLightf (light, pname: GLenum; param: GLfloat); stdcall;
  {$EXTERNALSYM glLig