图片黑白特效转换工具

黑板.载入数据 (画板1.取图片 (, ))
' 黑板.创建 (200, 200, 24, 0)
_启动窗口.标题 ＝ “焦点不在按钮上就会停止了”
.判断循环首 (按钮1.可有焦点 ())
宽 ＝ 10
.变量循环首 (宽, 199 － 宽, 1, x)
图片.载入数据 (黑板.取位图数据 ())
.变量循环首 (0, 199, 1, y)
.变量循环首 (0, 宽, 1, i)
图片.置某点颜色 (x, y, 原图.取某点颜色 (x, y))
图片.置某点颜色 (x － i, y, 原图.取某点颜色 (x － i, y))
图片.置某点颜色 (x ＋ i, y, 原图.取某点颜色 (x ＋ i, y))
.变量循环尾 ()
.变量循环尾 ()
画板1.底图 ＝ 图片.取位图数据 ()
处理事件 ()
.变量循环尾 ()
.变量循环首 (199 － 宽, 宽, -1, x)
图片.载入数据 (黑板.取位图数据 ())
.变量循环首 (0, 199, 1, y)
.变量循环首 (0, 宽, 1, i)
图片.置某点颜色 (x, y, 原图.取某点颜色 (x, y))
图片.置某点颜色 (x － i, y, 原图.取某点颜色 (x － i, y))
图片.置某点颜色 (x ＋ i, y, 原图.取某点颜色 (x ＋ i, y))
.变量循环尾 ()
.变量循环尾 ()
画板1.底图 ＝ 图片.取位图数据 ()
处理事件 ()
.变量循环尾 ()
延时 (1)
处理事件 ()
.判断循环尾 ()