开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 862|回复: 35
收起左侧

[易源码分享] 图像绕点旋转GDI

[复制链接]
结帖率:0% (0/1)
发表于 2025-1-1 17:27:08 | 显示全部楼层 |阅读模式   重庆市重庆市
分享源码
界面截图: -
是否带模块: -
备注说明: -
本帖最后由 asasqwwq 于 2025-1-1 17:35 编辑

找了很多图像绕点旋转的代码,都不对,这里分享一个自己用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关闭 ()
返回 (局字节集)

  
子程序名返回值类型公开备 注
图像_位图_裁剪空白边框字节集 返回去掉空白边框后的位图图片。
参数名类 型参考可空数组备 注
位图数据字节集
空白边框颜色整数型
变量名类 型静态数组备 注
位图位图 
裁剪位图位图 
整数型 
整数型 
左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位图操作支持库

  
子程序名返回值类型公开备 注
点_计算某点绕中心点旋转坐标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, )))


本帖被以下淘专辑推荐:

  • · 收藏|主题: 250, 订阅: 6
结帖率:0% (0/1)

签到天数: 20 天

 楼主| 发表于 2025-1-2 09:13:46 | 显示全部楼层   重庆市重庆市
本帖最后由 asasqwwq 于 2025-1-2 14:49 编辑

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

  
子程序名返回值类型公开备 注
图像_位图_旋转_绕点字节集 返回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关闭 ()
返回 (局字节集)

  
子程序名返回值类型公开备 注
图像_位图_裁剪空白边框字节集 返回去掉空白边框后的位图图片。
参数名类 型参考可空数组备 注
位图数据字节集
空白边框颜色整数型
变量名类 型静态数组备 注
位图位图 
裁剪位图位图 
整数型 
整数型 
左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位图操作支持库

回复 支持 反对

使用道具 举报

签到天数: 4 天

发表于 2025-2-5 10:52:02 | 显示全部楼层   山东省潍坊市
不错,学习一下
回复 支持 反对

使用道具 举报

结帖率:0% (0/1)

签到天数: 20 天

 楼主| 发表于 2025-1-15 15:16:03 | 显示全部楼层   重庆市重庆市
服毒自尽 发表于 2025-1-15 10:37
有点复杂了,遍历非边框色的坐标,取出xy的最大值和最小值就可以求出宽高了 ...

你试试。
回复 支持 反对

使用道具 举报

签到天数: 2 天

发表于 2025-1-15 10:37:30 高大上手机用户 | 显示全部楼层   **
有点复杂了,遍历非边框色的坐标,取出xy的最大值和最小值就可以求出宽高了
回复 支持 反对

使用道具 举报

结帖率:93% (25/27)

签到天数: 2 天

发表于 2025-1-6 08:32:27 高大上手机用户 | 显示全部楼层   山东省济南市
这个不错看看
回复 支持 反对

使用道具 举报

签到天数: 24 天

发表于 2025-1-5 09:39:33 | 显示全部楼层   浙江省宁波市
感谢分享,支持开源!!!
回复 支持 反对

使用道具 举报

签到天数: 25 天

发表于 2025-1-5 01:11:58 | 显示全部楼层   北京市北京市
666666666666666
回复 支持 反对

使用道具 举报

签到天数: 25 天

发表于 2025-1-5 01:00:54 | 显示全部楼层   北京市北京市
666666666666666
回复 支持 反对

使用道具 举报

签到天数: 7 天

发表于 2025-1-4 20:54:44 | 显示全部楼层   广东省东莞市
谢谢分享
回复 支持 反对

使用道具 举报

结帖率:92% (24/26)

签到天数: 20 天

发表于 2025-1-4 11:16:01 | 显示全部楼层   河南省南阳市
感谢分享
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
网站简介:精易论坛成立于2009年,是一个程序设计学习交流技术论坛,隶属于揭阳市揭东区精易科技有限公司所有。
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表