Оптимизация

[Alex Cones]

A[I].rgbRed   := Sub(A[I].rgbRed, 255 - Value);
A[I].rgbGreen := Add(A[I].rgbGreen, Value - 255);

 Function Add(A,B : Byte): Byte;
  Begin
   If A + B < 255 Then Result := A + B
                Else Result := 255;
  End;

 Function Sub(A,B : Byte): Byte;
  Begin
   If A - B < 000 Then Result := 000
                Else Result := A - B;
  End;

Это поддается оптимизации?

[mutabor]

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

[Alex Cones]

Для того и две функи написаны Add и Sub - они предотвращают переполнение.

[mutabor]

Сообщение от Alex Cones

Для того и две функи написаны Add и Sub - они предотвращают переполнение.

Почитай, я дополнил предыдущий пост. А, нет, я там ошибся, у тебя все правильно там.

Кстати, а зачем его предотвращать? Это ж не ошибка, просто его нужно с умом использовать. И еще, вызов лишней функции тоже не способствует оптимизации

p.s. Может бинарными операциями нахимичить вместо условий?

[Alex Cones]

Кстати, а зачем его предотвращать?

Ну вот например мы увеличиваем яркость изображения по всем каналам. Например пиксель $FE00FE мы хотим увеличить на 5 в кажом канале. Получаем $030503, а должны были $FF05FF.

Просто я сейчас пользуюсь Get\SetDIBBits, и думал, что они быстрые. Попробовал - около 800 х 600 пикселей\секунда. Думаю, что проблема не в способе, а в том, что я нахомичил:

Procedure EffectBrigthness(Var T : TTexture; Value : Integer);
 Var
  BI  : BitMapInfo;
  A   : Array of RGBQuad;
  I   : Integer;
  Loc : HDC;
 Begin
  Loc := CreateCompatibleDC(Warehouse.Buffer.DC);
  SelectObject(Loc, T.Bitmap);
  ZeroMemory(@BI, SizeOf(BI));
  BI.bmiHeader.biWidth := T.Width;
  BI.bmiHeader.biHeight := T.Height;
  BI.bmiHeader.biSize := SizeOf(BitMapInfoHeader);
  BI.bmiHeader.biCompression := BI_RGB;
  BI.bmiHeader.biBitCount := 32;
  BI.bmiHeader.biPlanes := 1;
  SetLength(A, T.Height * T.Width * 4);
  GetDIBits(Loc, T.Bitmap, 0, T.Height, @A[0], @BI, DIB_RGB_COLORS);

//  A[X + Y * T.Width].rgbBlue := $FF;
  For I := 0 to Length(A) - 1 Do
   Begin
    If Value < 255 Then
     Begin
      A[I].rgbRed   := Sub(A[I].rgbRed, 255 - Value);
      A[I].rgbGreen := Sub(A[I].rgbGreen, 255 - Value);
      A[I].rgbBlue  := Sub(A[I].rgbBlue, 255 - Value);
     End
      Else
     Begin
      A[I].rgbRed   := Add(A[I].rgbRed, Value - 255);
      A[I].rgbGreen := Add(A[I].rgbGreen, Value - 255);
      A[I].rgbBlue  := Add(A[I].rgbBlue, Value - 255);
     End;
   End;

  SetDIBits(Loc, T.Bitmap, 0, T.Height, @A[0], @BI, DIB_RGB_COLORS);
  DeleteDC(Loc);
 End;

TickCount поставить руки не доходят, но думаю это все моя "химия" в цикле I.

[mutabor]

Сообщение от Alex Cones

TickCount поставить руки не доходят, но думаю это все моя "химия" в цикле I.

Поставь, никогда не помешает, может ты и ошибаешься.

[Ulex]

но думаю это все моя "химия" в цикле I.

Мне кажется не только.
Во-первых. Здесь два раза копируется весь битмап в память (сначала в массив А, затем обратно в DIB). Это как минимум не оптимально.
Ну и само выделение памяти под этот самый массив тоже наверное какое-то время занимает (не уверен).
Это неправильно, надо напрямую работать с массивом точек.

[JTG]

Зачем отдельно Add и Sub? Я бы сделал как-нибудь так

function IntToByte(i: Integer): Byte;
asm
    or   eax, eax
    jns  @1        // > 0
    xor  eax, eax
    ret
@1: cmp  eax, 0FFh
    jbe  @2        // <= 255
    or  eax, 0FFh
@2:
end;

for x := 0 to Bitmap.Width - 1 do
begin
  A[x].rgbtRed := IntToByte(A[x].rgbtRed + value);
  A[x].rgbtGreen := IntToByte(A[x].rgbtGreen + value);
  A[x].rgbtBlue := IntToByte(A[x].rgbtBlue + value);
end;

[Alex Cones]

Странно, неужели TickCount дает такие неточные значения?

 Procedure Tick(Smes : String);
 Var
  S : string;
  F : textFile;
 Begin
  Str(GetTickCount, S);
  AssignFile(F, 'D:\log.txt');
  Append(F);
  Writeln(F, S + ' ' + Smes);
  CloseFile(F);
 End;

...SelectObject(Loc, T.Bitmap);
  Tick('SelectObject(Loc, T.Bitmap);');
  ZeroMemory(@BI, SizeOf(BI));
  Tick('ZeroMemory(@BI, SizeOf(BI));');
  BI.bmiHeader.biWidth := T.Width;
  Tick('BI.bmiHeader.biWidth := T.Width;');
  BI.bmiHeader.biHeight := T.Height;
  ...

Результат:

1355781 Lets begin
1355781 Loc := CreateCompatibleDC(Warehouse.Buffer.DC);
1355781 SelectObject(Loc, T.Bitmap);
1355781 ZeroMemory(@BI, SizeOf(BI));
1355781 BI.bmiHeader.biWidth := T.Width;
1355781 BI.bmiHeader.biHeight := T.Height;
1355781 BI.bmiHeader.biSize := SizeOf(BitMapInfoHeader);
1355781 BI.bmiHeader.biCompression := BI_RGB; 
1355781 BI.bmiHeader.biBitCount := 32;
1355781 BI.bmiHeader.biPlanes := 1;
1355796 SetLength(A, T.Height * T.Width * 4);
1355812 GetDIBits(Loc, T.Bitmap, 0, T.Height, @A[0], @BI, DIB_RGB_COLORS);
1355859 For I := 0 to Length(A) - 1 Do
1355859 SetDIBits(Loc, T.Bitmap, 0, T.Height, @A[0], @BI, DIB_RGB_COLORS);
1355859 DeleteDC(Loc);

Причем до этого мерил на глаз - было явно около секунды на вю процедуру изменения яркости. Сейчас запустил в цикле из ста процедур - по секундомеру ровно 9 секунд.

[Utkin]

Ты померяй несколько раз , кроме тебя за компом еще и винда работает.