2024年5月11日发(作者：)

２０１０年海南省机械工程学会

Ⅱ－４５

ＶＢ环境下ＯｐｅｎＧＬ编程初探

杨亮曹阳

（海南优势资源化工材料应用技术教育部重点实验室，硅锆钛资源综合开发与利用

海南省重点实验室，海南大学材料与化工学院，海南海口５７０２２８）

摘要：

ＯｐｅｎＧＬ是一种被广泛使用的三维图形与模型库，通常由Ｃ语言所开发。在种情况下，重

点讲述了ＶＢ中实现ＯｐｅｎＧＬ图形开发的基本原理和具体实现方法，并针对ＯｐｅｎＧＬ的像素格式、模型

变换、光照、材质、纹理、位图操作、平移、旋转、绘制几何图形等基本操作都作了细致的描述，

旨在将ＶＢ的应用拓展到三维图像处理领域，提高Ｏｐｎｅｇｌ编程效率和开发周期，结合两者的长处开发

出优秀的软件。

关键词：

ＶＢＯｐｅｎＧＬ三维ＡＰＩ

１引言

ＯｐｅｎＧｒａｐｈｉｃｓＬｉｂｒａｒｙ（开放性图形库）缩写

为ＯｐｅｎＧＬ，是一套三维图形处理库，也是该领

域的工业标准。ＯｐｅｎＧＬ被设计成独立于硬件，

独立于窗口系统，在运行各种操作系统的计算

机上都可用，并能在网络环境下以客户／服务器

模式工作，是专业图形处理、科学计算等高端

应用领域的标准图形库，主要应用方向包括飞

行训练、分子结构、研究、影视广告、ＣＡＤ／

ＣＡＭ／ＣＡＥ、游戏娱乐、医学成像、计算机动

画制作和虚拟现实等。特别是Ｋｉｎｅｔｉｘ公司

的３ＤＳｔｕｄｉｏＭａｘ就是其应用的突出的代表。

ＯｐｅｎＧＬ是一组绘图命令的ＡＰＩ集合，利用

这些ＡＰＩ能够方便地描述二维和三维几何物体，

ＯｐｅｎＧＬ的ＡＰＩ集还提供了几何描述和图像图元、

显示列表、模型变换、反走样、物体、平移、

旋转、缩放、光照、纹理、材质、像素、位图、

文字、交互以及提高显示性能等方面的功能。

但是，ＯｐｅｎＧＬ是一个包含１２０多个图形函数组

成的图形库，不包括任何窗口管理、用户交

互或文件Ｉ／Ｏ函数，使得ＯｐｅｎＧＬ丧失了处

理窗口、用户输入命令的能力和缺乏面向对象

能力，不符合当前流行的软件设计思想。所以

必须在一定的语言环境中才能实现对ＯｐｅｎＧＬ函

数的引用，最早使用ＯｐｅｎＧＬ的编程语言是Ｃ语

［２］

［１］

言，随后又采用了Ｃ＋＋或ＶＣ＋＋，对于其它

语言环境下利用ＯｐｅｎＧＬ图形函数开发图形应用

程序却较少有人研究，其他语言环境下ＯｐｅｎＧＬ

编程方面的资料收集相对困难，这样更限制了

ＯｐｅｎＧＬ在其他高级语言中的应用。

Ｖｂ是目前使用最广泛的编程语言，拥有数

目巨大的使用者。在ＶＢ编程环境下对ＯｐｅｎＧＬ引

用来开发应用程序的研究较少，这对众多的ＶＢ

使用者来说是一种巨大的损失。ＶＢ中可利用

Ｗｉｎｄｏｗｓ提供的动态链接库ＯｐｅｎＧＬ３２．ＤＬＬ和

ＧＬＵ３２．ＤＬＬ来实现对ＯｐｅｎＧＬ的调用来对图形进

行绘制

［４，５］

［３］

，而且还可以利用ＳＣＩ公司提供的

ＧＬＵＴ３２．ＤＬＬ直接调用更多的图形函数进行图

