vb中利用opengl绘制三维地质构造图

《vb中利用opengl绘制三维地质构造图》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、VB中利用OpenGL绘制三维地质构造图摘要OpenGL是一种三维图形开发标准，是从事三维图形开发工作的必要工具，其稳定性、可靠性、可扩展性等特点，赋予了其强大的生命力和应用前景，OpenGL已经广泛应用于在CAD/CAM/CAE、医学图像处理、虚拟现实、娱乐、广告等领域。本文就如何利用VB结合OpenGL来开发三维地质构造图的基本步骤进行了详细地介绍，其中对像素格式的设定以及光照和材质的设置进行了详细的描述。　　1.前言　　曾经为了在计算机上实现一幅三维地质构造图，费尽周折，而结果却难以令人满意。而现在，因为有了OpenGL这一切都变得简单了。1992年，OpenGL正式成为适用于各种

2、计算机环境下的三维应用程序接口(3DAPI)。目前，它已经成为国际上通用的开放式三维图形标准。作为一个优秀的三维图形接口，OpenGL提供有丰富的绘图命令，利用这些命令能够开发出高性能、交互式的三维图形应用软件。然而，目前国内介绍OpenGL的实例都是利用VC或C开发的，令众多计算机工作者望而止步，因而，本文特意选用了简单的VB开发工具结合OpenGL来开发三维地质构造图。希望对那些对OpenGL感兴趣的工作者有所帮助。　　本文绘制出来的三维地质构造图可以绕X、Y、Z轴进行360度自由旋转，也可以进行自动旋转；并可以对三维图分别沿X、Y、Z轴进行比例缩放，也可以使三维图沿X、Y、Z轴三个

3、方向同时进行相同比例缩放。　　2.Win32环境下的OpenGL编程　　1)建立视图界面　　　．新建一个标准EXE工程；　　　．在部件中添加COMCTL32.OCX控件；(MicrosoftWindowsCommonControls5.0(SP2))　　　．在工程菜单下的引用子菜单下加入VBOpenGL库（vbogl.tlb）（可以到http://home.pacific.net.hk/~edx/tlb.htm网站下载）；　　　在窗体上放置部件，建立如下视图界面（图1所示）：　　　　　　　　　　　图1视图界面　　2)创建设备描述表　　．定义像素格式结构DimpfdAsPIXELFORMA

4、TDESCRIPTOR　　．描述像素格式pfd.nSize=Len(pfd)--结构大小pfd.nVersion=1--版本号pfd.dwFlags=PFD_SUPPORT_OPENGLOr--支持OpenGLPFD_DRAW_TO_WINDOWOr--绘制到WindowsPFD_DOUBLEBUFFEROr--支持双缓冲区PFD_TYPE_RGBA--RGBA颜色模式pfd.iPixelType=PFD_TYPE_RGBA--像素格式类型pfd.cColorBits=16--所需的颜色索引位数pfd.cDepthBits=16--所需的深度缓冲区位数pfd.iLayerType=PFD

5、_MAIN_PLANE--主层类型l为设备描述表得到最匹配的像素格式，确定pfd结构是否存在PixelFormat=ChoosePixelFormat(hdc,pfd)IfPixelFormat=0ThenMsgBox"设备描述表支持的像素格式"&vbCrLf&vbCrLf&_"与给定像素格式不匹配！",vbCritical,"错误"EndEndIf　　．设置设备描述表的像素格式，把指定的像素格式赋给指定的设备软件开发网spf=SetPixelFormat(hdc,PixelFormat,pfd)Ifspf=FalseThenMsgBox"设置设备描述表像素格式失败！",vbInform

6、ation,"失败"EndEndIf　　3)创建绘图描述表　　　创建绘图描述表hGLRC=wglCreateContext(hdc)　　　使之成为当前绘图描述表wglMakeCurrenthdc,hGLRC　　4)设置绘图环境　　　允许深度比较glEnableGL_DEPTH_TEST　　　顶点逆时针方向定义的多边形为前面glFrontFaceGL_CCW　　　设置绘图背景色glClearColor0,0,0,1　　5)定义光照和材质　　　打开光照，放置一个光源，定义光照模型glEnableGL_LIGHTINGglEnableGL_LIGHT0glLightModelfGL_LIGHT

7、_MODEL_TWO_SIDE,GL_TRUE　　　设置光源位置DimLightPos(3)AsGLfloatLightPos(0)=1:LightPos(1)=1:LightPos(2)=1:LightPos(3)=0glLightfvGL_LIGHT0,GL_POSITION,LightPos(0)　　　设置环境光DimLight_Ambient(3)AsGLfloatLight_Ambient(0)=0.7:Light_Amb