BMP格式图片的简单字节集操作

易草鸟

易草鸟 发表于 2015-12-22 19:17
.版本 2

.子程序 子程序_图片取高度, 整数型, 公开, BMP

这是主要的俩子程序

易草鸟

.版本 2

.子程序 子程序_图片取高度, 整数型, 公开, BMP
.参数 图片, 字节集, 可空
.局部变量 字节集tp, 字节集

.如果真 (是否为空 (图片))
    返回 (0)
.如果真结束
字节集tp ＝ 图片
返回 (取字节集数据 (取字节集中间 (图片, 23, 4), #整数型, ))

.子程序 子程序_图片关键色变色, 字节集, 公开
.参数 关键色, 整数型, 可空
.参数 备用色, 整数型, 可空
.参数 图片, 字节集
.参数 关键色2, 整数型, 可空 数组
.局部变量 zjj, 字节集
.局部变量 zjj1, 字节集
.局部变量 zjj2, 字节集
.局部变量 zjj3, 字节集
.局部变量 zjj4, 字节集
.局部变量 jcbl, 整数型

.如果真 (是否为空 (备用色))
    返回 (图片)
.如果真结束
zjj3 ＝ 到字节集 (备用色)
zjj4 ＝ 取字节集左边 (到字节集 (取颜色值 (zjj3 [3], zjj3 [2], zjj3 [1])), 3)
zjj ＝ 图片
.如果真 (取反 (是否为空 (关键色)))
    zjj1 ＝ 到字节集 (关键色)
    zjj2 ＝ 取字节集左边 (到字节集 (取颜色值 (zjj1 [3], zjj1 [2], zjj1 [1])), 3)
    zjj ＝ 子字节集替换 (zjj, zjj2, zjj4, , )
.如果真结束
.计次循环首 (取数组成员数 (关键色2), jcbl)
    zjj1 ＝ 到字节集 (关键色2 [jcbl])
    zjj2 ＝ 取字节集左边 (到字节集 (取颜色值 (zjj1 [3], zjj1 [2], zjj1 [1])), 3)
    zjj ＝ 子字节集替换 (zjj, zjj2, zjj4, , )
.计次循环尾 ()
返回 (zjj)

.版本 2

.子程序 子程序_BMP图片字节集取点, 整数型, 公开
.参数 X坐标, 整数型
.参数 Y坐标, 整数型
.参数 字节集, 字节集, , (图片数据)
.局部变量 zjj21, 字节集

zjj21 ＝ 取字节集中间 (字节集, 取字节集长度 (字节集) － 取字节集数据 (取字节集中间 (字节集, 35, 4), #整数型, ) ÷ 取字节集数据 (取字节集中间 (字节集, 23, 4), #整数型, ) × (Y坐标 － 1) ＋ 1 ＋ 3 × X坐标, 3)
返回 (取颜色值 (zjj21 [3], zjj21 [2], zjj21 [1]))