易语言_位图对比

.版本 2
.支持库 BmpOperate
.支持库 eImgConverter
.支持库 spec

.子程序 位图对比, 双精度小数型
.参数 图1路径, 文本型
.参数 图2路径, 文本型
.局部变量 位图1, 位图
.局部变量 位图2, 位图
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 总点, 整数型
.局部变量 相同, 整数型
.局部变量 不同, 整数型
.局部变量 相似度, 双精度小数型
.局部变量 开始, 整数型
.局部变量 结束, 整数型
.局部变量 时间, 双精度小数型

开始 ＝ 取启动时间 ()
转换到BMP (图1路径, 取运行目录 () ＋ “\Ras\t1.bmp”)
转换到BMP (图2路径, 取运行目录 () ＋ “\Ras\t2.bmp”)
位图1.载入文件 (取运行目录 () ＋ “\Ras\t1.bmp”)
位图2.载入文件 (取运行目录 () ＋ “\Ras\t2.bmp”)
.计次循环首 (位图1.取宽度 (), x)
    .计次循环首 (位图1.取高度 (), y)
        总点 ＝ 总点 ＋ 1
        .判断开始 (位图1.取某点颜色 (x － 1, y － 1) ＝ 位图2.取某点颜色 (x － 1, y － 1))
            相同 ＝ 相同 ＋ 1
        .默认
            不同 ＝ 不同 ＋ 1
        .判断结束

    .计次循环尾 ()
.计次循环尾 ()
相似度 ＝ 相同 ÷ 总点
结束 ＝ 取启动时间 () － 开始
调试输出 (“相似度” ＋ 到文本 (相似度) ＋ “ 用时 ” ＋ 到文本 (时间) ＋ “ 秒”)
返回 (相似度)