Ładne kwiatki

Metody programowania.
Metoda wstępująca (od szczegółu do ogółu) i zstępująca (od ogółu do szczegółu). Te dwie metody to dwa różne ale prowadzące do tego samego rozwiązania metody „patrzenia” na problem do rozwiązania.
Popatrzcie na rysunek kwiatka. Możemy tutaj wyróżnić kilka elementów „składowych”. Spróbujmy je ponazywać
łodyga, listek, listek2, korona . Czyli spoglądamy na kwiatek jako ogół i zaczynamy wyznaczać mniejsze jego elementy składowe. Tym charakteryzuje się metoda zstępująca. Metoda wstępująca natomiast jest metodą odwrotną. Najpierw musimy się zastanowić co jest najmniejszym elementem składowym kwiatka. Kiedy spojrzymy na listek to on właśnie składa się z dwu powtórzonych elementów, które stanowią fragment okręgu. Nazwijmy procedurę łuk i spróbujmy ją zdefiniować.


Procedura łuk
oto łuk :a
powtórz 6 [np :a / 5 pw 360 / 36]
już
Procedura listek
oto listek :a
łuk :a pw 120 łuk :a pw 120
już


Procedura listek2
oto listek2 :a
lw 45
listek :a/2
pw 45
już

Procedura korona
oto korona :a
powtórz 18 [listek :a pw 360/18]
już

Procedura łodyga
oto łodyga :a
np :a
już
Teraz zdefiniujmy główną procedurę czyli kwiat
Procedura kwiat
oto kwiat :a
łodyga :a / 2
listek :a
listek2 :a
łodyga :a * 2
korona :a
już
Wywołaj procedurę kwiat z parametrem 80 (kwiat 80)
Gdzie żółw skończył rysowanie?

Dopisz w głównej procedurze polecenie aby żółw wrócił w miejsce startu.
oto kwiat :a
łodyga :a/2
listek :a
listek2 :a
łodyga :a * 2
korona :a
ws :a * 2.5
już

Spróbuj opracować procedurę bukiet oraz wazon wg wzoru na rysunkach.

Komenda UKP ustal kolor pisaka

np: UKP 2 ustala kolor aktualnego pisaka na kolor zielony

Komenda ZAMALUJ zamalowuje zamknięty obszar aktualnym kolorem pisaka.

Wczytaj zapisany na poprzedniej lekcji projekt Kwiatek.lgp

Wywołaj procedurę LISTEK 120 korzystając z komendy UKP oraz ZAMALUJ spróbuj zamalować wnętrze listka w kolorze zielonym.
Spróbuj opracować procedurę ZIELONY :A która będzie zamalowywała wnętrze listka.

oto zielony :a
ukp 2
pw 25 pod np :a opu zamaluj
pod ws :a lw 25 opu
ukp 0
już

Teraz zajmijmy się pomalowaniem korony kwiatka

oto kolorek :a
ukp 12
pw 25 pod np :a opu zamaluj
pod ws :a lw 25 opu
ukp 0
już

Wywołajcie do edycji procedurę korona