|

楼主 |
发表于 2024-8-2 23:56:56
|
显示全部楼层
江西省九江市
你手动更新下 我就不重新发了
.版本 2
.子程序 图片_取像素RGB, 逻辑型, 公开
.参数 BMP图片, 字节集
.参数 图片X, 整数型
.参数 图片Y, 整数型
.参数 图片R, 整数型, 参考
.参数 图片G, 整数型, 参考
.参数 图片B, 整数型, 参考
.局部变量 BMP图片宽度, 整数型
.局部变量 BMP图片高度, 整数型
.局部变量 BMP起始位置, 整数型
.局部变量 BMP占用字节, 整数型
.局部变量 dwLen, 整数型
dwLen = 取字节集长度 (BMP图片)
.如果真 (dwLen < 58) ' 更新
返回 (假)
.如果真结束
' BMP图片 [3] < 58 或 取字节集数据 (BMP图片, #整数型, 3)
.如果真 (BMP图片 [29] ≠ 24) ' 判断文件长度 和 图片深度
返回 (假)
.如果真结束
BMP图片宽度 = BMP图片 [19] + BMP图片 [20] × 256
BMP图片高度 = BMP图片 [23] + BMP图片 [24] × 256
BMP占用字节 = 取整 ((BMP图片宽度 × 24 + 31) ÷ 32) × 4 ' 取一行像素占用字节数
.如果真 (图片X < 0 或 图片X ≥ BMP图片宽度)
返回 (假)
.如果真结束
.如果真 (图片Y < 0 或 图片Y ≥ BMP图片高度)
返回 (假)
.如果真结束
BMP起始位置 = 55 + (BMP图片高度 - 图片Y - 1) × BMP占用字节 + 图片X × 3
图片R = BMP图片 [BMP起始位置 + 2]
图片G = BMP图片 [BMP起始位置 + 1]
图片B = BMP图片 [BMP起始位置]
返回 (真)
|
|