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

[BDA]

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

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

Взял коды с Pixels и со Scanline. На одном и том же изображении (850 на 320 пикселей) первый работает 2 миллиона тиков, а второй - 5 тысяч тиков. Какого размера у вас изображения, если хочется еще быстрее?

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

не хочет напрямую

Что значит напрямую? Изображение в памяти лежит построчно, поэтому сразу присвоить строке столбец не получится.

[Kronos913]

Что значит напрямую? Изображение в памяти лежит построчно, поэтому сразу присвоить строке столбец не получится.

Scanline не хочет работать напрямую. Только через присвоение указателя...
Как не пытаюсь написать код напрямую - выдает ошибку

[BDA]

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

Scanline не хочет работать напрямую

Что значит напрямую? Scanline просто возвращает указатель.

[Kronos913]

В том плане что для того чтобы обратиться к пикселям через скайнлайн, приходится так делать:

type
  PixelArray=array [0..32768] of TRGBTriple;
  pPixelArray=^PixelArray;

var
  OriginalRow : pPixelArray;
  RotatedRow : pPixelArray;

RotatedRow := DestBitmap.Scanline[j];
OriginalRow := SourceBitmap.Scanline[DestBitmap.Height-j-1];

RotatedRow[i]:=OriginalRow[DestBitmap.Width-i-1];

А есть ли какой-то способ напрямую это сделать?
То есть на создавая еще один указатель, которому присваивать какую-то строку, а напрямую

Как-то так. Я так пробовал, но выходила ошибка

DestBitmap.Scanline[j][i]:=SourceBitmap.Scanline[i][j]

Есть ли возможность работать со Scanline без еще одного массива указателей?

[Arigato]

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

без еще одного массива указателей?

Это не массив указателей, а указатель на массив. В памяти эта переменная займет всего несколько байт.

[Kronos913]

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

Это не массив указателей, а указатель на массив. В памяти эта переменная займет всего несколько байт.

Тут скорее дело в том, что после каждой строки нужно указателю присваивать другое значение. В первоначальной версии кода, поворот на 90 градусов занимал много времени из-за того что на каждом пикселе приходилось менять куда ссылается переменная-указателя. Пока я не нашел выход делать через еще один массив - ускорилось раз в 10

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

[Arigato]

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

можно ли обойтись без дополнительной переменной-указателя?

А чем она мешает?

Вот пример переворота изображения:

procedure RotateBitmap180(SourceBitmap: TBitmap; var DestBitmap: TBitmap);
var
  i, j, Len: Integer;
  ps, pd: ^TRGBTriple;
begin
  DestBitmap.Width := SourceBitmap.Width;
  DestBitmap.Height := SourceBitmap.Height;
  DestBitmap.PixelFormat := SourceBitmap.PixelFormat;
  Len := SizeOf(TRGBTriple) * SourceBitmap.Width;
  j := DestBitmap.Height - 1;
  for i := 0 to SourceBitmap.Height - 1 do begin
    ps := SourceBitmap.ScanLine[i];
    pd := DestBitmap.ScanLine[j];
    Move(ps^, pd^, Len);
    Dec(j);
  end;
end;