% 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:|