利用位图模拟大漠实现黑白化和二值化地图

wrf199675

在制作a星寻路小地图时候，因为杂色多，别人提供的自动制作地图的软件又没有办法拼接，于是写了一个二值化的源码，将图片二值化以后再进行拼接准确率提高了不少。

  

子程序名	返回值类型	公开	备 注
自动二值化	字节集
参数名	类 型	参考	可空	数组	备 注
参位图	字节集
参rgb颜色	文本型				带偏色的rgb颜色用-链接，如没有偏色请输入‘00000’

变量名	类 型	静态	数组	备 注
局计次1	整数型
局计次2	整数型
局结果	字节集
局位图	类_位图操作
局位图操作	类_位图处理
局分割颜色和偏色	文本型		0
局临时颜色	文本型
局临时偏色	文本型
局颜色	文本型		0
局偏色	文本型		0
局字节集颜色	字节集
局临时位图	字节集
局r颜色	整数型
局b颜色	整数型
局g颜色	整数型
局r颜色偏色	整数型
局b颜色偏色	整数型
局g颜色偏色	整数型

' 当前开始处理偏色
文本_分割文本 (参rgb颜色, “-”, , 局分割颜色和偏色)
局计次1 ＝ 1
如果 (取数组成员数 (局分割颜色和偏色) ＜ 1)
返回 (到字节集 (0))


