Определить цвет пикселя и окружающих его пикселей

Posted by micher under Delphi

Нужно узнать цвет пикселя изображения в Image, если он черного цвета и его окружают 6,7,8 пикселей белого цвета, то закрасить и его в белый, если меньше 6 пикселей, то в черный.
Я так понимаю что нужно реализовать алгоритм. Начиная с левого верхнего угла находить цвет пикселя и выполнять закраску в белый или черный, далее отступить на 1 пиксель и повторить. Причем после каждого перекрашивания начинать с начала, то есть с верхнего левого угла, так как после перекрашивания соседние пиксели стоит перепроверить.

Аватар

Алгоритм в цикле по Canvas.Pixels. Или лучше по массиву в памяти, с последующей перерисовкой, быстрей будет. Только сомневаюсь, что после каждого перекрашивания на начало. Полный проход до конца и повтор сначала, если что-то поменялось. Не исключаю, что возможно зацикливание. Это что-то типа клеточного автомата «Жизнь». Так вот там зацикливания возможны — т.е. впадание в периодическое повторение конфигурации.

phomm

Наверное задача имеет смысл, когда пиксели просматриваются блоками, по 9 пикселей (двойной цикл с шагом по 3), и если центральный соотв. нужным условиям — соотв. обработка с записью в исходную картинку, потом следующий блок обрабатывается. Так вся картинка и обрабатывается.

Если же каждый пиксель подряд, то получится коряво — предыдущие изменения будут влиять, а ежели с повтором от начала — точно будет зацикливание.
Посему надо сделать именно как в «жизни» — текущий этап копируется в массив, получается 2 поколения как бы, идя по первому массиву (рисунку в данном случае) проверяем все пиксели по алгоритму, но записываем не в себя , а во второй массив, таким образом предыдущие изменения не повлияют на обсчёт. В конце цикла полученный второй массив рисовать.
Если сделать постоянное формирование таких двух массивов, то и получится клеточный автомат.

обсуждение темы на форуме

Похожие статьи

• Функции чтения цвета пикселя
• Определить цвет пикселя на экране имея координаты X и Y