Нужна оптимизация дельфинского кода

[JTG]

Химичу с альфа-прозрачностью. Встроенных механизмов работы с PNG в винде увы нет, приходится доставать альфа-канал из png и пихать в 32-битный BMP. Из-за Round и операций с вещественными числами работает не так быстро, как хотелось бы

type TRGBQuadArray = array[WORD] of TRGBQuad;
     PRGBQuadArray = ^TRGBQuadArray;

     TByteArray = array[Word] of Byte;
     PByteArray = ^TByteArray;

...............................

Var Row: PRGBQuadArray;
    PNGAlphaRow: PByteArray;

...............................

    PNG := TPNGObject.Create;
    PNG.LoadFromFile('D:\Program Files\Borland\Delphi7\Projects\Outbox\dance1.png');

    BMP := TBitmap.Create;
    BMP.PixelFormat := pf32Bit;
    BMP.Width := PNG.Width;
    BMP.Height := PNG.Height;
    BMP.Canvas.Draw(0, 0, PNG);

    //--> вход в уголок маньяка =)
    //    заполняем альфа-канал BMP
    //    и соответственно поправляем цвет
    //    вот это место надо бы оптимизировать, в идеале - ассемблерная вставка =) Кто-нить может помочь?

    for i := 0 to BMP.Height - 1 do
    begin
      Row := BMP.Scanline[i];
      PNGAlphaRow := PNG.AlphaScanline[i];
      for j := 0 to BMP.Width - 1 do
      begin
        Row[j].rgbReserved := PNGAlphaRow[j];
        Row[j].rgbBlue := Round(Row[j].rgbBlue * Row[j].rgbReserved / 255);
        Row[j].rgbGreen := Round(Row[j].rgbGreen * Row[j].rgbReserved / 255);
        Row[j].rgbRed := Round(Row[j].rgbRed * Row[j].rgbReserved / 255);
      end;
    end;

[B_N]

Встроенных механизмов работы с PNG в винде увы нет...

Это почему это?

StretchDIBits
The StretchDIBits function copies the color data for a rectangle of pixels in a DIB to the specified destination rectangle. If the destination rectangle is larger than the source rectangle, this function stretches the rows and columns of color data to fit the destination rectangle. If the destination rectangle is smaller than the source rectangle, this function compresses the rows and columns by using the specified raster operation.

Windows 98/Me, Windows 2000/XP: StretchDIBits has been extended to allow a JPEG or PNG image to be passed as the source image.

[alexBlack]

2JTG

1. делить на 256
Row[j].rgbBlue := Row[j].rgbBlue * Row[j].rgbReserved shr 8;

2. если возможно, перейти на pf24Bit - недавно оптимизировали - пост#509
http://programmersforum.ru/showthread.php?t=338&page=51

[JTG]

2B_N

Мне StretchDIBits кажись не нужно
Там дальше идёт вот это

DC := GetDC(0);
UpdateLayeredWindow(Window, DC, @TopLeft, @BmpSize, BMP.Canvas.Handle, @BmpTopLeft, clNone, @BlendFunction, ULW_ALPHA);
ReleaseDC(0, DC);

чтоб отрисовать окно. Параметр hSrcDC (BMP.Canvas.Handle) содержит хендл поверхности с рисунком и альфа-каналом.

Если имеется ввиду напрямую скопировать PNG в hSrcDC - не выйдет, в StretchDIBits содержимое передаётся через параметр lpBitsInfo:TBitmapInfo, в котором и находится тот же "An array of RGBQUAD". Вообщем нужно оптимизировать именно сам процесс заполнения массива

2alexBlack
pf24Bit не подходит, т.к. пропадёт альфа-канал

[B_N]

2 JTG

Ну а просто сопроцессором Вы не пробовали ещё? Быстрее, наверное, уже ничего не придумать (только видеоадаптер, почему я и упоминаю про виндышную поддержку PNG, как таковую, не обязательно именно StretchDIBits). Может быть ещё попробовать через MMX, как руки дойдут, поэкспериментирую....

[Stilet]

JTG смотри что я предложу:

 asm
   mov eax,255;
   fld [b]
   fmul [c]
   fdiv [e]
   frndint
   fst [a];
 end;

если интерпретировать твою формулу то у меня она выглядит как:
a := Round(b * c / 255);

Счет явно быстрее будет.

[JTG]

Упс) Вот это я перемудрил Там вроде всё работает и с целочисленным делением. В MSDN написали Dst.Red = Src.Red * (SCA/255.0), вот я слеш автоматом и поставил
--
Вот, если кто пользуется AIMP - ждите в скором времени плагин. Пытаюсь переписать FLDance из FLStudio 8