\version "2.10.11"

\header {	
		title = "378t. Heavenly Port. C.M."
		source = "The Sacred Harp (1991 Denson edition)"   
		poet = "Samuel Stennett, 1787"
		composer = "Edmund Dumas, 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 a \major
	\time 6/8
	\set Staff.printPartCombineTexts = ##f
}

soprano = \relative g' { \sacredHarpHeads \set autoBeaming = ##f
	\repeat volta 4 { r4. cis | e4 e8 e4 e8 | cis4 cis8 cis4 cis8 | e4 e8 e [cis] b | a4 ( cis8 e4. ) | r4. cis4. | e4 e8 e4 e8 | cis4 cis8 cis4 cis8 | e4 fis8 e4 e8 | <e cis>2. }
}

alto = \relative g' { \sacredHarpHeads \set autoBeaming = ##f
	\repeat volta 4 { r4. a | a4 a8 a4 gis8 | fis4 fis8 fis4 e8 | gis4 gis8 gis [fis] e | <a e>4 ( <a fis>8 <cis e,>4. ) | r4. a | a4 a8 a4 e8 | fis4 fis8 e4 e8 | gis4 fis8 e4 e8 | e2. }
} 

tenor = \relative g' { \sacredHarpHeads \set autoBeaming = ##f
	\repeat volta 4 { r4. e' | cis4 cis8 cis4 b8 | a4 a8 a4 a8 | b4 b8 b [a] b | cis4 ( d8 e4. ) | r e | cis4 cis8 cis4 b8 | a4 a8 a4 a8 | b4 d8 cis4 b8 | a2. }
}

bass = \relative f { \sacredHarpHeads \set autoBeaming = ##f
	\repeat volta 4 { r4. a | a4 a8 a4 a8 | fis4 fis8 fis4 a8 | e4 e8 e [d] e | a4 ( fis8 e4. ) | r a | a4 a8 a4 a8 | fis4 fis8 e4 e8 | e4 a8 e4 e8 | a,2. }
}

sopwords = \lyricsto "sopvox" { \set stanza = "1. "
	On Jor -- dan's storm -- y banks I stand,
	And cast a wish -- ful eye,
	To Ca -- naan's fair and hap -- py land
	Where my pos -- ses -- sions lie.
}
altwords = \lyricsto "altvox" { \set stanza = "Chorus: "
	We'll stem the storm, it won't be long,
	The heav -- 'nly port is nigh,
	We'll stem the storm, it won't be long,
	We'll an -- chor by and by.
}
tnrwords = \lyricsto "tnrvox" { \set stanza = "2. "
	When shall I reach that hap -- py place
	And be for -- ev -- er blest?
	When shall I see my Fa -- ther's face,
	And in His bos -- om rest?
}

\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'' \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 90 4) } } 
}