\version "2.19"
\language "english"

\header {
  subtitle = "Come to the Feast"
  composer = "Mary Kay Beall"
}

\layout {
  \context {
    \Voice
    \consists "Melody_engraver"
    \override Stem #'neutral-direction = #'()
  }
}

global = {
  \key ef \major
  \time 9/8
  \tempo 4.=76
}

eVar =
#(define-music-function (xx start stop) (list? index? index?)
   #{ #@(map (lambda (i) #{ $xx . #i #}) (iota (- stop start -1) start)) #})


sop.0 = R8*9

sop.42 = { g'2. r4. |}
sop.43 = { bf'4. r4. 4( gf'8) |\break }
sop.44 = { bf'4. r4. df''4. |}
sop.45 = { af'4. 4. bf' |}
sop.46 = { af'4 gf'8 f'4. r4 f'8 |\break }
sop.47 = { g'!4. r4. 4 8 |}

sopranoVoice =   {
  \global
  \dynamicUp
  \eVar \sop 42 47
  
}

verseSopranoVoice = \lyricmode {
  一 起 進 餐 信 主 之

}
ten.0 = R4.*3 

ten.42 = { g2. r4. |}
ten.43 = { bf4. r4. 4( gf8) |}
ten.44 = { bf4. r4. gf4. |}
ten.45 = { af4. 4. f |}
ten.46 = { af4 gf8 f4. r4 8 |}
ten.47 = { g!4. r4. 4 8 |}

tenorVoice =  {
  \global
  \dynamicUp
  \eVar \ten 42 47
  
}

verseTenorVoice = \lyricmode {
  分 開 這 餅
  
}


rht.42 = { g'8 bf ef' f' bf f' ef'4 bf8 |}
rht.43 = { <df'gf'bf>4.s4. s4. |}
rht.44 = { <df'gf'bf'>4. s4. s4. |}
rht.45 = { <af df'f'af'>4. s4. s4. |}
rht.46 = { <df'f'af'>4 <bf ef'gf'>8 <af df'f'>4.~ 4 8 |}
rht.47 = { <<{g'!4. d'' g'4 8}\\{<b! d'!>2.~ 4.}>> |}

right =   {
  \global
  \eVar \rht 42 47
  
}

lft.42 = { e2.~ 4. |}
lft.43 = { gf,8( df gf 
           \change Staff = "right" bf8 df' gf' bf'4 g'8) |}
lft.44 = { \change Staff = "left" ef,8( bf, ef 
           \change Staff = right gf8 bf df' <gf'ef''>4.) |}
lft.45 = { \change Staff = left df,8( af, df
           \change Staff = right f8 af df' <f'bf'>4.) |} 
lft.46 = { \change Staff = left <<{r4. bf, af,}\\{bf,,2. r4.}>> |}
lft.47 = { <g,f>2.~ 4 8 |}

left = {
\global
  \eVar \lft 42 47
  
}

sopranoVoicePart = \new Staff \with {
  instrumentName = "Soprano"
  midiInstrument = "choir aahs"
} { \sopranoVoice }
\addlyrics { \verseSopranoVoice }

tenorVoicePart = \new Staff \with {
  instrumentName = "Tenor"
  midiInstrument = "choir aahs"
} { \clef "bass" \tenorVoice }
\addlyrics { \verseTenorVoice }

pianoPart = \new PianoStaff \with {
  instrumentName = "Piano"
} <<
  \new Staff = "right" \with {
    midiInstrument = "acoustic grand"
  } \right
  \new Staff = "left" \with {
    midiInstrument = "acoustic grand"
  } { \clef bass \left }
>>



\score {
  <<
    \sopranoVoicePart
    \tenorVoicePart
    \pianoPart

  >>
  \layout { }
  \midi { }
}


% Rehearsal MIDI files:
rehearsalMidi = #
(define-music-function
 (parser location name midiInstrument lyrics) (string? string? ly:music?)
 #{
   \unfoldRepeats <<
     \new Staff = "soprano" \new Voice = "soprano" { \sopranoVoice }

     \new Staff = "tenor" \new Voice = "tenor" { \tenorVoice }

     \new Staff \right 
     \new Staff \left

     \context Staff = $name {
       \set Score.midiMinimumVolume = #0.5
       \set Score.midiMaximumVolume = #0.5
       \set Score.tempoWholesPerMinute = #(ly:make-moment 76 4.)
       \set Staff.midiMinimumVolume = #0.8
       \set Staff.midiMaximumVolume = #1.0
       \set Staff.midiInstrument = $midiInstrument
     }
     \new Lyrics \with {
       alignBelowContext = $name
     } \lyricsto $name $lyrics
   >>
 #})

\book {
  \bookOutputSuffix "sop"
  \score {
    \rehearsalMidi "soprano" "soprano sax" \verseSopranoVoice
    \midi { \tempo 4. = 76 }
  }
}



\book {
  \bookOutputSuffix "ten"
  \score {
    \rehearsalMidi "tenor" "tenor sax" \verseTenorVoice
    \midi { \tempo 4. = 76 }
  }
}