形的开发，这样使ＯｐｅｎＧＬ的开发更容易，同时

也使ＶＢ在能拓展到３Ｄ领域，使众多的ＶＢ使用

者能开发出美丽三维图像。

２实现过程

２．１Ｖｂ环境设置

新建一个标准ＥＸＥ工程，在工程菜单下选

择引用，打开“引用”对话框，然后勾取“ＶＢ

ＯｐｅｎＧＬＡＰＩ１．２（ＡＮＳＩ）”项，从而实现ＶＢ对

ＯｐｅｎＧＬ函数库的引用。然后在窗体ｓｔａｇｅ上放置

两个ＰｉｃｔｕｒｅＢｏｘ控件和一个时钟控件，并添加两

个模块。

一个ＯｐｅｎＧＬ应用程序首先必须创建一个图

形操作描述表，然后再启动它，最后在所定义

Ⅱ－４６

２０１０年海南省机械工程学会

的窗口内按常规方式调用ＯｐｅｎＧＬ函数绘制图形。

Ｖｂ是基于窗口系统的可视化编程环境，对于每

个ＯｐｅｎＧＬ程序都必须处理设备描述表，在创建

一个图形操作描述表之前，首先必须设置像素

格式。像素格式含有设备绘图界面的属性，这

些属性包括绘图界面是用ＲＧＢＡ模式还是颜色

表模式，像素缓存是用单缓存还是双缓存，以

及颜色位数、深度缓存和模板缓存所用的位数，

还有其它一些属性信息。每个ＯｐｅｎＧＬ显示

设备都支持一种指定的像素格式。一般用一个

名为ＰＩＸＥＬＦＯＲＭＡＴＤＥＳＣＲＩＰＴＯＲ的结构

来表示某个特殊的像素格式。我们将

ＦＩＸＥＬＦＯＲＭＡＴＤＥＳＣＲＩＰＴＯＲ的结构放在一个名

为ＯｐｅｎＧＬ的标准模块中ＥｎａｂｌｅＯｐｅｎＧＬ过程中，

首先要定义ＦＩＸＥＬＦＯＲＭＡＴＤＥＳＣＲＩＰＴＯＲ的像素

格式结构，代码如下：

ＺｅｒｏＭｅｍｏｒｙｐｆｄ，Ｌｅｎ（ｐｆｄ）用零来填充内存

区域，起点为ＰＤＦ，大小为ＬＥＮ（ＰＤＦ）

ｐｆｄ．ｎＳｉｚｅ＝Ｌｅｎ（ｐｆｄ）

ｐｆｄ．ｎＶｅｒｓｉｏｎ＝１

结构大小

版本号

ｗｇｌＭａｋｅＣｕｒｒｅｎｔｇｈＤＣ，ｈＲＣ使之成为当前绘

图描述表

这一模块的作用是创建了一个渲染上下文，

每一个ＯｐｅｎＧＬ程序都必须和一个渲染上下文

（ＲＣ）相连接，在本程序中渲染上下文定义为

ＨＲＣ，为了使能在窗口中绘制图像，必须定义上

下文句柄为ＨＲＣ，渲染上下文可以使ＯｐｅｎＧＬ把

绘制作用到设备上下文（ＤＣ）中来，设备上下

文连接图像设备接口（ＧＤＩ）而渲染上下文则把

ＯｐｅｎＧＬ连接到设备上下文。必须创建图形操作

描述表并启用渲染上下文后，才能调用ＯｐｅｎＧＬ

函数在窗口内进行各种图形操作

［６］

。

２．２．加载图片并转化为纹理

建立一个名为ＬｏａｄＢＭＰ的模块，用来加载

位图信息并转化为纹理。加载的位图图像的宽和

高必须是２的ｎ次方，宽度和高度最小必须是６４象

素，并且出于兼容性的原因，图像的宽度和高度

不应超过２５６象素。可用相应的处理软件将要转

化成纹理的图片加工成ＯｐｅｎＧＬ要求的大小。声

