Повернуть изображение и изменить атрибуты файла

[digitalis]

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

Это просто идея, через Pixels будет работать медленно, но принцип понятен.

Но по любому быстрее, чем через Sin Cos, думаю.

[Arigato]

Тут суть не в скорости, а в том, что для поворота на 90 или 180 градусов никакая тригонометрия не нужна. А для скорости надо использовать ScanLine.

[Kronos913]

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

А для скорости надо использовать ScanLine.

А можно подробнее, как это работает, как использовать?

[Arigato]

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

[Kronos913]

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

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

Тот пример я скопировал.
Есть ли какой-то способ напрямую сделать "строка изображения 1 := столбец изображения 2" ?

[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 ДОЛЬШЕ

[Kronos913]

Ок, повозившись, дошел до такого кода

      DestBitmap.Width:=SourceBitmap.Height;
      DestBitmap.Height:=SourceBitmap.Width;
      For j:=0 to DestBitmap.Height-1 do begin
        RotatedRow := DestBitmap.Scanline[j];
        For i:=0 to DestBitmap.Width-1 do begin
          OriginalRow := SourceBitmap.Scanline[i];
          RotatedRow[i]:=OriginalRow[DestBitmap.Height-j-1];
        end;
      end;

Вопрос: обязательно ли через указатели работать со сканлайном? Или можно напрямую
Потому что при повороде на 180 экономемия по времени да есть, а вот при повороте на 90 экономии от такого кода нет вообще

[Kronos913]

Нашел такое решение

PixAr: array [0..32768] of pPixelArray;

      DestBitmap.Width:=SourceBitmap.Height;
      DestBitmap.Height:=SourceBitmap.Width;
      For i:= 0 to DestBitmap.Width-1 do PixAr[i]:=SourceBitmap.Scanline[i];

      For j:=0 to DestBitmap.Height-1 do begin
        RotatedRow := DestBitmap.Scanline[j];
        For i:=0 to DestBitmap.Width-1 do begin
          RotatedRow[i]:=PixAr[i][DestBitmap.Height-j-1];
        end;
      end;

Вопрос только в том, есть ли способ лучше? И не будет ли тут переполнений стека?

[Kronos913]

Вот полученный код. Можно ли его как-то улучшить?

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

var

  i, j: integer;
  OriginalRow : pPixelArray;
  RotatedRow : pPixelArray;
  PixAr: array [0..32768] of pPixelArray;

begin

  DestBitmap.PixelFormat := pf24bit;
  case Angle10 of
    0: begin
      DestBitmap.Height:=SourceBitmap.Height;
      DestBitmap.Width:=SourceBitmap.Width;
      For j:=0 to DestBitmap.Height-1 do begin
        RotatedRow := DestBitmap.Scanline[j];
        OriginalRow := SourceBitmap.Scanline[DestBitmap.Height-j-1];
        For i:=0 to DestBitmap.Width-1 do begin
          RotatedRow[i]:=OriginalRow[DestBitmap.Width-i-1];
        end;
      end;
    end;
    -1: begin
      DestBitmap.Width:=SourceBitmap.Height;
      DestBitmap.Height:=SourceBitmap.Width;
      For i:= 0 to DestBitmap.Width-1 do PixAr[i]:=SourceBitmap.Scanline[i];

      For j:=0 to DestBitmap.Height-1 do begin
        RotatedRow := DestBitmap.Scanline[j];
        For i:=0 to DestBitmap.Width-1 do begin
          RotatedRow[i]:=PixAr[i][DestBitmap.Height-j-1];
        end;
      end;
    end;
    1: begin
      DestBitmap.Width:=SourceBitmap.Height;
      DestBitmap.Height:=SourceBitmap.Width;
      For i:= 0 to DestBitmap.Width-1 do PixAr[i]:=SourceBitmap.Scanline[DestBitmap.Width-i-1];

      For j:=0 to DestBitmap.Height-1 do begin
        RotatedRow := DestBitmap.Scanline[j];
        For i:=0 to DestBitmap.Width-1 do begin
          RotatedRow[i]:=PixAr[i][j];
        end;
      end;
    end;
  end;

end;

[Kronos913]

Я до сих пор только не пойму, почему оно работает только через указатели и не хочет напрямую...