图像绕点旋转GDI

查过

已经顶贴，感谢您对论坛的支持！

豆豆灰常开心

已经顶贴，感谢您对论坛的支持！

一指温柔

#在这里快速回复#支持开源~！感谢分享

wjswzj0

支持开源~！感谢分享

qqmqqg

6666666666666666666666

qqmqqg

66666666666666666666666

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 /> 返回 (裁剪位图.取位图数据 ())

year1970

感谢分享

查过

感谢分享，很给力！~

豆豆灰常开心

感谢楼主分享！