明一个名为ｌｏａｄＢＭＰ的函数，用它来加载图片并

将其转化为二进制的数据信息。这里用一个

ＰｉｃｔｕｒｅＢｏｘ控件来加载图片，必须将ＰｉｃｔｕｒｅＢｏｘ控

件的ＳｃａｌｅＭｏｄｅ属性设置为３－Ｐｉｘｄ格式，才能调

用ＬｏａｄＢＭＰ函数得到图片的像素信息。

ＰｒｉｖａｔｅＦｕｎｃｔｉｏｎｌｏａｄＢＭＰ（ＢｙＶａｌＦｉｌｅｎａｍｅＡｓ

Ｓｔｒｉｎｇ，ＢｙＲｅｆＴｅｘｔｕｒｅＩｍｇ（）ＡｓＧＬｕｂｙｔｅ）ＡｓＢｏｏｌｅａｎ

ＤｉｍｘＡｓＬｏｎｇ，ｙＡｓＬｏｎｇ，ｔｅｍｐＡｓＬｏｎｇ定义

临时的变量

Ｄｉｍｂｉ２４ＢｉｔＩｎｆｏＡｓＢＩＴＭＡＰＩＮＦＯ

定义ＢＭＰ图片的格式

ＷｉｔｈＳｔａｇｅ．Ｐｉｃｔ

．Ｐｉｃｔｕｒｅ＝ＬｏａｄＰｉｃｔｕｒｅ（Ｆｉｌｅｎａｍｅ）

ＰｉｃｔｕｒｅＢｏｘ控件加载ＢＭＰ图

．Ｒｅｆｒｅｓｈ

ｔｗ＝．ＳｃａｌｅＷｉｄｔｈ

得到加载的ＢＭＰ图片的宽度信息

ｔｈ＝．ＳｃａｌｅＨｅｉｇｈｔ

得到加载的ＢＭＰ图片的高度信息

ＲｅＤｉｍＴｅｘｔｕｒｅＩｍｇ（２，ｔｗ－１，ｔｈ－１）

重新定义数组

ＥｎｄＷｉｔｈ

刷新ＰｉｃｔｕｒｅＢｏｘ

ｐｆｄ．ｄｗＦｌａｇｓ＝ＰＦＤ＿ＤＲＡＷ＿ＴＯ＿ＷＩＮＤＯＷ

ＯｒＰＦＤ＿ＳＵＰＰＯＲＴ＿ＯＰＥＮＧＬＯｒＰＦＤ＿ＤＯＵＢＬＥＢＵＦＦＥＲ

ＯｒＰＦＤ＿ＧＥＮＥＲＩＣ＿ＦＯＲＭＡＴ

绘图到Ｗｉｎｄｏｗ，支持ＯｐｅｎＧＬ，支持双缓

冲，通用模式

ｐｆｄ．ｉＰｉｘｅｌＴｙｐｅ＝ＰＦＤ＿ＴＹＰＥ＿ＲＧＢＡ

像素格式类型为ＲＧＢＡ

ｐｆｄ．ｃＣｏｌｏｒＢｉｔｓ＝２４

ｐｆｄ．ｃＤｅｐｔｈＢｉｔｓ＝１６

ｐｆｄ．ｃＳｔｅｎｃｉｌＢｉｔｓ＝１

ｐｆｄ．ｉＬａｙｅｒＴｙｐｅ＝ＰＦＤ＿ＭＡＩＮ＿ＰＬＡＮＥ

主层类型

ＰｉｘＦｏｒｍａｔ＝ＣｈｏｏｓｅＰｉｘｅｌＦｏｒｍａｔ（ｇｈＤＣ，ｐｆｄ）

为设备描述表得到最匹配的像素格式，确定

Ｐｄｆ结构是否存在

ＳｅｔＰｉｘｅｌＦｏｒｍａｔｇｈＤＣ，ＰｉｘＦｏｒｍａｔ，ｐｆｄ如果

存在设备描述像素格式，把指定的像素格式赋

给指定的设备

