Processamient de iMagens, Contador através de imagenes

[Cesar Junior]

Empezado por coso

es extraño, si consigues pasarlo todo a manchas blancas, el primer algoritmo te las cuenta...¿porque te falla?

En realidad no me las cuenta, me la passa todo lo que es blanco a negro, y depues dibuja una elipse Randon, q la passa a rojo, es extraño tenter cambiar algunas cosas pero no me dio resultado

[[coso]]

ah....vamos, que no entendiste nada

[[coso]]

El algoritmo esta integrado en un ejemplo que pinta todo de negro y luego dibuja unas elipses blancas para contarlas. Luego recorre cada pixel y si encuentra alguno de color blanco, lo pinta de otro color y aumenta el contador de zonas. La parte util para ti supongo que tendria que ser aquella que recorre cada pixel y rellena, y no la que dibuja las elipses.

[Cesar Junior]

Empezado por coso

ah....vamos, que no entendiste nada

Si, en verdad que tenes razon, es que soy aprendiz, y me di cuenta de q no estava entendiendo nada, rs.. hize unos experimentos com grano de maíz, y tu algoritmo funciona muy bien, solo ay q estudiar una forma de mejorar la imagen cuando loa sgranos estan muy juntos me da un valor aproximado, pero te agradesco mucho q en reaqlidad funciona muy bien!!!

[Cesar Junior]

Y quedo asi

Código Delphi [-]
 
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;
 
 
procedure TForm1.BitBtn6Click(Sender: TObject);
var
        i,j : integer;
        colonias : integer;
begin
        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;
        Label2.Caption := inttostr(colonias);
        Label2.Visible:=true;
        ShowMessage(inttostr(Colonias));
end;

Esto funciona mui bien, cuando la imagen esta bien definida