Поворот на 90/180 (помогите оптимизировать)

[Kronos913]

На просторах интернета не нашел нигде как повернуть изображение на 90 / 180 градусов. Но нашел поворот на любой угол. Немного подогнав процедуру с примера под свои задачи получился такой вот код.

procedure RotateBitmap_ads(SourceBitmap: TBitmap;
          out DestBitmap: TBitmap; Angle10: ShortInt);
type
  PixelArray=array [0..32768] of TRGBTriple;
  pPixelArray=^PixelArray;


Const
  Angle: array [-1..1] of integer = (-90, 180, 90);

var
  cosRadians : Double;
  inX : Integer;
  inXOriginal : Integer;
  inXPrime : Integer;
  inXPrimeRotated : Integer;
  inY : Integer;
  inYOriginal : Integer;
  inYPrime : Integer;
  inYPrimeRotated : Integer;
  OriginalRow : pPixelArray;
  Radians : Double;
  RotatedRow : pPixelArray;
  sinRadians : Double;

  Center: TPoint;

  function Chot(const dd:integer) : integer;
  begin
   Chot:= dd - (dd mod 2);
  end;

begin

  case Angle10 of
            -1: begin
                 DestBitmap.Height := Chot(SourceBitmap.Width);
                 DestBitmap.Width := Chot(SourceBitmap.Height);
                 Center.X:= SourceBitmap.Width div 2;
                 Center.Y:= SourceBitmap.Width div 2;
                end;
             0: begin
                 DestBitmap.Width := Chot(SourceBitmap.Width);
                 DestBitmap.Height := Chot(SourceBitmap.Height);
                 Center.X:= DestBitmap.Width div 2;
                 Center.Y:= DestBitmap.Height div 2;
                end;
             1: begin
                 DestBitmap.Height := Chot(SourceBitmap.Width);
                 DestBitmap.Width := Chot(SourceBitmap.Height);
                 Center.X:= SourceBitmap.Height div 2;
                 Center.Y:= SourceBitmap.Height div 2;
                end;
  end;

  DestBitmap.PixelFormat := pf24bit;
  Radians := -(Angle[Angle10]) * PI / 180;
  sinRadians := Sin(Radians);
  cosRadians := Cos(Radians);
  for inX := DestBitmap.Height-1 downto 0 do
  begin
    RotatedRow := DestBitmap.Scanline[inX];
    inXPrime := 2*(inX - Center.y) + 1;
    for inY := DestBitmap.Width-1 downto 0 do
    begin
      inYPrime := 2*(inY - Center.x) + 1;
      inYPrimeRotated := Round(inYPrime * CosRadians - inXPrime * sinRadians);
      inXPrimeRotated := Round(inYPrime * sinRadians + inXPrime * cosRadians);
      inYOriginal := (inYPrimeRotated - 1) div 2 + Center.x;
      inXOriginal := (inXPrimeRotated - 1) div 2 + Center.y;
      if (inYOriginal >= 0) and (inYOriginal <= SourceBitmap.Width-1) and
      (inXOriginal >= 0) and (inXOriginal <= SourceBitmap.Height-1) then
      begin
        OriginalRow := SourceBitmap.Scanline[inXOriginal];
        RotatedRow[inY] := OriginalRow[inYOriginal];
      end
      else
      begin
        RotatedRow[inY].rgbtBlue := 255;
        RotatedRow[inY].rgbtGreen := 0;
        RotatedRow[inY].rgbtRed := 0
      end;
    end;
  end;
end;

Работает все хорошо, но ооочень долго. И мне уже писали, что "а зачем тебе тригонометрия"

В общем. Можете помочь сделать процедуру поворачивающую на 90 или 180 градусов без тригонометрии, так чтобы быстрее работало?

[Arigato]

Так вам уже отвечали - https://www.programmersforum.ru/show...92#post1830092
Зачем однотипные темы плодить?

[Kronos913]

Что характерно
Попробовал вот такой вот код:

      DestBitmap.Height:=SourceBitmap.Height;
      DestBitmap.Width:=SourceBitmap.Width;
      For j:=0 to DestBitmap.Height-1 do begin
       For i:=0 to DestBitmap.Width-1 do begin
        DestBitmap.Canvas.Pixels[i, j]:=SourceBitmap.Canvas.Pixels[SourceBitmap.Width-i, SourceBitmap.Height-j]
       end;
      end;

Работает раз в 10 ДОЛЬШЕ