\version "2.10.11"

\header {	
		title = "406. New Harmony. 8s,7s."
		source = "The Sacred Harp (1991 Denson edition)"   
		poet = "Sacred Harp, 1859"
		composer = "M.L.A. Lancaster, 1859" 	
		tagline = \markup { \fill-line { "Copyright 2007, Reactor Core Hymn Repository" \with-url #"http://hymns.reactor-core.org/" "http://hymns.reactor-core.org/" } }
}

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

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

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

global = {
	\key g \major
	\time 2/4
	\set Staff.printPartCombineTexts = ##f
}

soprano = \relative g' { \sacredHarpHeads \set autoBeaming = ##f
	\repeat volta 2 { d'4. (e8) | g4 g | g d | e d | b4. b8 | d4 d | d e | d2 | d }
	\repeat volta 2 { b4. (e8) | d4 d | d b | a4. g8 |
	e4 g | a4. b8 | d4 d | b2 | d | g, | a4. b8 | d4 e | e d | b4. b8 | d4 d | d e | d2 | d }
}

alto = \relative g' { \sacredHarpHeads \set autoBeaming = ##f
	\repeat volta 2 { b4. (a8) | g4 g | g b | a g | b4. g8 | b4 b | a b | b2 | b }
	\repeat volta 2 { g4. (a8) | b4 b | b g | a4. b8 |
	g4 g | a4. b8 | b4 b | g2 | b | <g d> | a4. g8 | g4 b | a b | g4. b8 | b4 b | g a | b2 | b }
} 

tenor = \relative g' { \sacredHarpHeads \set autoBeaming = ##f
	\repeat volta 2 { g4. (a8) | b4 b | b g | a g | e4. g8 | g4 g | d e | g2 | g }
	\repeat volta 2 { d4. (e8) | g4 g | g g' | e4. d8 |
	b4 g | a4. g8 | g4 g' | e2 | g | g | e4. d8 | b4 g | a g | e4. g8 | g4 g | d e | g2 | g }
}

bass = \relative f { \sacredHarpHeads \set autoBeaming = ##f
	\repeat volta 2 { g4. (a8) | b4 e, | e d | e g | e4. d8 | g4 d | d e | g2 | g }
	\repeat volta 2 { b4. ( a8) | g4 g | d g | a4. g8 |
	e4 b' | a4. g8 | b4 g | e2 | g | b | a4. g8 | g4 e | e g | e4. d8 | g4 g | g e | g2 | g }
}

sopwords = <<
\lyricsto "sopvox" \context Lyrics = a { \set stanza = "1. "
	I want to live a Chris -- tian here,
	I want to die a -- shout -- ing,
}
\lyricsto "sopvox" \context Lyrics = b {
	I want to feel my Sav -- ior near,
	While soul and bod -- y's part -- ing,
	I want to see bright an -- gels stand
	And wait -- ing to re -- ceive me,
	To bear my soul to Ca -- naan's land,
	Where Christ has gone be -- fore me.
}
>>
altwords = <<
\lyricsto "altvox" \context Lyrics = c { \set stanza = "2. "
	My heart is of -- ten made to mourn
	Be -- cause I'm faint and fee -- ble,
}
\lyricsto "altvox" \context Lyrics = d {
	And when my Sav -- ior seems to frown,
	My soul is fill'd with trou -- ble.
	But when He doth a -- gain re -- turn,
	And I re -- pent my fol -- ly,
	'Tis then I af -- ter glo -- ry run,
	And still my Je -- sus fol -- low.
}
>>
tnrwords = <<
\lyricsto "tnrvox" \context Lyrics = e { \set stanza = "3. "
	I have my bit -- ter and my sweet
	While through this world I trav -- el,
}
\lyricsto "tnrvox" \context Lyrics = f {
	Some -- times I shout and of -- ten weep,
	Which makes my foes to mar -- vel.
	But let them think and think a -- gain,
	I feel I'm bound for heav -- en;
	I hope I shall with Je -- sus reign,
	I there -- fore still will praise Him.
}
>>

\score { \new ChoirStaff <<
    \new Staff << \global \clef treble \new Voice = "sopvox" \soprano \new Lyrics \sopwords >>
    \new Staff << \global \clef treble \new Voice = "altvox" \alto \new Lyrics \altwords >>
    \new Staff << \global \clef treble \new Voice = "tnrvox" \tenor \new Lyrics \tnrwords >>
    \new Staff << \global \clef bass \bass >>
>>
  \layout {
    \context { \Score
                \remove "Bar_number_engraver"
                \override PaperColumn #'keep-inside-line = ##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 3 \unfoldRepeats { \soprano } }
     \new Staff { \set Staff.midiInstrument = #"church organ" 
  		  \global \clef treble \transpose g' g'' \repeat unfold 3 \unfoldRepeats { \soprano } }
     \new Staff { \set Staff.midiInstrument = #"church organ" 
  		  \global \clef treble \repeat unfold 3 \unfoldRepeats { \soprano } }
%     \new Staff { \set Staff.midiInstrument = #"acoustic grand" 
%  		  \global \clef treble \repeat unfold 3 \unfoldRepeats { \soprano } }
%     \new Staff { \set Staff.midiInstrument = #"acoustic grand"
%     		  \global \clef treble \repeat unfold 3 \unfoldRepeats { \alto } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
     		  \global \clef treble \repeat unfold 3 \unfoldRepeats { \alto } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
     		  \global \clef treble \repeat unfold 3 \unfoldRepeats { \alto } }
%     \new Staff { \set Staff.midiInstrument = #"acoustic grand"
%                  \global \clef treble \repeat unfold 3 \unfoldRepeats { \tenor } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef treble \repeat unfold 3 \unfoldRepeats { \tenor } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef treble \transpose g' g \repeat unfold 3 \unfoldRepeats { \tenor } }
%     \new Staff { \set Staff.midiInstrument = #"acoustic grand"
%                  \global \clef bass \repeat unfold 3 \unfoldRepeats { \bass } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef bass \repeat unfold 3 \unfoldRepeats { \bass } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef bass \transpose f f, \repeat unfold 3 \unfoldRepeats { \bass } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef bass \transpose f f, \repeat unfold 3 \unfoldRepeats { \bass } } >>
  \midi { \context { \Score tempoWholesPerMinute = #(ly:make-moment 89 4) } } 
}