ｈＲＣ＝ｗｇｌＣｒｅａｔｅＣｏｎｔｅｘｔ（ｇｈＤＣ）创建绘图描

述表

颜色索引位

深度缓冲区位数

２０１０年海南省机械工程学会

Ⅱ－４７

Ｗｉｔｈｂｉ２４ＢｉｔＩｎｆｏ．ｂｍｉＨｅａｄｅｒ

头赋值

．ｂｉＢｉｔＣｏｕｎｔ＝２４

位元存储

．ｂｉＣｏｍｐｒｅｓｓｉｏｎ＝ＢＩ＿ＲＧＢ

．ｂｉＰｌａｎｅｓ＝１

位图信息

ＴｅｘｔｕｒｅＩｍａｇｅ（））Ｔｈｅｎ

Ｓｔａｔｕｓ＝Ｔｒｕｅ

ｇｌＴｅｘＥｎｖｉＧＬ＿ＴＥＸＴＵＲＥ＿ＥＮＶ，

ＧＬ＿ＴＥＸＴＵＲＥ＿ＥＮＶ＿ＭＯＤＥ，ＧＬ＿ＭＯＤＵＬＡＴＥ

纹理的贴图方式，与物体相溶合

ｇｌＴｅｘＰａｒａｍｅｔｅｒｉＧＬ＿ＴＥＸＴＵＲＥ＿２Ｄ，

ＧＬ＿ＴＥＸＴＵＲＥ＿ＭＡＧ＿ＦＩＬＴＥＲ，ＧＬ＿ＬＩＮＥＡＲ

图像被放大时的采用线性滤波

ｇｌＴｅｘＰａｒａｍｅｔｅｒｉＧＬ＿ＴＥＸＴＵＲＥ＿２Ｄ，

ＧＬ＿ＴＥＸＴＵＲＥ＿ＭＩＮ＿ＦＩＬＴＥＲ，ＧＬ＿ＬＩＮＥＡＲ

图像被缩小时的采用线性滤波

ｇｌＴｅｘＩｍａｇｅ２ＤＧＬ＿ＴＥＸＴＵＲＥ＿２Ｄ，０，３，ｔｗ，ｔｈ，

０，ＧＬ＿ＲＧＢ，ＧＬ＿ＵＮＳＩＧＮＥＤ＿ＢＹＴＥ，ＴｅｘｔｕｒｅＩｍａｇｅ

（０，０，０）

将图像信息ＴｅｘｔｕｒｅＩｍａｇｅ（０，０，０）形成纹理

ＥｎｄＩｆ

ＥｒａｓｅＴｅｘｔｕｒｅＩｍａｇｅ

ＥｎｄＦｕｎｃｔｉｏｎ

２．３．绘制图形

由于在ＶＢ编程环境下只有窗体和ＰｉｃｔｕｒｅＢｏｘ

控件具有绘制、显示图形的功能，并且他们的缺

省的像素格式都是Ｗｉｎｄｏｗｓ的ＧＤＩ设置的，为了

使ＯｐｅｎＧＬ命令绘制的图形能够在其上显示，必须

进行重新初始化它们的像素格式，并利用Ｏｐｎｅｇｌ

命令将窗口进行必要的渲染，这样才能绘制出高

质量的图形。

ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｒｅｓｉｚｅ（）

ＥｎａｂｌｅＯｐｅｎＧＬＰｉｃ１．ｈＤＣ

素格式

ｇｌＣｌｅａｒＣｏｌｏｒ０，０．５，０，０

ｇｌＣｌｅａｒＤｅｐｔｈ１＃

ｇｌＥｎａｂｌｅＧＬ＿ＤＥＰＴＨ＿ＴＥＳＴ

ｇｌＤｅｐｔｈＦｕｎｃＧＬ＿ＬＥＳＳ

ｇｌＨｉｎｔＧＬ＿ＰＥＲＳＰＥＣＴＩＶＥ＿ＣＯＲＲＥＣＴＩＯＮ＿ＨＩＮＴ，

ＧＬ＿ＮＩＣＥＳＴ

