Fichier nephroide_04.jps — Modifié le 21 Septembre 2002 à 11 h 21
/N 120 def
/k 3 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