基于VB6+OpenGL的三维数据建模实例

最新推荐文章于 2021-03-20 12:51:21 发布

daode1212

最新推荐文章于 2021-03-20 12:51:21 发布

阅读量2.9k

点赞数 3

本文链接：https://blog.csdn.net/daode1212/article/details/44015383

版权

本文介绍如何使用OpenGL在VB6环境中创建三维数据模型，通过绘制连续的彩色四边形来构建三维极坐标图形。内容涉及到坐标设置、颜色分配、对象缩放、线宽和点大小的调整，以及法向量和线的绘制，展示了OpenGL在可视化方面的应用。

摘要由CSDN通过智能技术生成

'画n片四边形组成连续的彩色体(三维极坐标):
Dim vx(0 To 3), vy(0 To 3), vz(0 To 3) '四顶点坐标
Dim ad(0 To 3), bd(0 To 3) '四顶点因子
ad(0) = 0: ad(1) = 1: ad(2) = 1: ad(3) = 0:
bd(0) = 0: bd(1) = 0: bd(2) = 1: bd(3) = 1:
gluLookAt 0, 0, 0.005, 0, 0, 0, 1, 0, 1 '视角(眼睛,中心,顶点)
glScalef 0.35, 0.35, 0.35 '对象缩放
Dim x, y, z1, z2, dlt, v As Single
dlt = 0.25
glLineWidth 0 '线粗
glPointSize 0 '点大小
glPushName 6
For bk = -3.2 To 3.2 Step dlt
For ak = -3.2 To 3.2 Step dlt

glBegin GL.GL_QUADS
For i = 0 To 3
av = ak + ad(i) * dlt: bv = bk + bd(i) * dlt
glColor3f (1 - Sin(bv)) / 2, (1 - Sin(av Xor bv)) / 2, (1 + Sin(bv)) / 2 ' 设置当前色