%!PS-Adobe-2.0
%%Title: Blue Book Program 1, on page 133
%%Creator: Adobe Systems Incorporated 
%%CreationDate: Thu Dec 28 13:14:59 PST 1989
%%EndComments

/inch {72 mul} def

/wedge
	{ newpath
	  0 0 moveto
	  1 0 translate
	  15 rotate
	  0 15 sin translate
	  0 0 15 sin -90 90 arc
	  closepath
	} def

gsave
  3.75 inch 7.25 inch translate
  1 inch 1 inch scale
  wedge 0.02 setlinewidth stroke
grestore

gsave
  4.25 inch 4.25 inch translate
  1.75 inch 1.75 inch scale
  0.02 setlinewidth
  1 1 12
	{ 12 div setgray
	  gsave
	    wedge
	    gsave fill grestore
	    0 setgray stroke
	  grestore
	  30 rotate
	} for
grestore

showpage
% But what does it do?