Ce programme trace une douzaine de ligne et affiche les coordonnées de chacune des extrémités. Il est composé de quatre procédure:
- New: Choisit pour couleur de fond le noir, cache la tortue et baisse le crayon.
- RanPoint: La tortue se déplace sur un point choisit au hasard sur la zone de dessin. x et y doivent être compris entre -200 et 200. On prend un peu de marge par rapport au bord afin que les coordonnées soient visibles.
- LabXY: Affiche les coordonnées de chacun des points. Un décalage de 24 pas sur la gauche est effectué par rapport à la position actuelle pour un meilleur affichage.
- demarrer: Lance le programme. Un délai de un quart de seconde entre chaque ligne. La couleur du crayon est également changé entre chaque ligne.
# Commande principale: demarrer
pour new
# set defaults, screen, pen et tortue
init ftd [400 400]
fcfg noir fcc vert levecrayon cachetortue
fin
pour ranpoint
fixexy (hasard 320)-190 (hasard 360)-180
fin
pour labxy
fcc blanc etiquette pos
fin
pour demarrer
new labxy
fixetaillecrayon 2 baissecrayon repete 12 [
fcc (1+hasard 6) ranpoint labxy attends 64]
fcc (1+hasard 6) origine
fin
|