бинаризация изображения

← →
unknown2 (2011-06-03 14:42) [0]

нужно сделать 40% бинаризацию изображения. 40% - это как?

обычно делал так:

procedure Binarize(Bitmap: TBitmap; N: Integer); var X, Y: Integer; C: TColor; begin for X := 0 to Bitmap.Width - 1 do for Y := 0 to Bitmap.Height - 1 do begin C := Bitmap.Canvas.Pixels[X, Y]; if GetRValue(C) <= N then C := clBlack else C := clWhite; Bitmap.Canvas.Pixels[X, Y] := C; end; end; procedure TForm1.Button2Click(Sender: TObject); var Bitmap: TBitmap; begin Bitmap := TBitmap.Create; try Bitmap.LoadFromFile("D:\Test\Image1.bmp"); Binarize(Bitmap, 150); Bitmap.SaveToFile("D:\Test\Image2.bmp"); finally Bitmap.Free; end; end;

← →
MBo © (2011-06-03 14:45) [1]

А откуда взялась эта фраза?
Может быть, имеется в виду 40% от 255 ?

← →
Unknown2 (2011-06-03 14:55) [2]

в универе дали задание c такой формулировкой. если 40% от 255, то получается так:

if GetRValue(C) <= 102 then // 255 / 100 * 40 ?

← →
Jeer © (2011-06-03 15:57) [3]

Нет, надо раскидать оставшиеся 60% в интервале 0..255

← →
MBo © (2011-06-03 16:03) [4]

> дали задание c такой формулировкой
Где точная формулировка?

Если есть сомнения по поводу процесса вычисления процентов от числа, то лучше сразу сказать, я умолкну.

← →
rolsen (2011-06-03 16:13) [5]

Ы-ы, а я диплом писал по методам бинаризации =)

← →
Сергей М. © (2011-06-03 21:07) [6]

> Ы-ы, а я диплом писал по методам бинаризации

В смысле почитав этот топик ты понал как ты крепко облажался в дипломной работе ?) Или напротив утвердился в ее правильности ?) Или просто на ностальжи пробило ?)

← →
Palladin © (2011-06-03 21:54) [7]

) его пробило на Ы ) но видимо это предел возможностей

← →
Dennis I. Komarov © (2011-06-03 22:15) [8]

В любом случае [2] заставляет задуматься о смысле бытия...

← →
rolsen (2011-06-03 23:55) [9]

> Palladin © (03.06.11 21:54) [7]
> ) его пробило на Ы ) но видимо это предел возможностей

Ничего не предел. Я тебе сегодня его показывал ;)

> Сергей М. © (03.06.11 21:07) [6]

Ну да, просто ностальжи. Ну и, типа, попантоваться, видали, блин, какой я крутой =))

> rolsen (03.06.11 23:55) [9]
>
>
> > Palladin © (03.06.11 21:54) [7]
> > ) его пробило на Ы ) но видимо это предел возможностей
>
> Ничего не предел. Я тебе сегодня его показывал ;)
>
>

Так подскажи автору в чём он не прав. Автор тут:
http://forum.vingrad.ru/forum/topic-331442.html
уже привёл конкретный пример задачи.

← →
rolsen (2011-06-04 02:25) [11]

> Германн © (04.06.11 01:23) [10]

У меня нет там реги.
По его вопросу там, лучше всего подойдет бинаризация методом Отса. Очень хорошо для текстов.
http://www.philippovich.ru/Library/Books/ITS/wwwbook/ist4b/its4/fyodorov.htm

А по его вопросу тут, дык, все уже сказано.

> rolsen (03.06.11 23:55) [9]
> попантоваться, видали, блин, какой я крутой

ПопОнтоваться. От слова "понт". А пАнты - это рога оленя.

Стоит ли юзать феню, если не ботаешь?
:o)

← →
rolsen (2011-06-04 12:46) [13]

бинаризация изображения Найти похожие ветки