DELPHI 图片任意角旋转 DELPHI 图片任意角旋转
//图片旋转
//输入参数
// srcImg : TBitmap 源图
// angle : extended 旋转角度
//输出参数
// result : TBitmap ; 旋转后的图
//作者:胡睿 CSDN: huruihappy. 欢迎访问 www.googler.cc 更多惊喜
//QQ : 235483710
//Email : 235483710@qq.com
//代码仅限交流
//
======================================================================
========
function TForm1.ImageRotate(srcImg1: TBitmap; angle: extended): TBitmap;
var
radius, n: integer;
alpha: extended;
DestBmp : TBitmap ;
fRotateAngle : extended ; //弧度
fsrcX1,fsrcX2,fsrcX3,fsrcX4, fsrcY1,fsrcY2,fsrcY3,fsrcY4 : Extended ; //原图 4 个定点坐标
fDestX1,fDestX2,fDestX3,fDestX4, fDestY1,fDestY2,fDestY3,fDestY4 : Extended ; //目标图 4
个顶点坐标
fSina,fCosa : Extended ; //旋转角的正弦和余弦值
f1,f2 : Extended ; //常数
coX,coY : Extended ; //输出图像在输入图像中待插值的坐标,必须为浮点
Iu,Iv,i,j,k,t1,t2 : Integer ;
begin
//作者:胡睿 CSDN: huruihappy. 欢迎访问 www.googler.cc 更多惊喜
//QQ : 235483710
//Email : 235483710@qq.com
//代码仅限交流
DestBmp := TBitmap.Create ;
//将角度转化为弧度
fRotateAngle := Pi * angle / 180 ;
//计算旋转角的正弦
fSina := Sin(fRotateAngle) ;
//计算旋转角的余弦
评论20