vb开发opengl绘制三维地质构造图（VB development of OpenGL, draw three-dimensional geological map）.docVIP

vb开发opengl绘制三维地质构造图（VB development of OpenGL, draw three-dimensional geological map） VB development of OpenGL, draw three-dimensional geological map 1. Preface It was difficult to achieve a three-dimensional geological map on a computer, but the results were not satisfactory. And now, with OpenGL, its all simple. In 1992, OpenGL became the API (3D) for all kinds of computer environments. At present, it has become an international standard for open 3D graphics. As an excellent 3D graphical interface, OpenGL provides rich graphics commands that enable the development of high-performance and interactive 3D graphics applications. However, the current domestic OpenGL example is the use of VC or C++, so many computer workers not stop, therefore, this paper deliberately chose simple VB development tools combined with OpenGL to develop three-dimensional geological map. Hope to be helpful to those who are interested in OpenGL. The three-dimensional geological map of the draw out around the X, Y, Z axis was rotated 360 degrees of freedom, can automatically rotate; and for three-dimensional map respectively along the X, Y, Z axis zoom ratio, also can make the 3D map along the X, Y, Z axis three directions at the same time the same proportion zoom. OpenGL programming in 2.Win32 environment 1) create a view interface Create a standard EXE project; Add the COMCTL32.OCX control in the component; In the reference submenu under the Project menu, add the VBOpenGL Library (vbogl.tlb) and place the components on the form, 2) create device description tables Defines a pixel format structure Dim PFD As PIXELFORMATDEscriptOR Description pixel format Pfd.nSize = Len (PFD) - structure size Pfd.nVersion = 1-- version number Pfd.dwFlags = PFD_SUPPORT_OPENGL, Or-- supports OpenGL PFD_DRAW_TO_WINDOW Or - draw to Windows PFD_DOUBLEBUFFER Or - supports dual buffers PFD_TYPE_RGBA--RGBA color mode Pfd.iPixelType = PFD_TYPE_RGBA-- pixel format type Pfd.cColorBits = 16-- the required number of color