Iterativer FloodFill mit einem Stapelspeicher

[Furtbichler]

Floodfill geht doch so (peudocode):

Delphi-Quellcode:

Procedure FloodFill (Canvas : TCanvas; P : TPoint; NewColor : TColor);
Var
 q : TPoint;

begin
  Foreach Neighpor q of P do 
    if not visited[q] then begin
      visited[q] := True;
      Canvas.Pixel[q.x, q.y] := NewColor;
      FloodFill(Canvas, q, NewColor);
    end
end

Eine iterative Umformung ginge so:

Delphi-Quellcode:

Procedure FloodFill (Canvas : TCanvas; P : TPoint; NewColor : TColor);
Var
  worktable: Stack of TPoint;
  Q : TPoint;

begin
  worktable.push(p):
  while not worktable.IsEmpty do begin
    q := worktable.pop;
    if not visited[q] then begin
      visited[q] := True;
      Canvas.Pixel[q.x, q.y] := NewColor;
      worktable.push(q);
    end
  end
end

[Kampfheizung]

Erst einmal zur "Nebenfrage" :

Delphi-Quellcode:

type
  Lines = record
   start : TPoint;
   ende : TPoint;
  end;
var Lines_points : array of Lines;

Wie bekomme ich wenn ich gespielt habe und dort verschieden viele Sätze an Daten drinne stehen
die wieder aus 'Lines_points' gelöscht so das die Länge wieder 0 ist. Weil ich kann ja mitten
im Spiel "Neues Spiel" drücken und da muss ja wieder alles auf den Anfang zurück gesetzt werden
so ja auch die Linien und die muss ich da ausm Speicher rausbekommen.


Dann zur Hauptfrage :

Ich habe mir jetzt eine Datenstruktur gebastelt in einer seperaten Unit und die Iterative Lösung
die vorgeschlagen wurde bereichert mich auch schon ein bisschen, jedenfalls sehe ich schon ein
bisschen klarer.

Aber ich weiß noch nicht so ganz wie ich nun da ran gehen soll weil -

Ich möchte ja in einer Paintbox ein Strich zb. von links nach Rechts durchziehen
und dann in der Paintbox die kleinere Hälfte die getrennt wird durch den Strich
in einer bestimmten Farbe färben die ich festgelegt habe. Das wäre ja noch das einfachste Beispiel
weil es hat nur ein Start und ein Endpunkt - aber der Spieler kann auch eine Pyramide zeichnen
mit beliebig vielen Ecken und dann sie am Rand schließen und das muss dann auch eingezeichnet werden
da würde ich gerade mit meiner Logik irgendwie auf Granit stoßen.

Rekursiv könnte man ja einfach die Kollisions-Farbe angeben - iterativ ist das ja ein bisschen
ausführlicher.

[Furtbichler]

Nö,

Code:

wenn pixel[x,y]<>Zielfarbe then einfärben