Fák

Készítsd el az alábbi fákat rajzoló eljárásokat (zöldfa(év,a,b), kékfa(év,a,b)), ahol év a fa kora, a a törzs hossza, b pedig az ágak végén levő virágok mérete! A zöld fa ágai színe változzon, a törzse [0 100 0] RGB kódú legyen, az ágak vége felé haladva a zöld összetevő 10-zel nőjön! A kék fa törzse [0 50 100] RGB kódú legyen, és az ágak vége felé haladva a zöld összetevő 5-tel, a kék 10-zel nőjön!

A zöld fa törzse közepéből balra is nő ki egy ág, a törzs végéből kinövők mérete és dőlésszöge is különböző.

eljárás fa :n :h :sz
tollvastagság! :n tollszín! :sz előre :h/2
ha :n>2 [balra 30 fa :n-2 :h*9/16 vált vált :sz jobbra 30]
tollvastagság! :n tollszín! :sz előre :h/2
hak :n>1 [balra 30 fa :n-1 :h*3/4 vált :sz jobbra 45
fa :n-1 :h*9/16 vált :sz balra 15]
[tollvastagság! max :h/4 1 pont]
tollatfel hátra :h tollatle
vége

eljárás vált :sz
eredmény (lista első :sz 10+második :sz utolsó :sz)
vége

A max és a második függvény azonos az előző korcsoportbelivel.

eljárás fa :n :h :sz
tollvastagság! :n tollszín! :sz előre :h/2
ha :n>2 [jobbra 45 fa :n-2 :h*9/16 vált :sz balra 45]
balra 30 tollvastagság! :n tollszín! :sz előre :h/2
hak :n>1 [balra 30 fa :n-1 :h*1/2 vált :sz jobbra 90
fa :n-1 :h*3/4 vált :sz balra 60]
[tollvastagság! max :h/4 1 színespont tollszín]
tollatfel hátra :h/2 jobbra 30 hátra :h/2 tollatle
vége

eljárás vált :sz
eredmény (lista első :sz 10+második :sz 5+utolsó :sz)
vége

eljárás színespont :s
tollszín! "narancs előre 5 pont hátra 5
tollszín! :s
vége

A. Van zöldfa; zöld színű ágak; zöld virágok; kör alakú; az ágak színe jól változik
1+2+1+2+4 pont

B. zöldfa 1 80 10 jó 3 pont

C. zöldfa 2 70 10 jó 4 pont

D. zöldfa 4 60 10 jó 5 pont

E. zöldfa 9 60 10 jó 5 pont

F. Van kékfa; kék színű ágak; narancs virágok; jó alakú; az ágak színe jól változik
1+2+1+3+4 pont

G. kékfa 1 80 10 jó 3 pont

H. kékfa 2 70 10 jó 4 pont

I. kékfa 4 60 10 jó 5 pont

J. kékfa 9 60 10 jó 5 pont