Eckenersetzung
In Analogie zur Streckenersetzung kann man auch eine Eckenersetzung vornehmen. Sie funktioniert wie folgt:
| Zeichne eine Anfangsfigur I und ersetze jede ausgewählte Ecke von I durch eine Figur G. In der so entstandenen Figur ersetze jede ausgewählte Ecke durch G. Diese Eckenersetzung wird beliebig lange wiederholt. |
Die ausgewählten Ecken sind nachfolgend durch Kreise markiert.
Durch Eckenersetzung kann man künstliche Pflanzen nachbilden, denn jeder Ecke entspricht eine Knospe, aus der ein neuer Trieb herauswächst.
Bei der Streckenersetzung werden die Draw-Befehle des Generators durch rekursive Aufrufe ersetzt. Bei der Eckenersetzung werden an allen ausgewählten Ecken des Generators rekursive Aufrufe vorgenommen.
procedure TFRekGraf.ZeichneBaum(Stufe: Integer; Laenge: Real);
begin
if (Stufe > 0) and (Laenge > 1) then
with Turtle do begin
Turn(30);
Draw(Laenge*0.7);
ZeichneBaum(Stufe-1, Laenge*0.7);
Move(-Laenge*0.7);
Turn(-50);
Draw(Laenge*0.6);
ZeichneBaum(Stufe-1, Laenge*0.6);
Move(-Laenge*0.6);
Turn(20);
end;
end;