计次循环首 (取数组成员数 (局分割颜色和偏色), 局计次1)
如果 (局计次1 ＝ 1)
局临时颜色 ＝ 文本_均分文本1 (局分割颜色和偏色 [局计次1], 2)
文本_分割文本 (局临时颜色, #换行符, , 局颜色)

如果 (局计次1 ＝ 2)
局临时偏色 ＝ 文本_均分文本1 (局分割颜色和偏色 [局计次1], 2)
文本_分割文本 (局临时偏色, #换行符, , 局偏色)




计次循环尾 ()
调试输出 (“局颜色”, 局颜色)
调试输出 (“局偏色”, 局偏色)
' 当前开始处理位图
局临时位图 ＝ 参位图  ' 将参位图转换为子程序临时变量
局位图.从数据创建 (局临时位图)
局计次1 ＝ 1
计次循环首 (局位图.取宽度 (), 局计次1)
计次循环首 (局位图.取高度 (), 局计次2)
局字节集颜色 ＝ 到字节集 (局位图.取某点颜色 (局计次1, 局计次2))
' 调试输出 (“局字节集颜色”, 局字节集颜色)
' 将输入的颜色转换为位图**颜色
局r颜色 ＝ 进制_十六到十 (局颜色 [1])
局g颜色 ＝ 进制_十六到十 (局颜色 [2])
局b颜色 ＝ 进制_十六到十 (局颜色 [3])
局r颜色偏色 ＝ 进制_十六到十 (局偏色 [1])
局g颜色偏色 ＝ 进制_十六到十 (局偏色 [2])
局b颜色偏色 ＝ 进制_十六到十 (局偏色 [3])
如果 (局字节集颜色 [1] ≥ 局r颜色 － 局r颜色偏色 且 局字节集颜色 [1] ≤ 局r颜色 ＋ 局r颜色偏色 且 局字节集颜色 [2] ≥ 局g颜色 － 局g颜色偏色 且 局字节集颜色 [2] ≤ 局g颜色 ＋ 局g颜色偏色 且 局字节集颜色 [3] ≥ 局b颜色 － 局b颜色偏色 且 局字节集颜色 [3] ≤ 局b颜色 ＋ 局b颜色偏色)
局位图.置某点颜色 (局计次1, 局计次2, 16777215)  ' 将符合条件的颜色设置为白色
局位图.置某点颜色 (局计次1, 局计次2, 0)  ' 将不符合条件的设置为黑色

计次循环尾 ()
计次循环尾 ()
调试输出 (“二值化结束！”)
' 调试输出 (局位图)
局结果 ＝ 局位图.取出位图数据 ()
' 局结果 ＝ 局位图操作.位图去杂点 (局结果)
返回 (局结果)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 自动二值化, 字节集<br /> .参数 参位图, 字节集<br /> .参数 参rgb颜色, 文本型, , 带偏色的rgb颜色用-链接，如没有偏色请输入‘00000’<br /> .局部变量 局计次1, 整数型<br /> .局部变量 局计次2, 整数型<br /> .局部变量 局结果, 字节集<br /> .局部变量 局位图, 类_位图操作<br /> .局部变量 局位图操作, 类_位图处理<br /> .局部变量 局分割颜色和偏色, 文本型, , "0"<br /> .局部变量 局临时颜色, 文本型<br /> .局部变量 局临时偏色, 文本型<br /> .局部变量 局颜色, 文本型, , "0"<br /> .局部变量 局偏色, 文本型, , "0"<br /> .局部变量 局字节集颜色, 字节集<br /> .局部变量 局临时位图, 字节集<br /> .局部变量 局r颜色, 整数型<br /> .局部变量 局b颜色, 整数型<br /> .局部变量 局g颜色, 整数型<br /> .局部变量 局r颜色偏色, 整数型<br /> .局部变量 局b颜色偏色, 整数型<br /> .局部变量 局g颜色偏色, 整数型<br /> <br /> ' 当前开始处理偏色<br /> 文本_分割文本 (参rgb颜色, “-”, , 局分割颜色和偏色)<br /> 局计次1 ＝ 1<br /> .如果 (取数组成员数 (局分割颜色和偏色) ＜ 1)<br />     返回 (到字节集 (0))<br /> .否则<br /> <br /> .如果结束<br /> .计次循环首 (取数组成员数 (局分割颜色和偏色), 局计次1)<br />     .如果 (局计次1 ＝ 1)<br />         局临时颜色 ＝ 文本_均分文本1 (局分割颜色和偏色 [局计次1], 2)<br />         文本_分割文本 (局临时颜色, #换行符, , 局颜色)<br /> <br />     .否则<br />         .如果 (局计次1 ＝ 2)<br />             局临时偏色 ＝ 文本_均分文本1 (局分割颜色和偏色 [局计次1], 2)<br />             文本_分割文本 (局临时偏色, #换行符, , 局偏色)<br />         .否则<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (“局颜色”, 局颜色)<br /> 调试输出 (“局偏色”, 局偏色)<br /> ' 当前开始处理位图<br /> 局临时位图 ＝ 参位图  ' 将参位图转换为子程序临时变量<br /> 局位图.从数据创建 (局临时位图)<br /> 局计次1 ＝ 1<br /> .计次循环首 (局位图.取宽度 (), 局计次1)<br />     .计次循环首 (局位图.取高度 (), 局计次2)<br />         局字节集颜色 ＝ 到字节集 (局位图.取某点颜色 (局计次1, 局计次2))<br />         ' 调试输出 (“局字节集颜色”, 局字节集颜色)<br />         ' 将输入的颜色转换为位图**颜色<br />         局r颜色 ＝ 进制_十六到十 (局颜色 [1])<br />         局g颜色 ＝ 进制_十六到十 (局颜色 [2])<br />         局b颜色 ＝ 进制_十六到十 (局颜色 [3])<br />         局r颜色偏色 ＝ 进制_十六到十 (局偏色 [1])<br />         局g颜色偏色 ＝ 进制_十六到十 (局偏色 [2])<br />         局b颜色偏色 ＝ 进制_十六到十 (局偏色 [3])<br />         .如果 (局字节集颜色 [1] ≥ 局r颜色 － 局r颜色偏色 且 局字节集颜色 [1] ≤ 局r颜色 ＋ 局r颜色偏色 且 局字节集颜色 [2] ≥ 局g颜色 － 局g颜色偏色 且 局字节集颜色 [2] ≤ 局g颜色 ＋ 局g颜色偏色 且 局字节集颜色 [3] ≥ 局b颜色 － 局b颜色偏色 且 局字节集颜色 [3] ≤ 局b颜色 ＋ 局b颜色偏色)<br />             局位图.置某点颜色 (局计次1, 局计次2, 16777215)  ' 将符合条件的颜色设置为白色<br />         .否则<br />             局位图.置某点颜色 (局计次1, 局计次2, 0)  ' 将不符合条件的设置为黑色<br />         .如果结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 调试输出 (“二值化结束！”)<br /> ' 调试输出 (局位图)<br /> 局结果 ＝ 局位图.取出位图数据 ()<br /> ' 局结果 ＝ 局位图操作.位图去杂点 (局结果)<br /> <br /> 返回 (局结果)

有地将臣

66666666666666666

用LOvE寫歌

感谢分享，支持开源！！！

please

感谢分享，支持开源！！！

查过

感谢楼主分享！

豆豆灰常开心

感谢发布原创作品，精易因你更精彩！6666666666666

benyu168

支持开源~！感谢分享

初学者1

支持开源~！感谢分享

please

感谢分享，支持开源！！！

神奇的哆啦A梦

支持开源~！感谢分享