delphi实例10--深入OpenGL游戏开发.docVIP

实例十 用OpenGL实现星空闪电图 【程序说明】 实例九实现的OpenGL星体没有什么使用功能，而本例的星空闪电图则有一定的实用价值，因为不仅实现了背景贴图和声音资源的播放，还实现在背景上加载了一个OpenGL几何实体。随着闪电的不断旋转，背景和闪电的颜色都不断忽明忽暗地变化着，很有星空闪电的效果。本例程序运行结果如图10-1所示。 图10-1 用OpenGL实现星空闪电图 【编程思路】 本例同实例九不一样的地方就是它是完全在Delphi环境下实现的。因此，我们可以从这个实例中一步一步地学会如何在Delphi环境下创建一个声影具备的OpenGL动画游戏。下面是这个实例的一些关键技术。 1、在控制台环境下创建自定义的窗口。 2、Delpi环境下OpenGL初始环境设置。 3、用OpenGL技术绘制场景和闪电。 4、背景贴图技术。 5、声音媒体的播放。 这些技术的具体实现请参考后面的代码部分。 【编程步骤】. 1．按照前面介绍的方法，新建一个控制台应用程序。 2．编写代码 （1）在控制台环境下创建自定义的窗口，并根据具体情况初始化OpenGL设备环境。 function glCreateWnd(Width, Height : Integer; Fullscreen : Boolean; PixelDepth : Integer) : Boolean; var wndClass : TWndClass; // 窗口类型 dwStyle : DWORD; // 窗口风格 dwExStyle : DWORD; // 窗口扩张风格 dmScreenSettings : DEVMODE; // 屏幕设置 PixelFormat : GLuint; // OpenGL渲染设置 h_Instance : HINST; // 当前实例 pfd : TPIXELFORMATDESCRIPTOR; //OpenGL窗口相关设置 ResHandle : THandle; //声音资源句柄 begin …………（创建一个窗口，详细代码见光盘） //设置OpenGL窗口 with pfd do begin nSize:= SizeOf(TPIXELFORMATDESCRIPTOR); nVersion := 1; dwFlags:= PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER; iPixelType := PFD_TYPE_RGBA; // RGBA颜色格式 cColorBits := PixelDepth; // OpenGL颜色深度 cDepthBits := 16; // 指定深度缓冲区的深度 iLayerType := PFD_MAIN_PLANE; end; PixelFormat := ChoosePixelFormat(h_DC, @pfd); //设置刚才设置的象素格式 if (PixelFormat = 0) then begin glKillWnd(Fullscreen); MessageBox(0, 不能找到一个合适的象素格式!, 错误, MB_OK or MB_ICONERROR); Result := False; Exit; end; //设置象素格式 if (not SetPixelFormat(h_DC, PixelFormat, @pfd)) then begin glKillWnd(Fullscreen); MessageBox(0, 不能设置象素格式, 错误, MB_OK or MB_ICONERROR); Result := False; Exit; end; //创建一个OpenGL 渲染环境 h_RC := wglCreateContext(h_DC); if (h_RC = 0) then begin glKillWnd(Fullscreen); MessageBox(0, 不能创建一个OpenGL 渲染环境, 错误, MB_OK or MB_ICONERROR);