|
void S_PicXZ(Graphics::TBitmap *Source,Graphics::TBitmap *NewPic,int angle)// 0 s* }- V1 u; u& }: n" J
{ ( h: ?( }& G7 y% P! W" U5 Q
if(angle>180)angle=360-angle;
# g$ K# {: m3 S) ]5 O' R3 Vif(angle<-180)angle=360+angle; 6 h. f2 ?" e, l' |: [9 b/ h- h
float radians=(2*3.1416*angle)/360;
4 G0 M q- L$ A" r, V& ]4 t' M5 jfloat cosine=(float)cos(radians); 1 t/ {- o: Z! [/ [3 b% h2 Q) q- C
float sine=(float)sin(radians);
. y$ W' \- w0 h/ z8 B( l/ [7 Dfloat Point1x=(-Source->Height*sine);
1 R3 ^, @: E+ Bfloat Point1y=(Source->Height*cosine); 9 p" t! a) j3 _/ \) s: [( E6 e
float Point2x=(Source->Width*cosine-Source->Height*sine); + P0 ^6 y' T4 O2 H
float Point2y=(Source->Height*cosine+Source->Width*sine);
J* N3 ]& D! P# Z7 p6 S3 A6 mfloat Point3x=(Source->Width*cosine);
: }3 |- Y1 u6 x) B s: ufloat Point3y=(Source->Width*sine); 0 w9 f' c( L; B/ P
float minx=min((float)0,min(Point1x,min(Point2x,Point3x))); " D0 d! U2 E3 T+ I
float miny=min((float)0,min(Point1y,min(Point2y,Point3y)));
6 q0 n! J" b1 X/ i7 cfloat maxx=max(Point1x,max(Point2x,Point3x)); $ |9 F0 `$ ^4 H: v3 t4 ]; x
float maxy=max(Point1y,max(Point2y,Point3y)); 7 f2 H0 @+ N! Q" k1 H" r
int DestBitmapWidth,DestBitmapHeight; V1 A; Y L, F* v9 Z0 \
if(angle>90&&angle<180) - F/ a7 d# {* _ B/ X0 G
DestBitmapWidth=(int)ceil(-minx);
- p' u# n$ |2 G5 z* Telse " L( s0 ]6 N% }' Y" N
DestBitmapWidth=(int)ceil(maxx-minx);
, [: x" r' r) T; b( Zif(angle>-180&&angle<-90) / M9 e, `0 r! J: j; s
DestBitmapHeight=(int)ceil(-miny);
6 Q2 G$ {1 u7 g8 ], ?0 Lelse 0 T, r, A K2 x# \$ R5 w) Z
DestBitmapHeight=(int)ceil(maxy-miny);
2 T t- s; Y; x1 [( [: QNewPic->Height=DestBitmapHeight;
" N& o3 X$ B% Q; z2 ]# cNewPic->Width=DestBitmapWidth; & C" S" V3 S% f, c# b
for(int x=0;x<DestBitmapWidth;x++)
& w& ^1 T, h5 A. Q! O* K2 f$ Q! [{
7 Y( k$ i8 q# _5 Lfor(int y=0;y<DestBitmapHeight;y++){ . N% z9 e9 p( R( P8 c5 ^7 G
int SrcBitmapx=(int)((x+minx)*cosine+(y+miny)*sine); ; {: |/ b8 W* ~9 K" G! ]
int SrcBitmapy=(int)((y+miny)*cosine-(x+minx)*sine);
$ ?# h& m O. }) ~" Gif(SrcBitmapx>=0&&SrcBitmapx<Source->Width&&SrcBitmapy>=0&& 2 A* q( u# ?! ^, @
SrcBitmapy<Source->Height)
6 H. b E9 s" `% p, u( |{
- ^3 v' ?+ L" N' \NewPic->Canvas-> ixels[x][y]=
/ d# P; W5 K$ T4 E& i/ `. uSource->Canvas-> ixels[SrcBitmapx][SrcBitmapy]; 7 R2 z+ [: \5 a, D3 e: @ Z
}
( \$ `2 `8 J: J1 i}
+ V6 W; t5 g( s H( d$ {8 X% s2 a} ; X5 n# H) T; u9 ?# Q0 L- v
} |