NeHe的opengl教程delphi版(5)----3D_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

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

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

3f(-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;

运行一下看看效果