VPF::Фильтры - Форум программистов

Sergey89

Дата 4.3.2005, 18:19 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 122
Регистрация: 14.9.2004

Репутация: нет
Всего: нет

Как реализуется быстрая обработка изображений? Например в Фотожопе фильтры просто моментально работают.

--------------------

mlib.com.ru

Illusion Dolphin

Дата 5.3.2005, 00:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 13
Всего: 63

Например так я пытался сделать аналог фотошоповского "AutoLevels":

Код



Type
  TRGB=record
  b,g,r : byte;
  end;

type
 T255ByteArray = array[0..255] of byte;
 T255IntArray = array[0..255] of Cardinal;

  ARGB=array [0..1] of TRGB;
  PARGB=^ARGB;
  PRGB = ^TRGB;

.....

function Gistogramma(S : TBitmap) : T255IntArray;
var
  i,j : integer;
  ps : PARGB;
  L : byte;
begin
 S.PixelFormat := pf24bit;
 for i:=0 to 255 do
 Result[i]:=0;
 for i:=0 to s.height-1 do
 begin
 ps:=S.ScanLine[i];
 for j:=0 to s.Width-1 do
  begin
   L:=Round(0.3*ps[j].r+0.59*ps[j].g+0.11*ps[j].b);
   inc(Result[L]);
  end;
 end;
end;

Procedure AutoLevels(S,D : TBitmap);
var
  ps, pd : PARGB;
  i,j, MinCount : integer;
  L: byte;
  Count : int64;
  RL : T255ByteArray;
  Gistogramm : T255IntArray;
begin
 D.Width := S.Width;
 D.Height := S.Height;
 S.PixelFormat := pf24bit;
 D.PixelFormat := pf24bit;
 Gistogramm:=Gistogramma(S);
 MinCount:=(S.height div 50)*(S.Width div 50);
 Count:=0;
 for i:=255 downto 0 do
 begin
  inc(Count,Gistogramm[i]);
  if Count>MinCount then
  begin
   L:=i;
   break;
  end;
 end;
 if l=0 then l:=1;
 for i:=0 to 255 do
 begin
  RL[i]:=Min(255,Round((255/l)*i));
 end;
 for i:=0 to s.height-1 do
 begin
 ps:=s.ScanLine[i];
 pd:=d.ScanLine[i];
 for j:=0 to s.Width-1 do
  begin
   pd[j].r:=Rl[ps[j].r];
   pd[j].g:=Rl[ps[j].g];
   pd[j].b:=Rl[ps[j].b];
  end;
 end;
end;

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »