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

易草鸟 · 发表于 2015-12-22 19:15:25

子程序_图像格式转换（待转换图片，需求格式）默认bmp 0未知 1bmp 2gif 3jpg 4png.5ico  。（此子程序用了云外归鸟图像处理支持库，使用时可用附带的模块，
                                                                  要提供该支持库。这个子程序的作用是为了把图片转成BMP进行操作）
子程序_图片取宽度（BMP图片）直接从图片的字节集数据里取宽度，很简单，只用核心支持库就行，会的人很多，但也有没想到的给个思路
子程序_关键色变色（关键色，备用色，图片，关键色2）关键色为要替换的颜色，备用色为把关键色替换色颜色，关键色2为数组型进行多个关键色操作。（用
                                                                                 直接对BMP格式图片的字节集数据进行换色处理，我自己用来模仿对角色进行贴图处理）
子程序_BMP图片字节集取点（X,Y,图片）    直接从数据里取出点的颜色值
搜索

易草鸟 · 发表于 2015-12-22 19:17:39

.版本 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]))