% grid.ps
% This file contains a page hook to draw a grid on each page
% The PslibPageStartHook command expects to find the following on the stack.
% page number
% ury (upper right corner of page, y coordinate)
% urx (upper right corner of page, x coordinate)
% lly (lower left corner of page, y coordinate)
% llx (lower left corner of page, x coordinate)
% Use 'B' to define the command
/PslibPageBeginHook{
/pagenumber exch def /ury exch def /urx exch def /lly exch def /llx exch def
0.7 setgray
0 72 urx { dup 0 moveto ury lineto stroke } for
0 72 ury { dup 0 exch moveto urx exch lineto stroke } for
0.0 setgray
/Helvetica findfont 8 scalefont setfont
0 72 urx { dup 2 add 2 moveto 72 div 10 (aaaaaaaaaa) cvrs show ('') show } for
72 72 ury { dup 2 add 2 exch moveto 72 div 10 (aaaaaaaaaa) cvrs show ('') show } for
} B