Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.02;
Скачать: 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 вся ветка

Текущий архив: 2004.05.02;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.027 c
1-1082289800
Роман К.
2004-04-18 16:03
2004.05.02
Как сохранить выделенный текст из TRichEdit в файл?


8-1071478333
alexeyII
2003-12-15 11:52
2004.05.02
Как можно вывести на принтер TIF-файл?


1-1082291310
killer
2004-04-18 16:28
2004.05.02
перевод из строки в TStringList


3-1081108449
Mishenka
2004-04-04 23:54
2004.05.02
Можно и в базе данных хранить графический файлы и файлы вообще?


1-1081755051
fatal
2004-04-12 11:30
2004.05.02
Scroll мыши над компонентом.