Bass Staff
This PostScript file creates one sheet of
lined music paper for bass guitar tablature notation.
%!PS-Adobe-2.0 EPSF-2.0
%%Title: tab.ps
%%Pages: 1
%%Page: 1 1
% 10-staff tablature paper (8.5 x 11)
%-----------------------------------------------
/Inch { 72 mul } def
% Draw a 4-bar staff given X and Y locations of the bottom left corner
/Staff { /Y exch def /X exch def
/Width { 7.25 Inch } def
% staff lines
X Y moveto Width 0 rlineto stroke newpath
X Y 15 sub moveto Width 0 rlineto stroke newpath
X Y 30 sub moveto Width 0 rlineto stroke newpath
X Y 45 sub moveto Width 0 rlineto stroke newpath
% bar lines
X Y moveto 0 -45 rlineto stroke newpath
Width 4 div X add Y moveto 0 -45 rlineto stroke newpath
Width 2 mul 4 div X add Y moveto 0 -45 rlineto stroke newpath
Width 3 mul 4 div X add Y moveto 0 -45 rlineto stroke newpath
Width X add Y moveto 0 -45 rlineto stroke newpath
} def
%-----------------------------------------------
newpath
0.5 Inch 1.375 Inch Staff
0.5 Inch 1.375 1 add Inch Staff
0.5 Inch 1.375 2 add Inch Staff
0.5 Inch 1.375 3 add Inch Staff
0.5 Inch 1.375 4 add Inch Staff
0.5 Inch 1.375 5 add Inch Staff
0.5 Inch 1.375 6 add Inch Staff
0.5 Inch 1.375 7 add Inch Staff
0.5 Inch 1.375 8 add Inch Staff
0.5 Inch 1.375 9 add Inch Staff
showpage
quit
|