\version "2.10.11"

\header {	
		title = "224. Save, Lord, Or We Perish. 12s."
		source = "The Sacred Harp (1991 Denson edition)"   
		poet = "Reginald Heber, 1827"
		composer = "M. Mark Wynn, 1869" 	
		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 14)
#(set-default-paper-size "letter" 'landscape)

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

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

soprano = \relative g' { \sacredHarpHeads \set autoBeaming = ##f
	r4 b | d d8 cis | b4 g'8 fis | e4 fis8 fis | e2 | g4 e | d b8 b | g4 g8 b | b2 ( | g4 ) a8 b | b2 | e	
	\repeat volta 2 { r2 | r | r | r | r4 b8[ d] | e4 e8 e | e4 d8 b | b2~ | b4 e8 fis | g4 e8 d | b2~ | b4 b8 d | e4 d8 b | b4 g8 a | b2 | b }
}

alto = \relative g' { \sacredHarpHeads \set autoBeaming = ##f
	r4 e | g g8 fis | e4 d8 d | e4 a8 a | g2 | b4 a | g e8 e | e4 d8 e | g2~ | g4 e8 e | e2 | e
	\repeat volta 2 { r2 | r | r | r | r | r | r4 g8[ fis] | e4 e8 e | e4 g8 a | b4 a8 g | e4 e8 e | e4 g8 g | e4 g8 fis | e4 d8 e | e2 | e }
} 

tenor = \relative g' { \sacredHarpHeads \set autoBeaming = ##f
	r4 e | g g8 a | b4 d8 b | b4 cis8 b | b2 | d4 e | d b8 b | b4 d8 b | e2 ( | d4 ) cis8 b | b2 | b
	\repeat volta 2 { r2 | r | r4 g8[ a] | b4 b8 b | b4 g8 fis | e2 ( | e4 g | b2 | b4 ) b8 cis | d4 cis8 b | b2~ | b4 d8 d | e4 d8 b | b4 g8 fis | e2 | e }
}

bass = \relative f { \sacredHarpHeads \set autoBeaming = ##f
	r4 e | d d8 e | e4 g8 fis | e4 cis8 b | e2 | g4 a | g e8 e | e4 d8 b | e2 ( | g4 ) | e8 e | e2 | e
	\repeat volta 2 { r4 g8[ fis] | e4 e8 e | e4 d8 b | b2~ | b4 d8 d | e2~ | e4 g8 fis | e2~ | e4 e8 fis | g4 ( fis | e2 | e4 ) b'8 g | a4 ( g | e ) d8 b | e2 | e }
}

sopwords = << \lyricsto "sopvox" \context Lyrics = a { \set stanza = "1. "
	When thro' the torn sail the wild tem -- pest is stream -- ing,
	When o'er the dark wave the red light -- ning is gleam -- ing.
	Nor hope lends a ray the poor sea -- man to cher -- ish,
	We fly to our Mak -- er, Save, Lord, or we per -- ish.
} >>

altwords = << \lyricsto "altvox" \context Lyrics = b {
	_ _ _ _ _ _ _ _ _ _ _ _
	_ _ _ _ _ _ _ _ _ _ _ _
	Nor hope lends a ray the poor sea -- man to cher -- ish,
	We fly to our Mak -- er, Save, Lord, or we per -- ish.
} >>

tnrwords = << \lyricsto "tnrvox" \context Lyrics = c { \set stanza = "1. "
	When thro' the torn sail the wild tem -- pest is stream -- ing,
	When o'er the dark wave the red light -- ning is gleam -- ing.
	Nor hope lends a ray the poor sea -- man to cher -- ish,
	We fly to our Mak -- er, Save, Lord, or we per -- ish.
} >>

bsswords = << \lyricsto "bssvox" \context Lyrics = d {
	_ _ _ _ _ _ _ _ _ _ _ _
	_ _ _ _ _ _ _ _ _ _ _ _
	Nor hope lends a ray the poor sea -- man to cher -- ish,
	We fly to our Mak -- er, Save, Lord, or we per -- ish.
} >>

\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 \new Voice = "bssvox" \bass \new Lyrics \bsswords >>
>>
  \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'' \unfoldRepeats { \soprano } }
     \new Staff { \set Staff.midiInstrument = #"church organ" 
  		  \global \clef treble \transpose g' g'' \unfoldRepeats { \soprano } }
     \new Staff { \set Staff.midiInstrument = #"church organ" 
  		  \global \clef treble \unfoldRepeats { \soprano } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
     		  \global \clef treble \unfoldRepeats { \alto } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef treble \unfoldRepeats { \tenor } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef treble \transpose g' g \unfoldRepeats { \tenor } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef bass \unfoldRepeats { \bass } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef bass \transpose f f, \unfoldRepeats { \bass } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef bass \transpose f f, \unfoldRepeats { \bass } } >>
  \midi { \context { \Score tempoWholesPerMinute = #(ly:make-moment 89 4) } } 
}