Ezek eljárások a Comenius Logo programban. Ha megcsinálod ugyanezt az eljárást a Comenius Logo memóriájában és utána az eljárás nevét begépeled a parancssorba, akkor kirajzolja azt, amit az eljárásban megírtál. Leírtam néhány egyszerű, de látványos eljárást. Próbáld ki, nagyon jók! Ha valami nem mûködik többszöri próbálkozások után, akkor csak írj a Levélküldőbe és elküldöm megint a képleteket!

Cseppek:

tanuld csepp :Sugár
tr
láthatatlan
tsz! 0
ism 180 [e 2 * :Sugár * 3.14 / 360 j 1]
ism 180 [e :Sugár * 3.14 / 360 j 1]
ism 180 [e :Sugár * 3.14 / 360 b 1]
ism 180 [e 2 * :Sugár * 3.14 / 360 b 1]
tollatfel b 90 e :Sugár * 5 / 8 tollatle
tsz! 0
tölt
tsz! 15
j 90
ism 360 [e :Sugár / 4 * 3.14 / 360 j 1]
tf
j 90 e :Sugár / 8
tölt
j 180
e :Sugár * 9 / 8
j 90
tl
tsz! 0
ism 360 [e :Sugár / 4 * 3.14 / 360 j 1]
tf j 90 e :Sugár / 8 tl
tölt
vége

Virág rombuszokból

tanuld rombuszok :db :hossz :szög
tr
ism :Db [ism 2 [e :hossz j :szög e :hossz j 180 - :szög] :hossz 360 / :Db j 360 / :Db]
vége

Körnégyzet

tanuld négyzetesen :Négyzethossz
láthatatlan
tr
rsz! [0 90 0]
tsz! véletlenszám 15
ism 180 [ism 4 ~
[e :Négyzethossz j 90] ~
j 2 ~
várj 1]
vége

Körösen

Itt viszont több eljárást kell csinálnod és a legutolsó eljárás nevét kell majd begépelned a parancssorba:
1. Kör
tanuld kör :Sugár
ht
ism 360 [e :Sugár * 2 * 3.14 / 360 j 1]
vége

2. Körsor
tanuld körsor :Darabszám :Sugár
ism :Darabszám [kör :Sugár tollatfel e :Sugár tollatle]
vége

3.Körsokszög
tanuld körsokszög :Oldalszám :Db :r
tr
ism :Oldalszám [körsor :Db :r tollatfel j 360 / :Oldalszám e :r tollatle]
vége