Как убрать шум/помехи с изображения

[noveek]

Здрасте, как убрать шум или помехи с изображения (Tbitmap)

Из такого:

Получить такое:

[Pavia]

noveek
Сразу распознать буквы и все дела. А потом нарисовать распознанные.

Обычно для удаления точек Применяют медиальный фильтр.
https://programmersforum.ru/showthread.php?t=341337

Для царапин можно применить алгоритм Хаффа. Классифицируем все линии по длине потом. Те которые больше порога. Те закрашиваете цветом фона.

Потом применяете оператор мат.морфологии "Закрытие" для восстановление пропусков в буквах.

[noveek]

Сообщение от Pavia

noveek
Сразу распознать буквы и все дела. А потом нарисовать распознанные.

Обычно для удаления точек Применяют медиальный фильтр.
https://programmersforum.ru/showthread.php?t=341337

Для царапин можно применить алгоритм Хаффа. Классифицируем все линии по длине потом. Те которые больше порога. Те закрашиваете цветом фона.

Потом применяете оператор мат.морфологии "Закрытие" для восстановление пропусков в буквах.

Как не странно тот "мой" медианный фильтр не удаляет точки
Процедура Хаффа не сделала ровным счётом ничего и работает очень долго 5 минут на обработку по сути даже ещё хуже чем было)

procedure Haff(bmp:Tbitmap);
var
RMax, m_width, m_height, MaxPhaseValue, Xbegin, Ybegin, Xend, Yend: integer;
Teta,R: Double;
PhaseSpace: array of array of integer;
ArPoint: array of Tpoint;
i, j, m, n: integer;
begin
m_width:=bmp.Width;
m_height:=bmp.Height;
RMax := round(sqrt(m_width * m_width + m_height * m_height));
SetLength(PhaseSpace, 180);
for I := Low(PhaseSpace) to High(PhaseSpace) do
SetLength(PhaseSpace[I], RMax);
for i := 0 to 179 do
for j := 0 to RMax-1 do
PhaseSpace[i,j] := 0;
for m := 0 to bmp.Width-1 do
for n := 0 to bmp.Height-1 do
if (bmp.Canvas.Pixels[m+1,n+1] >0 ) then
for i := 0 to 179 do
for j := 0 to RMax-1 do begin
Teta:=i/180*Pi;
if ( abs(((m+1) * sin(Teta) + (n+1) * cos(Teta)) - j)<0.1 ) then
inc(PhaseSpace[i,j]);
end;
MaxPhaseValue := 0;
for i := 0 to 179 do
for j := 0 to RMax-1 do begin
bmp.Canvas.Pixels[m+1,n+1]:=PhaseSpace[i,j]*8;
if (PhaseSpace[i,j] > MaxPhaseValue) then begin
MaxPhaseValue := PhaseSpace[i,j];
Teta:=i;
R:=j;
end;
end;
Teta:=Teta/180*Pi;
for m := 0 to bmp.Width-1 do
for n := 0 to bmp.Height-1 do
if ( round(((m+1) * sin(Teta) + (n+1) * cos(Teta))) = R) then
bmp.Canvas.Pixels[m+1,n+1]:=clBlue;
end;

[noveek]

Никто не знает ?

[BDA]

Ну самая длинная линия выделяется синим:

procedure Haff(bmp: Tbitmap);
const
  lines = 180;
var
  RMax, m_width, m_height, MaxPhaseValue: integer;
  Teta, R: Double;
  PhaseSpace: array of array of integer;
  i, j, m, n: integer;
begin
  m_width := bmp.Width;
  m_height := bmp.Height;
  RMax := round(sqrt(m_width * m_width + m_height * m_height));

  SetLength(PhaseSpace, lines, RMax);

  for i := 0 to lines - 1 do
    for j := 0 to RMax - 1 do
      PhaseSpace[i, j] := 0;

  for m := 0 to m_width - 1 do
    for n := 0 to m_height - 1 do
      if bmp.Canvas.Pixels[m, n] = clBlack then
        for i := 0 to lines - 1 do
        begin
          Teta := i / lines * Pi;
          R := m * cos(Teta) + n * sin(Teta);
          inc(PhaseSpace[i, Round(R)]);
        end;
        
  MaxPhaseValue := 0;
  for i := 0 to lines - 1 do
    for j := 0 to RMax - 1 do
    begin
      if PhaseSpace[i, j] > MaxPhaseValue then begin
        MaxPhaseValue := PhaseSpace[i, j];
        Teta := i;
        R := j;
      end;
    end;

  Teta := Teta / lines * Pi;
  for m := 0 to m_width - 1 do
    for n := 0 to m_height - 1 do
      if round(m * cos(Teta) + n * sin(Teta)) = R then
        bmp.Canvas.Pixels[m, n] := clBlue;

  SetLength(PhaseSpace, 0, 0);
end;

[noveek]

Сообщение от BDA

Ну самая длинная линия выделяется синим:

procedure Haff(bmp: Tbitmap);
const
  lines = 180;
var
  RMax, m_width, m_height, MaxPhaseValue: integer;
  Teta, R: Double;
  PhaseSpace: array of array of integer;
  i, j, m, n: integer;
begin
  m_width := bmp.Width;
  m_height := bmp.Height;
  RMax := round(sqrt(m_width * m_width + m_height * m_height));

  SetLength(PhaseSpace, lines, RMax);

  for i := 0 to lines - 1 do
    for j := 0 to RMax - 1 do
      PhaseSpace[i, j] := 0;

  for m := 0 to m_width - 1 do
    for n := 0 to m_height - 1 do
      if bmp.Canvas.Pixels[m, n] = clBlack then
        for i := 0 to lines - 1 do
        begin
          Teta := i / lines * Pi;
          R := m * cos(Teta) + n * sin(Teta);
          inc(PhaseSpace[i, Round(R)]);
        end;
        
  MaxPhaseValue := 0;
  for i := 0 to lines - 1 do
    for j := 0 to RMax - 1 do
    begin
      if PhaseSpace[i, j] > MaxPhaseValue then begin
        MaxPhaseValue := PhaseSpace[i, j];
        Teta := i;
        R := j;
      end;
    end;

  Teta := Teta / lines * Pi;
  for m := 0 to m_width - 1 do
    for n := 0 to m_height - 1 do
      if round(m * cos(Teta) + n * sin(Teta)) = R then
        bmp.Canvas.Pixels[m, n] := clBlue;

  SetLength(PhaseSpace, 0, 0);
end;

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

[NetSpace]

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

[BDA]

Сообщение от noveek

толку от этой процедуры

Ну так это же ваш проект, вот и дорабатывайте, как хотите. Сами же привели этот код, который чертил одну линию не пойми где. Вот теперь чертится линия где надо. Выберите порог для значения из PhaseSpace и закрашивайте все линии, у которых значение больше порога.

[noveek]

Сообщение от BDA

Ну так это же ваш проект, вот и дорабатывайте, как хотите. Сами же привели этот код, который чертил одну линию не пойми где. Вот теперь чертится линия где надо. Выберите порог для значения из PhaseSpace и закрашивайте все линии, у которых значение больше порога.

Так мне Pavia сказал что нужен Хафф вот Хафф

[BDA]

Сообщение от noveek

Pavia сказал что нужен Хафф вот Хафф

Сообщение от Pavia

применить алгоритм Хаффа. Классифицируем все линии по длине потом. Те которые больше порога. Те закрашиваете цветом фона.

Так тут после Хаффа еще указаны шаги