Tracez des polygones réguliers en 3 lignes !!

Astuce découverte dans le livre de Kerm, que je trouve géniale:
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:
Très pratique !
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 !
