再送50分：在 uses句中加入什么可以用aux辅助函数？如auxwirecube?(50分)

如题。

我好像不明白，这个东西干嘛用的？
我找遍C盘都没看到？

mmsystem 中有一堆 aux..., 但没有 ...wirecube。

auxwirecube是 DirectX的API，要到
http://delphi-jedi.org/delphigraphics/OpenGL/Download.htm
下载 GlAux.zip

mmsystem

mmsystem没有auxwirecube（D4前，D5没用过）

好像是要调动态库吧,给个函数形式声明成extern就行,不用use

天哪！同志们，你们加帖子都不看前面的内容吗？
睁大眼睛看看我给的答案，已经很明确了，不是什么mmsystem。
搞得我又多收3封e-mail

DGLUT.PAS
I have mailed it to you.
Good luck.
{ DGLUT is an Object Pascal translation of a small part of Mark Kilgard's
GLUT library for OpenGL. Included here are just the shape-drawing routines
from glut_shapes.c and the teapot routines from glut_teapot.c. Following
is the original copyright notices from those files. }

procedure DrawBox(Size : GLfloat; DrawType : GLenum);
procedure glutWireCube(Size : GLDouble);
procedure glutSolidCube(Size : GLDouble);
procedure glutWireSphere(
Radius : GLdouble;
Slices : GLint;
Stacks : GLint);
procedure glutSolidSphere(
Radius : GLdouble;
Slices : GLint;
Stacks : GLint);
procedure glutWireCone(
Base : GLdouble;
Height : GLdouble;
Slices : GLint;
Stacks : GLint);
procedure glutSolidCone(
Base : GLdouble;
Height : GLdouble;
Slices : GLint;
Stacks : GLint);
procedure glutWireTorus(
innerRadius : GLdouble;
outerRadius :GLdouble;
nsides : GLint;
rings : GLint);
procedure glutSolidTorus(
innerRadius : GLdouble;
outerRadius :GLdouble;
nsides : GLint;
rings : GLint);
procedure glutWireDodecahedron;
procedure glutSolidDodecahedron;
procedure Octaheadron(ShadeType : GLenum);
procedure glutWireOctaheadron;
procedure glutSolidOctaheadron;
procedure Icosahedron(ShadeType : GLenum);
procedure glutWireIcosahedron;
procedure glutSolidIcosahedron;
procedure Tetrahedron(ShadeType : GLenum);
procedure glutWireTetrahedron;
procedure glutSolidTetrahedron;

{ Teapot stuff }
procedure Teapot(Grid : GLint; Scale : GLdouble; ShadeType : GLenum);
procedure glutWireTeapot(Scale : GLdouble);
procedure glutSolidTeapot(Scale : GLdouble);
{ Generally useful stuff }
procedure Diff3(a0, a1, a2, b0, b1, b2 : GLfloat; var c : array of GLfloat);
procedure CrossProd(v1, v2 : array of GLfloat; var prod : array of GLfloat);
procedure Normalize(var v : array of GLfloat);
var
quadObj : GLUquadricObj;
dodec : array[0..19, 0..2] of GLfloat;

aux开头的函数应该是opengl下的辅助函数,
主要是为c环境下的编程用的,
Windwos下应该用另外一套windows函数,
具体忘了.

程序员大本营的一个opengl例子有

时间太久，强制结束。 wjiachun