% adapted from abctab2ps
% -- banjo
% no Times on my system... and next line KO!
% %postscript /Times /Times-Roman def
%%font Palatino-Roman
%%partsfont Times-Roman 15 box
% insert the fonts from abctab2ps
% https://github.com/laughingman182/abctab2ps/blob/master/src/fonts/itTimes.ps
%%format itTimes.ps
%%beginps
% width x y n banjo5h - banjo tablature header with 5 lines
/banjo5h{
/tabfont{/ItalianTabfont 14 selectfont}!
% /chofont{/Helvetica 13 selectfont}!
/chofont{/Palatino-Roman 13 selectfont}!
pop .75 SLW
%test
%2 copy M -10 0 RL 0 120 RL 10 0 RL
40 add M 5{dup 0 RL dup neg 14 RM}repeat stroke
pop
tabfont
}!
% dx dy dslur - draw a down slur/tie
/dslur{
% RL stroke
1 index 4 div dup 3 mul % dx dy x1 x2
2 index 2 index mul 4 index div 8 sub exch % dx dy x1 y1 x2
3 index 1 index mul 5 index div 8 sub % dx dy x1 y1 x2 y2
3 index 3 index 3 index 3 index 9 index 9 index RC
4 index neg add 2 sub 6 1 roll 4 index neg add 6 1 roll
2 index neg add 2 sub 4 1 roll 2 index neg add 4 1 roll
exch neg exch neg RC
fill
}!
% string x y n banjo5n - banjo tablature note
/str( )def
/banjolong 0 def
/banjotiex 0 def
/banjotiext 0 def
/banjo5n{
/banjotiex banjotiext def
/banjotiext 0 def
/inquote 0 def
pop 89 4 -1 roll % stack: x y h string
{
inquote 0 eq{
% stack: x y h char
dup 44 eq{ % comma
pop
14 sub
}{dup 34 eq{ % double quote
pop
/inquote 1 def
chofont
/quoted 0 string def
1 index 17 add
}{dup 45 eq{ % '-'
pop
/banjotiext 3 index def
2 copy add 14 add /banjotiey exch def
}{dup 49 eq{ % '1'
pop
}{dup 50 eq{ % '2'
pop
}{dup 76 eq{ % 'L'
pop
/banjolong 1 def
}{ % normal character
3 index 3 index 3 index add M
banjotiex 0 ne{
currentpoint
1 index banjotiex exch sub
1 index banjotiey exch sub
dslur
/banjotiex 0 def
M
}if
str 0 3 -1 roll put str showc
14 sub
}ifelse}ifelse}ifelse}ifelse}ifelse}ifelse
}{ % inside double quote
% stack: x y h y' char
dup 34 eq{ % double quote
pop
3 index 1 index M quoted showc
pop
/inquote 0 def
tabfont
}{dup 59 eq{ % semicomma
pop
3 index 1 index M quoted showc
13 sub
/quoted 0 string def
}{
quoted length dup 1 add string % char n str
dup quoted exch copy pop /quoted exch def
exch quoted 3 1 roll put
}ifelse}ifelse
}ifelse
}forall
banjolong 0 ne{
add M -4 9 RM 1.2 SLW 12 3 RL stroke
/banjolong 0 def
}{pop pop pop
}ifelse
}!
% string x y n banjo5b - banjo tablature bar
/banjo5b{
0 eq{ % first line only
0.8 SLW
40 add
2 index length 1 sub -1 0{
3 index exch get
dup 124 eq{ % '|'
pop
2 copy M 0 56 RL stroke
exch 4 sub exch
}{dup 58 eq{ % ':'
pop
2 copy 7 add
4{
2 copy 2 copy M 1.2 0 360 arc
14 add
}repeat fill
pop pop
exch 4 sub exch
}{ % '[' or ']'
pop
2 copy M 0 56 RL -3 0 RL 0 -56 RL fill
exch 6 sub exch
}ifelse}ifelse
}for
}if
pop pop pop}!
%%endps
U:i=!invisible!
%%staffnonote 0
X:1
T:Glory in the Meetinghouse
T:From Luther Strong
C:Key of E; banjo tuning g#EG#BE (open D capoed up 2 frets)
D:Library of Congress AAFS L2
L:1/4
M:none
%%leftmargin 1cm
%%rightmargin 1cm
K:none clef=none
%K:banjo5tab
%%tablature 120 banjo5h banjo5n banjo5b
%
P:A
icicicicicicicic | \
w:"I",,b\- "Sl",,d "I"aa "T",,,,a "I"a "T",d "I",a "T",,b | \
icicicicicicic | \
w:"I",a\- "P"a "I;X"aa "T",,,,a "I"La2 "I"aa1 "T",,,,a | \
icicicicicicicic | \
w:"I",,b\- "Sl",,d "I"aa "T",,,,a "I"a "T",d "I",a "T",,a | \
icicicicicicic |
w:"I",,b\- "P",a "I",,b\- "P",,a "I"L,,,a2 "I;Ck"aa1 "T",,,,a |
|icicicicicicicic | \
w:"I",,b\- "Sl",,d "I"aa "T",,,,a "I"a "T",d "I",a "T",,b | \
icicicicicicic | \
w:"I",a\- "P"a "I;X"aa "T",,,,a "I"La2 "I"d\-1 "Sl"e,,,a |\
icicicicicicicic | \
w:"I"e\- "P"a "I",a "T",,,,a "I"a "T",d "I",a "T",,a | \
icicicicicicic :|
w:"I",,b\- "P",a "I",,b\- "P",,a "I"L,,,a2 "I"aaa1 "T",,,,a |
P:B
|:icicicicicicic |\
w:"I",,,a\- "H",,,c "I",,a\- "H",,b "I"L,a2 "I"aa1 "T",,,,a | \
icicicicicicicic | \
w:"I",,b\- "P",a "I",,b\- "P",,a "I",,a "T",,,a "I;X"aa "T;X",,,,a|\
icicicicicicicic | \
w:"I",,,a\- "H",,,c "I",,a "T",,,,a "I",,b\- "P",a "I",,b\- "P",,a|\
icicicicicicic |
w:"I",,a "T",,,a "I;X"aa "T",,,,a "I"L,,,a2 "I"aa1 "T",,,,a|
|icicicicicicicic | \
w:"I",,,a\- "H",,,c "I"aa "T",,,,a "I",,b\- "P",a "I",ab "T",,,,a |\
icicicicicicicic | \
w:"I",,b\- "P",a "I",,b\- "P",,a "I",,a "T",,,a "I;X"aaa "T",,,,a|\
icicicicicicicic | \
w:"I"a "T",d "I",a "T",,a "I",,b\- "P",a "I",,b\- "P",,a| \
icicicicicicic :|
w:"I",,a "T",,,a "I;X",aa "T",,,,a "I"L,,,a2 "I"aa1 "T",,,,a|
P:Alternate (high) B part:
|:icicicicicicic | \
w:"I"a\- "H"e "I"e "T",,,,a "I"Lh2 "I"h1 "T",,,,a | \
icicicicicicicic | \
w:"I"f\- "H"h "I"f "T",,,,a "I"e "T",f "I",f "T",,,,a|\
icicicicicicicic | \
w:"I"a "T",,,,a "I"e "T",,,,a "I"f\- "H"h "I"h "T",,,,a | \
icicicicicicic |
w:"I"e "T",f "I;X",a "T",,,,a "I"L,f2 "I"ef1 "T",,,,a|
|icicicicicicic | \
w:"I"a\- "H"e "I"e "T",,,,a "I"Lh2 "I"h1 "T",,,,a | \
icicicicicicicic | \
w:"I"f\- "H"h "I"f "T",,,,a "I"e "T",f "I",f "T",,,,a|\
icicicicicicicic | \
w:"I"e\- "P"a "I",a "T",,,,a "I;X"aa "T",d "I",a "T",,a |\
icicicicicicicic :|
w:"I",,b\- "P",a "I",,b\- "P",,a "I"L,,,a2 "I"aa1 "T",,,,a|
%original in abctab2ps
%P:A
%"I",,b-"Sl",,d "I"[aa] "T",,,,a "I"a "T",d "I",a "T",,b | "I",a-"P"a " I\nX"[aa] "T",,,,a "I"La2 "I"[aa1] "T",,,,a | \
%"I",,b-"Sl",,d "I"[aa] "T",,,,a "I"a "T",d "I",a "T",,a | "I",,b-"P",a "I",,b-"P",,a "I"L,,,a2 " I\nCk"[aa1] "T",,,,a |
%|"I",,b-"Sl",,d "I"[aa] "T",,,,a "I"a "T",d "I",a "T",,b|"I",a-"P"a " I\nX"[aa] "T",,,,a "I"La2 "I"d1-"Sl"[e,,,a] |\
%"I"e-"P"a "I",a "T",,,,a "I"[a] "T",d "I",a "T",,a | "I",,b-"P",a "I",,b-"P",,a "I"L,,,a2 "I"[aaa1] "T",,,,a:|
%P:B
%|:"I",,,a-"H",,,c "I",,a-"H",,b "I"L,a2 "I"[aa1] "T",,,,a | "I",,b-"P",a "I",,b-"P",,a "I",,a "T",,,a " I\nX"[aa] "T\nX",,,,a|\
%"I",,,a-"H",,,c "I",,a "T",,,,a "I",,b-"P",a "I",,b-"P",,a| "I",,a "T",,,a " I\nX"[aa] "T",,,,a "I"L,,,a2 "I"[aa1] "T",,,,a|
%|"I",,,a-"H",,,c "I"[aa] "T",,,,a "I",,b-"P",a "I"[,ab] "T",,,,a |"I",,b-"P",a "I",,b-"P",,a "I",,a "T",,,a " I\nX"[aaa] "T",,,,a|\
%"I"a "T",d "I",a "T",,a "I",,b-"P",a "I",,b-"P",,a| "I",,a "T",,,a " I\nX"[,aa] "T",,,,a "I"L,,,a2 "I"[aa1] "T",,,,a:|
%P:Alternate (high) B part:
%|:"I"a-"H"e "I"e "T",,,,a "I"Lh2 "I"h1 "T",,,,a | "I"f-"H"h "I"f "T",,,,a "I"e "T",f "I",f "T",,,,a|\
%"I"a "T",,,,a "I"e "T",,,,a "I"f-"H"h "I"h "T",,,,a | "I"e "T",f " I\nX",a "T",,,,a "I"L,f2 "I"[ef1] "T",,,,a|
%|"I"a-"H"e "I"e "T",,,,a "I"Lh2 "I"h1 "T",,,,a | "I"f-"H"h "I"f "T",,,,a "I"e "T",f "I",f "T",,,,a|\
%"I"e-"P"a "I",a "T",,,,a " I\nX"[aa] "T",d "I",a "T",,a |"I",,b-"P",a "I",,b-"P",,a "I"L,,,a2 "I"[aa1] "T",,,,a:|