Français   Démonstration.
# Commande principale: demarrer
pour new
# set defaults, screen, pen et tortue
init ftd [400 400]
fcfg noir fcc vert levecrayon cachetortue
fin

pour dust
repete 256 [ranpoint baissecrayon avance 0 levecrayon]
fin

pour ranpoint
fixexy (hasard 400)-200 (hasard 400)-200
fin

pour star
fixexy 0 0 baissecrayon # screen centre
repete 40 [avance 180 fixexy 0 0 tournegauche 9 attends 4]
fin

pour net
repetepour [angle 0 360 6]
[levecrayon fixexy 180*cos :angle 0
baissecrayon fixexy 0 180*sin :angle attends 4]
fin

pour demarrer
new fcc 7 dust fcc 1 star fcc 2 net
fin

Tester le programme maintenant

Procédure à exécuter:
demarrer