Вниз
Скачать: CL | DM;

Распознавание ч/б рисунков   Найти похожие ветки 

 
Morgan   (2004-04-12 11:30) [0]

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


 
oleg_SYS ©   (2004-04-12 19:22) [1]

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

Canvas.FloodFill(X, Y: Integer; Color: TColor; FillStyle: TFillStyle);


 
Palladin ©   (2004-04-12 19:28) [2]

вот... слова настоящего программиста "есть ли где исходники"... ладно хоть не компонент...


 
TButton ©   (2004-04-12 19:28) [3]

re 2
обоснуй


 
TButton ©   (2004-04-12 19:30) [4]

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

метод лучше всего работает с 1б bmp, т.е. когда только черный и белый.


 
oleg_SYS ©   (2004-04-12 19:33) [5]

А, чё, самому слабо написать? Во-первых, вооружись модулем TQuickPixels. Потом делаешь заливку, потом проверяешь - если пиксел цвета, которым заливал, то этот пиксел будет относиться к "контуру" :) Вот и всё. Такую прогу 2 минуты писать.


 
TButton ©   (2004-04-12 19:38) [6]

вы не обосновали, почему заливка поможет выявить контур.
мне это не кажется очевидным. поскольку заливка покрывает площадь рисунка.
единственный ваш дельный совет - "вооружись модулем TQuickPixels", ибо лучший вариант для PixelWork.


 
oleg_SYS ©   (2004-04-12 19:49) [7]

TButton, я понял - нужно линию, а не контурное изображение. Просто выражаться нужно точнее млин...



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c
14-1081735795
RealRascal
2004-04-12 06:09
2004.05.02
Открытое плавание


14-1081405937
Игорь Шевченко
2004-04-08 10:32
2004.05.02
Хочу сказать спасибо создателям сайта и тем, кто над ним трудится


11-1066640661
ASilver
2003-10-20 13:04
2004.05.02
TCPServer.SendStream()


3-1081165474
wild_arg
2004-04-05 15:44
2004.05.02
Время выполнения процедуры


8-1074610714
Laumer
2004-01-20 17:58
2004.05.02
Как выключить другие звуки и вывести свой




   Наверх