电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

VB开发OpenGL绘制三维地质构造图VIP专享VIP免费

VB开发OpenGL绘制三维地质构造图_第1页
VB开发OpenGL绘制三维地质构造图_第2页
VB开发OpenGL绘制三维地质构造图_第3页
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)在窗体上放置部件, 2)创建设备描述表 .定义像素格式结构 Dim pfd As PIXELFORMATDEscriptOR .描述像素格式 pfd.nSize = Len(pfd)--结构大小 pfd.nVersion = 1--版本号 pfd.dwFlags = PFD_SUPPORT_OPENGL Or--支持OpenGL PFD_DRAW_TO_WINDOW Or --绘制到Windows PFD_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 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) 使之...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部