OpenGL 最初是由 Silicon 图形公司开发的底层图形库规范。你的系统中准确实现这个规范的部分 ， 通常被称为 OpenGL 驱动 ， 它允许你使用几何集合 (点 ， 线 ， 多边形 ， 图像等等) 来描述你希望表现的场景。让肉眼观察起来较为舒适的中等规模场景 ， 通常在毫秒级的速度上实现 ， 这意味着该库文件有足够的能力来支持你创建一个生机勃勃的虚拟世界。 这意味着该库文件有足够的能力来支持你创建一个生机勃勃的虚拟世界。
OpenGL 驱动一般以二进制库文件的形式提供。它能够动态的连接到你的程序中。在 Windows 平台上 ， 它将是成为 dll 的形式（在你的系统目录下检查 opengl.dll ）。自从 Delphi 能够使用任何 dll 开始 ， 它对 OpenGL 3D 编程的能力就像其他任何语言一样容易了。本文将帮助你获得在 Delphi 中进行 OpenGL 开发的有效知识。
数学基础
OpenGL 拥有强大的数学基础 ， 因此对它功能的限制完全取决于你的想象能力 (译者注 ： 没有做不到 ， 只有想不到) 。对于理解那些公理和引理 ， 更好的是让我们立刻认识一个简单的 3d 坐标系统 ， 它是 3d 编程中惯用的坐标系统。如下 ：
你应该如何理解你的屏幕 (蓝色的方块) 在场景中的放置位置呢？发出四条射线并形成屏幕的那个点 ， 是该想象空间中的视点 (Sichtweise) 。opengl 让你调用两个简单的函数来定义这个场景
GLMATRIXMODE (GL_PROJECTION);
Glfrustum (-0,1, 0,1, -0,1, 0,1, 0,3, 25,0);
在这个调用的过程中的 -0,1,0,1, -0,1,0,1 定义了这个可视屏幕的左上角和右下角坐标； 0,3 指定视点到屏幕的距离 (就好象 „近剪贴板“ (in der Nähe von Clipping-Ebene )) 同时 25.0 指定 „远剪贴板“ (Fernausschnittebene) 。任何近剪贴板前面的物体以及远剪贴板后面的物体都将不可见。当然 ， 你能够任意摆弄这些数字 ， 以使他们适合你需要 以使他们适合你需要的场景。
从基本元素 (primitiv) 到对象
现在开始最有意思的部分 ： 对象。opengl 仅仅支持以下几种基本几何图形 ： 点 ， 线和多边形。没有表面或者更高级的图形 (比如球状图形) 能被作为基本图形元素绘制。但是它们能够用多边形完美的模仿出来。随意看看现代 3d 游戏 ， 你会发现它们完全由三角形建立。因此 ， 我们不会被此限制所约束。 我们不会被此限制所约束。 我们不会被此限制所约束。
对象的绘制非常类似 Pascal 语言编程。每个块都应该被 Beginn-End 包含着 更为确切的说是 更为确切的说是 glbegin () 和 glend () 。如同下面的例子 ：
const s = 1,0; D = 5,0;
...
glbegin (GL_TRIANGLES);
Glvertex3f (-s, 0, d); Glvertex3f (s, 0, d); Glvertex3f (0, s, d);
Blick;
这是个简单的三角形。它距离你的视点有 5 个单位 ， 自身高 1 个单位 ， 宽 2 个单位。
这是屏幕截图 ：
即使它看起来不象 3d 图形 ， 但它是我们的初始块。在下面你可以看到这个例子的源代码。 但它是我们的初始块。在下面你可以看到这个例子的源代码。
在你开始钻研代码前 ， 还有些话要说。每次 OpenGL 编程 ， 都包含一些初始化输出设备的 OS 设定 (OS-spezifisch) 代码。如果你使用 Win32 ， 你将需要设置像素格式以及建立显示上下文环境脱离 Windows 设备上下文环境。如果 Windows 系统级编程你并不很在行 ， 你可以把如下的代码作为模版使用。Formcreate 中被调用函数的详细信息可以参考帮助文档。
Datei: tri.pas
Einheit Tri;
Schnittstelle
Verwendung
OpenGL, Windows, Nachrichten, Systeme, Klassen, Grafiken, Steuerelemente, Formulare, Dialoge,
Stdctrls, extctrls, comctrls;
Typ
Tform1 = Klasse (tform)
Prozedur Formcreate (Absender: Tobject);
Verfahrensformung (Absender: Tobject);
Privat
Verfahrensabzug; // zeichnet eine OpenGL -Szene auf Anfrage
öffentlich
Ende;
var
Form1: tform1;
Durchführung
{$ R *.dfm}
Prozedur SetUppixelFormat (DC: HDC);
Const
PFD: tpixelformatDescriptor = ((
NSIZE: sizeof (tpixelformatDescriptor); // Größe
Nversion: 1; // Version
dwflags: pfd_support_opengl oder pfd_draw_to_window oder
PFD_DoubleBuffer; // DOUBLE-BUFFEN VORBEHALTEN
IpixELTYPE: PFD_TYPE_RGBA; // Farbtyp
ccolorbits: 24; // bevorzugte Farbtiefe
Credbits: 0; Credhift: 0; // Farbbits (ignoriert)
cgreenbits: 0; cgreenshift: 0;
CBLUEBITS: 0; CBLUESHIFT: 0;
Calphabits: 0; Calphashift: 0; // Kein Alpha -Puffer
Caccumbits: 0;
Caccumredbits: 0; // kein Akkumulationspuffer,
caccumgreenbits: 0; // Akkumbits (ignoriert)
caccumbluebits: 0;
Caccumalphabits: 0;
CDEPTHBITS: 16; // Tiefenpuffer
cellencilbits: 0; // kein Schablonenpuffer
CauxBuffer: 0; // keine Hilfspuffer
IlayerType: Pfd_main_plane; // Hauptschicht
breserviert: 0;
dwlayermask: 0;
dwvisiblemask: 0;
dwdamagemask: 0; // Keine Schicht, sichtbare, Schadensmasken
);
var pixelformat: Ganzzahl;
beginnen
pixelformat: = choosepixelformat (dc, @PFD);
if (pixelformat = 0) dann
Ausfahrt;
if (setpixelformat (dc, pixelformat, @PFD) <> true) Dann
Ausfahrt;
Ende;
Verfahren Glinit;
beginnen
// Anzeigenprojektion festlegen
GLMATRIXMODE (GL_PROJECTION);
Glfrustum (-0,1, 0,1, -0,1, 0,1, 0,3, 25,0);
// Zuschauer positionieren
GLMATRIXMODE (GL_MODELVIEW);
Glenable (GL_Depth_test);
Ende;
procedure tform1.formcreate (Absender: tobject);
var dc: hdc;
RC: HGLRC;
I: Ganzzahl;
beginnen
DC: = getdc (Handle); // Tatsächlich können Sie hier jede Fenstersteuerung verwenden
SetUppixelformat (DC);
RC: = wGlreateContext (DC); // macht OpenGL -Fenster aus DC
WGLMakeCurrent (DC, RC); // Das OpenGL -Fenster aktiv macht
Glinit; // OpenGL initialisieren
Ende;
Prozedur tform1.Draw;
const s = 1,0; D = 5,0;
beginnen
glclear (GL_COLOR_BUFFER_BIT oder GL_DEPTH_BUFFER_BIT);
Gladidentität;
Gltranslatef (0,0, 0,0, -12,0);
glbegin (GL_TRIANGLES);
Glvertex3f (-s, 0, d); Glvertex3f (s, 0, d); Glvertex3f (0, s, d);
Blick;
Swapbuffer (WGLGetCurrentDC);
Ende;
procedure tform1.formpaint (Absender: tobject);
beginnen
Ziehen;
Ende;
Ende.
Datei: Tri.dfm
Objektform1: tform1
BORDERSYLE = BSDIALOG
Caption = 'grundlegendes OpenGL -Programm' '
ClientHeight = 318
Clientwidth = 373
OnCreate = FormCreate
OnPaint = formPaint
Ende
3d 历险
好了 ， 让我们开始真正的 3d 吧。将先前的代码作为框架 ， 我们增加一些画线的代码建立一个带阴影面的四面体。应该如何用基本图形元素来构建呢？我们使用四个三角形。 我们增加一些画线的代码建立一个带阴影面的四面体。应该如何用基本图形元素来构建呢？我们使用四个三角形。一个在底部 ， 另外三个作为侧面。这里就是生成他们的代码 ：
Prozedur tform1.Draw;
const d = 1,5;
H1 = D/1,732;
H2 = D*1,732-H1; // d/h = tg (30) = 1/sqrt (3)
Hy = 3,0;
const // Scheitelpunkte
A1: Tglarrayf3 = ( -D, 0, -h1); // Bootom übrig
A2: Tglarrayf3 = (d, 0, -h1); // Bootom richtig
A3: Tglarrayf3 = (0, 0, H2); // Bootom zurück
A4: Tglarrayf3 = (0, Hy, 0); //Spitze
beginnen
glclear (GL_COLOR_BUFFER_BIT oder GL_DEPTH_BUFFER_BIT);
Gladidentität;
Gltranslatef (0,0, 0,0, -12,0);
glbegin (GL_TRIANGLES);
Glvertex3fv (@a1); Glvertex3fv (@A3); Glvertex3fv (@A2);
Glvertex3fv (@a1); Glvertex3fv (@A2); Glvertex3fv (@A4);
Glvertex3fv (@A2); Glvertex3fv (@A3); Glvertex3fv (@A4);
Glvertex3fv (@A3); Glvertex3fv (@a1); Glvertex3fv (@A4);
Blick;
Swapbuffer (WGLGetCurrentDC);
Ende;
虽然看起来有点复杂 ， 不过当你面对下面这张图时 ， 它就很容易理解了。 它就很容易理解了。
我们定义顶点 A1 - A4 同时依据 4 个顶点位置建立指定的三角形。当你定义自己的三角形 (或者其他的多边形) ， 请使用如下的规则 ： 始终按照逆时针顺序排列定点序号 ， 就像你正在外部 就像你正在外部观看侧面一样。通过这个规则 ， 我们可以指定指定 a1-a2-a4 ， a1-a3-a2 (仰视) ， a2-a3-a4 和 a3-a1-a4。
现在就替换 tri.pas 中 tform1.darw () 部分 ， 程序运行的效果不会体现出过多的变化。它看起来仍然不象三维图形。这是因为我们还没有设定任何光源。 程序运行的效果不会体现出过多的变化。它看起来仍然不象三维图形。这是因为我们还没有设定任何光源。 程序运行的效果不会体现出过多的变化。它看起来仍然不象三维图形。这是因为我们还没有设定任何光源。
Lichter! KAMERA! OpenGL!
在 opengl 中光源模式有两部分 ： 光源自身（颜色 ， 强度等等）和对象材质。材质 ， 依次包括颜色 ， 一些物理参数 (比如不透明性光泽性) 以及纹理。深入其中 ， 这会是一个巨大的 这会是一个巨大的世界 ， 我们将一步步地接近。 我们将一步步地接近。
定义一个光源相当容易。
Verfahren Glinit;
Const
Light0_Position: Tglarrayf4 = (-8,0, 8.0, -16,0, 0,0);
Ambient: Tglarrayf4 = (0,3, 0,3, 0,3, 0,3);
beginnen
// Anzeigenprojektion festlegen
GLMATRIXMODE (GL_PROJECTION);
Glfrustum (-0,1, 0,1, -0,1, 0,1, 0,3, 25,0);
// Zuschauer positionieren */
GLMATRIXMODE (GL_MODELVIEW);
Glenable (GL_Depth_test);
// Lichter einstellen
glenable (gl_Lighting);
Glightfv (GL_LIGHT0, GL_POSION, @Light0_Position);
Glightfv (GL_LIGHT0, GL_AMBIENT, @AMBIENT);
Glenable (GL_ILLIGE0);
Ende;
代码内的两个常量是必须的。一个定义光源位置 (位于视点的后面的左上角) ， 另外一个定义环境光线。这将产生少量的散乱光线 ， 使你能够看到完全位于阴影中的某些 使你能够看到完全位于阴影中的某些物体。
虽然你可以使用光照设定光源 ， 可是物体仍然没有绘制阴影。这是因为 OpenGL 需要知道你指定的每个多边形的 „Normal“ 以便进行光线计算 (Normal 是一个与表面正交的向量) 。如果你没有自己的向量函数库 ， 可以使用以下方法计算三角形中三个顶点的 normal 。这个函数是以定点逆时针排列为基础的 ， 因为 normal 是一个向量的叉积 ， 如果你不遵守该规则 ， 会使向量指向四面体内部。
Funktion getNormal (p1, p2, p3: tglarrayf3): tglarrayf3;
var a, b: tglarrayf3;
beginnen
// zwei Vektoren machen
a [0]: = p2 [0] -p1 [0]; a [1]: = p2 [1] -p1 [1]; a [2]: = p2 [2] -p1 [2];
B [0]: = P3 [0] -p1 [0]; B [1]: = P3 [1] -p1 [1]; B [2]: = p3 [2] -p1 [2];
// Querprodukt berechnen
Ergebnis [0]: = A [1]*B [2] -a [2]*B [1];
Ergebnis [1]: = A [2]*B [0] -a [0]*B [2];
Ergebnis [2]: = A [0]*B [1] -a [1]*B [0];
Ende;
使用这个函数 ， 就可以设定所有的计算光线必需的信息了 ：
Prozedur tform1.Draw;
const d = 1,5;
H1 = D/1,732;
H2 = D*1,732-H1; // d/h = tg (30) = 1/sqrt (3)
Hy = 3,0;
const // Scheitelpunkte
A1: Tglarrayf3 = ( -D, 0, -h1);
A2: Tglarrayf3 = (d, 0, -h1);
A3: Tglarrayf3 = (0, 0, H2);
A4: Tglarrayf3 = (0, Hy, 0);
var n1, n2, n3, n4: tglarrayf3; // Normalen
beginnen
N1: = GetNormal (A1, A3, A2);
N2: = GetNormal (A1, A2, A4);
N3: = GetNormal (A2, A3, A4);
N4: = GetNormal (A3, A1, A4);
glclear (GL_COLOR_BUFFER_BIT oder GL_DEPTH_BUFFER_BIT);
glenable (gl_Normalize);
GLSHADEMODEL (GL_FLAT);
glcullface (gl_back);
Gladidentität;
Gltranslatef (0,0, 0,0, -12,0);
glbegin (GL_TRIANGLES);
glnormal3fv (@n1);
Glvertex3fv (@a1); Glvertex3fv (@A2); Glvertex3fv (@A3);
Glnormal3FV (@N2);
Glvertex3fv (@a1); Glvertex3fv (@A2); Glvertex3fv (@A4);
Glnormal3FV (@n3);
Glvertex3fv (@A2); Glvertex3fv (@A3); Glvertex3fv (@A4);
glnormal3fv (@n4);
Glvertex3fv (@A3); Glvertex3fv (@a1); Glvertex3fv (@A4);
Blick;
Swapbuffer (WGLGetCurrentDC);
Ende;
这便是以上代码的效果 ：
现在 ， 使用一点 Delphi vcl 提供的的东西。在窗体上放一个 Timer ， 指定一个类成员 "Winkel: Single" 并在每次 Timer 触发时让他增加 1:
procedure tform1.timer1timer (Absender: tobject);
beginnen
Winkel: = Winkel+1,0;
Ziehen;
Ende;
离一个充满生气的 OpenGL 仅差条线 ：
GLROTATEF (Winkel 0,0, 1,0, 0,0);
把它放在 glbegin () 内三角开始绘制前的位置上 ， 这样你的阴影部分就可以旋转了 ， 至此 ， 一切结束。 一切结束。