Fichier nephroide_04.jps — Modifié le 21 Septembre 2002 à 11 h 21

nephroide_04.pdf
Source
/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