@giaber

Большой рисунок состоит из нескольких (многих) прямоугольных рисунков, разделённых между собой промежутками-"рамками" какого-то одного цвета
Как можно организовать автоматическое определение программой координат этих отдельных рисунков, "скормив" проге цвет "рамок"? Какой должна быть "логика", алгоритм действий? Как решать проблему jpg? Ведь в bmp чётко один цвет, а в jpg цвет рамки размывается в разные оттенки

Миниатюры

 

0

@giaber

Не, естесственно не любые. Только те, которые имеют рамки и не пересекаются. Во-всяком случае я прогнал все эти рисунки через прогу, которую выложил выше - результаты такие, что можно продолжать долбить эту тему с надеждой на положительный исход. В принципе определение контуров даже с 50% надёжностью я считаю удовлетворительным результатом, поскольку это не основная функция проги, а так, примочка вспомогательная/понт.

ОЧЕНЬ интересен ваш подход. Не поделитесь или словесным описанием принципа или даже кодом?

0

@Pro_grammer

На счет кода, я быстренько набросал в PureBasic, он как то побогаче встроенными библиотеками для работы с изображениями. Если есть интерес, то могу с вами поделиться (но там совсем не похоже на VB6).

А принцип прост - перевёл изображение в черно-белый вид с выделением краёв, что-то типа эффекта Emboss.
Обвел весь рисунок черной рамкой по краю. Далее попиксельно искал непрерывные горизонтальные линии.
Двигаюсь сверху по ширине и складываю цвет пикселей, если в итоге сумма 0, то это сплошная горизонтальная черная линия, если нет, то спускаюсь на один пиксель вниз и повторяю.
Потом двигаюсь по этой найденной линии, проверяя ответвления, опять же двигаюсь, но уже складывая вертикальные пиксели. Если сумма их 0, то в точке пересечения с горизонтальной линией рисую зелёную точку. Попутно отмечая, линия вниз или вверх.
Так можно быстро найти все углы. Скомпилированная прога на этом изображении находит углы быстрее чем за секунду.

0

@giaber

Ваш метод- первое, что пришло мне в голову, когда я начал думать об этой моей проблеме. Но я сразу же обломался - при переводе в чёрно белое у меня из этого рисунка получается почти сплошное чёрное поле! Или имеется ввиду Grayscale? Оттенки серого? Но тогда сумма 0 не может получаться и опять вопрос - как определять принадлежат ли пиксели рисунку или рамке?

Не, конечно есть и такое соображение - рамка всегда одного цвета и даже учитывая что jpg "портит" одноцветность пикселей, если идти по горизонтальному ряду (или во вертикальному) разница между пикселями линии рамки будет наименьшей по сравнению с любой другой линией. Но здесь есть затык, который я пока не соображу как преодолеть. Если в случае реальной одноцветности пикселей (чёрный в вашем варианте) появление пикселя <>0 указывает на конечную точку непрерывной линии, то в случае нечёткого цвета как понять что непрерывный ряд закончился. Опять надо вводить усложнения типа задавать пределы отклонения среднего значения и тому подобное, чего как раз ОЧЕНЬ хочется избежать.

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

Прошу вас прояснить тему перевода в чёрно-белое

0

@giaber

Пытаюсь сделать после 5 проходов по Helland Cubic и перевода в монохром определение линий. Вроде получается,но рисуются лишние линии. 3 часа сижу - не могу найти ошибку. Помогите правильно организовать цикл прохода по пикселям горизонтальных рядов и определения стартовых координат и длины непрерывной линии
На рисунке слева - то, как получается, справа - какие линии должны быть на самом деле

Миниатюры

 

Вложения

My Rects Detection.zip (15.1 Кб, 4 просмотров)

0

@Pro_grammer

Попробую перевести в vb6, покажу что вышло

0

@Pro_grammer

Вот что вышло

Без оптимизации работает очень медленно, там эти PSet и Point в цикле полный тормоз.
Но принцип есть, а оптимизация дело наживное.
Обратите внимание, есть второй режим, в комментах описан, чуть быстрее и тоньше работает.

Вложения

vb6ЧБ.zip (63.7 Кб, 7 просмотров)

0

@Sur_L

Не мог не запостить свой поток сознания.
Думаю, если границы прямоугольников явно не выделены, то и заниматься этим не смысла.

Вложения

FindColorRects.rar (37.1 Кб, 7 просмотров)

0