数学建模社区-数学中国

标题: 任意角度图片旋转 [打印本页]

作者: 韩冰 时间: 2005-1-26 12:47
标题: 任意角度图片旋转

void S_PicXZ(Graphics::TBitmap *Source,Graphics::TBitmap *NewPic,int angle)// ' g& X8 c" ], D: \" s5 ^{ - |7 v. R4 D. P2 y8 _if(angle>180)angle=360-angle; # |. k; \ k- A! P9 a: o6 y. [ if(angle<-180)angle=360+angle;

float radians=(2*3.1416*angle)/360; $ i( k3 e$ }3 t& O! x, @float cosine=(float)cos(radians); ; R% o7 {: w5 j' o3 Cfloat sine=(float)sin(radians); 6 i$ V, d7 T' c# u" T6 x float Point1x=(-Source->Height*sine); * @/ u% V* H+ R" n' t ?2 L float Point1y=(Source->Height*cosine); $ ^: |8 A+ |, w( A2 n1 sfloat Point2x=(Source->Width*cosine-Source->Height*sine); 1 ], p& `9 X# s9 W; Sfloat Point2y=(Source->Height*cosine+Source->Width*sine); ! C* T5 @8 J0 ~ float Point3x=(Source->Width*cosine); % R1 m5 k [9 R! ]' a$ [% \ float Point3y=(Source->Width*sine); ) F4 h# s3 }& B: T float minx=min((float)0,min(Point1x,min(Point2x,Point3x))); 1 Y( d! {% y# r; L2 ]4 }float miny=min((float)0,min(Point1y,min(Point2y,Point3y))); : t4 P$ e0 k& w8 l3 c6 Y8 w4 k float maxx=max(Point1x,max(Point2x,Point3x)); " t7 I( S5 }2 R float maxy=max(Point1y,max(Point2y,Point3y)); : b( t3 T1 H% v7 [) zint DestBitmapWidth,DestBitmapHeight; # |, C* e5 o# V# P if(angle>90&&angle<180) $ t9 f) R1 @6 y DestBitmapWidth=(int)ceil(-minx); 7 \! R8 Z9 {2 \. R8 [else / \6 u5 @9 f8 H: FDestBitmapWidth=(int)ceil(maxx-minx);

if(angle>-180&&angle<-90) . [$ {+ N. Y; \8 i/ R% H5 | DestBitmapHeight=(int)ceil(-miny); + D% l3 Z9 P6 D! {& ^0 ?% Relse & ]# v% p' c+ j& P# L5 @: \ DestBitmapHeight=(int)ceil(maxy-miny);

NewPic->Height=DestBitmapHeight; 1 v a" x' T: i4 I/ r' v NewPic->Width=DestBitmapWidth; 2 f9 i, _1 Q0 Z$ o, o7 ~- w for(int x=0;x<DestBitmapWidth;x++) # A* J& \ r! u0 m { : M. E, ?8 l. s for(int y=0;y<DestBitmapHeight;y++){ + ]( ~, ?; g9 lint SrcBitmapx=(int)((x+minx)*cosine+(y+miny)*sine); ' i: t6 Z* ~. P1 @ int SrcBitmapy=(int)((y+miny)*cosine-(x+minx)*sine); - y$ o7 r# @, W' p2 n# rif(SrcBitmapx>=0&&SrcBitmapx<Source->Width&&SrcBitmapy>=0&& ' S! V$ l) F) c: P) s! u. h2 J, S SrcBitmapy<Source->Height) ; P ^' m4 I+ K* I2 Y$ O{ / s( d2 z+ p( G4 W) \: _ NewPic->Canvas->ixels[x][y]= + p) P$ C: o' ?: N. f) [Source->Canvas->ixels[SrcBitmapx][SrcBitmapy]; ( _4 K" u1 a6 A& }: T } % @9 j( V8 t% z/ B } 8 _2 ?; z& N) v' K6 D* `# T2 L } 9 X/ U; P; c, y# ~% H& m}

欢迎光临数学建模社区-数学中国 (http://www.madio.net/)