|
子程序_横向分割 | 文本型 | |
|
保存目录 | 文本型 | | | |
分割数量 | 整数型 | | | | 是否随机分割 | 逻辑型 | | | | 文件数量 | 整数型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 |
成员数 | 整数型 | | |
n | 整数型 | | |
当前图片 | 字节集 | | |
图片高度 | 整数型 | | |
图片宽度 | 整数型 | | |
i | 整数型 | | |
快速字节集对象 | 快速字节集对象 | | |
数组 | 整数型 | | 0 |
图片句柄 | 整数型 | | |
缓冲顶边 | 整数型 | | |
目录 | 文本型 | | |
计次 | 整数型 | | |
写入文件次数 | 整数型 | | |
成员数 =
取数组成员数 (_启动窗口.集_图片路径
)进度条1.最大位置 = 成员数
计次 = 1
目录 = 保存目录 +
“\横_第” +
到文本 (计次
) +
“个大目录”目录_创建 (目录
)
计次循环首 (成员数, n
)
处理事件 ()
如果真 (快速字节集对象.
从文件读 (_启动窗口.集_图片路径
[n
]))


当前图片 = 快速字节集对象.
取字节集 (,
)

快速字节集对象.
清除字节集 ()

画板.
取图片高宽 (当前图片, 图片高度, 图片宽度
)

画板.
清除 ()

画板.
置画板尺寸 (图片宽度, 图片高度
)

图片句柄 = 画板.
载入图片数据 (当前图片
)

画板.
画图片 (图片句柄, 0, 0, 图片宽度, 图片高度
)

缓冲顶边 = 0

目录_创建 (目录 +
“\横_” +
到文本 (n
))


计次循环首 (分割数量, i
)

处理事件 ()

整数_随机分割 (图片高度, 分割数量, 是否随机分割, 数组
)


画板_临时.
清除 ()


画板_临时.
置画板尺寸 (图片宽度, 数组
[i
])


判断 (i = 1
)



画板.
复制 (画板_临时.
取场景句柄 (), , , , , 画板.
取场景句柄 (), 0, 0, 图片宽度, 数组
[i
],
)



缓冲顶边 = 缓冲顶边 + 数组
[i - 1
]



画板.
复制 (画板_临时.
取场景句柄 (), , , , , 画板.
取场景句柄 (), 0, 缓冲顶边, 图片宽度, 数组
[i
],
)






当前图片 = 画板_临时.
取图片 ()

写到文件 (目录 +
“\横_” +
到文本 (n
) +
“\” +
到文本 (n
) +
“_” +
到文本 (i
) +
“.png”, 当前图片
)



计次循环尾 ()

写入文件次数 = 写入文件次数 + 1


如果真 (写入文件次数 = 文件数量
)


计次 = 计次 + 1



目录 = 保存目录 +
“\横_第” +
到文本 (计次
) +
“个大目录”

目录_创建 (目录
)


写入文件次数 = 0





标签5.标题 =
“进度:” +
到文本 (成员数
) +
“/” +
到文本 (n
)

进度条1.位置 = n


计次循环尾 ()返回 (目录
)