Алгоритм поворота изображения

Сколько в Гейтса тортом не кидай, Windows лучше не станет.

Вот алгоритм поворота изображения. Пусть:

O - это центр поворота,
M - некая точка исходного изображения.

Для каждой точки M нужно найти угол alpha между отрезком OM и горизонталью и длину r отрезка OM. Теперь, чтобы повернуть изображение на угол beta, нужно каждой точке M присвоить цвет точки исходного изображения с координатами x,y, где

x = xo + r * cos(alpha + beta)
y = yo + r * sin(alpha + beta)

xo,yo - центр поворота,
r - длина отрезка OM

Важно именно каждой точке нового изображения сопоставлять точку старого изображения, а не наоборот, так как иначе некоторые точки нового изображения останутся не закрашенными.

Эту программу можно сильно ускорить, если исходное изображение записать в массив и обращаться к реальной переменной, а не к свойству Canvas.Pixels.

uses
  Math;

procedure TForm1.Button1Click(Sender: TObject);
var
  bm, bm1: TBitMap;
  x, y: integer;
  r, a: single;
  xo, yo: integer;
  s, c: extended;
begin
  bm := TBitMap.Create;
  bm.LoadFromFile('ex.bmp');
  xo := bm.Width div 2;
  yo := bm.Height div 2;
  bm1 := TBitMap.Create;
  bm1.Width := bm.Width;
  bm1.Height := bm.Height;
  a := 0;
  repeat
    for y := 0 to bm.Height - 1 do
    begin
      for x := 0 to bm.Width - 1 do
      begin
        r := sqrt(sqr(x - xo) + sqr(y - yo));
        SinCos(a + arctan2((y - yo), (x - xo)), s, c);
        bm1.Canvas.Pixels[x,y] := bm.Canvas.Pixels[
        round(xo + r * c), round(yo + r * s)];
      end;
      Application.ProcessMessages;
    end;
    Form1.Canvas.Draw(xo, yo, bm1);
    a := a + 0.05;
    Application.ProcessMessages;
  until
    Form1.Tag <> 0;
  bm.Destroy;
  bm1.Destroy;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Form1.Tag := 1;
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 441 • TDictionary Custom Sort 6 471 • Fast Watermark Sources 6 262 • 3D Designer 9 215 • Sik Screen Capture 6 599 • Patch Maker 6 986 • Айболит (remote control) 6 985 • ListBox Drag & Drop 5 858 • Доска для игры Реверси 97 004 • Графические эффекты 7 187 • Рисование по маске 6 482 • Перетаскивание изображений 5 350 • Canvas Drawing 5 726 • Рисование Луны 5 441 • Поворот изображения 4 970 • Рисование стержней 3 532 • Paint on Shape 2 799 • Генератор кроссвордов 3 666 • Головоломка Paletto 2 953 • Теорема Монжа об окружностях 3 761 • Пазл Numbrix 2 479 • Заборы и коммивояжеры 3 165 • Игра HIP 2 128 • Игра Go (Го) 2 060 • Симулятор лифта 2 425 • Программа укладки плитки 2 108 • Генератор лабиринта 2 570 • Проверка числового ввода 2 259 • HEX View 2 586 • Физический маятник 2 200

Алгоритм поворота изображения

Похожие по теме исходники