
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ż ...