Présentation de 2951.jps

/N 150 def /k 26 def %% on genere un polygone regulier a n sommets /les_points O 5 N 0 genpolyreg def /i 0 def N { %% pour chaque sommet les_points i getp %% on relie l'indice i les_points i k mul N mod getp %% a l'indice k*i mod N 1 trait /i i 1 add store } repeat