%!PS-Adobe-3.0 %%BoundingBox: 1 1. 44. 44. % Cookbook Example Program from First Printing, Revised 7 Jan 1985 % Program: Repeated Shapes Number: 6 /inch {10 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 2.25 inch 2.25 inch translate 1.75 inch 1.75 inch scale 0.02 setlinewidth 2 1 13 {13 div setgray gsave wedge gsave fill grestore 0 setgray stroke grestore 30 rotate } for grestore