易语言-图片灰度处理

.版本 2
.支持库 BmpOperate


.子程序 点颜色处理_灰度化处理, 字节集
.参数 位图, 位图
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 点平均灰度值颜色, 整数型
.局部变量 位图数据, 字节集


.变量循环首 (0, 位图.取宽度 () － 1, 1, x)
    .变量循环首 (0, 位图.取高度 () － 1, 1, y)
        点平均灰度值颜色 ＝ 点颜色处理_到平均灰度值颜色 (位图, x, y)
        位图.置某点颜色 (x, y, 点平均灰度值颜色)
    .变量循环尾 ()
.变量循环尾 ()
' 画板1.底图 ＝ 位图.取位图数据 ()
位图数据 ＝ 位图.取位图数据 ()


' 位图2.载入数据 (位图.取位图数据 ())

返回 (位图数据)

.版本 2
.支持库 BmpOperate


.子程序 点颜色处理_到平均灰度值颜色, 整数型, 公开
.参数 位图, 位图
.参数 x, 整数型
.参数 y, 整数型
.局部变量 RGB, 字节集
.局部变量 某一点颜色_灰度, 小数型
.局部变量 某一点颜色_灰度_颜色, 整数型


' 灰度值计算
' 输出调试文本 (某一点颜色)
RGB ＝ 到字节集 (位图.取某点颜色 (x, y))
某一点颜色_灰度 ＝ 取整 ((RGB [1] ＋ RGB [2] ＋ RGB [3]) ÷ 3)
某一点颜色_灰度_颜色 ＝ 某一点颜色_灰度 × 256 × 256 ＋ 某一点颜色_灰度 × 256 ＋ 某一点颜色_灰度
返回 (某一点颜色_灰度_颜色)