|
60精币
我找了个源码,是图片二值化 可是图片必须要经过 画板 在取会了才可以二值化,有没有什么方法 不让图片到二值化
.版本 2
.支持库 BmpOperate
_启动窗口.画板1.底图 = 图片到字节集
处理事件 ()
延时 (1800)
位图.载入数据 (_启动窗口.画板1.取图片 (, ))
.计次循环首 (位图.取高度 (), y)
.计次循环首 (位图.取宽度 (), x)
RGB = 到字节集 (位图.取某点颜色 (x - 1, y - 1))
颜色值 = (RGB [1] + RGB [2] + RGB [3]) ÷ 3
.如果 (150 < 颜色值)
位图.置某点颜色 (x - 1, y - 1, #白色)
.否则
位图.置某点颜色 (x - 1, y - 1, #黑色)
.如果结束
.计次循环尾 ()
.计次循环尾 ()
位图2.载入数据 (位图.取位图数据 ())
.计次循环首 (位图2.取高度 (), y2)
.计次循环首 (位图2.取宽度 (), x1)
.如果真 (位图2.取某点颜色 (x1 - 1, y2 - 1) = #黑色)
a = 0
.计次循环首 (8, i)
x_ = 多项选择 (i, 0, 1, 1, 1, 0, -1, -1, -1)
y_ = 多项选择 (i, -1, -1, 0, 1, 1, 1, 0, -1)
.如果真 (位图2.取某点颜色 (x1 - 1 - x_, y2 - 1 - y_) = #黑色)
a = a + 1
.如果真结束
.计次循环尾 ()
.如果真 (a ≤ 清除的点)
位图2.置某点颜色 (x1 - 1, y2 - 1, #白色)
.如果真结束
.如果真结束
.计次循环尾 ()
.计次循环尾 ()
二值化返回值 = 位图2.取位图数据 ()
补充内容 (2021-3-9 15:24):
有没有什么方法 不取画板的底图。 好像是要转换一下数据 有大佬知道么
|
最佳答案
查看完整内容
.版本 2
图片bmp = 图片_转换 (图片到字节集, 1, , , )
位图.载入数据 (图片bmp)
|