Библиотека графических эффектов в dll.

[nacgull]

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

В сундуке заяц, в зайце утка, в утке яйцо, в яйце сундук.....
Рекурсия? о_О

Матрёшка с двойным дном

[Alex Cones]

У меня такой вопрос по коду:

procedure FVFL_ConvertToBW(Handle: HBITMAP); stdcall;
var x, y: Integer; c: byte; BMP: BITMAP; p1, p2: PRGBTriple;
begin
Windows.GetObject(Handle, SizeOf(Bmp), @BMP);
p1:=BMP.bmBits;
if BMP.bmBitsPixel=24 then
      for y:=0 to BMP.bmHeight-1 do
            begin
            p2:=p1;
            for x:=0 to BMP.bmWidth-1 do
                  begin
                  c:=(p2.rgbtRed+p2.rgbtGreen+p2.rgbtBlue) div 3;
                  p2.rgbtRed:=c;
                  p2.rgbtGreen:=c;
                  p2.rgbtBlue:=c;
                  inc(p2);
                  end;
            Pointer(p1):=Pointer(Integer(p1)+BMP.bmWidthBytes);
            end
else
      MessageBox(0, 'Function works with 24bit bitmaps only!', 'Error', MB_OK);
end;

Как запхнуть всё в матрицу? Поячеечно? А потом снова идти в таких же циклах и присваивать? Какого типа должна быть матрица?

[DomiNick]

Хм... А для чего? о__О

Ну например как-нибудь так можно:

procedure FVFL_ConvertToBW(Handle: HBITMAP); stdcall;
var x, y: Integer; c: byte; BMP: BITMAP; p1, p2: PRGBTriple; Ar: array of array of PRGBTriple;
begin
Windows.GetObject(Handle, SizeOf(Bmp), @BMP);
SetLength(Ar, BMP.bmWidth, BMP.bmHeight); // зададим размер матрице
p1:=BMP.bmBits;
if BMP.bmBitsPixel=24 then
      begin
      // заполним матрицу:
      for y:=0 to BMP.bmHeight-1 do
            begin
            p2:=p1;
            for x:=0 to BMP.bmWidth-1 do
                  begin
                  Ar[x, y]:=p2;
                  inc(p2);
                  end;
            Pointer(p1):=Pointer(Integer(p1)+BMP.bmWidthBytes);
            end;
      // теперь в матрице Ar указатели на каждый пиксель
      // проверка:
      ZeroMemory(Ar[30, 10], 3); // тест1 - сделаем пиксель ч0рным
      Ar[30, 30].rgbtBlue:=255; // тест2 - сделаем
      Ar[30, 30].rgbtGreen:=255; // пиксель
      Ar[30, 30].rgbtRed:=255; // белым =)
      end
else
      MessageBox(0, 'Function works with 24bit bitmaps only!', 'Error', MB_OK);
end;

З.Ы. Вот что нашел... Может добавить в нашу dll (надеюсь никто не обидится)?:

Вася (30.01.10 18:05) [64]

не знаю что делалось через pmullw,но теперь мне удалось сделать нормальный негатив(правда скорость кажется пострадала):

procedure TForm1.Button3Click(Sender: TObject);
const mask: int64=$FFFFFFFFFFFFFFFF;
var pt: Pointer; c: Integer;
begin
c:=Image1.Picture.Bitmap.Width*Image1.Picture.Bitmap.Height*3 div 8; // pf24bit
pt:=Image1.Picture.Bitmap.ScanLine[Image1.Picture.Bitmap.Height-1];
asm
mov ecx, c
mov esi, [pt]
@@Cycle_1:
 movq xmm0, [esi]
 movq xmm1, mask
 psubb xmm1, xmm0
 movq [esi], xmm1
 add esi, 8
 loop @@Cycle_1
emms
end;
Image1.Repaint;
end;

я так понял что с MMX циклы только на ассемблере через "loop <метка>" можно делать?а то через "for i:=0 to ..." сразу вылетает нафиг...
и почему там xmm0 а не mmx0?
.....

[Alex Cones]

Хм... А для чего? о__О

Как для чего? А как Вы себе представляете исполнение размывания гауссом без матрицы?

procedure FVFL_ConvertToBW(Handle: HBITMAP); stdcall;
var x, y: Integer; c: byte; BMP: BITMAP; p1, p2: PRGBTriple; Ar: array of array of PRGBTriple;
begin
Windows.GetObject(Handle, SizeOf(Bmp), @BMP);
SetLength(Ar, BMP.bmWidth, BMP.bmHeight); // зададим размер матрице
p1:=BMP.bmBits;
if BMP.bmBitsPixel=24 then
      begin
      // заполним матрицу:
      for y:=0 to BMP.bmHeight-1 do
            begin
            p2:=p1;
            for x:=0 to BMP.bmWidth-1 do
                  begin
                  Ar[x, y]:=p2;
                  inc(p2);
                  end;
            Pointer(p1):=Pointer(Integer(p1)+BMP.bmWidthBytes);
            end;
      // теперь в матрице Ar указатели на каждый пиксель
      // проверка:
      ZeroMemory(Ar[30, 10], 3); // тест1 - сделаем пиксель ч0рным
      Ar[30, 30].rgbtBlue:=255; // тест2 - сделаем
      Ar[30, 30].rgbtGreen:=255; // пиксель
      Ar[30, 30].rgbtRed:=255; // белым =)
      end
