Поворот картинки

[delphin100]

Здравствуйте!
Кто знает как повернуть картинку относительно вертикальной оси. Может кто-то занимался данной проблемой. Если кто-то знает алгоритм поворота не только вокруг оси, но и относительно точки картинки.

[BOBAH13]

Если память не подводит, то есть открытая библиотека FastDIB для дельфи. Открываем смотрим класс и ищем поворот.

[delphin100]

Спасибо попробую кстати если просто сужать потом расширять картинку не знаете как реалистично или нет. Про библиотеку сейчас попробую.

[Levsha100]

Можно с старыми добрыми Синусами и Косинусами, но страдает качество...

[DomiNick]

Погляди тут (пост №27)... Там есть нечто похожее...

Открой там папку "rotozoom" и скомпилируй проэкт... Только чтоб не текст, а картинка крутилась нужно скопировать файл "ijl15.dll" из корневого каталога в папку проэкта...

[Ntlegend]

delphin100, попробуйте разобраться с этом коде

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    DrawBtn: TButton;
    AngleEdit: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    XEdit: TEdit;
    YEdit: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
//    procedure RotateBitmapFast(Src: TBitmap; out Dest: TBitmap; Center: TPoint; Angle: Double);
    procedure DrawBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  BGR = packed record
    B: Byte;
    G: Byte;
    R: Byte;
  end;

  TBGR = array [word] of BGR;

var
  Form1: TForm1;
  Img, Bmp: TBitmap;      // битмапы
  DC: HDC;                // контекст
  t: Integer;             // таймер
  Center: TPoint;         // для центра вращения


implementation

{$R *.dfm}

procedure RotateBitmapFast(Src: TBitmap; out Dest: TBitmap; Angle: Double);
var
  x, y: Integer;
  PixelX, PixelY: Integer;
  DispX, DispY: Integer;
  SrcBGR, DestBGR: ^TBGR;
  SinRad, CosRad: Double;
  Center: TPoint;
begin
Center.X:=Src.Width div 2
Dest.Width := Src.Width;
Dest.Height := Src.Height;
Dest.PixelFormat := pf24bit;
SinRad := Sin(-Angle);
CosRad := Cos(-Angle);
For y := Dest.Height - 1 downto 0 do
 Begin
  DestBGR := Dest.Scanline[y];
  DispX := 2 * (y - Center.Y) + 1;
   For x := Dest.Width-1 downto 0 do
    Begin
     DispY := 2 * (x - Center.X) + 1;
     PixelX := (Round(DispY * CosRad - DispX * SinRad) - 1) div 2 + Center.X;
     PixelY := (Round(DispY * SinRad + DispX * CosRad) - 1) div 2 + Center.Y;

     If (PixelX >= 0) and (PixelX <= Src.Width-1)
         and (PixelY >= 0) and (PixelY <= Src.Height-1)
      then Begin
        SrcBGR := Src.Scanline[PixelY];
        DestBGR[x] := SrcBGR[PixelX]
       end
       else Begin
        DestBGR[x].B := 0;
        DestBGR[x].G := 0;
        DestBGR[x].R := 0;
       end;
    end;
 end;
end;

procedure TForm1.DrawBtnClick(Sender: TObject);
begin
  // создание, загрузка картинки источника
  Img := TBitmap.Create;
  Img.LoadFromFile('sprite.bmp');

  // создание приемника изображения
  Bmp := TBitmap.Create;
  Bmp.PixelFormat := pf24bit;
  Bmp.Width := Img.Width;
  Bmp.Height := Img.Height;

  // получить счет
  t := GetTickCount;

  // в проверку, если пользователь начудит с координатами
  Try
    Center.X := StrToInt(XEdit.Text);
    Center.Y := StrToInt(YEdit.Text);
    RotateBitmapFast(Img, Bmp, StrToInt(AngleEdit.Text));
  Finally
    Label2.Caption := 'Время выполнения: '+IntToStr(GetTickCount-t)+' мс';
    Img.Free;
  end;

  // получить контекст формы
  DC := GetDC(Form1.Handle);
  // отрисовка от точки (20,20) до размеров битмапа
  BitBlt(DC, 20, 20, Bmp.Width, Bmp.Height, Bmp.Canvas.Handle, 0, 0, SRCCOPY);
  // освобождение контекста
  ReleaseDC(Form1.Handle, DC);
  // удаление
  DeleteDC(DC);
end;

end.

Levsha100, а качество не теряется.. покрайней мере я не заметил

[mutabor]

Сообщение от Levsha100

Можно с старыми добрыми Синусами и Косинусами, но страдает качество...

Ну так а в библиотеке той, думете что-то другое используется?
Просто там уже все реализовано и отлажено, почему не воспользоваться.