openGL教程delphi版(5)—-3D

在上节的内容上作些扩展,现在开始生成真正的3D对象,而不是象前两节中那样3D世界中的2D对象。我们给三角形增加一个左侧面,一个右侧面,一个后侧面来生成一个金字塔(四棱锥)。给正方形增加左、右、上、下及背面生成一个立方体。

我们混合金字塔上的颜色,创建一个平滑着色的对象。给立方体的每一面则来个不同的颜色。

Procedure glDraw();
Begin
   glClear(GL_COLOR_BUFFER_BIT Or GL_DEPTH_BUFFER_BIT); // 清除屏幕和深度缓存
   glLoadIdentity();                    // 重置当前的模型观察矩阵

   glTranslatef(-1.5, 0.0, -6.0);       // 左移 1.5 单位,并移入屏幕 6.0

   glRotatef(rtri, 0.0, 1.0, 0.0);      // 绕Y轴旋转三角形

   //下面的代码没有变化。在屏幕的左面画了一个彩色渐变三角形,并绕着Y轴从左向右旋转
   glBegin(GL_TRIANGLES);               // 绘制三角

{

有些人可能早已在上节课中的代码上尝试自行创建3D对象了。但经常有人来信问我:"我的对象怎么不会绕着其自身的轴旋转?看起来总是在满屏乱转。"要让您的对象绕自身的轴旋转,您必须让对象的中心坐标总是(0.0f,0,0f,0,0f)。
下面的代码创建一个绕者其中心轴旋转的金字塔。金字塔的上顶点离中心一个单位,底面离中心也是一个单位。上顶点在底面的投影位于底面的中心。

注意所有的面-三角形都是逆时针次序绘制的。这点十分重要,在以后的课程中我会作出解释。现在,您只需明白要么都逆时针,要么都顺时针,但永远不要将两种次序混在一起,除非您有足够的理由必须这么做。

我们开始画金字塔的前侧面。因为所有的面都共享上顶点,我们将这点在所有的三角形中都设置为红色。底边上的两个顶点的颜色则是互斥的。前侧面的左下顶点是绿色的,右下顶点是蓝色的。这样相邻右侧面的左下顶点是蓝色的,右下顶点是绿色的。这样四边形的底面上的点的颜色都是间隔排列的。

}

   glColor3f(1.0, 0.0, 0.0);            // 红色
   glVertex3f(0.0, 1.0, 0.0);           // 三角形的上顶点 (前侧面)
   glColor3f(0.0, 1.0, 0.0);            // 绿色
   glVertex3f(-1.0, -1.0, 1.0);         // 三角形的左下顶点 (前侧面)
   glColor3f(0.0, 0.0, 1.0);            // 蓝色
   glVertex3f(1.0, -1.0, 1.0);          // 三角形的右下顶点 (前侧面)

{

现在绘制右侧面。注意其底边上的两个顶点的X坐标位于中心右侧的一个单位处。顶点则位于Y轴上的一单位处,且Z坐标正好处于底边的两顶点的Z坐标中心。右侧面从上顶点开始向外侧倾斜至底边上。
这次的左下顶点用蓝色绘制,以保持与前侧面的右下顶点的一致。蓝色将从这个角向金字塔的前侧面和右侧面扩展并与其他颜色混合。
还应注意到后面的三个侧面和前侧面处于同一个glBegin(GL_TRIANGLES) 和 glEnd()语句中间。因为我们是通过三角形来构造这个金字塔的。OpenGL知道每三个点构成一个三角形。当它画完一个三角形之后,如果还有余下的点出现,它就以为新的三角形要开始绘制了。OpenGL在这里并不会将四点画成一个四边形,而是假定新的三角形开始了。所以千万不要无意中增加任何多余的点。

}

   glColor3f(1.0, 0.0, 0.0);            // 红色
   glVertex3f(0.0, 1.0, 0.0);           // 三角形的上顶点 (右侧面)
   glColor3f(0.0, 0.0, 1.0);            // 蓝色
   glVertex3f(1.0, -1.0, 1.0);          // 三角形的左下顶点 (右侧面)
   glColor3f(0.0, 1.0, 0.0);            // 绿色
   glVertex3f(1.0, -1.0, -1.0);         // 三角形的右下顶点 (右侧面)