打开光照，放置光源

ｇｌＥｎａｂｌｅｇｌｃＬｉｇｈｔｉｎｇ

ｇｌＥｎａｂｌｅｇｌｃＬｉｇｈｔ０

允许深度测试

设置背景色为绿色

ｇｌＳｈａｄｅＭｏｄｅｌＧＬ＿ＳＭＯＯＴＨ

初始化ＰＩＣ１控件的像

擦除纹理矩阵的内容

ＬｏａｄＧＬＴｅｘｔｕｒｅｓ＝Ｓｔａｔｕｓ

每个像素以几个

是否压缩

．ｂｉＳｉｚｅ＝Ｌｅｎ（ｂｉ２４ＢｉｔＩｎｆｏ．ｂｍｉＨｅａｄｅｒ）

‘ＢｉｔｍａｐＩｎｆｏＨｅａｄｅｒ结构大小

．ｂｉＷｉｄｔｈ＝ｔｗ

需要处理位图宽度（单位：像素）

．ｂｉＨｅｉｇｈｔ＝ｔｈ

需要处理位图高度（单位：像素）

ＥｎｄＷｉｔｈ

ＧｅｔＤＩＢｉｔｓＳｔａｇｅ．Ｐｉｃｔ．ｈＤＣ，Ｓｔａｇｅ．Ｐｉｃｔ．Ｉｍａｇｅ，

０，ｔｈ，ＴｅｘｔｕｒｅＩｍｇ（０，０，０），ｂｉ２４ＢｉｔＩｎｆｏ，０

将来自一幅位图的二进制位复制到一幅与

设备无关的位图里。这里他将二进制位复制到

已经定义好的三维数组，它将某像素点的ＢＬＵＥ

分量存储到了（０，ｘ，ｙ）将ＧＲＥＥＮ分量存储到

（１，ｘ，ｙ），将ＲＥＤ分量存储到了（２，ｘ，ｙ）中，

这样就使得在调用纹理数组时，产生的图像的

颜色值的ＢＬＵＥ分量与ＲＥＤ分量互换的情况，所

以用下面的一段代码将纹理颜色分量进行调整。

Ｆｏｒｘ＝０Ｔｏｔｗ－１

Ｆｏｒｙ＝０Ｔｏｔｈ－１

ｔｅｍｐ＝ＴｅｘｔｕｒｅＩｍｇ（０，ｘ，ｙ）

ＴｅｘｔｕｒｅＩｍｇ（０，ｘ，ｙ）＝ＴｅｘｔｕｒｅＩｍｇ（２，ｘ，ｙ）

ＴｅｘｔｕｒｅＩｍｇ（２，ｘ，ｙ）＝ｔｅｍｐ

Ｎｅｘｔｙ

Ｎｅｘｔｘ

ｌｏａｄＢＭＰ＝Ｔｒｕｅ

ＥｎｄＦｕｎｃｔｉｏｎ

下面是通过调用ＬａｏｄＢＭＰ函数来加载图像

信息，并将位图转化为纹理。

ＦｕｎｃｔｉｏｎＬｏａｄＧＬＴｅｘｔｕｒｅｓ（）ＡｓＢｏｏｌｅａｎ

ＤｉｍＳｔａｔｕｓＡｓＢｏｏｌｅａｎ

ＤｉｍＴｅｘｔｕｒｅＩｍａｇｅ（）ＡｓＧｌｂｙｔｅ

Ｓｔａｔｕｓ＝Ｆａｌｓｅ＇ＳｔａｔｕｓＩｎｄｉｃａｔｏｒ

ＩｆｌｏａｄＢＭＰ（Ａｐｐ．Ｐａｔｈ＆＂＼ｔｉｍ．ＢＭＰ＂，

Ⅱ－４８

２０１０年海南省机械工程学会

ＤｉｍＰｏｓ（０Ｔｏ３）ＡｓＧｌｆｌｏａｔ

Ｐｏｓ（０）＝０：Ｐｏｓ（１）＝０：Ｐｏｓ（２）＝５：Ｐｏｓ（３）＝３

