%!PS-Adobe-2.0
%%Pages: 0 1
%%BoundingBox: 0 0 612 792
%%EndComments

/Red{0 1 1 0 setcmykcolor}def
/r 60 def
/x { cos r mul} def
/y { sin r mul} def
/theta 90 def

[(a) (b) (c) (d) (e)]
/letters exch def

[(0) (1) (2) (3) (4) (5) (6) (7) (8) (9)]
/numbers exch def

/Times-Bold findfont 40 r 100 div mul scalefont setfont
/pentagon {
  newpath
  theta x theta y moveto
  0 1 4 {
    /ind exch def
    /Times-Bold findfont 40 r 100 div mul scalefont setfont
    gsave
      letters ind get stringwidth pop 2 div neg r 0.6 mul moveto letters ind get show
    grestore

    -72 rotate
    theta x theta y lineto
  } for
  closepath
  stroke
} def

/front {
   pentagon
   /Times-Bold findfont 60 r 100 div mul scalefont setfont
   (D5) stringwidth pop 2 div neg  -10 moveto (D5) show
} def

3 setlinewidth

0 1 4 {
   /ind exch def
   gsave
     200 120 ind 1 add mul 50 add translate
     -100 -5 moveto
     /Times-Bold findfont 60 r 100 div mul scalefont setfont
     numbers ind get show (:) show

     ind -72 mul rotate
     front
   grestore
} for

0 1 4 {
   /ind exch def
   gsave
     420 120 ind 1 add mul 50 add translate
     -100 -5 moveto
     /Times-Bold findfont 60 r 100 div mul scalefont setfont
     numbers ind 5 add get show (:) show
     -1 1 scale
     ind -72 mul rotate
     front
   grestore
} for

160 80 moveto
/Helvetica-Bold findfont 11 scalefont setfont
Red
(Figure 8.1 ) show
/Helvetica findfont 11 scalefont setfont
(Elements of D) show
0 -4 rmoveto (5) show
0 4 rmoveto (: Symmetries of a Pentagon.) show

showpage