{现在是后侧面。再次切换颜色。左下顶点又回到绿色,因为后侧面与右侧面共享这个角。}

 glColor3f(1.0, 0.0, 0.0);            // 红色
   glVertex3f(0.0, 1.0, 0.0);           // 三角形的上顶点 (后侧面)
   glColor3f(0.0, 1.0, 0.0);            // 绿色
   glVertex3f(1.0, -1.0, -1.0);         // 三角形的左下顶点 (后侧面)
   glColor3f(0.0, 0.0, 1.0);            // 蓝色
   glVertex3f(-1.0, -1.0, -1.0);        // 三角形的右下顶点 (后侧面)

{最后画左侧面。又要切换颜色。左下顶点是蓝色,与后侧面的右下顶点相同。右下顶点是蓝色,与前侧面的左下顶点相同。
到这里金字塔就画完了}

   glColor3f(1.0, 0.0, 0.0);            // 红色
   glVertex3f(0.0, 1.0, 0.0);           // 三角形的上顶点 (左侧面)
   glColor3f(0.0, 0.0, 1.0);            // 蓝色
   glVertex3f(-1.0, -1.0, -1.0);        // 三角形的左下顶点 (左侧面)
   glColor3f(0.0, 1.0, 0.0);            // 绿色
   glVertex3f(-1.0, -1.0, 1.0);         // 三角形的右下顶点 (左侧面)
   glEnd();                             //金字塔绘制结束

{因为金字塔只绕着Y轴旋转,我们永远都看不见底面,因而没有必要添加底面。您觉得有经验了,尝试增加底面(正方形),并将金字塔绕X轴旋转来看看您是否作对了。确保底面四个顶点的颜色与侧面的颜色相匹配。}

{译者:这是我自己加的底面}

  glBegin(GL_QUADS);                   // 绘制底面
   glColor3f(0.6, 0.2, 2.0);            //设置当前色为紫色
   glColor3f(0.0, 1.0, 0.0);            // 绿色
   glVertex3f(-1.0, -1.0, 1.0);         // 左上
   glColor3f(0.0, 0.0, 1.0);            // 蓝色
   glVertex3f(1.0, -1.0, 1.0);          // 右上
   glColor3f(0.0, 1.0, 0.0);            // 绿色
   glVertex3f(1.0, -1.0, -1.0);         // 左下
   glColor3f(0.0, 0.0, 1.0);            // 蓝色
   glVertex3f(-1.0, -1.0, -1.0);        // 右下
   glEnd();                             // 正方形绘制结束

   glLoadIdentity();                    // 重置模型观察矩阵
   glTranslatef(1.5, 0.0, -6.0);        // 右移1.5单位,并移入屏幕 6.0
   glRotatef(rquad, 1.0, 1.0, 1.0);     // 绕X轴旋转四边形 ( 新增 )

{

接下来开始画立方体。他由六个四边形组成。所有的四边形都以逆时针次序绘制。就是说先画右上角,然后左上角、左下角、最后右下角。您也许认为画立方体的背面的时候这个次序看起来好像顺时针,但别忘了我们从立方体的背后看背面的时候,与您现在所想的正好相反。(译者注:您是从立方体的外面来观察立方体的)。
注意到这次我们将立方体移地更远离屏幕了。因为立方体的大小要比金字塔大,同样移入6个单位时,立方体看起来要大的多。这是透视的缘故。越远的对象看起来越小 :)

}

   glBegin(GL_QUADS);                   // 绘制正方形

{

先画立方体的顶面。从中心上移一单位,注意Y坐标始终为一单位,表示这个四边形与Z轴平行。先画右上顶点,向右一单位,再屏幕向里一单位。然后左上顶点,向左一单位,再屏幕向里一单位。然后是靠近观察者的左下和右下顶点。就是屏幕往外一单位。

}
   glColor3f(0.0, 1.0, 0.0);            // 颜色改为蓝色
   glVertex3f(1.0, 1.0, -1.0);          // 四边形的右上顶点 (顶面)
   glVertex3f(-1.0, 1.0, -1.0);         // 四边形的左上顶点 (顶面)
   glVertex3f(-1.0, 1.0, 1.0);          // 四边形的左下顶点 (顶面)
   glVertex3f(1.0, 1.0, 1.0);           // 四边形的右下顶点 (顶面)

