VB中利用OpenGL绘制三维地质构造图-NET教程,VBNet语言.docVIP

VB中利用OpenGL绘制三维地质构造图-.NET教程,VB.Net语言摘要 opengl是一种三维图像研发标准，是从事三维图像研发工作的必要工具，其稳定性、可靠性、可扩展性等特点，赋予了其强大的生命力和应用前景，opengl已广泛应用于在cad/cam/cae、医学图像处理、虚拟现实、娱乐、广告等领域。本文就怎么利用vb结合opengl来研发三维地质构造图的基本步骤进行了周详地介绍，其中对像素格式的设定及光照和材质的设置进行了周详的描述。 　　1. 前言　　原来为了在计算机上实现一幅三维地质构造图，费尽周折，而结果却难以令人满意。而目前，因为有了 opengl这一切都变得简单了。1992年，opengl正式成为适用于各种计算机环境下的三维应用程式接口(3d api)。目前，他已成为国际上通用的开放式三维图像标准。作为一个优秀的三维图像接口，opengl提供有丰富的绘图命令，利用这些命令能够研发出高性能、交互式的三维图像应用软件。然而，目前国内介绍opengl的实例都是利用vc或c++研发的，令众多计算机工作者望而止步，因而，本文特意选用了简单的vb研发工具结合opengl来研发三维地质构造图。希望对那些对opengl感兴趣的工作者有所帮助。　　本文绘制出来的三维地质构造图能绕x、y、z轴进行360度自由旋转，也能进行自动旋转；并能对三维图分别沿x、y、z轴进行比例缩放，也能使三维图沿x、y、z轴三个方向同时进行相同比例缩放。　　2. win32环境下的opengl编程　　1) 建立视图界面　　　．新建一个标准exe工程；　　　．在部件中添加comctl32.ocx控件；　　　．在工程菜单下的引用子菜单下加入vbopengl库（vbogl.tlb）（能到.hk/~edx/tlb.htm网站下载）；　　　 在窗体上放置部件，建立如下视图界面（图1所示）： 　　　　　　　　　　　图1 视图界面 　　2) 创建设备描述表　　．定义像素格式结构 dim pfd as pixelformatdescriptor 　　．描述像素格式 pfd.nsize = len(pfd)--结构大小pfd.nversion = 1--版本号pfd.dwflags = pfd_support_opengl or--支持openglpfd_draw_to_window or --绘制到windowspfd_doublebuffer or --支持双缓冲区pfd_type_rgba--rgba颜色模式pfd.ipixeltype = pfd_type_rgba--像素格式类型pfd.ccolorbits = 16--所需的颜色索引位数pfd.cdepthbits = 16--所需的深度缓冲区位数pfd.ilayertype = pfd_main_plane--主层类型l 为设备描述表得到最匹配的像素格式，确定pfd结构是否存在pixelformat = choosepixelformat(hdc, pfd)if pixelformat = 0 thenmsgbox 设备描述表支持的像素格式 vbcrlf vbcrlf _和给定像素格式不匹配！, vbcritical, 错误endend if 　　．设置设备描述表的像素格式，把指定的像素格式赋给指定的设备 spf = setpixelformat(hdc, pixelformat, pfd)if spf = false thenmsgbox 设置设备描述表像素格式失败！, vbinformation, 失败endend if 　　3) 创建绘图描述表　　　 创建绘图描述表 hglrc = wglcreatecontext(hdc) 　　　 使之成为当前绘图描述表 wglmakecurrent hdc, hglrc 　　4) 设置绘图环境　　　 允许深度比较 glenable gl_depth_test 　　　 顶点逆时针方向定义的多边形为前面 glfrontface gl_ccw 　　　 设置绘图背景色 glclearcolor 0, 0, 0, 1 　　5) 定义光照和材质　　　 打开光照，放置一个光源，定义光照模型 glenable gl_lightingglenable gl_light0gllightmodelf gl_light_model_two_side, gl_true 　　　 设置光源位置 dim lightpos(3) as glfloatlightpos(0) = 1: lightpos(1) = 1: lightpos(2) = 1: lightpos(