|
发表于 2020-8-30 07:19:32
|
显示全部楼层
江西省九江市
我这个写的好像有点问题 我想多一个多点对比的。 和 颜色值 对比 色差 可以用文本型的偏色
图色_颜色值比较 (原始颜色, 对比颜色, 偏色相似度)’十六进制色 对比 偏色相似度 000000-FFFFFF
.版本 2
.子程序 图片_位图多点对比颜色, 逻辑型, 公开, 失败返回-1 有bug
.参数 图片数据, 字节集
.参数 坐标位置, 坐标_, 数组, 坐标位置 数组
.参数 对比颜色
.参数 误差色, , 可空, 1-255
.局部变量 图像宽度, 整数型
.局部变量 图像高度, 整数型
.局部变量 颜色值, 整数型
.局部变量 数据, 字节集
.局部变量 字节集位置, 整数型
.局部变量 图片对象, 对象
.局部变量 图大小, 整数型
.局部变量 图数宽, 整数型
.局部变量 i, 整数型
.局部变量 临时颜色字节集, 字节集
.如果真 (图片数据 = { })
返回 (假)
.如果真结束
.如果 (取字节集数据 (图片数据, #短整数型, 29) ≠ 24)
图片对象.创建图片对象 (图片数据)
数据 = 图片对象.取回图片 ()
图片对象.清除 ()
.否则
数据 = 图片数据
.如果结束
图像宽度 = 取字节集数据 (数据, #整数型, 19)
图像高度 = 取字节集数据 (数据, #整数型, 23)
图数宽 = 图像宽度 × 3 + 位与 (图像宽度, 3)
图大小 = 图数宽 × 图像高度 + 54
.计次循环首 (取数组成员数 (坐标位置), i)
颜色值 = 取字节集数据_整数 (取字节集中间 (数据, 图大小 - 坐标位置 [i].Y × 图数宽 + 坐标位置 [i].X × 3 - 2, 3), 1)
' 临时颜色字节集 = 取空白字节集 (3)
' 临时颜色字节集 = 取字节集中间 (数据, 图大小 - 坐标位置 [i].Y × 图数宽 + 坐标位置 [i].X × 3 - 2, 3)
' 颜色值 = 图色_RGB到10进制色 (临时颜色字节集 [1], 临时颜色字节集 [2], 临时颜色字节集 [3])
.如果真 (图色_颜色值比较 (颜色值, 对比颜色, 误差色))
返回 (假)
.如果真结束
.计次循环尾 ()
返回 (真)
|
|