昨天有朋友要我上两片文章，呵呵。我顺手将我年初翻译的文章贴上来，如果各位可以接受，我以后还会继续的。
原文地址：
http://bdn.borland.com/article/0,1410,26401,00.html
概要：这篇文章犹如循序渐进教人做菜的食谱，使Delphi开发者获得OpenGL 3D 图形编程的有效知识。
作者：Alex Semichastny
OpenGL最初是由Silicon图形公司开发的底层图形库规范。你的系统中准确实现这个规范的部分，通常被称为OpenGL驱动，它允许你使用几何集合(点，线，多边形，图像等等)来描述你希望表现的场景。让肉眼观察起来较为舒适的中等规模场景，通常在毫秒级的速度上实现，这意味着该库文件有足够的能力来支持你创建一个生机勃勃的虚拟世界。
OpenGL驱动一般以二进制库文件的形式提供。它能够动态的连接到你的程序中。在Windows平台上，它将是成为DLL的形式（在你的系统目录下检查opengl.dll）。自从Delphi能够使用任何DLL开始，它对OpenGL 3D编程的能力就像其他任何语言一样容易了。本文将帮助你获得在Delphi中进行OpenGL开发的有效知识。
数学基础
OpenGL拥有强大的数学基础，因此对它功能的限制完全取决于你的想象能力(译者注：没有做不到，只有想不到)。对于理解那些公理和引理，更好的是让我们立刻认识一个简单的3D坐标系统，它是3D编程中惯用的坐标系统。如下：
你应该如何理解你的屏幕(蓝色的方块)在场景中的放置位置呢？发出四条射线并形成屏幕的那个点，是该想象空间中的视点(point of view)。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指定视点到屏幕的距离(就好象“近剪贴板”(near clipping plane))同时25.0指定“远剪贴板”(far clipping plane)。任何近剪贴板前面的物体以及远剪贴板后面的物体都将不可见。当然，你能够任意摆弄这些数字，以使他们适合你需要的场景。
从基本元素(primitive)到对象
现在开始最有意思的部分：对象。OpenGL仅仅支持以下几种基本几何图形：点，线和多边形。没有表面或者更高级的图形(比如球状图形)能被作为基本图形元素绘制。但是它们能够用多边形完美的模仿出来。随意看看现代3D游戏，你会发现它们完全由三角形建立。因此，我们不会被此限制所约束。
对象的绘制非常类似Pascal语言编程。每个块都应该被begin-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);
glEnd;
这是个简单的三角形。它距离你的视点有5个单位，自身高1个单位，宽2个单位。
这是屏幕截图：
即使它看起来不象3D图形，但它是我们的初始块。在下面你可以看到这个例子的源代码。
在你开始钻研代码前，还有些话要说。每次OpenGL编程，都包含一些初始化输出设备的OS设定(OS-specific)代码。如果你使用Win32，你将需要设置像素格式以及建立显示上下文环境脱离windows设备上下文环境。如果windows系统级编程你并不很在行，你可以把如下的代码作为模版使用。FormCreate中被调用函数的详细信息可以参考帮助文档。
file: Tri.pas
unit Tri;
interface
uses
OpenGL, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, ComCtrls;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
private
procedure Draw; //Draws an OpenGL scene on request
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure setupPixelFormat(DC:HDC);
const
pfd:TPIXELFORMATDESCRIPTOR = (
nSize:sizeof(TPIXELFORMATDESCRIPTOR); //
