\version "2.11.34"

\header {	
%		title = "27. Bethel. C.M."
		title = "Bethel"
		source = "The Sacred Harp (1991 Denson edition)"   
		poet = "William Cowper, 1772."
		composer = "William Cowper, 1772."
        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 = 6

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

global = {
	\key f \minor
	\time 4/4
	\sacredHarpHeads
	\set autoBeaming = ##f
	\tempo 4=157
}

soprano = \relative g' { \global
	r2 c | c ees | f bes, | ees4 (d) c2 | c c | aes4 (c) ees2 | f c | c1 |
	r2 c | c aes | ees' c | aes bes4( d) | c2 c | f c | ees c | c1 \bar "|."
}

alto = \relative g' { \global
	r2 aes | aes f | aes ees | f f | g aes | f ees | f g | f1 |
	r2 aes | aes f | g aes | ees f | g f | aes aes | f ees | f1 \bar "|."
} 

tenor = \relative g' { \global
	r2 f | aes c | f, bes | aes4 (g) f2 | g aes | c4 (aes) c (bes) | aes2 g | f1 |
	r2 f | aes c | ees4 (c) f2 | ees4 (c) bes (aes) | g2 aes | c4 (aes) c (bes) | aes2 g | f1 \bar "|."
}

bass = \relative f { \global
	r2 f | f aes | f ees | aes4 (g) f2 | c f | f ees | aes c, | f1 |
	r2 f | f aes | aes f | ees f | c f | f aes4 (bes) | c2 c, | f1 \bar "|."
}

sopwords = <<
\lyricsto "sopvox" \context Lyrics = a { \set stanza = "1."
	O for a clos -- er walk with God,
	A calm and heav'n -- ly frame,
	A light to shine up -- on the road
	That leads me to the Lamb!
}
\lyricsto "sopvox" \context Lyrics = aa { \set stanza = "2."
	Where is the bless -- ed -- ness I knew,
	When first I saw the Lord?
	Where is the soul -- re -- fresh -- ing view
	Of Je -- sus and His word?
} 
>>

altwords = <<
\lyricsto "altvox" \context Lyrics = b { \set stanza = "3."
	What peace -- ful hours I once en -- joyed!
	How sweet their mem -- 'ry still!
	But they have left an ach -- ing void
	The world can nev -- er fill.
}
\lyricsto "altvox" \context Lyrics = bb { \set stanza = "4."
	Re -- turn, O ho -- ly Dove, re -- turn,
	Sweet mes -- sen -- ger of rest!
	I hate the sins that made thee mourn,
	And drove thee from my breast.
} 
>>

tnrwords = <<
\lyricsto "tnrvox" \context Lyrics = c { \set stanza = "5."
	The dear -- est i -- dol I have known,
	What -- e'er that i -- dol be,
	Help me to tear it from Thy throne,
	And wor -- ship on -- ly Thee.
}
\lyricsto "tnrvox" \context Lyrics = cc { \set stanza = "6."
	So shall my walk be close to God,
	Calm and se -- rene my frame,
	So pur -- er light shall mark the road
	That leads me to the Lamb.
}
>>

\score { \new ChoirStaff <<
    \new Staff << \clef treble \new Voice = "sopvox" \soprano << \new Lyrics = "a" {} \new Lyrics = "aa" {} >> >>
    \new Staff << \clef treble \new Voice = "altvox" \alto << \new Lyrics = "b" {} \new Lyrics = "bb" {} >> >>
    \new Staff << \clef treble \new Voice = "tnrvox" \tenor << \new Lyrics = "c" {} \new Lyrics = "cc" {} >> >>
    \new Staff << \clef bass   \new Voice = "bssvox" \bass << \new Lyrics = "d" {} \new Lyrics = "dd" {} >> >>
	\sopwords
%	\sopwordss
	\altwords
%	\altwordss
	\tnrwords
%	\tnrwordss
>>
  \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 { } 
}