Cześć amatorzy-programiści,
po długiej przerwie tak jak obiecałem udostępniam wam procedurę na fraktal. Aby nadrobić moją dłuższą nieobecność daje wam w pakiecie nie jedną, nie dwie, ale aż trzy procedury na fraktale. Liczę, że wybaczycie mi moją nieobecność i, że spodobają się wam fraktale. Miłego programowania!
Procedura na plaster miodu
Nazwa procedury: plaster

oto plaster :poziom :bok

 jeśli :poziom = 0 [stop]
 powtórz 6 [np :bok plaster :poziom - 1 :bok / 2 pw 60]

już

Wywołajcie tą komendę w ten sposób:
plaster 5 100

Procedury na płatek Kocha

Nazwa procedury: koch

oto koch :stopień :długość

 jeśli :stopień = 0 [np :długość stop]

 koch :stopień - 1 :długość / 3 pw 60

 koch :stopień - 1 :długość / 3 lw 120

 koch :stopień - 1 :długość / 3 pw 60

 koch :stopień - 1 :długość / 3

już

Nazwa procedury: platek.koch

oto platek.koch :stopień :długość :n

 powtórz :n [koch :stopień :długość lw 360/:n]

już

Wywołujemy:

platek.koch 4 200 3 

Procedura na paproć

Nazwa procedury: paproć



oto paproć  :a



 ukp 2

 jeśli :a < 1 [np :a ws :a stop]

 np :a * 0.1 lw 40

 paproć :a * 0.2 pw 80

 paproć :a * 0.2 lw 40

 pw 2 paproć :a * 0.9 lw 2

 ws :a * 0.1

 ukp 0



już




Wywołujemy:



paproć 500


















Moim zdaniem, najlepiej prezentującym się fraktalem jest paproć.
Mam nadzieję, że u was procedury zadziałają i dadzą wam one nie złą frajdę przy wywoływaniu ich z różnymi parametrami.

Trzymajcie się, amatorzy-programiści.