\version "2.10.11"

\header {	
		title = "34b. St. Thomas. S.M."
		source = "The Sacred Harp (1991 Denson edition)"   
		composer = "Aaron Williams, 1770"
		poet = "Isaac Watts, 1719"
                tagline = \markup { \fill-line { "Copyright 2007, Reactor Core Hymn Repository" \with-url #"http://hymns.reactor-core.org/" "http://hymns.reactor-core.org/" } }

}

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

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

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

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

soprano = \relative g' { \sacredHarpHeads \set autoBeaming = ##f
	r2 a | cis cis | e b4( cis) | e1 | r2 a, | a b4( cis) | b2 e | e1 | r2 b | a cis | e b4( cis) | e2 cis | b2. a4 | a2 a | a gis | a1 \bar "|."
}

alto = \relative g' { \sacredHarpHeads \set autoBeaming = ##f
	r2 e | e e | e e4( fis) | e1 | r2 e | a a | gis a | gis1 | r2 e | e e | e gis | a a | gis2. a4 | a2 \times 2/3 { a4( gis fis) } | e2 e | e1
} 

tenor = \relative g' { \sacredHarpHeads \set autoBeaming = ##f
	r2 e | a a | cis b4( a) | b1 | r2 cis4( d) | e2 d4( cis) | d2 cis | b1 | r2 e | cis a | b e, | a cis | e2. e4 | fis2 e4( d) | cis2 b | a1
} 

bass = \relative f { \sacredHarpHeads \set autoBeaming = ##f
	r2 a, | cis e | a gis4( fis) | e1~ | e2 a4( b) | cis2 b4( a) | b2 a| e1~ | e2 gis | a a | gis e | cis a | e'2. cis4 | d2 cis4( d) | e2 e | a1
}

sopwords = << \lyricsto "sopvox" \context Lyrics = a { \set stanza = "1. "
	Come, sound His praise a -- broad,
	And hymns of glo -- ry sing;
	Je -- ho -- vah is the sov -- 'reign God,
	The u -- ni -- ver -- sal King. } >>

altwords =  << \lyricsto "altvox" \context Lyrics = b { \set stanza = "2. " 
	He formed the deeps un -- known;
	He gave the seas their bound;
	The wa -- tery worlds are all His own,
	And all the sol -- id ground. } >>

tnrwords =  << \lyricsto "tnrvox" \context Lyrics = c { \set stanza = "3. " 
	Come, wor -- ship at His throne,
	Come, bow be -- fore the Lord;
	We are His works,
	and not our own,
	He formed us by His word. } >>

\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 = #"church organ"
     		  \global \clef treble \transpose g' g'' \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 \transpose g' g \repeat unfold 3 \unfoldRepeats { \alto } }
     \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 = #"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 127 4) } } 
}