Díszüveg

Egy üvegablakot színes darabokból rakunk ki. Készíts eljárásokat alap(h), sor(db,h), üveg(n, db,h), az alábbi ábrák kirajzolására! A körök sugara h. A pöttyök 10 vonalvastagságúak, a vonalak pedig 3 vastagságúak. Az üvegen az egyes sorok között megjelennek zöld pöttyös elemek is.

Az üveg sorai közé zöld pöttyöket kell tenni.

eljárás ablak :m :n :r
ismétlés :m-1 [sor :n :r tollatfel előre :r
pöttyök :n :r „zöld előre :r tollatle]
sor :n :r
tollatfel hátra 2*:r*(:m-1) tollatle
vége

eljárás sor :n :r
ismétlés :n [alap :r]
tollatfel jobbra 90 hátra :n*2*:r balra 90
vége

eljárás alap :r
tollvastagság! 3 tollszín! „sötétkék
ismétlés 4 [körív :r]
jobbra 90 tollszín! „rózsaszín
ismétlés 4 [körív :r jobbra 180]
tollatfel előre :r
tollszín! „narancs tollvastagság! 10 tollatle
pont tollatfel előre :r balra 90 tollatle
vége

eljárás pöttyök :n :r :szín
tollszín! :szín
jobbra 90 tollvastagság! 10
ismétlés :n-1 [előre 2*:r tollatle pont tollatfel]
hátra (:n-1)*2*:r balra 90
vége

A. Van alap; kék külső körvonal; rózsaszín negyedkörök; narancssárga pöttyök; a negyedkörök jó helyen; a pöttyök jó helyen; jó vonalvastagság; jó pöttyméret 2+2+2+2+2+2+2+2 pont

B. Az alap 40 jó 3 pont

C. Az alap 50 jó 3 pont

D. Van sor; alapelemekből áll; jól illesztve 2+2+2 pont

E. A sor 6 25 jó 3 pont

F. A sor 3 50 jó 3 pont

G. Van üveg; sorok jól illesztve; közöttük zöld pöttyös sorok; jó helyen 2+2+2+2 pont

H. Az üveg 40 jó 4 pont

I. Az üveg 50 jó 4 pont