Фильтрация изображения (в Системе распознавания лица на Делфи)

[agatamen]

В общем надо написать систему чтоб распознавала лица:
изображение как на паспорте
надо узнать какие уши(торчат или нет), нос, глаза, рот, волосы какие

писать с помощью нечеткой логике надо

мне не понятно как вообще распознавать на картинке что например вообще есть уши

думаю что надо с помощью rpg но там каждый пиксел отличается. На лице,например, хотя и кажется что оно одним цветом много цветов на самом деле

думаю что надо как то упростить изображение но не знаю как,
Можно ли изображения лица сделать чтоб там было только два цвета: белый и черный, ну что-то типа нарисовано линии черным цветом, чтобы уже потом расстояния измерять и все такое

или мне вообще каким-нить другим путем идти?

[Alex Cones]

думаю что надо как то упростить изображение но не знаю как,

думаю, могу Вам помочь. Сейчас откопаю на форуме свою программу деколоратор...

Во! Нашел:

N:=StrToInt(Edit1.Text);

{For N:=255 downto 2 do
Begin}

 Bit:=TBitMap.Create;
 Bit.LoadFromFile('D:\A-MIND\Utils\Archiver\Resource\Main.bmp');
 Bit2:=TBitMap.Create;
 Bit2.LoadFromFile('D:\A-MIND\Utils\Archiver\Resource\Main.bmp');
 Windows.Beep(700,700);
 For Y:=0 to 8399 do
  For X:=0 to 749 do
   Begin
    C:=Bit2.Canvas.Pixels[X,Y];
    CHex:=IntToHex(C,1);
    CHex:=StringOfChar('0',6-Length(CHex))+CHex;
    SFD:=Copy(CHex,1,2);
    SSD:=Copy(CHex,3,2);
    STD:=Copy(CHex,5,2);
    CHex:='';
    FD:=StrToInt('$'+SFD);
    SD:=StrToInt('$'+SSD);
    TD:=StrToInt('$'+STD);
    If (FD mod N <> 0) Then FD:=FD-(FD mod N);
    If (SD mod N <> 0) Then SD:=SD-(SD mod N);
    If (TD mod N <> 0) Then TD:=TD-(TD mod N);
    SFD:=IntToHex(FD,2);
    SSD:=IntToHex(SD,2);
    STD:=IntToHex(TD,2);
    C:=StrToInt('$'+SFD+SSD+STD);
    Bit.Canvas.Pixels[X,Y]:=C;
    If Y mod 100 =0 Then
     Begin
      Edit1.Text:=IntToStr(Y);
      Edit1.Refresh;
     End;
   End;
   Windows.Beep(700,700);
 {Image1.Canvas.Draw(0,0,Bit2); }
 Image2.Canvas.Draw(0,0,Bit);
 Edit1.Text:=IntToStr(N);
 Edit1.Refresh;
 Image2.Refresh;
 Image2.Picture.SaveToFile('MainFC.bmp');

Создайте на форме указанные здесь компоненты и засуньте эту функу например на клик кнопки. С остальным , надеюсь разберетесь. Значения в эдите ставьте примерно от 32 до 128 или включите закоменнтенный цикл (не забудьте добавить к нему бегин-энд). И размеры изображения поменяйте с моих на Ваши.

[NeshSoft]

Цвета пикселей конечно будут различны, нужно объединить похожие цвета, ну например картинку перевести в 16 цветов, или даже в 8. А затем уже анализировать пиксели...

Также можно попробовать перевести картинку в ч/б, и работать с оттенками черного, опираясь на то, что контуры носа, ушей и т.д. будут хотя бы с одной стороны темнее чем средний цвет картинки...

А вообще задача интересная, всегда хотел поработать над разными алгоритмами распознавания картинок, да вот реальной возможности (надобности) еще не представлялось...

[Alex Cones]

Цвета пикселей конечно будут различны, нужно объединить похожие цвета, ну например картинку перевести в 16 цветов, или даже в 8. А затем уже анализировать пиксели...

Именно этим и занимается мой код. Главное - правильно подобрать коэффициент (N)

[agatamen]

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

думаю, могу Вам помочь. Сейчас откопаю на форуме свою программу деколоратор...

Во! Нашел:

N:=StrToInt(Edit1.Text);

{For N:=255 downto 2 do
Begin}

 Bit:=TBitMap.Create;
 Bit.LoadFromFile('D:\A-MIND\Utils\Archiver\Resource\Main.bmp');
 Bit2:=TBitMap.Create;
 Bit2.LoadFromFile('D:\A-MIND\Utils\Archiver\Resource\Main.bmp');
 Windows.Beep(700,700);
 For Y:=0 to 8399 do
  For X:=0 to 749 do
   Begin
    C:=Bit2.Canvas.Pixels[X,Y];
    CHex:=IntToHex(C,1);
    CHex:=StringOfChar('0',6-Length(CHex))+CHex;
    SFD:=Copy(CHex,1,2);
    SSD:=Copy(CHex,3,2);
    STD:=Copy(CHex,5,2);
    CHex:='';
    FD:=StrToInt('$'+SFD);
    SD:=StrToInt('$'+SSD);
    TD:=StrToInt('$'+STD);
    If (FD mod N <> 0) Then FD:=FD-(FD mod N);
    If (SD mod N <> 0) Then SD:=SD-(SD mod N);
    If (TD mod N <> 0) Then TD:=TD-(TD mod N);
    SFD:=IntToHex(FD,2);
    SSD:=IntToHex(SD,2);
    STD:=IntToHex(TD,2);
    C:=StrToInt('$'+SFD+SSD+STD);
    Bit.Canvas.Pixels[X,Y]:=C;
    If Y mod 100 =0 Then
     Begin
      Edit1.Text:=IntToStr(Y);
      Edit1.Refresh;
     End;
   End;
   Windows.Beep(700,700);
 {Image1.Canvas.Draw(0,0,Bit2); }
 Image2.Canvas.Draw(0,0,Bit);
 Edit1.Text:=IntToStr(N);
 Edit1.Refresh;
 Image2.Refresh;
 Image2.Picture.SaveToFile('MainFC.bmp');

Создайте на форме указанные здесь компоненты и засуньте эту функу например на клик кнопки. С остальным , надеюсь разберетесь. Значения в эдите ставьте примерно от 32 до 128 или включите закоменнтенный цикл (не забудьте добавить к нему бегин-энд). И размеры изображения поменяйте с моих на Ваши.

спасибо щас попробую