Présentation de cardioide_04.jps

/syracuse/bbgraf/icons/cardioide_04.jpg
/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