易语言OpenGl字幕雨源码

系统结构:NewWindowProc,建立OPenGL组件,撤消OPenGL组件,InitGL,InitFont,DrawGLScene,尺寸被改变,创建混合字体列表,画线段子程序,画三角形子程序,画矩形子程序,画立体文本子程序,画出位图子程序,画复制位图子程序,载入图片纹理图案子程序,绑定纹理图片,提示错误,建立人像纹理,CreateFontTexture,TextOut,glColor4ub,选择目标,创建字体,删除目标,Sleep,CallWindowProc,SetWindowLongA,glBlendColor,glColor4bv,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_尺寸被改变
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ NewWindowProc
           |  |
           |  |------ __启动窗口_首次激活
           |  |
           |  |
======框架程序集
           |  |
           |  |------ 建立OPenGL组件
           |  |
           |  |------ 撤消OPenGL组件
           |  |
           |  |------ InitGL
           |  |
           |  |------ InitFont
           |  |
           |  |------ DrawGLScene
           |  |
           |  |------ 尺寸被改变
           |  |
           |  |------ 创建混合字体列表
           |  |
           |  |
======程序集1
           |  |
           |  |------ 画线段子程序
           |  |
           |  |------ 画三角形子程序
           |  |
           |  |------ 画矩形子程序
           |  |
           |  |------ 画立体文本子程序
           |  |
           |  |------ 画出位图子程序
           |  |
           |  |------ 画复制位图子程序
           |  |
           |  |------ 载入图片纹理图案子程序
           |  |
           |  |------ 绑定纹理图片
           |  |
           |  |------ 提示错误
           |  |
           |  |------ 建立人像纹理
           |  |
           |  |
======CFont
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ CreateFontTexture
           |  |
           |  |------ TextOut
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   glColor4ub
           |  |
           |  |---[dll]------   选择目标
           |  |
           |  |---[dll]------   创建字体
           |  |
           |  |---[dll]------   删除目标
           |  |
           |  |---[dll]------   Sleep
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   glBlendColor
           |  |
           |  |---[dll]------   glColor4bv

调用的DLL命令:

.DLL命令 glColor4ub, , "opengl32.dll", "glColor4ub", 公开, void APIENTRY glColor4ub( GLubyte red, GLubyte green, GLubyte blue, GLubyte alpha )
    .参数 red, 字节型
    .参数 green, 字节型
    .参数 blue, 字节型
    .参数 alpha, 字节型

.DLL命令 选择目标, 整数型, , "SelectObject"
    .参数 设备句柄
    .参数 目标号

.DLL命令 创建字体, 整数型, , "CreateFontA"
    .参数 高度
    .参数 宽度
    .参数 倾斜角度
    .参数 后仰角度
    .参数 重量
    .参数 斜体
    .参数 下划线
    .参数 StrikeOut字体
    .参数 字符集
    .参数 输出精度
    .参数 裁剪精度
    .参数 输出质量
    .参数 定位
    .参数 字体名称, 文本型, , 可以为空文本

.DLL命令 删除目标, 逻辑型, , "DeleteObject"
    .参数 目标号

.DLL命令 Sleep, , "kernel32"
    .参数 t

.DLL命令 CallWindowProc, 整数型, "user32", "CallWindowProcA", , 将消息传答窗口函数　
    .参数 lpPrevWndFunc, 整数型
    .参数 hwnd, 整数型
    .参数 msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 SetWindowLongA, 子程序指针, "user32", "SetWindowLongA", 公开, 该函数改变指定窗口的属性．函数也将指定的一个32位值设置在窗口的额外存储空间的指定偏移位置
    .参数 hWnd, 整数型, , 窗口句柄及间接给出的窗口所属的类
    .参数 nIndex, 整数型, , 定将设定的大于等于0的偏移值。有效值的范围从0到额外类的存储空间的字节数-4：例如若指定了12位或多于12位的额外类存储空间，则应设为第三个32位整数的索引位8。要设置其他任何值，可以指定下面值之一，GWL_EXSTYLE：设定一个新的扩展风格，GWL_STYLE：设定一个新的窗口风格，GWL_WNDPROC：为窗口过程设定一个新的地址，GWL_ID：设置一个新的窗口标识符，GWL_HINSTANCE：设置一个新的应用程序实例句柄，GWL_USERDATA：设置与窗口有关的32位值。每个窗口均有一个由创建该窗口的应用程序使用的32位值，当hWnd参数标识了一个对话框时，也可使用下列值，DWL_DLGPROC：设置对话框过程的新地址，DWL_MSGRESULT：设置在对话框过程中处理的消息的返回值，DWL_USER：设置的应用程序私有的新的额外信息，例如一个句柄或指针
    .参数 dwNewLong, 子程序指针, , 指定的替换值

.DLL命令 glBlendColor, , "opengl32.dll", "glBlendColor", 公开, void APIENTRY glBlendColor( GLclampf red, GLclampf green, GLclampf blue, GLclampf alpha )
    .参数 red, 小数型
    .参数 green, 小数型
    .参数 blue, 小数型
    .参数 alpha, 小数型

.DLL命令 glColor4bv, , "opengl32.dll", "glColor4bv", 公开, void APIENTRY glColor4bv( const GLbyte *v )
    .参数 GLbyte, 字节型, 数组