L-System

[fwsp]

Hallo

Ich möchte meine Umsetzung eines L-Systems vorstellen. Es ist mit Delphi 7 PE geschrieben, benötigt zusätzlich noch Turtle-Komponenten: didcmp15.zip // 97 KB

Anleitung:
Es beherrscht folgendes Alphabet: 'F', 'f', '[', ']', '+', '-'.
Bei 'F' wird eine Strecke gezeichnet.
Bei 'f' wird eine Strecke ohne zeichnen gegangen.
Bei '[' wird sich die Position und der Winkel gemerkt.
Bei ']' wird die letzte Position und der dazu gehörige Winkel ausgegeben.
Bei '+' wird ein Winkel in mathematische Richtung (gegen den Uhrzeigersinn) gegangen.
Bei '-' wird ein Winkel gegen die mathematische Richtung (mit den Uhrzeigersinn) gegangen.

Zum Download

ps. Bei Generation besser nicht mehr als 5-7 eingeben, je nach Bildungsvorschrift, kann sonst ein wenig länger dauern.

[Flare]

Hi fwsp!

Ich habe das Programm mal getestet.
Als erstes muss ich loswerden, dass das eine Interessante Idee ist, dieses Programm. Nur wozu braucht man das?

Außerdem bekomme ich ziemlich haufig AV wenn die Formel (anscheinend) nicht stimmt.


Flare

[Klaus01]

weitere Infos zu L-System gibts es hier -> http://de.wikipedia.org/wiki/L-System

Grüße
Klaus

[Flare]

Weitere ... Bugs...

Der Zeichenfortschritt wird erst nach der Ausgabe angezeigt, sollte vielleicht nebenbei kommen :mrgreen:

Aber mit diesem Programm kann man schöne Spielereien machen! Eine "Blume" habe ich schon...


Flare

[fwsp]

Die AV wird kommen wenn die Anzahl der ']' nicht gleich der Anzahl der '[' ist. Die Eingabe einer ungleichen Anzahl ist auch nicht allzu sinnvoll. :wink:
Die Abfolge des Programms ist so konzipiert, dass erst die Zeichenkette generiert wird und anschließend diese grafisch umgesetzt wird. Eine Gleichzeitigkeit hab ich nicht vorgesehen.

[Flare]

Ich habe mich falsch ausgedrückt ^^

Dein Programm zeichnet erst und füllt dann die Leiste "Zeichenfortschritt"


Flare

[fwsp]

To Flare: Setzt mal die Länge auf 2-5, dann wirst du sehen, dass er noch zeichnet. Vielleicht zeichnet er schon außerhalb der Zeichenfläche, dann setz mal die y-Koordinate auf -150, oder so.

[alzaimar]

Sehr schönes Programm...

Versuche Folgendes:
1. Die Linien zeichnest Du als Rechteck der Breite B und Höhe H. Die Höhe variiert jeweils um einen Randomwert.
2. Jede Linie ist um +/- Randomwinkel (einige Grad) nach links oder gedreht.
3. Bei jeder Rekursionstiefe nimmt B und H um X Prozent ab.
4. Die Winkel der Verästelungen variieren auch um einige Randomprozente.
5. Einige Rekursionen werden nicht ausgeführt.

Damit wirst Du dann wirklich realistische Bäume erstellen können.

[fwsp]

to alzaimar:
ich mag das '...' nicht. :wink:
Ich hab den Source ja mit zur Verfügung gestellt, du kannst das gerne so umsetzen...

[Flare]

Ok fwsp, du hattest recht. Ich glaube der hat irgendwelche Linien doppelt gezeichnet, sodass es so aussah als wenn er schon fertig wäre. :wall:
Aber es lag nicht an den Grenzen des Bildschirmes


Flare

[easteregg]

bei mir produziert das nicht immer das komplette bild -> siehe http://verfriemelt.org/dp/
aber damit kann man schöne sachen machen ;)

erinnert mich irgendwie bissl an logo ^^

[fwsp]

das liegt an der von mir verwendeten Turtle-Komponente. Gibt es vielleicht eine Jedi-Turtle-Komponente?

[xZise]

o.O

Leider sind meine nicht so kreativ:

Zitat:

F++f+F----F+++F---F

G: 5
W: 10
L: 5

SX: 50
SY: 150

@ Attachment das Bild

[alzaimar]

Zitat:

Zitat von fwsp

to alzaimar:
ich mag das '...' nicht. :wink:
Ich hab den Source ja mit zur Verfügung gestellt, du kannst das gerne so umsetzen...

Komische Antwort auf positive Kritik und einen Verbesserungsvorschlag.

Mit dem Source kann ich aber nichts anfangen, weil mir die Turtle-Grafik nicht gefällt.

Na ja, hier mal eine ähnliche Implementierung. Sie ist vom Prinzip fast gleich, aber in meinen Augen leichter zu 'programmieren'.

'-' ist ein Baumsegment, '/' bzw. '\' eine Verästelung nach links/rechts und 'o' ein Blatt. Die Blätter werden nur im letzten Rekursionsabschnitt gezeichnet. Es sind einfach kleine grüne Kreise.

Die Resultate sind natürlich läääängst nicht so schön wie die Natur, man erkennt aber auch, das Rekursivität, oder Selbstbeinhaltung ein Grundalgorithmus unserer Welt ist.

Wer will, kann damit weiter rumspielen...

[BlackJack]

als weitere erweiterung könnte ich mir noch vorstellen, den "zeichensatz" um das zeichen & oder so zu erweitern, mit dem man (vorangestellt an ein F) erreichen kann, dass sich in der danach durch das F eingeleiteten rekursion alle + in - und alle - in + umwandeln. dann wäre das zwar kein original L-System mehr, aber man hätte einige möglichkeiten mehr und könnte auch ein paar nette Fraktale wie z.b. die Drachenkurve zeichnen lassen.

@alzaimar: respekt, das sieht echt cool aus. :thumb:

[fwsp]

to alzaimar: das war gar nicht so böse gemeint...