\version "2.10.11"

\header {	
		title = "201b. Pilgrim. C.M."
		source = "The Sacred Harp (1991 Denson edition)"   
		composer = "Missouri Harmony, 1820." 	
		poet = "John Adam Granade, ca. 1801."
                tagline = \markup { \fill-line { "Copyright 2007, 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
}

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

soprano = \relative g' { \sacredHarpHeads \set autoBeaming = ##f
	\repeat volta 2 { r2 cis | fis4. e8 cis4 cis | fis,4. gis8 a4 a | e'4. fis8 dis4 cis | cis1 }
	r2 cis | a4. gis8 fis4 a | cis2 cis4 cis | b4. a8 gis4 a8[ b] | cis2. fis8[ e] | fis4. e8 cis4 cis | fis,4. gis8 a4 a | e'4. fis8 dis4 cis | cis1
	\bar "|."
}

alto = \relative g' { \sacredHarpHeads \set autoBeaming = ##f
	\repeat volta 2 { r2 fis | fis4. e8 fis4 fis | fis4. gis8 fis4 fis | gis4. fis8 fis4 e | fis1 }
	r2 a | fis4. e8 cis4 e | fis2 fis4 fis | e4. fis8 gis4 gis | fis2. fis4 | fis4. e8 fis4 fis | fis4. gis8 fis4 fis | e4. fis8 fis4 e | fis1
} 

tenor = \relative g' { \sacredHarpHeads \set autoBeaming = ##f
	\repeat volta 2 { r2 cis | b4. a8 fis4 fis | a4. b8 cis4 cis | b4. a8 fis4 e | fis1 }
	r2 fis | a4. b8 cis4 e | fis2 fis4 fis | e4. fis8 e4 dis | cis2. dis8[ cis] | b4. a8 fis4 fis | a4. b8 cis4 cis | b4. a8 fis4 e | fis1
}

bass = \relative f { \sacredHarpHeads \set autoBeaming = ##f
	\repeat volta 2 { r2 fis | b4. b8 cis4 cis | a4. e8 fis4 fis | e4. fis8 b,4 cis | fis1 }
	r2 fis | fis4. e8 a4 a | fis2 fis4 fis | e4. fis8 gis4 gis | fis2. fis4 | b4. b8 cis4 cis | a4. e8 fis4 fis | e4. fis8 b,4 cis | fis1
}

altwords = <<
	\lyricsto "altvox" \context Lyrics = c { \set stanza = "1. "
		Come, all ye mourn -- ing pil -- grims dear,
		Who're bound for Can -- aan's land,
	}
	\lyricsto "altvox" \context Lyrics = d {
		Take cour -- age and fight val -- iant -- ly,
		Stand fast with sword in hand,
		Our Cap -- tain's gone be -- fore us,
		Our Fa -- thers on -- ly Son,
		Then, pil -- grims dear,
		pray do not fear,
		But let us fol -- low on.
	}
>>

botverses = \markup { \fill-line {
\column {
\line { \bold "1. " \column {
   "Come, all ye mourning pilgrims dear,"
   "Who're bound for Canaan's land,"
   "Take courage and fight valiantly,"
   "Stand fast with sword in hand;"
   "Our Captain's gone before us,"
   "Our Father's only Son,"
   "Then, pilgrims dear, pray, do not fear,"
   "But let us follow on." } }
\hspace #0.5 \line { \bold "2. " \column {
   "We have a howling wilderness,"
   "To Canaan's happy shore,"
   "A land of dearth, and pits, and snares,"
   "Where chilling winds do roar."
   "But Jesus will be with us,"
   "And guard us by the way;"
   "Though enemies examine us,"
   "He'll teach us what to say." } }
} \column {
\line { \bold "3. " \column {
   "The pleasant fields of paradise,"
   "So glorious to behold,"
   "The valleys clad in living green,"
   "The mountains paved with gold:"
   "The trees of life with heavenly fruit,"
   "Behold how rich they stand"
   "Blow, gentle gales, and bear my soul"
   "To Canaan's happy land." } }
\hspace #0.5 \line { \bold "4. " \column {
   "Sweet rivers of salvation all"
   "Through Canaan's land do roll,"
   "The beams of day bring glittering scenes"
   "Illuminate my soul;"
   "There's ponderous clouds of glory,"
   "All set in diamonds bright;"
   "And there's my smiling Jesus,"
   "Who is my heart's delight." } }
} \column {
\line { \bold "5. " \column {
   "Already to my raptured sight,"
   "The blissful fields arise,"
   "And plenty spreads her smiling stores,"
   "Inviting to my eyes."
   "O sweet abode of endless rest,"
   "I soon shall travel there,"
   "Nor earth nor all her empty joys"
   "Shall long detain me here." } }
\hspace #0.5 \line { \bold "6. " \column {
   "Come, all you pilgrim travelers,"
   "Fresh courage take by me;"
   "Meantime I'll tell you how I came,"
   "This happy land to see;"
   "Through faith the glorious telescope"
   "I viewed the worlds above,"
   "And God the Father reconciled,"
   "Which fills my heart with love." } }
} } }

\score { \new ChoirStaff <<
    \new Staff << \global \clef treble \soprano >>
%    \new Staff << \global \clef treble \new Voice = "altvox" \alto \new Lyrics \altwords >>
    \new Staff << \global \clef treble \alto >>
    \new Staff << \global \clef treble \tenor >>
    \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
	}
  }
}
\botverses

\score {
  << 
     \new Staff { \set Staff.midiInstrument = #"church organ" 
                  \global \clef treble \transpose g' g'' \repeat unfold 6 \unfoldRepeats { \soprano } }
     \new Staff { \set Staff.midiInstrument = #"church organ" 
                  \global \clef treble \transpose g' g'' \repeat unfold 6 \unfoldRepeats { \soprano } }
     \new Staff { \set Staff.midiInstrument = #"church organ" 
                  \global \clef treble \repeat unfold 6 \unfoldRepeats { \soprano } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef treble \transpose g' g'' \repeat unfold 6 \unfoldRepeats { \alto } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef treble \repeat unfold 6 \unfoldRepeats { \alto } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef treble \repeat unfold 6 \unfoldRepeats { \alto } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef treble \repeat unfold 6 \unfoldRepeats { \tenor } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef treble \transpose g' g \repeat unfold 6 \unfoldRepeats { \tenor } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef bass \repeat unfold 6 \unfoldRepeats { \bass } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef bass \transpose f f, \repeat unfold 6 \unfoldRepeats { \bass } }
     \new Staff { \set Staff.midiInstrument = #"church organ"
                  \global \clef bass \transpose f f, \repeat unfold 6 \unfoldRepeats { \bass } }
%     \new Staff { \set Staff.midiInstrument = #"acoustic grand"
%                  \global \clef treble \repeat unfold 6 \unfoldRepeats { \soprano } }
%     \new Staff { \set Staff.midiInstrument = #"acoustic grand"
%                  \global \clef treble \repeat unfold 6 \unfoldRepeats { \alto} }
%     \new Staff { \set Staff.midiInstrument = #"acoustic grand"
%                  \global \clef treble \repeat unfold 6 \unfoldRepeats { \tenor} }
%     \new Staff { \set Staff.midiInstrument = #"acoustic grand"
%                  \global \clef bass \repeat unfold 6 \unfoldRepeats { \bass } } 
  >>
  \midi { \context { \Score tempoWholesPerMinute = #(ly:make-moment 113 4) } } 
}