ｇｌＬｉｇｈｔｆｖｌｔＬｉｇｈｔ０，ｌｐｍＰｏｓｉｔｉｏｎ，Ｐｏｓ（０）

设置材质属性

Ｄｉｍａｍｂｉｅｎｔ（０Ｔｏ３）ＡｓＧｌｆｌｏａｔ

ＤｉｍＤｉｆｆｕｓｅ（０Ｔｏ３）ＡｓＧｌｆｌｏａｔ

ＤｉｍＳｐｅｃｉｌａｒ（０Ｔｏ３）ＡｓＧｌｆｌｏａｔ

ＤｉｍＳｈｉｎｉｎｅｓｓ（０）ＡｓＧｌｆｌｏａｔ

ａｍｂｉｅｎｔ（０）＝０．８：ａｍｂｉｅｎｔ（１）＝０．８：ａｍｂｉｅｎｔ（２）＝０．８：

ａｍｂｉｅｎｔ（３）＝１

Ｄｉｆｆｕｓｅ（０）＝０．８：Ｄｉｆｆｕｓｅ（１）＝０．８：Ｄｉｆｆｕｓｅ（２）＝０．８：

Ｄｉｆｆｕｓｅ（３）＝１

Ｓｐｅｃｉｌａｒ（０）＝０：Ｓｐｅｃｉｌａｒ（１）＝１：Ｓｐｅｃｉｌａｒ（２）＝１：Ｓ

ｐｅｃｉｌａｒ（３）＝３

Ｓｈｉｎｉｎｅｓｓ（０）＝２５

ｇｌＭａｔｅｒｉａｌｆｖｆａｃｅＦｒｏｎｔ，ｍｐｒＡｍｂｉｅｎｔ，ａｍｂｉｅｎｔ（０）

ｇｌＭａｔｅｒｉａｌｆｖｆａｃｅＦｒｏｎｔ，ｍｐｒＤｉｆｆｕｓｅ，Ｄｉｆｆｕｓｅ（０）

ｇｌＭａｔｅｒｉａｌｆｖｆａｃｅＦｒｏｎｔ，ｍｐｒＳｐｅｃｕｌａｒ，Ｓｐｅｃｉｌａｒ（０）

ｇｌＭａｔｅｒｉａｌｆｖｆａｃｅＦｒｏｎｔ，ｍｐｒＳｈｉｎｉｎｅｓｓ，

Ｓｈｉｎｉｎｅｓｓ（０）

ｇｌＥｎａｂｌｅｇｌｃＣｏｌｏｒＭａｔｅｒｉａｌ

ＤｉｍｗＡｓＬｏｎｇ，ｈＡｓＬｏｎｇ

ｗ＝Ｍｅ．ＳｃａｌｅＷｉｄｔｈ：ｈ＝Ｍｅ．ＳｃａｌｅＨｅｉｇｈｔ

Ｉｆｈ＝０Ｔｈｅｎｈ＝１

ｇｌＶｉｅｗｐｏｒｔ０，０，ｗ，ｈ

定义投影矩阵

ｇｌＬｏａｄＩｄｅｎｔｉｔｙ重置模型观察矩阵

ｇｌｕＰｅｒｓｐｅｃｔｉｖｅ４０＃，ｗ／ｈ，１，１００＃定义视角

ｇｌＭａｔｒｉｘＭｏｄｅＧＬ＿ＭＯＤＥＬＶＩＥＷ

定义模型变换矩阵

ｇｌＬｏａｄＩｄｅｎｔｉｔｙ

重置模型观察矩阵

ｇｌＣｌｅａｒＧＬ＿ＣＯＬＯＲ＿ＢＵＦＦＥＲ＿ＢＩＴＯｒＧＬ＿ＤＥＰＴＨ

＿ＢＵＦＦＥＲ＿ＢＩＴ

清除屏幕及深度缓

ｇｌＬｏａｄＩｄｅｎｔｉｔｙ

