自定义全3D转换效果软件

使用说明：替换3D文件先使用“文字点阵生成”点“生成”置剪板，然后再打开“七夕礼物”源码在常量数据表中替换。

图形.测量文本矩形 (编辑框1.内容, 字体, 制矩形F (0, 0, 画板1.宽度, 画板1.高度), , 矩形)
.变量循环首 (0, 矩形.高度, 4, y)
.变量循环首 (0, 矩形.宽度, 4, x)
.如果 (路径.是否可见坐标 (x, y, 图形))
文本 ＝ 文本 ＋ “1”
.否则
文本 ＝ 文本 ＋ “0”
.如果结束

.变量循环尾 ()
文本 ＝ 文本 ＋ #换行符
.变量循环尾 ()
置剪辑板文本 (文本)
调试输出 (“已经成功放入剪辑版”)

int64.QuadPart ＝ -10 × 微秒
hTimer ＝ CreateWaitableTimerA (0, 假, 0)
SetWaitableTimer (hTimer, int64, 0, 0, 0, 假)
.判断循环首 (MsgWaitForMultipleObjects (1, hTimer, 假, #INFINITE, #QS_ALLINPUT) ≠ #WAIT_OBJECT_0)
处理事件 ()
.判断循环尾 ()
CloseHandle (hTimer)