FloodFill Rekursiv

[Neutral General]

Hi,

Ich benötige für mein Vorhaben eine FloodFill Procedure. Dazu hab ich erst mal eine "normale" programmiert.
Aber irgendwie bekomm ich dauernd nen Stack-Overflow... Wodran liegt denn das? Ich hab bei Wikipedia geguckt ob die das anders machen aber Wikipedia machts exakt genauso!

Delphi-Quellcode:

procedure FloodFill(ACanvas: TCanvas; x,y: Integer; AColor: TColor; Border: TColor);
begin
  if (ACanvas.Pixels[x,y] <> Border) then
  begin
    ACanvas.Pixels[x,y] := AColor;
    FloodFill(ACanvas,x+1,y,AColor,Border);
    FloodFill(ACanvas,x-1,y,AColor,Border);
    FloodFill(ACanvas,x,y+1,AColor,Border);
    FloodFill(ACanvas,x,y-1,AColor,Border);
  end;
end;

Gruß
Neutral General

[nachti1505]

Nur ne Vermutung, aber du hast nicht wirklich ne vernünftige Endbedingung, ausser wenn ALLES eingefärbt ist.

Will sagen, checke wenigstens mal ob 0<X<maxX und 0<Y<maxY.....

[Neutral General]

Ja das hatte ich mir auch schon gedacht aber ich hab die Fläche jetzt so eingegrenzt das sie nicht am Ende des Canvas ist sondern in der Mitte. Also ist die Abbruchbedingung auf jeden Fall erfüllt.. Wenn ich nur eine Richtung Rekursiv ausführe dann gehts.. Bei mehreren gibts nen Stack overflow.

[Tormentor32]

Delphi-Quellcode:

procedure FloodFill(ACanvas: TCanvas; x,y: Integer; AColor: TColor; Border: TColor);
begin
  if (ACanvas.Pixels[x,y] <> Border) then
  begin
    ACanvas.Pixels[x,y] := AColor;
    // Überprüfe vorm Aufruf erst, ob der Pixel die Bordercolor hat! Dann ruft er FloodFill nur auf, wenn nötig!
    FloodFill(ACanvas,x+1,y,AColor,Border);
    FloodFill(ACanvas,x-1,y,AColor,Border);
    FloodFill(ACanvas,x,y+1,AColor,Border);
    FloodFill(ACanvas,x,y-1,AColor,Border);
  end;
end;

[nachti1505]

So ganz macht deinen Code auch kein Sinn --->

bspw. wird Pixel 10,10 bearbeitet --> ist ungleich Border und wird auf Color gesetzt --> rek. Aufruf auf alle umliegenden Pixel --> der umliegende Pixel ruft ja wieder das Feld 10,10 auf.... der Vergleich ergibt true, da Border und AColor bestimmt unterschiedlich sind --> endlosschleife

[Neutral General]

Ok thx. Also ich habs jetzt so abgeändert:

Delphi-Quellcode:

procedure FloodFill(ABmp: TBitmap; x,y: Integer; AColor: TColor; Border: TColor);
begin
  if    (ABmp.Canvas.Pixels[x,y] <> Border) and (ABmp.Canvas.Pixels[x,y] <> AColor)
    and (x <= ABmp.Width) and (x >= 0) and (y <= ABmp.Height) and (y >= 0)
  then
  begin
    ABmp.Canvas.Pixels[x,y] := AColor;
    FloodFill(ABmp,x,y+1,AColor,Border);
    FloodFill(ABmp,x,y-1,AColor,Border);
    FloodFill(ABmp,x+1,y,AColor,Border);
    FloodFill(ABmp,x-1,y,AColor,Border);
  end;
end;

Das klappt auch bei manchen flächen.. Aber bei Flächen die viel Bitmap-Rand enthalten gibts wieder en Stack-Overflow... -.-

Gruß
Neutral General

[dizzy]

Zitat von Neutral General:

(x <= ABmp.Width) and (y <= ABmp.Height)

Ein Bitmap geht von x: 0..Width-1; y: 0..Height-1. Könnte evtl. die Ursache sein. Typisches off-by-one

[Hawkeye219]

Hallo,

eine Frage: was spricht gegen die Verwendung von TCanvas.FloodFill?

Gruß Hawkeye

[Neutral General]

Zitat von dizzy:

Zitat von Neutral General:

(x <= ABmp.Width) and (y <= ABmp.Height)

Ein Bitmap geht von x: 0..Width-1; y: 0..Height-1. Könnte evtl. die Ursache sein. Typisches off-by-one

Wie war das mit dem Wald den man vor lauter Bäumen nicht mehr sieht ?

Danke

Gruß
Neutral General

[gammatester]

Zitat von dizzy:

Zitat von Neutral General:

(x <= ABmp.Width) and (y <= ABmp.Height)

Ein Bitmap geht von x: 0..Width-1; y: 0..Height-1. Könnte evtl. die Ursache sein. Typisches off-by-one ;)

Außerdem zuerst die Bereiche testen und dann die Farben, sonst könnte es, wenn's dumm läuft, statt des Stackfehlers einen Zugriffsfehler geben.

Gammatester