admin 管理员组

文章数量: 887021

易语言

.版本 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 ＋ 某一点颜色_灰度
返回 (某一点颜色_灰度_颜色)

本文标签： 易语言

版权声明：本文标题：易语言 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.freenas.com.cn/free/1698421817h299570.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。