Présentation de pentagramme.jps

/N 5 def

1 setlinewidth
/les_points O 5.5 N 0 genpolyreg def

%% le napperon
/i 0 def
N {
   les_points i getp /M defpoint
   les_points {M 1 trait} papply
   /i i 1 add store
} repeat

/str 20 string def
setTimesItalic
   (n) xmax xmin add 2 div .5 sub ymin text
setTimes
   ( = ) show
   N str cvs show