# Commande principale: demarrer
pour new # set defaults, screen, pen et tortue init ftd [400 400] fcfg noir fcc vert levecrayon cachetortue fin pour wander :ia :sa :ll :cy new fcc 7 display :ia :sa origine fcc 2 baissecrayon repete :cy [avance :ll tournedroite :ia donne "ia :ia+:sa] fin pour display :ia :sa fixexy -192 184 etiquette [happy wanderer] fpos [-40 184] etiquette phrase [initial angle] :ia fpos [90 184] etiquette phrase [step angle] :sa fin pour demarrer wander 25 54 15 90 fin |
Wander 0 7 12 1000 Wander 0 11 12 1000 Wander 0 13 12 1000 Wander 0 123 18 400 Wander 0 55 28 400 Wander 0 49 12 2000 Wander 10 80 48 36 Wander 11 80 48 400 Wander 30 90 42 24 Wander 0 71 13 600 Wander 15 50 11 500 # linéaire Wander 17 54 35 200 Wander 25 54 15 200 # soleil Wander 29 54 15 200 # second soleil Wander 25 57 7 720 # soleil complexe Wander 2 69 7 800 |