%% Repeated shapes
%%                PostScript Language Tutorial and Cookbook

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

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

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

  showpage
