Présentation de cardioide_04.jps

/N 150 def
/k 2 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