这个过程看不懂,谁能帮我把它改成旋转180度及270度?最好给我解释一下.(100分)

taizhi · 2006-08-29

为什么90度与270度就有用,而180度就不作用呢?

lanyun2 · 2006-08-29

{我用的是Delphi7 下边是我做测试时的所有代码 测试是成功的 } unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Buttons, ExtCtrls; type  TForm1 = class(TForm)    Image1: TImage;    BitBtn1: TBitBtn;    BitBtn2: TBitBtn;    procedure FormCreate(Sender: TObject);    procedure BitBtn1Click(Sender: TObject);    procedure BitBtn2Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} //逆时针旋转90度 procedure ImageRotate90(aBitmap: TBitmap); var  nIdx, nOfs,  x, y, i,  nMultiplier: integer;  nMemWidth, nMemHeight, nMemSize,  nScanLineSize: LongInt;  aScnLnBuffer: PChar;  aScanLine: PByteArray; begin  nMultiplier := 3;//(ABitmap);  nMemWidth := aBitmap.Height;  nMemHeight := aBitmap.Width;  nMemSize := nMemWidth * nMemHeight * nMultiplier;  GetMem(aScnLnBuffer, nMemSize);  try   nScanLineSize := aBitmap.Width * nMultiplier;   GetMem(aScanLine, nScanLineSize);   try     for y := 0 to aBitmap.Height-1 do     begin       Move(aBitmap.ScanLine[y]^, aScanLine^, nScanLineSize);       for x := 0 to aBitmap.Width-1  do       begin         nIdx := ((aBitmap.Width-1) - x) * nMultiplier;         nOfs := (X * nMemWidth * nMultiplier) +  // y component of the dst                   (y * nMultiplier); // x component of the dst         for i := 0 to nMultiplier-1 do           Byte(aScnLnBuffer[nOfs + i]) := aScanLine[nIdx+i];       end;     end;     aBitmap.Height := nMemHeight;     aBitmap.Width := nMemWidth;     for y := 0 to nMemHeight-1 do     begin       nOfs := y * nMemWidth * nMultiplier;       Move((@(aScnLnBuffer[nOfs]))^, aBitmap.ScanLine[y]^, nMemWidth * nMultiplier);     end;   finally     FreeMem(aScanLine, nScanLineSize);   end;  finally    FreeMem(aScnLnBuffer, nMemSize);  end; end; //TODO: //下边是旋转180度的 // procedure ImageRotate180(aBitmap: TBitmap); var  nIdx, nOfs,  x, y, i,  nMultiplier: integer;  nMemWidth, nMemHeight, nMemSize,  nScanLineSize: LongInt;  aScnLnBuffer: PChar;  aScanLine: PByteArray; begin                                  //TODO:这里应该是根据Abitmap.PixelFormat返回的一个值，                    //例如Pf24bit应该是3                    // 这里我用了3 ，   简单起见，呵呵                    //  nMultiplier := 3;//(ABitmap);  nMemWidth := aBitmap.Width;  nMemHeight := aBitmap.Height;  nMemSize := nMemWidth * nMemHeight * nMultiplier; //获取整个图片大小的内存  GetMem(aScnLnBuffer, nMemSize);                   //-  try   nScanLineSize := aBitmap.Width * nMultiplier;   //图片的扫描行宽度   GetMem(aScanLine, nScanLineSize);   try     for y :=0 to  aBitmap.Height-1 do     begin       Move(aBitmap.ScanLine[y]^, aScanLine^, nScanLineSize);       //下边这个循环主要功能就是根据旋转的度数要求       //将原图片中像素的值放到缓冲区中合适的位置。       //例如要求旋转180度。则原图中左上角的像素应该变成缓冲       //区中的右下角的像素       for x := 0 to aBitmap.Width-1  do       begin         nIdx := ( x) * nMultiplier;         nOfs := ((ABitmap.Height-1-y) * nMemWidth * nMultiplier) +  // y component of the dst                   ((ABitMap.Width-1- X) * nMultiplier); // x component of the dst         for i := 0 to nMultiplier-1 do           Byte(aScnLnBuffer[nOfs + i]) := aScanLine[nIdx+i];       end;     end;     aBitmap.Height := nMemHeight;     aBitmap.Width := nMemWidth;     //将缓冲区中的数据刷新到图片中     for y := 0 to nMemHeight-1 do     begin       nOfs := y * nMemWidth * nMultiplier;       Move((@(aScnLnBuffer[nOfs]))^, aBitmap.ScanLine[y]^, nMemWidth * nMultiplier);     end;   finally     FreeMem(aScanLine, nScanLineSize);   end;  finally    FreeMem(aScnLnBuffer, nMemSize);  end; end; procedure TForm1.FormCreate(Sender: TObject); begin                             //莫怪，呵呵，随手画的一个图片   image1.Picture.Bitmap.LoadFromFile('D:/123.bmp'); end; procedure TForm1.BitBtn1Click(Sender: TObject); begin ImageRotate180(Image1.Picture.Bitmap); Image1.Refresh; end; procedure TForm1.BitBtn2Click(Sender: TObject); begin ImageRotate90(Image1.Picture.Bitmap); Image1.Refresh; end; end.

冰力不足 · 2006-08-29

我说代码象马尿是因为一看就头晕至于公式怎么来的 我的大脑拒绝看这样的代码 ^_^ 不过如果你做过天文学程序坐标变换黄道转地平转赤道行星轨道计算 ... 再来看这个东东好象就是很丑陋转换插值精度不高 本人太菜说错请包涵

taizhi · 2006-08-29

多人接受答案了。

taizhi · 2006-08-29

忘记对lanyun2及zywcd说声谢谢了,谢谢!

这个过程看不懂,谁能帮我把它改成旋转180度及270度?最好给我解释一下.(100分)

taizhi

Unregistered / Unconfirmed

lanyun2

Unregistered / Unconfirmed

冰力不足

Unregistered / Unconfirmed

taizhi

Unregistered / Unconfirmed

taizhi

Unregistered / Unconfirmed

Similar threads