Tout d’abord, nous allons définir une procédure bon qui trace le bonhomme ci-contre à la taille de notre
choix.
pour bon :c
tg 154 av 44*:c re 44*:c
tg 52 av 44*:c re 44*:c
tg 154 av 40*:c
tg 154 av 44*:c re :c*44
tg 52 av 44*:c re :c*44
tg 154 av 10*:c
tg 90 repete 180[av :c/2 td 2] td 90
fin
Nous allons à présent créer une animation donnant l’illusion que le bonhomme grandit petit à petit. Pour cela, nous
allons tracer bon 0.1 puis bon 0.2 bon 0.3 ... jusqu’à bon 5. Entre chaque tracé, on effacera l’écran. On obtient les
deux procédures suivantes :
pour bon :c
tg 154 av 44*:c re 44*:c
tg 52 av 44*:c re 44*:c
tg 154 av 40*:c
tg 154 av 44*:c re :c*44
tg 52 av 44*:c re :c*44
tg 154 av 10*:c
tg 90 repete 180[av :c/2 td 2] td 90
si :c=5[stop]
ve ct bon :c+0.1
fin
pour demarrer
ve ct
bon 0
fin
Enfin, pour fluidifier le tout, on va se servir du mode animation et de la primitive rafraichis.
pour bon :c
tg 154 av 44*:c re 44*:c
tg 52 av 44*:c re 44*:c
tg 154 av 40*:c
tg 154 av 44*:c re :c*44
tg 52 av 44*:c re :c*44
tg 154 av 10*:c
tg 90 repete 180[av :c/2 td 2] td 90
rafraichis
si :c=5[stop]
ve ct bon :c+0.1
fin
pour demarrer
ct animation
bon 0
stopanimation
fin
Remarque : Ici, la procédure bon est récursive, on aurait plus simplement utiliser la primitive repetepour afin de
faire varier :c de 0,1 à 5. Voici le programme obtenu alors :
pour bon :c
ve ct tg 154 av 44*:c re 44*:c
tg 52 av 44*:c re 44*:c
tg 154 av 40*:c
tg 154 av 44*:c re :c*44
tg 52 av 44*:c re :c*44
tg 154 av 10*:c
tg 90 repete 180[av :c/2 td 2] td 90
rafraichis
fin
pour demarrer
ct animation
repetepour [c 0 5 0.1][bon :c]
stopanimation
fin
