\version "2.11.34"

\header {	
%		title = "213t. The Good Old Way. L.M."
		title = "The Good Old Way"
		source = "The Sacred Harp (1991 Denson edition)"   
		poet = "Dover Selection, 1828" 	
		composer = "William Walker, 1835."
        tagline = \markup { \fill-line { \with-url #"http://creativecommons.org/licenses/by/2.5/ca/" "License: Creative Commons Attribution 2.5" "Reactor Core Hymn Repository" \with-url #"http://hymns.reactor-core.org/" "http://hymns.reactor-core.org/" } }
}

#(set-global-staff-size 16)
#(set-default-paper-size "letter" 'landscape)

%major
%sacredHarpHeads = \set shapeNoteStyles = ##(fa #f la fa #f la mi)
%minor
%sacredHarpHeads = \set shapeNoteStyles = ##(la mi fa #f la fa #f)

\paper {
	pagenumber = "yes"
	linewidth = 120\mm
	indent = 0\mm
}

% increase bar number
ibn = \applyContext
#(lambda (x)
  (let ((measurepos (ly:context-property x 'measurePosition)))
   ; Only increase bar number if not at start of measure.
   ; This way we ensure that you won't increase bar number twice
   ; if two parallel voices call increaseBarNumber simultanously:
   (if (< 0 (ly:moment-main-numerator measurepos)) ; ugh. ignore grace part
    (begin
     (ly:context-set-property!
      (ly:context-property-where-defined x 'internalBarNumber)
      'internalBarNumber
      (1+ (ly:context-property x 'internalBarNumber)))
     (ly:context-set-property!
      (ly:context-property-where-defined x 'currentBarNumber)
      'currentBarNumber
      (1+ (ly:context-property x 'currentBarNumber)))
     ; set main part of measurepos to zero, leave grace part as it is:
     (ly:context-set-property!
      (ly:context-property-where-defined x 'measurePosition)
      'measurePosition
      (ly:make-moment 0 1
       (ly:moment-grace-numerator measurepos)
       (ly:moment-grace-denominator measurepos)))))))

numverses = 3

%pause = { \tempo 4=120 r2 \tempo 4=120 }
pause = { }

global = {
	\key f \major
	\time 6/4
	\sacredHarpHeads
	\set autoBeaming = ##f
	\tempo 4=150
}

soprano = \relative g' { \global
	\repeat volta 2 { r2. c | a2 c4 c( a) c | d2 c4 c( a) c | d( c) a g( a) c | c2. c }
	r2. f | f2 d4 c2 d4 | f2 f4 a( g) a | f2 f4 d( c) a | c2( d4) c2. | c2( d4) f2 f4 |
	d( c) a d2 c4 | c( a) c d( c) a | g( a) c c2. | c1. \bar "|."
}

alto = \relative g' { \global
	\repeat volta 2 { r2. c, | d2 g4 g( f) f | d2 c4 c( f) f | a( g) f g( f) g | a2. a } 
	r2. a | f2 d4 f2 d4 | d2 d4 f( g) a | f2 f4 a( g) f | a2( g4) a2. | f2( d4) f2 d4 |
	f( g) a f2 g4 | g( f) f a( g) f | g( f) g a2. | a1. \bar "|."
} 

tenor = \relative g' { \global
	\repeat volta 2 { r2. f | a2 g4 g( f) f | a2 g4 g( f) f | a( c) d c( a) g | f2. f } 
	r2. c' | c2 d4 f2 g4 | a2 d,4 d( c) d | f2 f4 a( g) a | f2( d4) f2. | f2( d4) c2 a4 |
	a( g) f a2 g4 | g( f) f a( c) d | c( a) g f2. | f1. \bar "|."
}

bass = \relative f { \global
	\repeat volta 2 { r2. f | d2 c4 c( d) f | d2 c4 c( d) f | f( e) d c( d) c | f2. f } 
	r2. f | f2 d4 f2 <e c>4 | d2 d4 f( g) a | f2 f4 f( e) d | f2( g4) f2. | f2( a4) c2 a4 |
	a( g) f d2 c4 | c( d) f f( e) d | c( d) c f2. | f1. \bar "|."
}

sopwords = \lyricsto "sopvox" \context Lyrics = a { \set stanza = "1."
	Lift up your heads, Im -- man -- uel's friends,
	O hal -- le, hal -- le -- lu -- jah.
}
sopwordss = \lyricsto "sopvox" \context Lyrics = aa {
	And taste the pleas -- ure Je -- sus sends,
	O hal -- le, hal -- le -- lu -- jah.

	Let noth -- ing cause you to de -- lay,
	O hal -- le, hal -- le -- lu -- jah:
	But has -- ten on the good old way.
	O hal -- le, hal -- le -- lu -- jah.
} 
altwords = \lyricsto "altvox" \context Lyrics = b { \set stanza = "2."
	Our con -- flicts here, though great they be,
	O hal -- le, hal -- le -- lu -- jah.
}
altwordss = \lyricsto "altvox" \context Lyrics = bb {
	Shall not pre -- vent our vic -- to -- ry,
	O hal -- le, hal -- le -- lu -- jah.

	If we but strive and watch and pray,
	O hal -- le, hal -- le -- lu -- jah:
	Like sol -- diers in the good old way.
	O hal -- le, hal -- le -- lu -- jah.
}
tnrwords = \lyricsto "tnrvox" \context Lyrics = c { \set stanza = "3."
	Though Sa -- tan may his pow'rs em -- ploy,
	O hal -- le, hal -- le -- lu -- jah.
}
tnrwordss = \lyricsto "tnrvox" \context Lyrics = cc {
	Our hap -- pi -- ness for to de -- stroy,
	O hal -- le, hal -- le -- lu -- jah.

	Yet nev -- er fear, we'll gain the day,
	O hal -- le, hal -- le -- lu -- jah:
	And shout and sing the good old way.
	O hal -- le, hal -- le -- lu -- jah.
}

\score { \new ChoirStaff <<
    \new Staff << \clef treble \new Voice = "sopvox" \soprano \new Lyrics = "a" {} \new Lyrics = "aa" {} >>
    \new Staff << \clef treble \new Voice = "altvox" \alto \new Lyrics = "b" {} \new Lyrics = "bb" {} >>
    \new Staff << \clef treble \new Voice = "tnrvox" \tenor \new Lyrics = "c" {} \new Lyrics = "cc" {} >>
    \new Staff << \clef bass   \new Voice = "bssvox" \bass \new Lyrics = "d" {} \new Lyrics = "dd" {} >>
	\sopwords
	\sopwordss
	\altwords
	\altwordss
	\tnrwords
	\tnrwordss
>>
  \layout {
    \context { \Score
   		\remove "Bar_number_engraver"
		\override PaperColumn #'keep-inside-line = ##t
		\override MetronomeMark #'transparent = ##t
	}
    \context { \ChoirStaff \accepts "Lyrics" }
    \context { \Lyrics
    		\override LyricSpace #'minimum-distance = #1.2 
            \override LyricText #'self-alignment-X = #LEFT
      		\consists "Bar_engraver"
      		\consists "Separating_line_group_engraver"
      		\override BarLine #'transparent = ##t
	}
  }
}

\score {
  << 
     \new Staff { \set Staff.midiInstrument = #"church organ" 
                  \global \clef treble \transpose g' g''  \repeat unfold \numverses { \unfoldRepeats { \soprano } \pause } }
     \new Staff { \set Staff.midiInstrument = #"church organ" 
                  \global \clef treble \transpose g' g''  \repeat unfold \numverses { \unfoldRepeats { \soprano } \pause } }
     \new Staff { \set Staff.midiInstrument = #"church organ" 
                  \global \clef treble  \repeat unfold \numverses { \unfoldRepeats { \soprano } \pause } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef treble \transpose g' g''  \repeat unfold \numverses { \unfoldRepeats { \alto } \pause } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef treble  \repeat unfold \numverses { \unfoldRepeats { \alto } \pause } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef treble  \repeat unfold \numverses { \unfoldRepeats { \alto } \pause } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef treble  \repeat unfold \numverses { \unfoldRepeats { \tenor } \pause } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef treble \transpose g' g  \repeat unfold \numverses { \unfoldRepeats { \tenor } \pause } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef bass  \repeat unfold \numverses { \unfoldRepeats { \bass } \pause } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef bass \transpose f f,  \repeat unfold \numverses { \unfoldRepeats { \bass } \pause } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef bass \transpose f f,  \repeat unfold \numverses { \unfoldRepeats { \bass } \pause } }
%     \new Staff { \set Staff.midiInstrument = #"acoustic grand"
%                  \global \clef treble  \repeat unfold \numverses { \unfoldRepeats { \soprano } \pause } }
%     \new Staff { \set Staff.midiInstrument = #"acoustic grand"
%                  \global \clef treble  \repeat unfold \numverses { \unfoldRepeats { \alto } \pause } }
%     \new Staff { \set Staff.midiInstrument = #"acoustic grand"
%                  \global \clef treble  \repeat unfold \numverses { \unfoldRepeats { \tenor } \pause } }
%     \new Staff { \set Staff.midiInstrument = #"acoustic grand"
%                  \global \clef bass  \repeat unfold \numverses { \unfoldRepeats { \bass } \pause } }
  >>
  \midi { } 
}