图像绕点旋转GDI

asasqwwq

找了很多图像绕点旋转的代码，都不对，这里分享一个自己用GDI模块写的。（GdiPlus模块自行下载）

  

子程序名	返回值类型	公开	备 注
图像_位图_旋转_绕点	字节集		返回BMP图。调用“GdiPlus类.ec”。 注意，边缘像素颜色 可能会 因旋转变化，且旋转后尺寸可能增大，新增部分空白区域默认为“置背景色”。
参数名	类 型	参考	可空	数组	备 注
位图字节集	字节集				可以非位图。
旋转角度	双精度小数型				正数：顺时针旋转；负数：逆时针旋转。
旋转中心x	双精度小数型
旋转中心y	双精度小数型
置背景色	整数型				RGB颜色值。 默认，空=0：#黑色。

变量名	类 型	静态	数组	备 注
GP图像	GP图像
原宽	整数型
原高	整数型
GP位图	GP位图
GP图形	GP图形
中心点	坐标F
局字节集	字节集
旋转顶点X	双精度小数型		4
旋转顶点Y	双精度小数型		4
新宽	整数型
新高	整数型
GP纯色画刷	GP纯色画刷

Gdiplus初始化 ()
如果真 (旋转角度 ＝ 0)
返回 (位图字节集)
' ------------------------------------------------------------------------
GP图像.创建自字节集 (位图字节集, )
原宽 ＝ GP图像.取宽度 ()
原高 ＝ GP图像.取高度 ()
' -----------------------原图旋转矩形：
点_计算某点绕中心点旋转 (0, 0, 旋转中心x, 旋转中心y, 旋转角度, 旋转顶点X [1], 旋转顶点Y [1], 真)
点_计算某点绕中心点旋转 (原宽 － 1, 0, 旋转中心x, 旋转中心y, 旋转角度, 旋转顶点X [2], 旋转顶点Y [2], 真)
点_计算某点绕中心点旋转 (原宽 － 1, 原高 － 1, 旋转中心x, 旋转中心y, 旋转角度, 旋转顶点X [3], 旋转顶点Y [3], 真)
点_计算某点绕中心点旋转 (0, 原高 － 1, 旋转中心x, 旋转中心y, 旋转角度, 旋转顶点X [4], 旋转顶点Y [4], 真)
' ----------------------旋转后需要的宽高：
数组排序 (旋转顶点X, 真)
数组排序 (旋转顶点Y, 真)
新宽 ＝ 旋转顶点X [4] － 旋转顶点X [1] ＋ 1
新高 ＝ 旋转顶点Y [4] － 旋转顶点Y [1] ＋ 1
' -----------------------------------------------------------
GP位图.创建自像素格式 (新宽, 新高, )
GP图形.创建自图像 (GP位图)
' --------------------------------------------
如果真 (置背景色 ≠ 0)
GP纯色画刷.创建 (RGB到ARGB (置背景色, ))
GP图形.填充矩形I (GP纯色画刷, 0, 0, 新宽, 新高)
' --------------------------------------------
中心点.x ＝ 旋转中心x － 旋转顶点X [1]
中心点.y ＝ 旋转中心y － 旋转顶点Y [1]
GP图形.变形旋转在 (旋转角度, 中心点, )
' --------------
GP图形.画图像 (GP图像, －旋转顶点X [1], －旋转顶点Y [1])
局字节集 ＝ 图像_位图_裁剪空白边框 (GP位图.保存到字节集 ( #图像格式_BMP, ), 置背景色)  ' 因为以上绕点旋转操作，大图片时会出现空白边框情况，原因未知，故进行裁剪空白边框，进行图像修正。
GP图像.销毁 ()
GP位图.销毁 ()
GP图形.销毁 ()
Gdiplus关闭 ()
返回 (局字节集)

.版本 2<br /> <br /> .子程序 图像_位图_旋转_绕点, 字节集, 公开, 返回BMP图。调用“GdiPlus类.ec”。 注意，边缘像素颜色 可能会 因旋转变化，且旋转后尺寸可能增大，新增部分空白区域默认为“置背景色”。<br /> .参数 位图字节集, 字节集, , 可以非位图。<br /> .参数 旋转角度, 双精度小数型, , 正数：顺时针旋转；负数：逆时针旋转。<br /> .参数 旋转中心x, 双精度小数型<br /> .参数 旋转中心y, 双精度小数型<br /> .参数 置背景色, 整数型, 可空, RGB颜色值。 默认，空=0：#黑色。<br /> .局部变量 GP图像, GP图像<br /> .局部变量 原宽, 整数型<br /> .局部变量 原高, 整数型<br /> .局部变量 GP位图, GP位图<br /> .局部变量 GP图形, GP图形<br /> .局部变量 中心点, 坐标F<br /> .局部变量 局字节集, 字节集<br /> .局部变量 旋转顶点X, 双精度小数型, , "4"<br /> .局部变量 旋转顶点Y, 双精度小数型, , "4"<br /> .局部变量 新宽, 整数型<br /> .局部变量 新高, 整数型<br /> .局部变量 GP纯色画刷, GP纯色画刷<br /> <br /> Gdiplus初始化 ()<br /> .如果真 (旋转角度 ＝ 0)<br />     返回 (位图字节集)<br /> .如果真结束<br /> ' ------------------------------------------------------------------------<br /> GP图像.创建自字节集 (位图字节集, )<br /> 原宽 ＝ GP图像.取宽度 ()<br /> 原高 ＝ GP图像.取高度 ()<br /> ' -----------------------原图旋转矩形：<br /> 点_计算某点绕中心点旋转 (0, 0, 旋转中心x, 旋转中心y, 旋转角度, 旋转顶点X [1], 旋转顶点Y [1], 真)<br /> 点_计算某点绕中心点旋转 (原宽 － 1, 0, 旋转中心x, 旋转中心y, 旋转角度, 旋转顶点X [2], 旋转顶点Y [2], 真)<br /> 点_计算某点绕中心点旋转 (原宽 － 1, 原高 － 1, 旋转中心x, 旋转中心y, 旋转角度, 旋转顶点X [3], 旋转顶点Y [3], 真)<br /> 点_计算某点绕中心点旋转 (0, 原高 － 1, 旋转中心x, 旋转中心y, 旋转角度, 旋转顶点X [4], 旋转顶点Y [4], 真)<br /> ' ----------------------旋转后需要的宽高：<br /> 数组排序 (旋转顶点X, 真)<br /> 数组排序 (旋转顶点Y, 真)<br /> 新宽 ＝ 旋转顶点X [4] － 旋转顶点X [1] ＋ 1<br /> 新高 ＝ 旋转顶点Y [4] － 旋转顶点Y [1] ＋ 1<br /> ' -----------------------------------------------------------<br /> GP位图.创建自像素格式 (新宽, 新高, )<br /> GP图形.创建自图像 (GP位图)<br /> ' --------------------------------------------<br /> .如果真 (置背景色 ≠ 0)<br />     GP纯色画刷.创建 (RGB到ARGB (置背景色, ))<br />     GP图形.填充矩形I (GP纯色画刷, 0, 0, 新宽, 新高)<br /> .如果真结束<br /> ' --------------------------------------------<br /> 中心点.x ＝ 旋转中心x － 旋转顶点X [1]<br /> 中心点.y ＝ 旋转中心y － 旋转顶点Y [1]<br /> GP图形.变形旋转在 (旋转角度, 中心点, )<br /> ' --------------<br /> GP图形.画图像 (GP图像, －旋转顶点X [1], －旋转顶点Y [1])<br /> 局字节集 ＝ 图像_位图_裁剪空白边框 (GP位图.保存到字节集 (#图像格式_BMP, ), 置背景色)  ' 因为以上绕点旋转操作，大图片时会出现空白边框情况，原因未知，故进行裁剪空白边框，进行图像修正。<br /> GP图像.销毁 ()<br /> GP位图.销毁 ()<br /> GP图形.销毁 ()<br /> Gdiplus关闭 ()<br /> 返回 (局字节集)

  

子程序名	返回值类型	公开	备 注
图像_位图_裁剪空白边框	字节集		返回去掉空白边框后的位图图片。
参数名	类 型	参考	可空	数组	备 注
位图数据	字节集
空白边框颜色	整数型

变量名	类 型	静态	数组	备 注
位图	位图
裁剪位图	位图
宽	整数型
高	整数型
左X	整数型
顶Y	整数型
右X	整数型
底Y	整数型
x	整数型
y	整数型
发现非边框色	逻辑型

位图.载入数据 (位图数据)
宽 ＝ 位图.取宽度 ()
高 ＝ 位图.取高度 ()
连续赋值 (-1, 左X, 顶Y, 右X, 底Y)
变量循环首 (0, 宽 － 1, 1, x)
发现非边框色 ＝ 假
变量循环首 (0, 高 － 1, 1, y)
如果真 (位图.取某点颜色 (x, y) ≠ 空白边框颜色)
发现非边框色 ＝ 真
跳出循环 ()

变量循环尾 ()
如果 (发现非边框色)
如果 (左X ＝ -1)
左X ＝ x
右X ＝ x

如果真 (右X ＝ -1 且 左X ≠ -1)
跳出循环 ()


变量循环尾 ()
变量循环首 (0, 高 － 1, 1, y)
发现非边框色 ＝ 假
变量循环首 (0, 宽 － 1, 1, x)
如果真 (位图.取某点颜色 (x, y) ≠ 空白边框颜色)
发现非边框色 ＝ 真
跳出循环 ()

变量循环尾 ()
如果 (发现非边框色)
如果 (顶Y ＝ -1)
顶Y ＝ y
底Y ＝ y

如果真 (底Y ≠ -1 且 顶Y ≠ -1)
跳出循环 ()


变量循环尾 ()
左X ＝ 选择 (左X ＝ -1, 0, 左X)
顶Y ＝ 选择 (顶Y ＝ -1, 0, 顶Y)
右X ＝ 选择 (右X ＝ -1, 宽 － 1, 右X)
底Y ＝ 选择 (底Y ＝ -1, 高 － 1, 底Y)
裁剪位图.创建 (右X － 左X ＋ 1, 底Y － 顶Y ＋ 1, 24, )
位图.复制到 (左X, 顶Y, 右X － 左X ＋ 1, 底Y － 顶Y ＋ 1, 裁剪位图, 0, 0, )
返回 (裁剪位图.取位图数据 ())

i支持库列表	支持库注释
BmpOperate	位图操作支持库

.版本 2<br /> .支持库 BmpOperate<br /> <br /> .子程序 图像_位图_裁剪空白边框, 字节集, 公开, 返回去掉空白边框后的位图图片。<br /> .参数 位图数据, 字节集<br /> .参数 空白边框颜色, 整数型<br /> .局部变量 位图, 位图<br /> .局部变量 裁剪位图, 位图<br /> .局部变量 宽, 整数型<br /> .局部变量 高, 整数型<br /> .局部变量 左X, 整数型<br /> .局部变量 顶Y, 整数型<br /> .局部变量 右X, 整数型<br /> .局部变量 底Y, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 发现非边框色, 逻辑型<br /> <br /> 位图.载入数据 (位图数据)<br /> 宽 ＝ 位图.取宽度 ()<br /> 高 ＝ 位图.取高度 ()<br /> 连续赋值 (-1, 左X, 顶Y, 右X, 底Y)<br /> .变量循环首 (0, 宽 － 1, 1, x)<br />     发现非边框色 ＝ 假<br /> <br />     .变量循环首 (0, 高 － 1, 1, y)<br />         .如果真 (位图.取某点颜色 (x, y) ≠ 空白边框颜色)<br />             发现非边框色 ＝ 真<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br /> <br />     .如果 (发现非边框色)<br />         .如果 (左X ＝ -1)<br />             左X ＝ x<br />         .否则<br />             右X ＝ x<br />         .如果结束<br /> <br />     .否则<br />         .如果真 (右X ＝ -1 且 左X ≠ -1)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .变量循环尾 ()<br /> <br /> .变量循环首 (0, 高 － 1, 1, y)<br />     发现非边框色 ＝ 假<br /> <br />     .变量循环首 (0, 宽 － 1, 1, x)<br />         .如果真 (位图.取某点颜色 (x, y) ≠ 空白边框颜色)<br />             发现非边框色 ＝ 真<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br /> <br />     .如果 (发现非边框色)<br />         .如果 (顶Y ＝ -1)<br />             顶Y ＝ y<br />         .否则<br />             底Y ＝ y<br />         .如果结束<br /> <br />     .否则<br />         .如果真 (底Y ≠ -1 且 顶Y ≠ -1)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .变量循环尾 ()<br /> 左X ＝ 选择 (左X ＝ -1, 0, 左X)<br /> 顶Y ＝ 选择 (顶Y ＝ -1, 0, 顶Y)<br /> 右X ＝ 选择 (右X ＝ -1, 宽 － 1, 右X)<br /> 底Y ＝ 选择 (底Y ＝ -1, 高 － 1, 底Y)<br /> <br /> 裁剪位图.创建 (右X － 左X ＋ 1, 底Y － 顶Y ＋ 1, 24, )<br /> 位图.复制到 (左X, 顶Y, 右X － 左X ＋ 1, 底Y － 顶Y ＋ 1, 裁剪位图, 0, 0, )<br /> 返回 (裁剪位图.取位图数据 ())

  

子程序名	返回值类型	公开	备 注
点_计算某点绕中心点旋转	坐标L		点_坐标_整数 (四舍五入 (结果点X, ), 四舍五入 (结果点Y, ))。 返回结果点的整数型坐标，为参数四和参数五转换而来，注意，双精度小数型转换到整数型可能会使数值精度丢失。
参数名	类 型	参考	可空	数组	备 注
旋转点X	双精度小数型
旋转点Y	双精度小数型
中心点X	双精度小数型
中心点Y	双精度小数型
角度	双精度小数型
结果点X	双精度小数型				存放计算结果的变量
结果点Y	双精度小数型				存放计算结果的变量
反转角度方向	逻辑型				角度>0，真：顺时针旋转，假：逆时针旋转。    角度<0，反之。

变量名	类 型	静态	数组	备 注
余弦值	双精度小数型
正弦值	双精度小数型
旋转_中心差X	双精度小数型
旋转_中心差Y	双精度小数型

如果 (反转角度方向)
角度 ＝ 角度 ％ 360
角度 ＝ (360 － 角度) ％ 360

余弦值 ＝ 求余弦 (角度 × #pi ÷ 180)
正弦值 ＝ 求正弦 (角度 × #pi ÷ 180)
旋转_中心差X ＝ 旋转点X － 中心点X
旋转_中心差Y ＝ 旋转点Y － 中心点Y
结果点X ＝ 旋转_中心差X × 余弦值 － 旋转_中心差Y × 正弦值 ＋ 中心点X
结果点Y ＝ 旋转_中心差X × 正弦值 ＋ 旋转_中心差Y × 余弦值 ＋ 中心点Y
返回 (制坐标L (四舍五入 (结果点X, ), 四舍五入 (结果点Y, )))

.版本 2<br /> <br /> .子程序 点_计算某点绕中心点旋转, 坐标L, 公开, 点_坐标_整数 (四舍五入 (结果点X, ), 四舍五入 (结果点Y, ))。 返回结果点的整数型坐标，为参数四和参数五转换而来，注意，双精度小数型转换到整数型可能会使数值精度丢失。<br /> .参数 旋转点X, 双精度小数型<br /> .参数 旋转点Y, 双精度小数型<br /> .参数 中心点X, 双精度小数型<br /> .参数 中心点Y, 双精度小数型<br /> .参数 角度, 双精度小数型<br /> .参数 结果点X, 双精度小数型, 参考 可空, 存放计算结果的变量<br /> .参数 结果点Y, 双精度小数型, 参考 可空, 存放计算结果的变量<br /> .参数 反转角度方向, 逻辑型, 可空, 角度>0，真：顺时针旋转，假：逆时针旋转。    角度<0，反之。<br /> .局部变量 余弦值, 双精度小数型<br /> .局部变量 正弦值, 双精度小数型<br /> .局部变量 旋转_中心差X, 双精度小数型<br /> .局部变量 旋转_中心差Y, 双精度小数型<br /> <br /> .如果 (反转角度方向)<br />     角度 ＝ 角度 ％ 360<br /> .否则<br />     角度 ＝ (360 － 角度) ％ 360<br /> .如果结束<br /> <br /> 余弦值 ＝ 求余弦 (角度 × #pi ÷ 180)<br /> 正弦值 ＝ 求正弦 (角度 × #pi ÷ 180)<br /> 旋转_中心差X ＝ 旋转点X － 中心点X<br /> 旋转_中心差Y ＝ 旋转点Y － 中心点Y<br /> <br /> 结果点X ＝ 旋转_中心差X × 余弦值 － 旋转_中心差Y × 正弦值 ＋ 中心点X<br /> 结果点Y ＝ 旋转_中心差X × 正弦值 ＋ 旋转_中心差Y × 余弦值 ＋ 中心点Y<br /> 返回 (制坐标L (四舍五入 (结果点X, ), 四舍五入 (结果点Y, )))

asasqwwq

第一个代码发错了，有错误，大家别用第一个。

  

子程序名	返回值类型	公开	备 注
图像_位图_旋转_绕点	字节集		返回BMP图。调用“GdiPlus类.ec”。 注意，边缘像素颜色 可能会 因旋转变化，且旋转后尺寸可能增大，导致结果图像不完整，新增部分空白区域默认为“置背景色”。
参数名	类 型	参考	可空	数组	备 注
位图字节集	字节集				可以非位图。
旋转角度	小数型				正数：顺时针旋转；负数：逆时针旋转。
旋转中心x	小数型				旋转后尺寸可能增大，导致结果出现图像不完整； 出现图像空白区(可裁剪空白边框处理)。
旋转中心y	小数型
置背景色	整数型
裁剪空白边框	逻辑型				默认，空=假：不裁剪。

变量名	类 型	静态	数组	备 注
GP图形	GP图形
中心点	坐标F
GP图像	GP图像
GP位图	GP位图
局字节集	字节集
GP纯色画刷	GP纯色画刷

Gdiplus初始化 ()
如果真 (旋转角度 ＝ 0)
返回 (位图字节集)
GP图像.创建自字节集 (位图字节集, )
GP位图.创建自像素格式 (GP图像.取宽度 (), GP图像.取高度 (), )
GP图形.创建自图像 (GP位图)
' --------------------------------------------
如果真 (置背景色 ≠ 0)
GP纯色画刷.创建 (RGB到ARGB (置背景色, ))
GP图形.填充矩形I (GP纯色画刷, 0, 0, GP图像.取宽度 (), GP图像.取高度 ())
GP纯色画刷.销毁 ()
' --------------------------------------------
中心点.x ＝ 旋转中心x
中心点.y ＝ 旋转中心y
GP图形.变形旋转在 (旋转角度, 中心点, )
GP图形.画图像 (GP图像, 0, 0)
局字节集 ＝ GP位图.保存到字节集 ( #图像格式_BMP, )
如果真 (裁剪空白边框)
局字节集 ＝ 图像_位图_裁剪空白边框 (局字节集, 置背景色)

GP图像.销毁 ()
GP位图.销毁 ()
GP图形.销毁 ()
Gdiplus关闭 ()
返回 (局字节集)

.版本 2<br /> <br /> .子程序 图像_位图_旋转_绕点, 字节集, 公开, 返回BMP图。调用“GdiPlus类.ec”。 注意，边缘像素颜色 可能会 因旋转变化，且旋转后尺寸可能增大，导致结果图像不完整，新增部分空白区域默认为“置背景色”。<br /> .参数 位图字节集, 字节集, , 可以非位图。<br /> .参数 旋转角度, 小数型, , 正数：顺时针旋转；负数：逆时针旋转。<br /> .参数 旋转中心x, 小数型, , 旋转后尺寸可能增大，导致结果出现图像不完整； 出现图像空白区(可裁剪空白边框处理)。<br /> .参数 旋转中心y, 小数型<br /> .参数 置背景色, 整数型<br /> .参数 裁剪空白边框, 逻辑型, 可空, 默认，空=假：不裁剪。<br /> .局部变量 GP图形, GP图形<br /> .局部变量 中心点, 坐标F<br /> .局部变量 GP图像, GP图像<br /> .局部变量 GP位图, GP位图<br /> .局部变量 局字节集, 字节集<br /> .局部变量 GP纯色画刷, GP纯色画刷<br /> <br /> Gdiplus初始化 ()<br /> .如果真 (旋转角度 ＝ 0)<br />     返回 (位图字节集)<br /> .如果真结束<br /> GP图像.创建自字节集 (位图字节集, )<br /> GP位图.创建自像素格式 (GP图像.取宽度 (), GP图像.取高度 (), )<br /> GP图形.创建自图像 (GP位图)<br /> ' --------------------------------------------<br /> .如果真 (置背景色 ≠ 0)<br />     GP纯色画刷.创建 (RGB到ARGB (置背景色, ))<br />     GP图形.填充矩形I (GP纯色画刷, 0, 0, GP图像.取宽度 (), GP图像.取高度 ())<br />     GP纯色画刷.销毁 ()<br /> .如果真结束<br /> ' --------------------------------------------<br /> 中心点.x ＝ 旋转中心x<br /> 中心点.y ＝ 旋转中心y<br /> GP图形.变形旋转在 (旋转角度, 中心点, )<br /> GP图形.画图像 (GP图像, 0, 0)<br /> <br /> 局字节集 ＝ GP位图.保存到字节集 (#图像格式_BMP, )<br /> .如果真 (裁剪空白边框)<br />     局字节集 ＝ 图像_位图_裁剪空白边框 (局字节集, 置背景色)<br /> .如果真结束<br /> <br /> GP图像.销毁 ()<br /> GP位图.销毁 ()<br /> GP图形.销毁 ()<br /> Gdiplus关闭 ()<br /> 返回 (局字节集)

  

子程序名	返回值类型	公开	备 注
图像_位图_裁剪空白边框	字节集		返回去掉空白边框后的位图图片。
参数名	类 型	参考	可空	数组	备 注
位图数据	字节集
空白边框颜色	整数型

变量名	类 型	静态	数组	备 注
位图	位图
裁剪位图	位图
宽	整数型
高	整数型
左X	整数型
顶Y	整数型
右X	整数型
底Y	整数型
x	整数型
y	整数型
发现非边框色	逻辑型

位图.载入数据 (位图数据)
宽 ＝ 位图.取宽度 ()
高 ＝ 位图.取高度 ()
连续赋值 (-1, 左X, 顶Y, 右X, 底Y)
变量循环首 (0, 宽 － 1, 1, x)
发现非边框色 ＝ 假
变量循环首 (0, 高 － 1, 1, y)
如果真 (位图.取某点颜色 (x, y) ≠ 空白边框颜色)
发现非边框色 ＝ 真
跳出循环 ()

变量循环尾 ()
如果 (发现非边框色)
如果 (左X ＝ -1)
左X ＝ x  ' 第一次发现边框颜色X
右X ＝ x  ' 左到右记录图像X

如果真 (左X ≠ -1)  ' 第二次发现边框颜色X
跳出循环 ()


变量循环尾 ()
变量循环首 (0, 高 － 1, 1, y)
发现非边框色 ＝ 假
变量循环首 (0, 宽 － 1, 1, x)
如果真 (位图.取某点颜色 (x, y) ≠ 空白边框颜色)
发现非边框色 ＝ 真
跳出循环 ()

变量循环尾 ()
如果 (发现非边框色)
如果 (顶Y ＝ -1)
顶Y ＝ y  ' 第一次发现边框颜色Y
底Y ＝ y  ' 上到下记录图像Y

如果真 (顶Y ≠ -1)  ' 第二次发现边框颜色Y
跳出循环 ()


变量循环尾 ()
左X ＝ 选择 (左X ＝ -1, 0, 左X)
顶Y ＝ 选择 (顶Y ＝ -1, 0, 顶Y)
右X ＝ 选择 (右X ＝ -1, 宽 － 1, 右X)
底Y ＝ 选择 (底Y ＝ -1, 高 － 1, 底Y)
裁剪位图.创建 (右X － 左X ＋ 1, 底Y － 顶Y ＋ 1, 24, )
位图.复制到 (左X, 顶Y, 右X － 左X ＋ 1, 底Y － 顶Y ＋ 1, 裁剪位图, 0, 0, )
返回 (裁剪位图.取位图数据 ())

i支持库列表	支持库注释
BmpOperate	位图操作支持库

.版本 2<br /> .支持库 BmpOperate<br /> <br /> .子程序 图像_位图_裁剪空白边框, 字节集, 公开, 返回去掉空白边框后的位图图片。<br /> .参数 位图数据, 字节集<br /> .参数 空白边框颜色, 整数型<br /> .局部变量 位图, 位图<br /> .局部变量 裁剪位图, 位图<br /> .局部变量 宽, 整数型<br /> .局部变量 高, 整数型<br /> .局部变量 左X, 整数型<br /> .局部变量 顶Y, 整数型<br /> .局部变量 右X, 整数型<br /> .局部变量 底Y, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 发现非边框色, 逻辑型<br /> <br /> 位图.载入数据 (位图数据)<br /> 宽 ＝ 位图.取宽度 ()<br /> 高 ＝ 位图.取高度 ()<br /> 连续赋值 (-1, 左X, 顶Y, 右X, 底Y)<br /> .变量循环首 (0, 宽 － 1, 1, x)<br />     发现非边框色 ＝ 假<br /> <br />     .变量循环首 (0, 高 － 1, 1, y)<br />         .如果真 (位图.取某点颜色 (x, y) ≠ 空白边框颜色)<br />             发现非边框色 ＝ 真<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br /> <br />     .如果 (发现非边框色)<br />         .如果 (左X ＝ -1)<br />             左X ＝ x  ' 第一次发现边框颜色X<br />         .否则<br />             右X ＝ x  ' 左到右记录图像X<br />         .如果结束<br /> <br />     .否则<br />         .如果真 (左X ≠ -1)  ' 第二次发现边框颜色X<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .变量循环尾 ()<br /> <br /> .变量循环首 (0, 高 － 1, 1, y)<br />     发现非边框色 ＝ 假<br /> <br />     .变量循环首 (0, 宽 － 1, 1, x)<br />         .如果真 (位图.取某点颜色 (x, y) ≠ 空白边框颜色)<br />             发现非边框色 ＝ 真<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br /> <br />     .如果 (发现非边框色)<br />         .如果 (顶Y ＝ -1)<br />             顶Y ＝ y  ' 第一次发现边框颜色Y<br />         .否则<br />             底Y ＝ y  ' 上到下记录图像Y<br />         .如果结束<br /> <br />     .否则<br />         .如果真 (顶Y ≠ -1)  ' 第二次发现边框颜色Y<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .变量循环尾 ()<br /> 左X ＝ 选择 (左X ＝ -1, 0, 左X)<br /> 顶Y ＝ 选择 (顶Y ＝ -1, 0, 顶Y)<br /> 右X ＝ 选择 (右X ＝ -1, 宽 － 1, 右X)<br /> 底Y ＝ 选择 (底Y ＝ -1, 高 － 1, 底Y)<br /> <br /> 裁剪位图.创建 (右X － 左X ＋ 1, 底Y － 顶Y ＋ 1, 24, )<br /> 位图.复制到 (左X, 顶Y, 右X － 左X ＋ 1, 底Y － 顶Y ＋ 1, 裁剪位图, 0, 0, )<br /> 返回 (裁剪位图.取位图数据 ())

futiem

#在这里快速回复#分享一个自己用GDI模块写的

罗文

666666666666666

godking

不错，学习一下

asasqwwq

服毒自尽 发表于 2025-1-15 10:37
有点复杂了，遍历非边框色的坐标，取出xy的最大值和最小值就可以求出宽高了 ...

你试试。

服毒自尽

有点复杂了，遍历非边框色的坐标，取出xy的最大值和最小值就可以求出宽高了

kmskik

这个不错看看

please

感谢分享，支持开源！！！

XJxaiojing

666666666666666

XJxaiojing

666666666666666