转至繁体中文版     | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告:     敏韬网|教学资源学习资料永久免费分享站!  [mintao  2008年9月2日]        
您现在的位置: 学习笔记 >> 图文教程 >> 软件开发 >> Delphi程序 >> 正文
NeHe的opengl教程delphi版(5)----3D         ★★★★

NeHe的opengl教程delphi版(5)----3D

作者:闵涛 文章来源:闵涛的学习笔记 点击数:1314 更新时间:2009/4/23 18:37:47

在上节的内容上作些扩展,现在开始生成真正的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);            // 颜色改成蓝色
   glVertex

[1] [2]  下一页


[系统软件]InstallShield Express for delphi制作安装程序定…  [常用软件]InstallShield Express制作Delphi数据库安装程序
[Delphi程序]为什么选择Delphi.Net ?  [Delphi程序]《关于VisiBroker For Delphi的使用》(4)
[Delphi程序]Delphi 程序员代码编写标准指南  [Delphi程序]转贴:Conversion to Delphi 6: Missing unit Pro…
[Delphi程序]Borland Delphi 9 的新特性  [Delphi程序]Delphi 键盘码表
[Delphi程序]Chuck Jazdzewski的离开意味着Delphi的终结吗?  [Delphi程序]Delphi Access violations 问题的解决之道
教程录入:mintao    责任编辑:mintao 
  • 上一篇教程:

  • 下一篇教程:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
      注:本站部分文章源于互联网,版权归原作者所有!如有侵权,请原作者与本站联系,本站将立即删除! 本站文章除特别注明外均可转载,但需注明出处! [MinTao学以致用网]
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)

    同类栏目
    · C语言系列  · VB.NET程序
    · JAVA开发  · Delphi程序
    · 脚本语言
    更多内容
    热门推荐 更多内容
  • 没有教程
  • 赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题,因而无法显示。

    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长:MinTao ICP备案号:鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网A打造BCD……
    咸宁网络警察报警平台