Français   Démonstration.
Ce programme trace un arc-en-ciel. Les couleurs sont choisies à partir d'une liste. Les six bandes de couleur sont tracées à l'aide de la primitive arc.

# Commande principale: demarrer
pour new
# set defaults, screen, pen et tortue
init ftd [400 400]
fcfg noir fcc vert levecrayon cachetortue
fin

pour rainbow
fixeformecrayon 1 ftc 10 # fat arrondi pen
donne "cols [1 13 3 2 4 15]
repetepour [n 1 6] [
fcc item :n :cols
arc (180-12*:n) moins 90 90 ]
fin

pour demarrer
new rainbow
fin



Une autre façon de procéder, où les noms de couleur sont utilisés à la place des nombres.

pour rainbow
fixeformecrayon 1 ftc 10 # fat arrondi pen
donne "cols [rouge orange jaune vert bleu violet]
repetepour [n 1 6] [
fcc exec phrase (item :n :cols) []
arc (180-12*:n) moins 90 90 ]
fin
Tester le programme maintenant

Procédure à exécuter:
demarrer