ｇｌＴｒａｎｓｌａｔｅｆ０，０，－１５

ＬｏａｄＧＬＴｅｘｔｕｒｅｓ

ｇｌＰｏｌｙｇｏｎＭｏｄｅｆａｃｅＢａｃｋ，ｐｇｍＬｉｎｅ形背面以线填充

重置模型观察矩阵

移入屏幕１５个单位

定义视见区

ｇｌＭａｔｒｉｘＭｏｄｅＧＬ＿ＰＲＯＪＥＣＴＩＯＮ

ｇｌＰｏｌｙｇｏｎＭｏｄｅｆａｃｅＦｒｏｎｔ，ｐｇｍＦＩＬＬ

图形前面以全填充

ｇｌＥｎａｂｌｅｇｌｃＴｅｘｔｕｒｅ２Ｄ

Ｔｉｍｅｒ１．Ｅｎａｂｌｅｄ＝Ｔｒｕｅ

ＥｎｄＳｕｂ

Ｔｉｍｅｒ事件能准确每隔一定的时间触发一次，

使程序运行在不同速度的计算机上的变化效果几

乎没有差别，使动画连续稳定。

ＰｒｉｖａｔｅＳｕｂＴｉｍｅｒ１＿Ｔｉｍｅｒ

ＤｉｍｘＡｓＩｎｔｅｇｅｒ，ｙＡｓＩｎｔｅｇｅｒ，ｒＡｓＩｎｔｅｇｅｒ

ＳｔａｔｉｃＴＡｓＩｎｔｅｇｅｒ定义Ｔ为静态整型变量，

存储变化的角度值。

Ｄｉｍｐｘ１ＡｓＧＬｆｌｏａｔ，ｐｙ１ＡｓＧＬｆｌｏａｔ，ｐｚ１Ａｓ

Ｄｏｕｂｌｅ，ｐｘ２ＡｓＧＬｆｌｏａｔ，ｐｙ２ＡｓＧＬｆｌｏａｔ，ｐｚ２ＡｓＤｏｕｂｌｅ

ｇｌＲｏｔａｔｅｆ３，０，０，１使图像没Ｚ轴旋转

以Ｐｘ１、Ｐｘ２、Ｐｙ１、Ｐｙ２、Ｐｚ１、Ｐｚ２六点来

组合成一个四边形，通过使用整数循环来产生

９９×９９的方格集合，为了使产生的方格居中，

将ｘ．，ｙ变量除以１０再减去５。

ｇｌＢｅｇｉｎｂｍＱｕａｄｓ画矩形的开始语句，必须

以ｇｌＥｎｄ结束

Ｆｏｒｙ＝１Ｔｏ１００

Ｆｏｒｘ＝１Ｔｏ１００

ｐｘ１＝（ｘ－１）／１０－５

ｐｙ１＝（ｙ－１）／１０－５

ｐｚ１＝Ｃｏｓ（（ｙ－１）／１０＊４０／３６０＊３．１４１５９２６５４

＊２＋ｔ／１８０＊３．１４１５９２６５４）

ｐｘ２＝（ｘ）／１０－５

ｐｙ２＝（ｙ）／１０－５

ｐｚ２＝Ｃｏｓ（ｙ／１０＊４０／３６０＊３．１４１５９２６５４＊

２＋ｔ／１８０＊３．１４１５９２６５４）

ｇｌＴｅｘＣｏｏｒｄ２ｆ（ｘ－１）／１００，（ｙ）／１００

ｇｌＶｅｒｔｅｘ３ｆｐｘ１，ｐｙ２，ｐｚ２

利用ｘ，ｙ值可以直接计算纹理坐标，每个多

边形分别映射了纹理的１／９９×１／９９部分，纹理坐

标不同于网格坐标，纹理坐标以纹理图像的高

宽为单位１，网格以实际值为坐标每个网格的绘

制都是以逆时针绘制的。

ｇｌＴｅｘＣｏｏｒｄ２ｆ（ｘ－１）／１００，（ｙ－１）／１００

