Comment faire voler un papillon avec MicroMondes ?

placer d'abord une tortue sur l'écran en cliquant sur le bouton "créer une tortue"

ou écrire < créetortue "t1 > dans la procédure < départ >

________________________________________________________________________________

 

pour départ                nom de la procédure initiale (démarre automatiquement)

; créetortue "t1           placer une tortue sur l'écran

vg                        nettoyer l'écran (vide graphique)

lc                        lève crayon (la forme n'écrira pas en se déplaçant)

mt                        montre tortue (la < tortue > sera visible )

fy 0                      fixe la position verticale à 0 (au milieu de l'écran)

suite                     exécuter la procédure nommée < suite >

fin                       fin (mot réservé, toujours seul sur sa ligne)

 

 

pour suite                 nom de la procédure appelée par la procédure < départ >

fforme "papillon1           fixe dans dans < graphiques > la forme à < papillon1 >

attends 1.5              attendre pendant 1,5 dixième de seconde

av 15                     faire avancer la forme < papillon1 > de 15 pas

fcap 40 + hasard 100     aller à droite (90 degrés) + ou - 50 degrés

fforme "papillon2           idem pour < papillon2 >    

attends 1.5

av 15

suite                     ici la procédure s'appelle elle-même (boucle récursive)

fin                       fin (mot réservé, toujours seul sur sa ligne)

________________________________________________________________________________

 

http://www.micromondes.com

http://www.ordiecole.com/logo/1papillon.rtf

jean-daniel.greub@edu.ge.ch