\version "2.11.34"

\header {	
%		title = "220. Mount Zion (first). S.M."
		title = "Mount Zion (first)"
		source = "The Sacred Harp (1991 Denson edition)"   
		poet = "Isaac Watts, 1707." 	
		composer = "Bartholomew Brown, 1792."
        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
}

% increase bar number
ibn = \applyContext
#(lambda (x)
  (let ((measurepos (ly:context-property x 'measurePosition)))
   ; Only increase bar number if not at start of measure.
   ; This way we ensure that you won't increase bar number twice
   ; if two parallel voices call increaseBarNumber simultanously:
   (if (< 0 (ly:moment-main-numerator measurepos)) ; ugh. ignore grace part
    (begin
     (ly:context-set-property!
      (ly:context-property-where-defined x 'internalBarNumber)
      'internalBarNumber
      (1+ (ly:context-property x 'internalBarNumber)))
     (ly:context-set-property!
      (ly:context-property-where-defined x 'currentBarNumber)
      'currentBarNumber
      (1+ (ly:context-property x 'currentBarNumber)))
     ; set main part of measurepos to zero, leave grace part as it is:
     (ly:context-set-property!
      (ly:context-property-where-defined x 'measurePosition)
      'measurePosition
      (ly:make-moment 0 1
       (ly:moment-grace-numerator measurepos)
       (ly:moment-grace-denominator measurepos)))))))

numverses = 1

%pause = { \tempo 4=90 r2 \tempo 4=90 }
pause = { }

global = {
	\key c \major
	\time 6/8
	\sacredHarpHeads
	\set autoBeaming = ##f
	\tempo 4=90
}

soprano = \relative g' { \global
	r2 r8 c | c4 c8 c4 c8 | e8[( g g] g4) g8 | g[ e] c e[ c] e | g4. ~ g4 g8 | e4 c8 g'4 g8 | e4 c8 g'4 g8 | g4 g8 g4 d8 | e4. ~ e4
	r8 | r2. | r2 r8 c | g'[ e] c g'[ e] c | e4( d8 c4) e8 | d4 d8 d4 e8 | g4. ~ g4 g8 | c,8[ e] d c[ e] d | g[ e] c g4 c8 |
	g'4 g8 g4 d8 | e4. ~ e4 c8 | g'[ e] c g4 c8 | e[ c] a g4 g8 | c[( e c] d[ f d] | e[ f e] d[ b]) g |
	c4 c8 c4 r8 | r2 r8 d | c4 d8 d4 c8 | d[ g] g g4 g8 | g4 g8 d[ c] d | e2. \bar "|."
}

alto = \relative g' { \global
	r2 r8 g | a4 a8 a4 g8 | g[( a b] c4) c8 | g[ a] g a[ c] a | g4. ~ g4 g8 | a4 g8 g4 g8 | a4 g8 c4 c8 | g4 g8 g4 g8 | e4. ~ e4
	r8 | r2. | r2 r8 a | c[ a] g g[ a] g | a4. ~ a4 c8 | g4 g8 g4 g8 | g4. ~ g4 g8 | f[ a] f a[ g] g | a[ g] f g[ e] f |
	g4 g8 g4 g8 | e4. ~ e4 g8 | g[ a] a g4 g8 | a4 a8 g4 g8 | c[( a g] f[ g a] | a[ f a] b[ g]) g |
	a4 a8 a4 r8 | r2 r8 g | a4 a8 a[ g] a | g[ a] g g4 g8 | a[ g] a f[ g] g | g2. \bar "|."
} 

tenor = \relative g' { \global
	r2 r8 g | c4 d8 e4 e8 | g[( e d] c4) e8 | d4 g,8 c4 e8 | d4. ~ d4 d8 | c4 g8 c4 e8 | c4 g8 c4 e8 | g[ e] c e,4 g8 | c4. ~ c4
	r8 | r2 r8 g | g[ e] a g[ e] a | g4. ~ g4 g8 | c4 d8 e[ c] e | d4. ~ d4 g,8 | c4 d8 e[ c] e | d[ b] d c4 g8 | a[ c] a g[ e] c |
	c4. ~ c4 c8 | g'4 g8 g4 g8 | c4 c8 c4 d8 | e4 e8 e4 e8 | g[( e g] f[ d f] | e[ f e] d[ b]) d |
	c4 c8 c4 r8 | r2 r8 d | e4 e8 e[ d] c | d[ e] d c4 d8 | e[ c] e d[ b] d | c2. \bar "|."
}

bass = \relative f { \global
	r2 r8 c'8 | a4 a8 a4 g8 | g4.( c,4) c8 | g'4 e8 c4 c8 | g'4. ~ g4 g8 | a4 g8 c,4 c8 | c4 c8 c4 c8 | e4 f8 g4 g8 | c,4. ~ c4
	c8 | g'4 g8 c4 a8 | g4.( c,4) c8 | c4 c8 c4 c8 | a'4. ~ a4 a8 | g4 g8 g4 g8 | c,4 c8 c4 c8 | g'4 g8 f4 g8 | c,4. ~ c4 r8 |
	r2 r8 g'8 | c,4 c8 c4 c8 | c4 c8 c4 g'8 | a4 a8 g4 g8 | c4.( f, | a g4) e8 |
	c4 c8 c4 c8 | g'4. ~ g4 g8 | c,4 c8 g'4 a8 | g4 g8 c,4 g'8 | c4 e,8 f4 g8 | c,2. \bar "|."
}

sopwords = \lyricsto "sopvox" \context Lyrics = a {
	The hill of Zi -- on yields
	A thou -- sand sa -- cred sweets
	Be -- fore we reach the heav'n -- ly fields,
	Or walk the gold -- en streets.

	Then let your songs a -- bound,
	And ev -- 'ry tear be dry;
	We're march -- ing through Im -- man -- uel's ground
	To fair -- er worlds on high;
	We're march -- ing through Im -- man -- uel's ground
	To fair -- er worlds on high;
	We're march -- ing through Im -- man -- uel's ground
	To fair -- er worlds on high.
}
tnrwords = \lyricsto "tnrvox" \context Lyrics = c {
	The hill of Zi -- on yields
	A thou -- sand sa -- cred sweets
	Be -- fore we reach the heav'n -- ly fields,
	Or walk the gold -- en streets.

	Then let your songs a -- bound,
	And ev -- 'ry tear be dry;
	We're march -- ing through Im -- man -- uel's ground
	To fair -- er worlds on high;
	We're march -- ing through Im -- man -- uel's ground
	To fair -- er worlds on high;
	To fair -- er worlds,
	We're march -- ing through Im -- man -- uel's ground
	To fair -- er worlds on high.
}
bsswords = \lyricsto "bssvox" \context Lyrics = d {
	_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ 
	Then let your songs a -- bound,
	And ev -- 'ry tear be dry;
	We're march -- ing through Im -- man -- uel's ground
	To fair -- er worlds on high;
	_ _ _ _ _ _ _ _ _ _ _ _ _ _
	To fair -- er worlds on high;
}

\score { \new ChoirStaff <<
    \new Staff << \clef treble \new Voice = "sopvox" \soprano \new Lyrics = "a" {} >>
    \new Staff << \clef treble \new Voice = "altvox" \alto \new Lyrics = "b" {} >>
    \new Staff << \clef treble \new Voice = "tnrvox" \tenor \new Lyrics = "c" {} >>
    \new Staff << \clef bass   \new Voice = "bssvox" \bass \new Lyrics = "d" {} >>
	\sopwords
	\tnrwords
	\bsswords
>>
  \layout {
    \context { \Score
   		\remove "Bar_number_engraver"
		\override PaperColumn #'keep-inside-line = ##t
		\override MetronomeMark #'transparent = ##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 } \pause } }
     \new Staff { \set Staff.midiInstrument = #"church organ" 
                  \global \clef treble \transpose g' g''  \repeat unfold \numverses { \unfoldRepeats { \soprano } \pause } }
     \new Staff { \set Staff.midiInstrument = #"church organ" 
                  \global \clef treble  \repeat unfold \numverses { \unfoldRepeats { \soprano } \pause } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef treble \transpose g' g''  \repeat unfold \numverses { \unfoldRepeats { \alto } \pause } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef treble  \repeat unfold \numverses { \unfoldRepeats { \alto } \pause } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef treble  \repeat unfold \numverses { \unfoldRepeats { \alto } \pause } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef treble  \repeat unfold \numverses { \unfoldRepeats { \tenor } \pause } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef treble \transpose g' g  \repeat unfold \numverses { \unfoldRepeats { \tenor } \pause } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef bass  \repeat unfold \numverses { \unfoldRepeats { \bass } \pause } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef bass \transpose f f,  \repeat unfold \numverses { \unfoldRepeats { \bass } \pause } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef bass \transpose f f,  \repeat unfold \numverses { \unfoldRepeats { \bass } \pause } }
%     \new Staff { \set Staff.midiInstrument = #"acoustic grand"
%                  \global \clef treble  \repeat unfold \numverses { \unfoldRepeats { \soprano } \pause } }
%     \new Staff { \set Staff.midiInstrument = #"acoustic grand"
%                  \global \clef treble  \repeat unfold \numverses { \unfoldRepeats { \alto } \pause } }
%     \new Staff { \set Staff.midiInstrument = #"acoustic grand"
%                  \global \clef treble  \repeat unfold \numverses { \unfoldRepeats { \tenor } \pause } }
%     \new Staff { \set Staff.midiInstrument = #"acoustic grand"
%                  \global \clef bass  \repeat unfold \numverses { \unfoldRepeats { \bass } \pause } }
  >>
  \midi { } 
}