易语言GDI三维图形类源码

系统结构:三维坐标轴,窗口新过程,时钟周期事件,重画_3D,创建自窗口句柄,点旋转运算,取低位,取高位,添加_四棱锥,添加_正方体,添加_线,添加_文本,API_BitBlt,API_GetDC,API_SetWindowLong,API_CallWindowProc,API_SetTimer,API_GetWindowRect,API_BeginPaint,API_EndPaint,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 三维坐标轴
           |  |
           |  |
======三维图形类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 窗口新过程
           |  |
           |  |------ 时钟周期事件
           |  |
           |  |------ 重画_3D
           |  |
           |  |------ 创建自窗口句柄
           |  |
           |  |------ 点旋转运算
           |  |
           |  |------ 取低位
           |  |
           |  |------ 取高位
           |  |
           |  |------ 添加_四棱锥
           |  |
           |  |------ 添加_正方体
           |  |
           |  |------ 添加_线
           |  |
           |  |------ 添加_文本
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_BitBlt
           |  |
           |  |---[dll]------   API_GetDC
           |  |
           |  |---[dll]------   API_SetWindowLong
           |  |
           |  |---[dll]------   API_CallWindowProc
           |  |
           |  |---[dll]------   API_SetTimer
           |  |
           |  |---[dll]------   API_GetWindowRect
           |  |
           |  |---[dll]------   API_BeginPaint
           |  |
           |  |---[dll]------   API_EndPaint

调用的DLL命令:

.DLL命令 API_BitBlt, 整数型, "gdi32", "BitBlt", , 将一幅位图从一个设备场景复制到另一个。源和目标DC相互间必须兼容  非零表示成功，零表示失败。会设置GetLastError
    .参数 hDestDC, 整数型, , 目标设备场景
    .参数 x, 整数型, , 对目标DC中目标矩形左上角位置进行描述的那个点。用目标DC的逻辑坐标表示
    .参数 y, 整数型, , 同上
    .参数 nWidth, 整数型, , 欲传输图象的宽度和高度
    .参数 nHeight, 整数型, , 同上
    .参数 hSrcDC, 整数型, , 源设备场景。如光栅运算未指定源，则应设为0
    .参数 xSrc, 整数型, , 对源DC中源矩形左上角位置进行描述的那个点。用源DC的逻辑坐标表示
    .参数 ySrc, 整数型, , 同上
    .参数 dwRop, 整数型, , 传输过程要执行的光栅运算;

.DLL命令 API_GetDC, 整数型, "user32", "GetDC", , 获取指定窗口的设备场景  指定窗口的设备场景句柄，出错则为0
    .参数 hwnd, 整数型, , 将获取其设备场景的窗口的句柄。若为0，则要获取整个屏幕的DC;

.DLL命令 API_SetWindowLong, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息  指定数据的前一个值
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型

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

.DLL命令 API_SetTimer, 整数型, "user32", "SetTimer", , 安装系统定时器
    .参数 hWnd, 整数型
    .参数 nIDEvent, 整数型
    .参数 uElapse, 整数型
    .参数 lpTimerFunc, 整数型

.DLL命令 API_GetWindowRect, 整数型, "user32", "GetWindowRect", , 获得整个窗口的范围矩形，窗口的边框、标题栏、滚动条及菜单等都在这个矩形内  非零表示成功，零表示失败。会设置GetLastError
    .参数 hwnd, 整数型, , 想获得范围矩形的那个窗口的句柄
    .参数 lpRect, RECT, , RECT，屏幕坐标中随同窗口装载的矩形;

.DLL命令 API_BeginPaint, 整数型, "user32", "BeginPaint", , 准备一个画图窗
    .参数 hwnd, 整数型
    .参数 lpPaint, PAINTSTRUCT

.DLL命令 API_EndPaint, 整数型, "user32", "EndPaint", , 在指定窗口中标记图画结尾标志
    .参数 hwnd, 整数型
    .参数 lpPaint, PAINTSTRUCT