Uso de erosion en procesamiento de imagenes

[Cesar Junior]

Empezado por coso

Hola de nuevo,

la gracia de la 'erosion' seria transformar a negro aquellos pixeles que tienen alguno de sus pixeles colindantes en negro tambien...quedaria algo asi :


Código Delphi [-]

procedure Erosionar( origen, destino : TCanvas);
var
i, j : integer;
begin
for i := 0 to origen.Width do
for j := 0 to origen.Height do
begin
if (origen.Pixels[i-1,j-1] = clBlack) or
(origen.Pixels[i ,j-1] = clBlack) or
(origen.Pixels[i+1,j-1] = clBlack) or
...
(origen.Pixels[i ,j+1] = clBlack) or
(origen.Pixels[i+1,j+1] = clBlack) then
destino.Pixels[i,j] := clBlack else destino.Pixels[i,j] := clWhite;
end;
end;






mas o menos...como ves, se miran los pixeles colindantes o el mismo, y si alguno de ellos es clBlack, entonces el destino se pinta tambien clBlack. Saludos.

E intentado de varias forma, pro no logre exito, se que el problema esta en la programacion q hago, pero no logro corrigir, com origen, destino : TCanvas, no compila, para en origen.Width me dice q no es valido, e intentado de otras formas pero no logre

[[coso]]

vaya, es cierto : lo escribi de memoria y resulta que TCanvas no tiene ni width ni height. Supongo q entiendes mas o menos como funciona : es bastante modificable a, por ejemplo, TImage, TPicture o lo que estes usando para guardar las imagenes. Saludos.

[Cesar Junior]

Coso e intentado de esta forma pero tbm no me dio resultado, conste q si creo un origen y un destino no me compila, me da una mesage de falta de parametros, y como esta abajo solo invierte los colores


Código Delphi [-]
procedure Erosionar( ABmp : TBitmap);
var
i, j : integer;
begin
for i := 0 to ABmp.Width do
for j := 0 to ABmp.Height do
begin
if (ABmp.Canvas.Pixels[i-1,j-1] = clwhite) or
(ABmp.Canvas.Pixels[i ,j-1] = clwhite) or
(ABmp.Canvas.Pixels[i+1,j-1] = clwhite) or
(ABmp.Canvas.Pixels [i-1,j] = clwhite) or
(ABmp.Canvas.Pixels [i ,j] = clwhite) or
(ABmp.Canvas.Pixels [i+1,j] = clwhite) or
(ABmp.Canvas.Pixels [i-1,j+1] = clwhite) or
(ABmp.Canvas.Pixels [i ,j+1] = clwhite) or
(ABmp.Canvas.Pixels[i+1,j+1] = clwhite) then
ABmp.Canvas.Pixels[i,j] := clblack else ABmp.Canvas.Pixels[i,j] := clwhite;
end;
end;

[[coso]]

bueno...habia puesto...

...
(origen.Pixels[i-1,j-1] = clBlack) or
(origen.Pixels[i ,j-1] = clBlack) or
...
then
destino.Pixels[i,j] := clBlack else destino.Pixels[i,j] := clWhite;

y el tuyo...

...
(ABmp.Canvas.Pixels[i+1,j-1] = clwhite) or
(ABmp.Canvas.Pixels [i-1,j] = clwhite) or
...
then ABmp.Canvas.Pixels[i,j] := clblack else ABmp.Canvas.Pixels[i,j] := clwhite;

probablemente por eso te invierte invierte los colores

[[coso]]

Por otra banda, en esa funcion hay dos canvas: uno de origen, otro de destino. Si vas pintando todo en uno pierde sentido, pues al mirar los anteriores ya lo habras pintado a tu manera...

[[coso]]

A ver si tengo un ratillo y lo hago...

[Cesar Junior]

en verdad havia notado eso, el problema es que si crio un otro Canvas de destino no me compila al aplicar el procedure a la imagen me da el siguiente erros [Error] Unit1.pas(1160): Not enough actual parameters;

la aplico de esta forma :

Erosionar(Image1.picture.bitmap);

[[coso]]

Código Delphi [-]
procedure Erosionar(bmp : TBitmap);
var
    i, j : integer;
    ori  : TBitmap;
begin
    ori := TBitmap.Create;
    ori.Width  := bmp.Width;
    ori.Height := bmp.Height;
    for i := 0 to bmp.width do
    for j := 0 to bmp.Height do
    ori.Canvas.Pixels[i,j] := bmp.Canvas.Pixels[i,j];
    for i := 0 to bmp.width do
    for j := 0 to bmp.Height do
    with ori.Canvas do
    begin
      if (Pixels[i-1,j-1]  = clBlack) or
         (Pixels[i ,j-1]   = clBlack) or
         (Pixels[i+1,j-1]  = clBlack) or
         (Pixels [i-1,j]   = clBlack) or
         (Pixels [i+1,j]   = clBlack) or
         (Pixels [i-1,j+1] = clBlack) or
         (Pixels [i ,j+1]  = clBlack) or
         (Pixels[i+1,j+1]  = clBlack) then
        bmp.canvas.Pixels[i,j] := clblack else
        bmp.canvas.Pixels[i,j] := Pixels[i,j];
   end;
   ori.Free;
end;

de todas maneras, te recomiendo que entiendas el codigo, sino siempre estaras pidiendo al respecto. Un saludo