Wstęp
W artykule przedstawie sposób rysowania drzewa w sposób rekurencyjny oraz przy wykorzystaniu liczb pseudolosowych. W ten sposób powstają rysunki do złudzenia przypominające te z życia codziennego. Oczywiście kod ten można usprawnić na wiele różnych sposobów co może podnieść poziom realizmu.
Implementacja
W celu lepszego wyjaśnienia kodu poniżej zostały zamieszczone trzy różne procedury rysujące. Każda następna wzoruje się na poprzedniej i stara się udoskonalić rysunek drzewa.
Etap I - drzewo proste
Narysowane drzewo będzie składać się z prostych gałęzi z który każdy poziom nachylony jest do poprzedniego pod kątem 45°. Takie drzewo nie wygląda zbyt imponująco, ale jest świetnym punktem wyjścia do napisania bardziej złożonej procedury. W przyrodzie na rozwój drzewa wpływa bardzo dużo czynników, których my niekoniecznie chcemy wprowadzać, aby otrzymać drzewo. Jednak, aby uzyskać bardziej naturalne drzwo możemy wkorzystać funkcję losującą.
- oto proste_drzewo :a :n
- np :a
- jeśli (:n > 1) [
- lw 45
- drzewo :a/2*3 :n-1
- pw 90
- drzewo :a/2*3 :n-1
- lw 45
- ]
- ws :a
- już
Etap II - bardziej realistyczne drzewo
Zakładamy, że każdą gałąź względem poprzedniej może być odchylona w prawo lub lewo maksymalnie o 60°. Obydwie zmienne zapamiętujemy, żeby wiedzieć o ile powrócić żółwią, aby mógł rysować dalej. Dzięki tej zmianie drzewo nie ma już gałęzi prostopadłch do siebie.
- oto prawie_drzewo :a :n
- niech "l losowa 60
- niech "l2 losowa 60
- jeśli (:n > 1) [
- lw :l
- drzewo :a/2*3 :n-1
- pw :l+:l2
- drzewo :a/2*3 :n-1
- lw :l2
- ]
- już
Etap III - losowe drzewo
Kolejny zabieg kosmetyczny, który pozwoli wyglądać drzewu naturalniej jest długość gałęzi. W tym celu należy dodać losowość w linijkach 8 i 10. W dalszym kodzie zostało ustalone, aby długość następnego poziomu gałęzi wahał się pomiędzi 60%, a 80% długości poprzedniego poziomu.
Jeszcze jednym ciekawym pomysłem jest ustalenie grubości pisaka. Jak wiadomo drzewo "rośnie warstwami" (o czym świadczą słoje). Zakładając, że każdy poziom gałąź to kolejny etap rośnięcia drzewo to możemy przyjąć, że grubość gałęzi jest proporcjonalna do poziomu gałęzi. Ostatecznie ze wszystkimi poprawkami kod przedstawia się następująco:
- oto drzewo :a :n
- ugp :n
- np :a
- niech "l losowa 60
- niech "l2 losowa 60
- jeśli (:n > 1)[
- lw :l
- drzewo :a/10*(6 + ((losowa 20) / 10)) :n-1
- pw :l + :l2
- drzewo :a/10*(6 + ((losowa 20) / 10)) :n-1
- lw :l2
- ]
- ws :a
- już
Uwagi
Procedura przyjmuje tylko dwa parametry, ale można dodać ich znacznie więcej tj. ustalanie zakresu odchyłu gałęzi, zakres długości kolejnych gałęzi czy chociażby ilość gałęzi wychodzących z pojedynczego rozgałęzienia.