Pour tracer un polygone régulier, quelque soit son nombre de cotés (à partir de 3), il suffit d'entrer la valeur du nombre de cotés dans S, le rayon du polygone dans R, son abscisse dans X, son ordonnée dans Y, et de faire:
- Code: Tout sélectionner
:For(A,0,359,360/S
:Line(X+R*cos(A),Y+R*sin(A),X+R*cos(A+360/S)),Y+R*sin(A+360/S
:End
Très pratique !
