3D物理图片翻转效果程序

BeginPaint (窗口句柄, PS场景信息)
内存设备1.创建设备 (窗口句柄, 画板1.宽度, 画板1.高度)
图像.创建自字节集 (图像字节集)
画布尺寸.宽度 ＝ 图像.取宽度 ()
画布尺寸.高度 ＝ 图像.取高度 ()
宽度范围 ＝ 坐标组 [4].x － 坐标组 [1].x
内存设备2.创建设备 (窗口句柄, 宽度范围, 画布尺寸.高度)
图形_.创建自DC (内存设备2.取mdc ())
图形_.画图像缩放部分 (图像, 0, 0, 宽度范围, 画布尺寸.高度, 0, 0, 画布尺寸.宽度, 画布尺寸.高度, , )
' RtlMoveMemory_BLENDFUNCTION2int (pbf, 制分层透明混合 (), 4)
' API_AlphaBlend (内存设备1.取mdc (), 0, 0, 宽度范围, 画布尺寸.高度, 内存设备2.取mdc (), 0, 0, 宽度范围, 画布尺寸.高度, pbf)
成员数 ＝ 取数组成员数 (线组14)
.计次循环首 (成员数, 循环)
RtlMoveMemory_BLENDFUNCTION2int (pbf, 制分层透明混合 (), 4)
API_AlphaBlend (内存设备1.取mdc (), 线组14 [循环].x, 线组14 [循环].y, 线组23 [循环 ＋ 1].x － 线组14 [循环].x, 线组23 [循环 ＋ 1].y － 线组14 [循环].y, 内存设备2.取mdc (), 左边移动, 0, 线组23 [循环 ＋ 1].x － 线组14 [循环].x, 画布尺寸.高度, pbf)
画刷.创建 (RGB到ARGB (#红色))
图形.填充矩形I (画刷, 线组14 [循环].x, 线组14 [循环].y, 2, 2)
图形.填充矩形I (画刷, 线组23 [循环].x, 线组23 [循环].y, 2, 2)
画刷.销毁 ()
左边移动 ＝ 左边移动 ＋ 线组23 [循环 ＋ 1].x － 线组14 [循环].x
.如果真 (循环 ＝ 成员数 － 1)
跳出循环 ()
.如果真结束

.计次循环尾 ()