% My Own True Love
\version "2.14.0"

\include "english.ly"

\header {
	title = "My Own True Love" 
 	composer = "Traditional"
	arranger = "arr. Holland Hopson" 
 	copyright = "Grab Rare Arts -- Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License"
}

% variables
pinch =
{ 
< g'\5 d' >8
}

ti = {
g'16\5 d'
}

TAB = \markup {
  \raise #1.5
  \sans
  \bold
  \huge
  \override #'(baseline-skip . 2.5)
  \left-align
  \center-column {
    T
    A
    B
  }
}

tuning = \markup { gDGBD two-finger, thumb lead style }

<<
  \new Staff = "Voice"
  \new Voice = "vocal"
  \relative c'' {
  \numericTimeSignature	  
   \tempo 4 = 120 
  \set Staff.instrumentName = "Voice"
   % \autoBeamOff
   \key g \major
 
  \partial 4
d,4 |
g4. g8 b2~ |
b4 g8( b) a( g) g( e) |
d2. d16( e8.) |
g4. g8 d'2~
d4 b d2~
\time 2/4
d4 d,4 |
\time 4/4
g4. g8 d'2~
d4 g,8( b) a( g) g( e)
d2. d16 e8.
g4 a16( g8.) b4 a16( g8.)
g2. \bar "|."
  }
  \lyricsto "vocal"  \new Lyrics { 
  	    \set stanza = #"1. "
   As I walk'd out one morn -- ing late.
A drink -- ing of sweet wine.
I thought my heart would al -- most break
For the girl I left be -- hind.
  }
  
  
  \new TabStaff {
	\set TabStaff.instrumentName = "Banjo"
	\set TabStaff.midiInstrument = "banjo"
	\set TabStaff.tablatureFormat = #fret-number-tablature-format-banjo 
	\tabFullNotation
	\set TabStaff.stringTunings = #banjo-open-g-tuning %gDGBD
	\numericTimeSignature
	\override Staff.Clef #'stencil = #(lambda (grob)
    (grob-interpret-markup grob TAB))
	% \relative c'
	{ 	
 % Type notes here 
	\partial 4
%{ This override is supposed to move the fingering away from the notehead, but it doesn't seem to work. 
% \override Voice.Fingering #'staff-padding = #6	
%\revert  Fingering #'staff-padding %}
d8_T^\tuning g'16\5_T d'_I |
g8_T < g'\5 d' >8_TI ~ < g'\5 d' >8_X < g'\5 d' >8_TI a16\glissando_T( b\3_S) g'16\5_T d'_I b8_T < g'\5 d' >8_TI ~ |
< g'\5 d' >8_X < g'\5 d' >8_TI g16_T d'_I b_T d'_\markup {etc.} a d' g d' g d' e d' |
d8 \pinch d16( e_H) \ti d8 \pinch d16( e_H) \ti |
g8 < g'\5 d' >8 ~ \pinch \pinch cs'16\glissando( d'\2_S) \ti d'8\2 < g'\5 d' >8 ~ |
\pinch \pinch b8 \pinch cs'16\glissando( d'\2_S) \ti d'8\2 < g'\5 d' >8 ~ |
\pinch \pinch d8 \ti |
g8 < g'\5 d' >8 ~ \pinch \pinch cs'16\glissando( d'\2_S) \ti d'8\2 < g'\5 d' >8 ~ |
\pinch \pinch g16 d' b d' a d' g d' g d' e d' |
d8 \pinch d16( e_H) \ti d8 \pinch d16( e_H) \ti |
g8 \pinch a16( g_P) \ti a16\glissando( b\3_S) \pinch a16( g_P) \ti |
%{ beaming marks [] below needed to force beam. Maybe due to incomplete measure? Doesn't seem to work using \pinch variable %}
g8 \pinch d16( e_H) \ti g8[ < g'\5 d' >8] \bar "|."

	}
  }
>>

\midi {
	}

\layout {
  }

\markup { % this block handles lyrics at bottom of page
\fill-line { 
\hspace #0.1 % moves the column off the left margin; 
% can be removed if space on the page is tight 
	\column { 
		\line { \bold "2." 
			\column { 
				"Farewell, farewell, my own true love." 
				"Farewell, farewell, for awhile."
				"I go away; I'll come again"
				"If it be ten thousand miles."
				} 
			} 
			\hspace #0.1 % adds vertical spacing between verses 
		\line { \bold "3." 
			\column { 
				"Ten thousand miles, my own true love." 
				"I hope it never will be." 
				"For the leaving you, my own true love."
				"Will be the death of me."
				} 
			} 
		} 
		\hspace #0.1 % adds horizontal spacing between columns; 
		% if they are still too close, add more " " pairs 
		% until the result looks good 
	\column { 
		\line { \bold "4." 
			\column { 
				"I wish to god I never was born," 
				"Or died when I was young."
				"Or never did kiss your ruby red lips"
				"Or heard your flattering tongue."
				} 
			} 
 
		} 
		\hspace #0.1 % gives some extra space on the right margin; 
		% can be removed if page space is tight 
	} 
}

\paper { 
	obsolete-after-title-space = 0\mm  markup-system-spacing #'basic-distance = #(/ obsolete-after-title-space staff-space) % set to minimum so ragged-bottom variable doesn't pull systems away from title 
	obsolete-between-system-padding = 0\mm  system-system-spacing #'padding = #(/ obsolete-between-system-padding staff-space)  score-system-spacing #'padding = #(/ obsolete-between-system-padding staff-space) % set to minimum so ragged-bottom variable doesn't pull systems away from title
	%obsolete-between-system-space = 20\mm  system-system-spacing #'basic-distance = #(/ obsolete-between-system-space staff-space)  score-system-spacing #'basic-distance = #(/ obsolete-between-system-space staff-space)
	ragged-last-bottom = ##f
	%ragged-bottom = ##f
}