ｇｌＶｅｒｔｅｘ３ｆｐｘ１，ｐｙ１，ｐｚ１

启用纹理映射

触发时钟事件

２０１０年海南省机械工程学会

Ⅱ－４９

ｇｌＴｅｘＣｏｏｒｄ２ｆ（ｘ）／１００，（ｙ－１）／１００

ｇｌＶｅｒｔｅｘ３ｆｐｘ２，ｐｙ１，ｐｚ１

ｇｌＴｅｘＣｏｏｒｄ２ｆ（ｘ）／１００，（ｙ）／１００

ｇｌＶｅｒｔｅｘ３ｆｐｘ２，ｐｙ２，ｐｚ２

Ｎｅｘｔｙ

Ｎｅｘｔｘ

ｇｌＥｎｄ

ＳｗａｐＢｕｆｆｅｒｓＰｉｃ１．ｈＤＣ交换缓冲区数据

ｇｌＣｌｅａｒｃｌｒＣｏｌｏｒＢｕｆｆｅｒＢｉｔＯｒｃｌｒＤｅｐｔｈＢｕｆｆｅｒＢｉｔ清除

颜色缓存和深度缓冲，否则会使多幅图像

重叠在一起

ＥｎｄＳｕｂ

ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｕｎｌｏａｄ（ＣａｎｃｅｌＡｓＩｎｔｅｇｅｒ）

ｗｇｌＭａｋｅＣｕｒｒｅｎｔ０，０清空当前绘图描述表

ｗｇｌＤｅｌｅｔｅＣｏｎｔｅｘｔｈＲＣ

ＥｎｄＳｕｂ

ＥｎｄＳｕｂ

３结束语

本文对ＶＢ中应用ＯｐｅｎＧＬ进行三维动画开

发过程作了一个详细的介绍，意在阐明ＶＢ中运

用ＯｐｅｎＧＬ的基本原理和具体实现方法，对ＶＢ

程序员利用ＯｐｅｎＧＬ起一抛砖引玉的作用。ＶＢ

与ＯｐｅｎＧＬ结合可使ＶＢ方便的调用ＯｐｅｎＧＬ的ＡＰＩ

函数进行图形的绘制和场景的渲染，同时由于

Ｖｂ语言简单、实用、提高了开发的速度和软件

的质量，而且成本低。我们相信在不久的将来，

它们一定会发挥出巨大的作用。未来是光明的，

前景是诱人的。

致谢：

海南大学校基金（Ｋｙｊｊ０６０４）、

海南大学材料与化工学院课程群教学团队资助

项目。

删除绘图描述表

参考文献：

［１］潇湘工作室译．计算机技术译林精选系

列：ＯｐｅｎＧＬ超级宝典［Ｍ］．北京：人民邮电

出版社，２００１－０１－０１：１０－１３

［２］史正中，郭继坤等。基于ＶＢ＋ＯｐｅｎＧＬ三

维地形实现［Ｊ］，后勤工程学院学报，

２００３年第１期：９２－９６

［３］欧训勇．ＯｐｅｎＧＬ程序移植技术浅析

［Ｊ］，计算机应用研究，２００２：１５８－１６１

［４］．王峰．用ＶｉｓｕａｌＢａｓｉｃ实现ＯｐｅｎＧＬ三维

地形显示［Ｊ］．测绘信息与工程，２０００Ｎｏ．

３：１３－１７

［５］张晓宇，曲家文等．在ＶＢ６．０中利用

ＯｐｅｎＧＬ进行图形编程［Ｊ］．电脑学习，

２００１（２）：２３－２４

［６］荷塘月色创作组编著．如何使用

ＯｐｅｎＧＬ开发程序［Ｍ］．北京：北京理工大

学出版社，１９９９－０１－０１：２０８

作者简介：

杨亮：男，１９７９年５月生，实验师，海南大

学材料与化工学院，海南海口：５７０２２８

Ｅ－ｍａｉｌ：ＹＬ５９２３＠ｓｉｎａ．ｃｏｍ．ｃｎ