Processamient de iMagens, Contador através de imagenes

[Cesar Junior]

Hola amigos, si alguien puede ayudarme estoy agradecido!!! estoy con un proyecto que consiste en contar objetos de una imagen BMP, las mismas estan cargadas en Timage, el funcionamiento es mas o menos como sigue abajo

Llenando la Región

La forma de explotación de la imagen en la búsqueda de colonias (regiones Blancas) es, el algoritmo de relleno al encontra el pixel blanco, recorre los cinco vecinos píxeles, como se muestra en la ilustración a continuación, al recorrer los vecinos se sigue la siguiente orden: Pixel Lateral Izquierdo (LI) , Pixel Diagonal Inferior Izquierdo(DII), Pixel Inferior (I), Pixel Diagonal Inferior Derecho(DID) Pixel Lateral Dereho (LD).

LI......Pixel I...... LD
DII.......I.......... DID

La llamada recursiva busca un pixel blanco en la orden indicada de los cinco vecinos, LI, DII, I, DID, LD. Al identificar el primer vecino como pixel blanco sel le altera el color del pixel para otra tonalidad y la direccion de este pixel e passada como parametro para la llamada recursiva, en el regreso de rutina, la busqueda por pixel blancos continuaen los demas vecinos cmo en la orden indicada, no haviendo mas pixels blancos, la rutina vuelve. Quando la primero rutina recursiva vuelve para el algoritmo e contage y un contador recibe +, cuando el rellenos de los objetos fueren concluido ya no habra colonias blancas y el contador dirá quanas colonias havian!!, lo es un poco conplicado, mi esañol no es mui BUeno, pero haver si lo entendiern un poco

[[coso]]

Hola,
no creo que haga falta recursividad, a no ser que quieras tu implementar el floodfill. Puedes ir rastreando todos los pixels, y al encontrar uno blanco, llenar toda el area de otro color y aumentar el contador. Te dejo un ejemplo, usando el floodfill de delphi y otro casero, recursivo. (este ejemplo falla si se solapan dos zonas)

Código Delphi [-]
type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Rellena_colonia(i,j : integer; col,rel : TColor; im : TImage);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
        i,j : integer;
        colonias : integer;
        x,y,r: integer;
begin
        Image1.Canvas.Brush.Color := clBlack;
        Image1.Canvas.FillRect(Rect(0,0,Image1.Width,Image1.Height));

        Image1.Canvas.Brush.Color := clWhite;
        colonias := random(10);

        for i := 0 to colonias do
        begin
        x := random(Image1.Width);
        y := random(Image1.Height);
        Image1.Canvas.Ellipse(Rect(x,y,x+random(50),y+random(50)));
        end;

        ShowMessage(inttostr(colonias));

        colonias := 0;
        for i := 0 to Image1.Width do
        for j := 0 to Image1.Height do
        if Image1.Canvas.Pixels[i,j] = clWhite then
        begin
             rellena_colonia(i,j,clWhite,clRed,Image1);
             inc(colonias);
        end;

        Label1.Caption := inttostr(colonias);
end;

{procedure TForm1.Rellena_colonia(i,j : integer; col,rel : TColor; im : TImage);
begin
        if (i = 0) or (j = 0) or (i > Im.Width) or (i > Im.Height) then exit;
        if Im.Canvas.Pixels[i,j] <> col then exit;
        Im.Canvas.Pixels[i,j] := rel;

        rellena_colonia(i-1,j-1,col,rel,im);
        rellena_colonia(i  ,j-1,col,rel,im);
        rellena_colonia(i+1,j-1,col,rel,im);
        rellena_colonia(i-1,j  ,col,rel,im);
        rellena_colonia(i  ,j  ,col,rel,im);
        rellena_colonia(i+1,j  ,col,rel,im);
        rellena_colonia(i-1,j+1,col,rel,im);
        rellena_colonia(i  ,j+1,col,rel,im);
        rellena_colonia(i+1,j+1,col,rel,im);
end;}

procedure TForm1.Rellena_colonia(i,j : integer; col,rel : TColor; im : TImage);
begin
        Im.Canvas.Brush.Color := rel;
        Im.Canvas.FloodFill(i,j,col,fsSurface);
end;
end.

[[Delphius]]

Coso el tema es que no es tan simple como eso.
Se trata de algoritmos de predicción que buscan zonas y formas en una imagen.
El objetivo de estos algoritmos es predecir donde están los objetos deseados examinando la dirección del cambio del color.

Cesar Junior, ¿los puntos blancos tienen el mismo tamaño? ¿Son siempre blancos o tienen alguna tonalidad semejante al blanco?

Me gustaría saber si haz hecho algún avance. ¿Tienes algo de código ya hecho?

Saludos,

[Cesar Junior]

Empezado por Delphius

Coso el tema es que no es tan simple como eso.
Se trata de algoritmos de predicción que buscan zonas y formas en una imagen.
El objetivo de estos algoritmos es predecir donde están los objetos deseados examinando la dirección del cambio del color.

Cesar Junior, ¿los puntos blancos tienen el mismo tamaño? ¿Son siempre blancos o tienen alguna tonalidad semejante al blanco?

Me gustaría saber si haz hecho algún avance. ¿Tienes algo de código ya hecho?

Saludos,

Hola! consiste que los puntos blancos son varialbles nunk del mismo tamaño, pero si que son siempre blancos, en relacion a esto todavia no é logrado algo
exito, pero al final la idea es tener el tumero de colonias blancas,

[[Delphius]]

Empezado por Cesar Junior

Hola! consiste que los puntos blancos son varialbles nunk del mismo tamaño, pero si que son siempre blancos, en relacion a esto todavia no é logrado algo
exito, pero al final la idea es tener el tumero de colonias blancas,

Cualquier avance que tengas es bueno que nos digas, no necesariamente tiene que estar funcionando. Esto te lo digo para saber de que modo estás llevando a cabo el algoritmo y poder asesorarte sin tener que obligarte a cambiar demasiado tu código.

Saludos,

[roman]

Hola,

Disculpen la intromisión pues no conozco de estos temas, pero me gustaría saber cuál es el problema con el algoritmo de coso. Quizá no sea óptimo, pero hasta donde veo, cuenta las colonias blancas correctamente.

// Saludos

[[Delphius]]

Estuve pensando en el algoritmo que describes y me he quedado pensando ¿Cúando se da por válido un punto blanco y se explora hacia otro lado?

Tengo entendido que los algoritmos de estos tipos lo que hacen es calcular la dirección del cambio entre los colores vecinos (los 8) y reposicionarse en en la dirección donde detectan la mayor "sensibilidad". Por lo general la condición de parada y válidación del objeto se establece cuando entre los pixeles vecinos no hay cierta "sensibilidad" y/o superan un valor umbral de decisión.

El asunto aqui es que no necesariamente los puntos blancos son vecinos ni ocupan un pixel. Es posible que haya muchos pixel de distancia entre un punto blanco y otro.

Tal como describes el algoritmo, da la idea de que siempre se posiciona en el primer pixel vecino (entre los 5) blanco que encuentre ¿Y si no encuentra? ¿Que se hace? ¿Allí es cuando se da por entendido que se encontró un punto?

Me gustaría que nos dieras más referencia del tema que estás tratando.

Saludos,