%!Print music staff or tab paper
%
% I got this from an early issue of The Bottom Line.  I'm sorry, but
% I don't remember the author...  Let me know and I'll put a line in
% with their name.
%
% I have modified this some from the original.  I added the line making
% the staff lines thinner.  I also reversed the direction of the "sheet"
% taking into account the location of the PostScript "origin", so that
% the top margin would remain consistent.  And I added a margin for
% three hole punching.  (I print one sheet with a larger margin on the
% left, and one sheet with a larger margin on the right, and then copy
% them back to back to have double sided staff paper which I can three
% hole punch and keep in a notebook.)
% -Doug  doug@arizona.edu
%
/LINES   5    def  %Change to 4 for 4 string tab, or 6 for 6 string...
/SPACE   1.02 def  %Space between staves.  .85 for 12 staves per page
/RATIO   0.60 def
/LEFTGAP 0.75 def  %left margin .75 for holes on left or .5 for right
/LENGTH  7.25 def  %length (width across page) of staff
/inch {72 mul} def
/stave {
        1  1  LINES  {
            pop
            dup LEFTGAP inch exch moveto
            LENGTH inch 0 rlineto
            SPACE RATIO mul LINES div inch sub
            } for
        pop
        0.5 setlinewidth        %thickness of each line in staff
        stroke
        } def
/sheet {
        10.375 SPACE neg .5 {inch stave} for    %.625 top margin
        showpage
        } def
sheet