\version "2.17.0"
\language "english"


#(set-global-staff-size 16)


global = {
  \key g \major
  %\transpose g d
  \numericTimeSignature
  \time 6/4
  \partial 4
  \tempo 4=100
  
}

chordNames = \chordmode {
  \global
  % Chords follow here.
  
}

melody = \relative c'' {
  \global
  % Music follows here.
  
}

verseLeadSheet = \lyricmode {
  % Lyrics follow here.
  
}
soprano➀➅b  = \relative c''{ b8 c8 }
soprano➀     = \relative c''{ d4.cs8 e4 d2 b8 as8 }
soprano➁     = \relative c''{ g4. fs8 a4 g2 g4 }
soprano➂     = \relative c''{ c4. c8 c4 e4 d4 d4 }
soprano➃a    = \relative c''{ a2.~ a2 }
soprano➃b    = \soprano➀➅b
soprano➄     = \soprano➀
soprano➅     = \relative c''{ g4. fs8 a4 g2 a8( b8) }
soprano➆     = \relative c''{ c4. d8 c4 b4 fs4 a4 }
soprano➇a    = \relative c''{ g2.~ g2 }
soprano➇b    = \relative c''{ g4 }
soprano➈     = \relative c''{ c4. g8 c8 d8 e2 e4 }
soprano➀➉   = \relative c''{ d4. d8 e8 d8 a2 a4 }
soprano➀➀   = \relative c''{ b4. b8 b4 b4 a4 g4 }
soprano➀➁a  = \relative c''{ d2. a2 }
soprano➀➁b  = \soprano➀➅b
soprano➀➂   = \soprano➀
soprano➀➃   = \soprano➅
soprano➀➄   = \soprano➆
soprano➀➅a  = \soprano➇a
soprano =  {  \global
  \soprano➀➅b   \soprano➀     \soprano➁     \soprano➂     \soprano➃a \bar""\break
  \soprano➃b     \soprano➄     \soprano➅     \soprano➆     \soprano➇a \bar""\break
  \soprano➇b     \soprano➈     \soprano➀➉    \soprano➀➀    \soprano➀➁a \bar""\break
  \soprano➀➁b    \soprano➀➂   \soprano➀➃    \soprano➀➄    \soprano➀➅a \bar"|."
  \label #'lastPage
}

alto➀➅b     = \relative c''{ g8 a8 }
alto➀       = \relative c''{ b4. as8 as4 b2 g8 f8 }
alto➁       = \relative c'{e4. ds8 ds4 e2 e4 }
alto➂       = \relative c'{ e4. e8 e4 fs4 fs4 fs4 }
alto➃a      = \relative c'{ fs4 <g e>4 <fs d>4~ q4 r4 }
alto➃b      = \alto➀➅b
alto➄       = \alto➀
alto➅       = \relative c'{ e4. ds8 ds4 e2 e8( g8) }
alto➆       = \relative c''{ a4. b8 a4 g4 d4 d8( c8) }
alto➇a      = \relative c'{ b2.~ b2 }
alto➇b      = \relative c'{ f4 }
alto➈       = \relative c'{ e4. e8 e8 f8 g2 c4 }
alto➀➉     = \relative c''{ b4. b8 c8 b8 fs2 fs4 }
alto➀➀     = \relative c''{ g4. g8 g4 g4 d4 e4 }
alto➀➁a    = \relative c'{ fs2. fs2 }
alto➀➁b    = \alto➀➅b
alto➀➂     = \relative c''{ b4. as8 as4 b2 g8 fs8 }
alto➀➃     = \alto➅
alto➀➄     = \alto➆
alto➀➅a    = \alto➇a
alto =  {  \global
  \alto➀➅b    \alto➀     \alto➁     \alto➂     \alto➃a
  \alto➃b     \alto➄     \alto➅     \alto➆     \alto➇a
  \alto➇b     \alto➈     \alto➀➉    \alto➀➀   \alto➀➁a
  \alto➀➁b    \alto➀➂   \alto➀➃   \alto➀➄   \alto➀➅a
}

tenor = \relative c' {
  \global
  % Music follows here.
  
}

