简单的图像二值化处理源码

简单的图像二值化处理源码

.版本 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)

@hiiamgood