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: Select all
: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 !
