简单的图像二值化处理源码
.版本 2
.支持库 spec
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.子程序 BMP二值化
.参数 图, 画板
.局部变量 原, 字节集
.局部变量 hou, 字节集
.局部变量 i
.局部变量 z
.局部变量 a
a = 取启动时间 ()
hou = 取字节集左边 (图.底图, 54)
原 = 取字节集右边 (图.底图, 取字节集长度 (图.底图) - 54)
.变量循环首 (1, 取字节集长度 (原) - 2, 3, i)
.如果 (原 [i] + 原 [i + 1] + 原 [i + 2] < 340)
连续赋值 (0, 原 [i], 原 [i + 1], 原 [i + 2])
.否则
连续赋值 (255, 原 [i], 原 [i + 1], 原 [i + 2])
.如果结束
.变量循环尾 ()
图.底图 = hou + 原
调试输出 (取启动时间 () - a)
.子程序 __启动窗口_首次激活
BMP二值化 (画板1)