bass❶❻b    = \relative c{ r4 }
bass❶      = \relative c{ g8 b8 d8 gs8 a8 gs8 d8 b8 g8 b8 d8 gs8 }
bass❷      = \relative c{ c8 e g cs d cs g e c e g cs }
bass❸      = \relative c{ c8 e g c e c d, fs a d fs d }
bass❹a     = \relative c{ d8 fs a d c a fs d c a }
bass❹b     = \bass❶❻b
bass❺      = \bass❶
bass❻      = \relative c{ c8 e g c ef c g e c b a fs }
bass❼      = \relative c,{ d8 fs a d fs a d c a fs d a'} 
bass❽a     = \relative c'{ g8 d b d g,2. }
bass❽b     = \bass❶❻b
bass❾      = \relative c{ c8 e g c e c g e c e g c }
bass❶❿    = \relative c{ d8 g b d g d a fs d c a fs }
bass❶❶    = \relative c{ g8 b d g b d g d c a g e }
bass❶❷a   = \relative c{ d8 fs a d fs d a fs d c }
bass❶❷b   = \bass❶❻b
bass❶❸    = \bass❶
bass❶❹    = \relative c{ c8 e g c ds c g e c b a fs }
bass❶❺    = \bass❼
bass❶❻a   = \bass❽a
bass =  {  \global
  \bass❶❻b    \bass❶     \bass❷     \bass❸     \bass❹a
  \bass❹b      \bass❺     \bass❻     \bass❼     \bass❽a
  \bass❽b      \bass❾     \bass❶❿    \bass❶❶   \bass❶❷a
  \bass❶❷b     \bass❶❸   \bass❶❹    \bass❶❺   \bass❶❻a
}

verseOne = \lyricmode {
  \set stanza = "1."
  主  啊  祢  吸  引  我, 我  就  快  跑  隨  祢, 我  心  深  深  與  主  密  契.
  雖  然  南  風  吹  來, 雖  然  北  風  興  起, 却  溢  出  我  園  中  香  氣.
  我  主  全  然  美  麗, 我  主  滿  我  心  意, 主, 祢  屬  我, 主, 我  也  屬  祢,
  眾  水  不  能  熄  滅, 大  水  不  能  淹  没, 我  必, 我  必  愛  主  到  底.
}

verseTwo = \lyricmode {
  \set stanza = "2."
  " "
  
}


rehearsalMidi = #
(define-music-function
 (parser location name midiInstrument lyrics) (string? string? ly:music?)
 #{
   \unfoldRepeats <<
     \new Staff = "soprano" \new Voice = "soprano" { s1*0\f \soprano }
     \new Staff = "alto" \new Voice = "alto" { s1*0\f \alto }
     %\new Staff = "tenor" \new Voice = "tenor" { s1*0\f \tenor }
     \new Staff = "bass" \new Voice = "bass" { s1*0\f \bass }
     \context Staff = $name {
       \set Score.midiMinimumVolume = #0.5
       \set Score.midiMaximumVolume = #0.5
       \set Score.tempoWholesPerMinute = #(ly:make-moment 100 4)
       \set Staff.midiMinimumVolume = #0.8
       \set Staff.midiMaximumVolume = #1.0
       \set Staff.midiInstrument = $midiInstrument
     }
     \new Lyrics \with {
       alignBelowContext = $name
     } \lyricsto $name $lyrics
   >>
 #})

leadSheetPart = <<
  \new ChordNames \chordNames
  %\new Staff { \melody }
  %\addlyrics { \verseLeadSheet }
>>

choirPart = \new ChoirStaff \transpose g d <<
  \new Staff \with { 
    midiInstrument = "choir aahs"
    instrumentName = \markup \center-column { "S." "A." }
    shortInstrumentName = \markup \center-column { "S." "A." }
  } <<
    \new Voice = "soprano"       { \voiceOne \soprano }
    \new Voice = "alto" { \voiceTwo \alto }
  >>
  \new Lyrics \with {
    \override VerticalAxisGroup #'staff-affinity = #CENTER
  } \lyricsto "soprano" \verseOne
  \new Lyrics \with {
    \override VerticalAxisGroup #'staff-affinity = #CENTER
  } \lyricsto "soprano" \verseTwo
  \new Staff \with {
    %midiInstrument = "choir aahs"
    instrumentName = \markup \center-column { "T." "B." }
    shortInstrumentName = \markup \center-column { "T." "B." }
  } <<
    \clef bass
    %\new Voice = "tenor" { \voiceOne \tenor }
    \new Voice = "bass" { \voiceTwo \bass }
  >>
>>

\score {
  <<
    \leadSheetPart
    \choirPart
  >>
  \layout { indent = 0 }
  \midi { }
}

% Rehearsal MIDI files:
\book {
  \bookOutputSuffix "soprano"
  \score {
    \rehearsalMidi "soprano" "soprano sax" \verseOne
    \midi { }
  }
}

\book {
  \bookOutputSuffix "alto"
  \score {
    \rehearsalMidi "alto" "soprano sax" \verseOne
    \midi { }
  }
}

%\book {
%  \bookOutputSuffix "tenor"
%  \score {
%    \rehearsalMidi "tenor" "tenor sax" \verseOne
%    \midi { }
%  }
%}

\book {
  \bookOutputSuffix "bass"
  \score {
    \rehearsalMidi "bass" "tenor sax" \verseOne
    \midi { }
  }
}