else
      MessageBox(0, 'Function works with 24bit bitmaps only!', 'Error', MB_OK);
end;

Тады наверно еще так:

procedure FVFL_ConvertToBW(Handle: HBITMAP); stdcall;
var x, y: Integer; c: byte; BMP: BITMAP; p1, p2: PRGBTriple; Ar: array of array of PRGBTriple;
begin
Windows.GetObject(Handle, SizeOf(Bmp), @BMP);
SetLength(Ar, BMP.bmWidth, BMP.bmHeight); // зададим размер матрице
p1:=BMP.bmBits;
if BMP.bmBitsPixel=24 then
      begin
      // заполним матрицу:
      for y:=0 to BMP.bmHeight-1 do
            begin
            p2:=p1;
            for x:=0 to BMP.bmWidth-1 do
                  begin
                  Ar[x, y]:=p2;
                  inc(p2);
                  end;
            Pointer(p1):=Pointer(Integer(p1)+BMP.bmWidthBytes);
            end;
      // теперь в матрице Ar указатели на каждый пиксель
      // проверка:
      ZeroMemory(Ar[30, 10], 3); // тест1 - сделаем пиксель ч0рным
      Ar[30, 30].rgbtBlue:=255; // тест2 - сделаем
      Ar[30, 30].rgbtGreen:=255; // пиксель
      Ar[30, 30].rgbtRed:=255; // белым =)

      p1:=BMP.bmBits;
      for y:=0 to BMP.bmHeight-1 do
            begin
            p2:=p1;
            for x:=0 to BMP.bmWidth-1 do
                  begin
                  p2:=Ar[x, y];
                  inc(p2);
                  end;
            Pointer(p1):=Pointer(Integer(p1)+BMP.bmWidthBytes);
            end;
      end
else
      MessageBox(0, 'Function works with 24bit bitmaps only!', 'Error', MB_OK);
end;

Или я опять допускаю ту же ошибку?

[DomiNick]

А как Вы себе представляете исполнение размывания гауссом без матрицы?

Ну... Каким-нибудь более хитрым способом с небывалой оптимизацией (*мечтательно*)...

Кстати никак не могу найти, как размывать Гауссом края изображения (например что с точкой Ar[0,0] делать?)

Или я опять допускаю ту же ошибку?

Эм... Не надо больше делать "p1:=BMP.bmBits;" и.т.п. - теперь все они в матрице...
Теперь просто обращаться к заполненной матрице в цикле:

      For y:=0 To BMP.bmHeight-1 Do
            For x:=0 To BMP.bmWidth-1 Do
                  Begin
                  Ar[x, y].rgbtBlue:=x;
                  Ar[x, y].rgbtGreen:=x*y;
                  Ar[x, y].rgbtRed:=y;
                  End;

[Alex Cones]

Не надо больше делать

Не буду

например что с точкой Ar[0,0] делать?

Ну наверное брать среднее от окружающих:
http://www.computerra.ru/gid/rtfm/graphic/35934/

в середине:

1 1 1 1 1
1 1 1 1 1
1 1 1 1 1
1 1 1 1 1
1 1 1 1 1

А если на краю:

1 1 1 1 1
1 1 1 1 1
1 1 1 1 1

А если на углу:

1 1 1
1 1 1
1 1 1

[DomiNick]

Так пробовал... Но это слегка замедляет процедуру и не совсем совпадает с работой такого же фильтра в других программах...
На ДелфиВорлд есть какие-то способы ускорения блюра, но там крайние пиксели вообще не стали трогать (получалась незаблюренная рамка)...

Думал что там как-то хитрее делается...

[Alex Cones]

Но это слегка замедляет процедуру

а если асмом?

не совсем совпадает с работой такого же фильтра в других программах

Однако на практике чаще применяется другая разновидность размытия — Gaussian Blur (размытие по Гауссу). В этом случае матрица коэффициентов определяется по довольно сложной формуле нормального распределения Гаусса. Фильтр 3x3 выглядит так (делитель равен 16):

1 	2 	1
2 	4 	2
1 	2 	1

А фильтр 5x5 с делителем 256:

1 	4 	6 	4 	1
4 	16 	24 	16 	4
6 	24 	36 	24 	6
4 	16 	24 	16 	4
1 	4 	6 	4 	1

[DomiNick]

а если асмом?

Дык всё равно нужно проверять каких "окружающих" не существует... А компилятор вроде и сам неплохо код на асм переводит...
Ну или можно попробовать разделять обработку на несколько циклов разных...
В ДелфиВорлд говорилось про какие-то "двумерные свертки", но я пока не знаком с такими терминами, разбираться надо... Сама статья >вот<...

матрица коэффициентов определяется по довольно сложной формуле нормального распределения Гаусса

Это я знаю... Вот >тут< немного обсуждали...
А в моей любимой программе можно смотреть какой фильтр какую матрицу коэффициентов использует (Custom Filter) - думаю будет полезно при разработке dll...

[Alex Cones]

А не подскажете способ получения этой самой матрицы Гаусса и коэфа на деление?