Fa

Készítsd el a fát rajzoló eljárást fa(n,h), ahol n a szintek száma, a h hossz pedig a fa törzsének hossza! Az ábrákon minden barna színű. (A felhasználandó szín barna –„brown”)

A fa törzse vastagsága legyen az aktuális szintek száma! A törzs felénél és a végén is nőnek ki ágak. A felénél balra 1 szinttel kevesebb, jobbra két szinttel kevesebb. A törzs végén ugyanez fordítva.

eljárás fa :n :h
ha :n>0 [tollvastagság! :n előre :h]
ha :n>1 [balra 60 fa :n-1 :h*2/3 jobbra 90
fa :n-2 :h*4/9 balra 30]
ha :n>0 [tollvastagság! :n előre :h]
ha :n>1 [jobbra 60 fa :n-1 :h*2/3 balra 90
fa :n-2 :h*4/9 jobbra 30]
ha :n>0 [tollvastagság! :n hátra 2*:h]
vége

A. fa 1 100 van, barna 2+2 pont

B. fa 2 100 jó szerkezetű, balra jó helyen nő ág; jobbra jó helyen nő ág 2+2+2 pont

C. fa 3 100 jó szerkezetű; ágvastagságok jók; új ág jelenik meg a fő törzs közepén jobbra; jó szögben; új ág jelenik meg a fő törzs végén balra; jó szögben 2+2+3+1+3+1 pont

D. fa 4 80 jó 6 pont

E. fa 8 60 jó 6 pont