\version "2.11.34"

\header {	
%		title = "29b. Tribulation. C.M."
		title = "Tribulation"
		source = "The Sacred Harp (1991 Denson edition)"   
		composer = "Patterson's Church Music, 1813." 	
		poet = "Isaac Watts, 1709."
        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
}

global = {
	\key d \minor
	\time 3/2
	\set Staff.printPartCombineTexts = ##f
}

numverses = 2

soprano = \relative g' { \sacredHarpHeads \set autoBeaming = ##f
	r1 a2 | d1 c2 | a1 g2 | a1 d2 | c1 f2 | d1 c2 | a g a( | d1) f,4. (g8) | a1 a4 (b) | c1 f2 | d1 f4 (d) | c1 c2 | d1 d4 (c) | a1 g2 | a1. \bar "|."
}

tenor = \relative g' { \sacredHarpHeads \set autoBeaming = ##f
	r1 f4. (g8) | a1 a4 (g) | a1 d2 | c1 a2 | g1 f4 (g) | a1 f'2 | e d e4( c | a1) d4. (c8) | d1 e4 (g) | f1 c2 | d1 a2 | g1 f4 (g) | a1 a4 (g) | a1 c2 | d1. \bar "|."
}

bass = \relative f { \sacredHarpHeads \set autoBeaming = ##f
	r1 d2 | d1 f4 (e) | d1 d2 | f1 f2 | c1 d2 | d1 f2 | a d, c( | d1) d2 | d1 c2 | f1 f2 | d1 a2 | c1 f4 (e) | d1 d2 | d1 c4 (a) | d1. \bar "|."
}

sopwords = \lyricsto "sopvox" \context Lyrics = a {
	Death, 'tis a mel -- an -- chol -- y day
	To those who have no God,
	When the poor soul is forced a -- way
	To seek her last a -- bode.
} 
tnrwords = \lyricsto "tnrvox" \context Lyrics = b {
	In vain to heav'n she lifts her eyes,
	For guilt, a heav -- y chain,
	Still drags her down -- ward from the skies
	To dark -- ness, fire and pain.
}

\score { \new ChoirStaff <<
    \new Staff << \global \clef treble \new Voice = "sopvox" \soprano \new Lyrics = "a" {} >>
    \new Staff << \global \clef treble \new Voice = "tnrvox" \tenor \new Lyrics = "b" {} >>
    \new Staff << \global \clef bass \bass >>
	\sopwords
	\tnrwords
>>
  \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 \numverses \unfoldRepeats { \soprano } }
     \new Staff { \set Staff.midiInstrument = #"church organ" 
                  \global \clef treble \transpose g' g''  \repeat unfold \numverses \unfoldRepeats { \soprano } }
     \new Staff { \set Staff.midiInstrument = #"church organ" 
                  \global \clef treble  \repeat unfold \numverses \unfoldRepeats { \soprano } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef treble  \repeat unfold \numverses \unfoldRepeats { \tenor } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef treble \transpose g' g  \repeat unfold \numverses \unfoldRepeats { \tenor } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef bass  \repeat unfold \numverses \unfoldRepeats { \bass } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef bass \transpose f f,  \repeat unfold \numverses \unfoldRepeats { \bass } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef bass \transpose f f,  \repeat unfold \numverses \unfoldRepeats { \bass } }
%     \new Staff { \set Staff.midiInstrument = #"acoustic grand"
%                  \global \clef treble  \repeat unfold \numverses \unfoldRepeats { \soprano } }
%     \new Staff { \set Staff.midiInstrument = #"acoustic grand"
%                  \global \clef treble  \repeat unfold \numverses \unfoldRepeats { \tenor} }
%     \new Staff { \set Staff.midiInstrument = #"acoustic grand"
%                  \global \clef bass  \repeat unfold \numverses \unfoldRepeats { \bass } }
  >>
  \midi { \context { \Score tempoWholesPerMinute = #(ly:make-moment 180 4) } } 
}