Как найти координаты всех пиксели объекта?

[Cerebrum]

Встал перед задачей:
На bmp изображении есть тела черного цвета самой причудливой формы, надо узнать координаты пикселей, которые входят в тот или иной объект изображения.перебераю пиксели пока не встречу первый черный.Потом думал рекурсивную функцию закинуть, но вот не знаю как организовать обработку того что соседе белые или черные(соседей 8). Перебирать все 256 вариантов для рекурсии нет смысла, а вот что-то более рациональное на ум не приходит.Может кто и сталкивался с такого рода задачами...Bmp можно перекрашивать на серый тон...

P.S. Если что-то непонятно, уточню.

[Iceman]

тоесть те надо знать линию граници ? можно попробовать найти 1.(любую) точьку етой линии и идти по ней проверая в куда она ведет. сгодитса только если границу обекта можно высказать как одну линию.

[Cerebrum]

У меня бинаризованное изображение(черный и белый цвета).Также я и с jpeg работаю(перевожу все равно в bmp). Но тут маленькая проблемка, он немного смазывает граничные пиксели.Я просто фильтрую не полностью черные пиксели и все захватывается. А вообще надо найти цент масс этого объекта(если можно так это назвать). Полюбому надо будет знать координаты всех пикселей, чтоб это посчитать. Или есть еще какой-то способ, о котором я не знаю?

[Cerebrum]

Вот придумал идиотский, но,на мой взгляд, рабочий может метод...
Можно создать массив из 8-ми элементов, каждый отвечает за свой пиксель-сосед. производить проверку по кругу. Если черный, то тру и т.д.
А потом проходиться по массиву и добавлять к к формуле текстового вида(именно текстового, а то начнет считать сразу) нужное обращение к самой функции. Вот только 1 проблема возникла: кто-то знает как из текстового вида формулу перевести в нормальный и потом посчитать?

[Лукманов Александр]

Посмотри тута пятый пост. Там объясняется как узнать координаты пикселей изображения с помощью фотошоп.

[Cerebrum]

Решил проблему сам алгоритмически, там надо ветвить направления, пока все не перебирутся и все)

[Cerebrum]

один баг нашел( поспешил)

[Levsha100]

Сам занимался подобной проблемой(кода нету - все в голове), основной смысл:
Заводим двумерный массив записей ( одла логическая и одна типа integer переменная, где логическая указывает что этот пиксель не фон, а другая идентификатор группы).
Потом в цикле по всем клеткам : каждой клетки присваиваем свой id, а если рядом клетка с меньшим id, то все пиксели с текущий id приравниваем к меньшему id.а если рядом клетка с большим id, то все большие id сравниваем с текущим id.
Надеюсь Вы хоть что-то поняли(у меня сегодня не очень "описательное" настроение), если нет обращайтесь!

[Cerebrum]

В общем написал сам)
Вот код(тут еще чуть лишнего кода, но это уже к моей программе отностится)

procedure sosed(a,b:integer);
begin
  with otpec[q] do begin
    if (GetRValue(bm.Canvas.Pixels[a-1,b])<=predelchern) and (GetGValue(bm.Canvas.Pixels[a-1,b])<=predelchern) and (GetBValue(bm.Canvas.Pixels[a-1,b])<=predelchern) then
    begin
      bm.Canvas.Pixels[a-1,b]:=clred;  //перекрашиваю, чтоб по кругу не гулять
      qp:=1+qp;                  //кол-во пикселей в нашем q-м объекте
      sosed(a-1,b);
    end;
    if (GetRValue(bm.Canvas.Pixels[a-1,b+1])<=predelchern) and (GetGValue(bm.Canvas.Pixels[a-1,b+1])<=predelchern) and (GetBValue(bm.Canvas.Pixels[a-1,b+1])<=predelchern) then
    begin
      bm.Canvas.Pixels[a-1,b+1]:=clred;
      qp:=1+qp;
      sosed(a-1,b+1);
    end;
    if (GetRValue(bm.Canvas.Pixels[a,b+1])<=predelchern) and (GetGValue(bm.Canvas.Pixels[a,b+1])<=predelchern) and (GetBValue(bm.Canvas.Pixels[a,b+1])<=predelchern) then
    begin
      bm.Canvas.Pixels[a,b+1]:=clred;
      qp:=1+qp;
      sosed(a,b+1);
    end;
    if (GetRValue(bm.Canvas.Pixels[a+1,b+1])<=predelchern) and (GetGValue(bm.Canvas.Pixels[a+1,b+1])<=predelchern) and (GetBValue(bm.Canvas.Pixels[a+1,b+1])<=predelchern) then
    begin
      bm.Canvas.Pixels[a+1,b+1]:=clred;
      qp:=1+qp;
      sosed(a+1,b+1);
    end;
    if (GetRValue(bm.Canvas.Pixels[a+1,b])<=predelchern) and (GetGValue(bm.Canvas.Pixels[a+1,b])<=predelchern) and (GetBValue(bm.Canvas.Pixels[a+1,b])<=predelchern) then
    begin
      bm.Canvas.Pixels[a+1,b]:=clred;
      qp:=1+qp;
      sosed(a+1,b);
    end;
    if (GetRValue(bm.Canvas.Pixels[a+1,b-1])<=predelchern) and (GetGValue(bm.Canvas.Pixels[a+1,b-1])<=predelchern) and (GetBValue(bm.Canvas.Pixels[a+1,b-1])<=predelchern) then
    begin
      bm.Canvas.Pixels[a+1,b-1]:=clred;
      qp:=1+qp;
      sosed(a+1,b-1);
    end;
    if (GetRValue(bm.Canvas.Pixels[a,b-1])<=predelchern) and (GetGValue(bm.Canvas.Pixels[a,b-1])<=predelchern) and (GetBValue(bm.Canvas.Pixels[a,b-1])<=predelchern) then
    begin
      bm.Canvas.Pixels[a,b-1]:=clred;
      qp:=1+qp;
      sosed(a,b-1);
    end;
    if (GetRValue(bm.Canvas.Pixels[a-1,b-1])<=predelchern) and (GetGValue(bm.Canvas.Pixels[a+1,b-1])<=predelchern) and (GetBValue(bm.Canvas.Pixels[a+1,b-1])<=predelchern) then
    begin
      bm.Canvas.Pixels[a-1,b-1]:=clred;
      qp:=1+qp;
      sosed(a-1,b-1);
    end;
  end;
end;

Вот вроде и все, вот только еще бы научится пользоваться динамическими массивами...

[Cerebrum]

Данный метод очень медленный...и ресурсов много ест если в объекте много пикселей. Нашел алгоритм намного быстрее без использования рекурсии, если кому будет интересно - обращайтесь.