VPF::Бинаризация изображения - Форум программистов

NieL

Дата 3.6.2011, 14:14 (ссылка)

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

Загрузка ...

Бывалый

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

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

нужно сделать 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;

RomanEEP

Дата 3.6.2011, 15:44 (ссылка)

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

Загрузка ...

Опытный

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

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

Бинаризация на 40% значит:

Код


if Round(0.3*GetRValue(C)+ 0.59*GetGValue(C)+ 0.11*GetBValue(C)) < 255 * 0.4 then
  C := clBlack
else
  C := clWhite;

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

Электронные экзамены

NieL

Дата 3.6.2011, 17:07 (ссылка)

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

Загрузка ...

Бывалый

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

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

какаета фигня получается. имеется отсканированный текст ( user posted image

), по заданию необходимо выполнить бинаризацию - 40%. если использовать вышепредложенное условие, в итоге весь Bitmap получается clWhite.

Это сообщение отредактировал(а) NieL - 3.6.2011, 17:11

RomanEEP

Дата 6.6.2011, 10:15 (ссылка)

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

Загрузка ...

Опытный

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

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

Так тут же изображение все светлое. значит для этого изображения надо брать не 40%, а больше, процентов 60-70

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

Электронные экзамены

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