|
void S_PicXZ(Graphics::TBitmap *Source,Graphics::TBitmap *NewPic,int angle)// 0 V" b `' }3 Q5 x0 c1 Z% K; P4 U
{
; j0 \4 @! o! k: N+ m: Tif(angle>180)angle=360-angle; " ]. r7 w" x0 R6 F
if(angle<-180)angle=360+angle;
8 _; J9 p; D- g0 u" Gfloat radians=(2*3.1416*angle)/360;
+ @6 v0 Q4 t1 r, ~& [3 O/ \float cosine=(float)cos(radians); ( i- ]6 L+ {8 E: J, _0 }
float sine=(float)sin(radians);
) @ m; ?( I, H \4 V& Cfloat Point1x=(-Source->Height*sine); ; J7 H! ]( g. @0 U
float Point1y=(Source->Height*cosine); # j$ A( h7 O8 w. D3 F9 t7 x
float Point2x=(Source->Width*cosine-Source->Height*sine);
1 p. t2 w; e9 j6 A* dfloat Point2y=(Source->Height*cosine+Source->Width*sine);
4 B0 s+ h+ A. m( Dfloat Point3x=(Source->Width*cosine);
+ w0 q9 |; G, kfloat Point3y=(Source->Width*sine); ) K! Z0 M: x- c* Z4 H8 j) E
float minx=min((float)0,min(Point1x,min(Point2x,Point3x)));
( V2 [' u, \5 p qfloat miny=min((float)0,min(Point1y,min(Point2y,Point3y))); ! U# R+ C, [) b$ z @: @( V* O
float maxx=max(Point1x,max(Point2x,Point3x)); 1 u' I/ @/ {* A" j8 L
float maxy=max(Point1y,max(Point2y,Point3y));
# P( @/ {& m) |, D6 Uint DestBitmapWidth,DestBitmapHeight; ' ~8 |7 ^5 D8 V2 v" U4 z) T5 g
if(angle>90&&angle<180) : q% o- D$ @7 D& Z V y( P1 s- Q
DestBitmapWidth=(int)ceil(-minx); 2 d6 f& E7 \+ h- {
else
9 r+ B$ M p# D* [' M+ i" {DestBitmapWidth=(int)ceil(maxx-minx);
( t: d2 C2 C0 f* E& fif(angle>-180&&angle<-90)
$ t) @. F( {. z) D; S+ b9 jDestBitmapHeight=(int)ceil(-miny);
0 s. g2 f8 u J9 `else
' I/ a/ R3 ~) ~+ GDestBitmapHeight=(int)ceil(maxy-miny); 6 k, ?+ \; g0 O
NewPic->Height=DestBitmapHeight;
3 L6 H; k# q* ?1 t" ^NewPic->Width=DestBitmapWidth;
% z( A. n3 f4 L7 [8 lfor(int x=0;x<DestBitmapWidth;x++) " e' I! _" k% j9 a( I
{
$ [/ f5 T+ m4 M( M* R& ofor(int y=0;y<DestBitmapHeight;y++){
% a" e* [# |4 P. X" l9 Cint SrcBitmapx=(int)((x+minx)*cosine+(y+miny)*sine);
6 ^/ Z5 n4 q4 A- M- `int SrcBitmapy=(int)((y+miny)*cosine-(x+minx)*sine); ( e/ N( F$ k* X/ n9 W! x$ N
if(SrcBitmapx>=0&&SrcBitmapx<Source->Width&&SrcBitmapy>=0&&
, d) ?. Y9 O8 Q" p$ }$ A' y$ G1 ]SrcBitmapy<Source->Height)
% P4 }1 p& P6 d# L1 h6 l5 C* @{
1 ^0 s% L% N: P' `/ D$ G# ^6 FNewPic->Canvas-> ixels[x][y]= * A1 X, ~, q) y0 [. e9 A/ X
Source->Canvas-> ixels[SrcBitmapx][SrcBitmapy];
. K& J5 Y1 o2 l# y9 x" }2 u4 O}
( b, A9 @1 x( P/ E1 f}
) J& q) \& J( Z0 T* V+ f2 ~4 H}
* R$ k1 I0 S- T9 M; R1 Q" W} |