VB开发OpenGL绘制三维地质构造图.doc

VB开发OpenGL绘制三维地质构造图

曾经为了在计算机上实现一幅三维地质构造图,费尽周折,而结果却难以令人满意。而现在,因为有了OpenGL这一切都变得简单了。1992年,OpenGL正式成为适用于各种计算机环境下的三维应用程序接口(3D API)。目前,它已经成为国际上通用的开放式三维图形标准。作为一个优秀的三维图形接口,OpenGL提供有丰富的绘图命令,利用这些命令能够开发出高性能、交互式的三维图形应用软件。然而,目前国内介绍OpenGL的实例都是利用VC或C++开发的,令众多计算机工作者望而止步,因而,本文特意选用了简单的VB开发工具结合OpenGL来开发三维地质构造图。希望对那些对OpenGL感兴趣的工作者有所帮助。
本文绘制出来的三维地质构造图可以绕X、Y、Z轴进行360度自由旋转,也可以进行自动旋转;并可以对三维图分别沿X、Y、Z轴进行比例缩放,也可以使三维图沿X、Y、Z轴三个方向同时进行相同比例缩放。

1)建立视图界面
.新建一个标准EXE工程;
.;
.在工程菜单下的引用子菜单下加入VBOpenGL库()在窗体上放置部件,
2)创建设备描述表 
.定义像素格式结构 
Dim pfd As PIXELFORMATDEscriptOR
.描述像素格式
 = Len(pfd)--结构大小
 = 1--版本号
 = PFD_SUPPORT_OPENGL Or--支持OpenGL
PFD_DRAW_TO_WINDOW Or --绘制到Windows
PFD_DOUBLEBUFFER Or --支持双缓冲区
PFD_TYPE_RGBA--RGBA颜色模式
 = PFD_TYPE_RGBA--像素格式类型
olorBits = 16--所需的颜色索引位数
 = 16--所需的深度缓冲区位数
 = PFD_MAIN_PLANE--主层类型
l 为设备描述表得到最匹配的像素格式,确定pfd结构是否存在
PixelFormat = ChoosePixelFormat(hdc, pfd)
If PixelFormat = 0 Then
MsgBox "设备描述表支持的像素格式" & vbCrLf & vbCrLf & _
"与给定像素格式不匹配!", vbCritical, "错误"
End
End If
.设置设备描述表的像素格式,把指定的像素格式赋给指定的设备
spf = SetPixelFormat(hdc, PixelFormat, pfd)
If spf = False Then
MsgBox "设置设备描述表像素格式失败!", vbInformation, "失败"
End
End If 
3) 创建绘图描述表
创建绘图描述表
hGLRC = wglCreateContext(hdc) 
使之成为当前绘图描述表
wglMakeCurrent hdc, hGLRC 
4) 设置绘图环境
允许深度