% text
% transformations

/Times findfont 18 scalefont setfont
72 72 moveto (Character is what you are in the dark.) show

144 144 translate 30 rotate 2 1 scale
0 0 moveto (Laugh while you can, monkey boy.) show


% drawing polygons

erasepage initgraphics

(pentagram.ps) run

288 288 translate 144 144 scale
2 144 div setlinewidth pentagram stroke


% filling polygons
% color

erasepage initgraphics

288 288 translate 144 144 scale
0.8 setgray pentagram fill


% even-odd fill rule
% painting model

erasepage initgraphics

288 288 translate 144 144 scale
0.6 setgray pentagram eofill
0 setgray 2 144 div setlinewidth pentagram stroke


% clipping
% iteration

erasepage initgraphics

144 144 translate 9 9 scale
/Times findfont [27 0 0 18 0 0] makefont setfont
0.8 setgray
3 3 moveto (clip) show
3 3 moveto (clip) false charpath clip newpath
0 setgray 
10 {25 {pentagram fill 2 0 translate} repeat -50 2 translate} repeat


%! pentagram.ps

/pentagram {
  90 rotate 1 0 moveto
  144 rotate 1 0 lineto
  144 rotate 1 0 lineto
  144 rotate 1 0 lineto
  144 rotate 1 0 lineto
  closepath
  144 90 sub rotate
} def