{

底面的画法和顶面十分类似。只是Y坐标变成了-1。如果我们从立方体的下面来看立方体的话,您会注意到右上角离观察者最近,因此我们先画离观察者最近的顶点。然后是左上顶点最后才是屏幕里面的左下和右下顶点。

如果您真的不在乎绘制多边形的次序(顺时针或者逆时针)的话,您可以直接拷贝顶面的代码,将Y坐标从1改成 -1,也能够工作。但一旦您进入象纹理映射这样的领域时,忽略绘制次序会导致十分怪异的结果。

}

   glColor3f(1.0, 0.5, 0.0);            // 颜色改成橙色
   glVertex3f(1.0, -1.0, 1.0);          // 四边形的右上顶点(底面)
   glVertex3f(-1.0, -1.0, 1.0);         // 四边形的左上顶点(底面)
   glVertex3f(-1.0, -1.0, -1.0);        // 四边形的左下顶点(底面)
   glVertex3f(1.0, -1.0, -1.0);         // 四边形的右下顶点(底面)

{

接着画立方体的前面。保持Z坐标为一单位,前面正对着我们。

}

   glColor3f(1.0, 0.0, 0.0);            // 颜色改成红色
   glVertex3f(1.0, 1.0, 1.0);           // 四边形的右上顶点(前面)
   glVertex3f(-1.0, 1.0, 1.0);          // 四边形的左上顶点(前面)
   glVertex3f(-1.0, -1.0, 1.0);         // 四边形的左下顶点(前面)
   glVertex3f(1.0, -1.0, 1.0);          // 四边形的右下顶点(前面)

{

立方体后面的绘制方法与前面类似。只是位于屏幕的里面。注意Z坐标现在保持 -1 不变。

}

   glColor3f(1.0, 1.0, 0.0);            // 颜色改成黄色
   glVertex3f(1.0, -1.0, -1.0);         // 四边形的右上顶点(后面)
   glVertex3f(-1.0, -1.0, -1.0);        // 四边形的左上顶点(后面)
   glVertex3f(-1.0, 1.0, -1.0);         // 四边形的左下顶点(后面)
   glVertex3f(1.0, 1.0, -1.0);          // 四边形的右下顶点(后面)

{

还剩两个面就完成了。您会注意到总有一个坐标保持不变。这一次换成了X坐标。因为我们在画左侧面。

}

   glColor3f(0.0, 0.0, 1.0);            // 颜色改成蓝色
   glVertex3f(-1.0, 1.0, 1.0);          // 四边形的右上顶点(左面)
   glVertex3f(-1.0, 1.0, -1.0);         // 四边形的左上顶点(左面)
   glVertex3f(-1.0, -1.0, -1.0);        // 四边形的左下顶点(左面)
   glVertex3f(-1.0, -1.0, 1.0);         // 四边形的右下顶点(左面)

{

立方体的最后一个面了。X坐标保持为一单位。逆时针绘制。您愿意的话,留着这个面不画也可以,这样就是一个盒子:)

或者您要是有兴趣可以改变立方体所有顶点的色彩值,象金字塔那样混合颜色。您会看见一个非常漂亮的彩色立方体,各种颜色在它的各个表面流淌。

}

   glColor3f(1.0, 0.0, 1.0);            // 颜色改成紫罗兰色
   glVertex3f(1.0, 1.0, -1.0);          // 四边形的右上顶点(右面)
   glVertex3f(1.0, 1.0, 1.0);           // 四边形的左上顶点(右面)
   glVertex3f(1.0, -1.0, 1.0);          // 四边形的左下顶点(右面)
   glVertex3f(1.0, -1.0, -1.0);         // 四边形的右下顶点(右面)

   glEnd();                             // 正方形绘制结束

   rtri := rtri + 0.2;                  // 增加三角形的旋转变量
   rquad := rquad - 0.15;               // 减少四边形的旋转变量

End;

运行一下看看效果