Drei sich berührende Kreise bilden ein Kreiszwickel. Das Fraktal Appolonische Verdichtung endsteht indem man einen Kreiszwickel einen einbeschriebenen Kreis hinzufügt, so entstehen 3 neue Kreiszwickel, in die bei der nächsten Stufe wieder Kreise einbeschrieben werden.
Die Umsetzung des rekursiven Algorithmus ist einfach, nur die Berechnung der einbeschriebenen Kreise erfordert größte Aufmerksamkeit.

Was bedeutet eigentlich P3.x? So wie es aussieht, führt P3.x > 0.50 dazu, dass der Kreis links oben größer ist als die anderen zwei und P3.x < 0.50 dazu, dass der Kreis rechts oben größer als die 2 anderen wird.

Hier mal eine überarbeitete Version...

• unnötige globale Variablen entfernt
• Komponentennamen vergeben
• Exit, Break, Continue, With-Blöcke entfernt
• Speicherleck entfernt
• Zeichentechnik korrigiert (Geschwindigkeit erhöht)
• fehlende Unit überflüssig gemacht
• Anchors gesetzt
• Ereignis-Methoden-Aufrufe überarbeitet
• nur einen Befehl pro Zeile (so kann man besser debuggen)

Herr Winter ich finde ihre Beiträge mit den Source Codes sehr gut, ich lese sie sehr gerne, weiter so.

@omata: da ist noch ein ungenutztes i drinnen

hmm, hab mal aus neugier die Stufe aufgeschraubt ... bis 10 macht er noch mit und ab dann gibt's Exceptions ... hatte mich interessiert, ob man auch noch den letzten sichtbaren Kreiszwickel ausgefüllt bekommt

@blackdrake:
P3.x? verschiebt den oberen Schnittpunkt der äußeren Kreise in die linke (< 0.5) oder rechte (> 0.5) Ecke und verzerrt so das Ganze etwas.

PS: zum Zeichnen ist .ClipRect nist soooo gut geeignet ... legt mal ein kleines Fensterchen vor die Anwendung und bestaunt nach dem Entfernen dessen das kleine Appollon-Bild im Großen

Zitat von himitsu:

@omata: da ist noch ein ungenutztes i drinnen

Ok, habe ich geändert, aber bei den vielen programmiertechnischen Problemstellen kann man ja auch mal eine übersehen.

Zitat von himitsu:

hmm, hab mal aus neugier die Stufe aufgeschraubt ... bis 10 macht er noch mit und ab dann gibt's Exceptions ... hatte mich interessiert, ob man auch noch den letzten sichtbaren Kreiszwickel ausgefüllt bekommt

Ja, aber der Vollständigkeit halber, du hast den Programmcode verändert, nur dann kommen Exceptions, sonst nicht!

Zitat von himitsu:

PS: zum Zeichnen ist .ClipRect nist soooo gut geeignet ... legt mal ein kleines Fensterchen vor die Anwendung und bestaunt nach dem Entfernen dessen das kleine Appollon-Bild im Großen

Ok, habe ich geändert. Allerdings nicht so festgenagelt und global wie in der Ur-Fassung.

Gibt es das auch irgendwie als Kompilat? Ich habe hier kein Delphi zur Hand.

Zitat von Luckie:

Gibt es das auch irgendwie als Kompilat? Ich habe hier kein Delphi zur Hand.

Bitte schön.

im Post #1 war auch eine EXE mit dabei

[ot]Ich bin auf Version 13 gespannt [/ot]