Commençons par nous faire de quoi tracer un polygone régulier :
- Code: Select all
? →M
Tourner de↺270＋180÷Mdegrés
M→C
Stylo écrit
Répéter jusqu'à C=0
Avancer de44sin(180÷M)pixels
Tourner de↺360÷Mdegrés
C－1→C
⤴
Stylo relevé
Aller à x=0; y=－50
Le programme est ici taillé pour inscrire le polygone dans un cercle de rayon 22, le diamètre nous donnant alors à 1 pixel près la hauteur affichable de l'écran.
Il suffit maintenant de saisir le nombre de côtés. 5 pour l'hexagone, 8 pour l'octogone...
Et pour un nombre de côtés suffisamment grand, on obtient en pratique sur l'écran un tracé identique à celui qu'aurait donné une instruction cercle :
