Antaŭ ĉio, ni difinu proceduron hometo kiu grafikas la hometon apudan je elektita amplekso.
por hometo :c
mdn 154 an 44*:c man 44*:c
mdn 52 an 44*:c man 44*:c
mdn 154 an 40*:c
mdn 154 an 44*:c man :c*44
mdn 52 an 44*:c man :c*44
mdn 154 an 10*:c
mdn 90 ripetu 180 [an :c/2 dn 2] dn 90
fino
Nun ni kreos animadon ŝajnigantan ke la hometon kreskas po malmulte. Por tio, ni grafikos hometo 0.1,
poste hometo 0.2, hometo 0.3... ĝis hometo 5. Inter ĉiu grafikado, oni forviŝos l’ ekranon. Jen la du
proceduroj:
por hometo :c
mdn 154 an 44*:c man 44*:c
mdn 52 an 44*:c man 44*:c
mdn 154 an 40*:c
mdn 154 an 44*:c man :c*44
mdn 52 an 44*:c man :c*44
mdn 154 an 10*:c
mdn 90 ripetu 180 [an :c/2 dn 2] dn 90
se :c=5 [haltu]
ev tdk hometon :c+0.1
fino
por komenci
ev tdk
hometo 0
fino
Finfine, por fluemigi la tuton, oni helpu sin per la moduson movado kaj la primitivo novigu.
por hometo :c
mdn 154 an 44*:c man 44*:c
mdn 52 an 44*:c man 44*:c
mdn 154 an 40*:c
mdn 154 an 44*:c man :c*44
mdn 52 an 44*:c man :c*44
mdn 154 an 10*:c
mdn 90 ripetu 180 [an :c/2 dn 2] dn 90
novigu
se :c=5 [haltu]
ev tdk hometo :c+0.1
fino
por komenci
tdk movado
hometo 0
neplu_movigu
fino
Rimarku: Tie, la proceduro hometo estas rekurziva; oni pli simple povus uzi la primitivon ripetupor por variigi
:c de 0.1 ĝis 5. Jen la programo tiel:
por hometo :c
ev tdk mdn 154 an 44*:c man 44*:c
mdn 52 an 44*:c man 44*:c
mdn 154 an 40*:c
mdn 154 an 44*:c man :c*44
mdn 52 an 44*:c man :c*44
mdn 154 an 10*:c
mdn 90 ripetu 180 [an :c/2 dn 2] dn 90
novigu
fino
por komenci
tdk movado
ripetupor [c 0 5 0.1] [hometo :c]
neplu_movigu
fino
