\version "2.19.55"
\language "english"

\header {
  title = "誰曾應許"
  subtitle = "Who Has Promised"
  composer = "曲詞 : 盧永亨"
}
expandVar =
#(define-music-function (xx start stop) (list? index? index?)
   #{ #@(map (lambda (i) #{ $xx . #i #}) (iota (- stop start -1) start)) #})

global = {
  \key ef \major
  \time 4/4
  \tempo "Andante" 4=80
}

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

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

verse = \lyricmode {
  % Lyrics follow here.
  
}

dynamic = {
   
  s1*2 \break     %m01-02
  s1*3 \break     %m03-05
  s1*3 \break     %m06-08
  \repeat volta 2 { 
    s1*3 \break     %m09-11
    s1*3 \break     %m12-15
  }
  \alternative {
    { s1*2 }     %m16-17
    { s1 \break }       %m17
  }
  s1*3 \break     %m18-20
  s1*3 \break     %m21-23
  s1*3 \break     %m24-26
  \bar"||" s1*2  \break     %m27-28
  s1*2 \break     %m29-30
  s1*3 \break     %m31-33
  s1*3 \break     %m34-36
  s1*2      %m37-38
  \repeat volta 1 {
    s1 \break   %m39
    s1*3 \break     %m40-42
    s1*3 \break     %m43-45
    s1         %m46
  }
  \alternative {
    { s1 \break }     %m47
  }
  s1               %m48
  <>^\markup"Rit" \tempo 4=70
  s1*2 \break     %m49-50
  s1*3 \bar"|." \break      %m51-53
}

sop.1 = { R1|}
sop.2 = \sop.1
sop.3 = \sop.1
sop.4 = \sop.1
sop.5 = \sop.1
sop.6 = \sop.1
sop.7 = \sop.1
sop.8 = { s2 s8 bf'8 ef'' bf'' |}
sop.9 = { bf''4. g''8 8 f'' ef'' d'' |}
sop.10 = { ef''2~ 8 8 d'' ef'' |}
sop.11 = { c''4. 8 8 ef'' f'' g'' |} 
sop.12 = { f''4.( s8 f''8) bf' ef'' bf'' |}
sop.13 = { bf''4. g''8 8 f'' ef'' d'' |}
sop.14 = { ef''4. d''8 c''2 |}
sop.15 = { af''8 g'' f'' ef'' c''' g'' f'' ef'' |}
sop.16 = { f''2~ 8 bf' ef'' af'' |}
sop.17 = { \sop.15 }
sop.18 = { bf''2. 16 ef'' d'' ef'' |}
sop.19 = { bf''4. ef''8 d''8 d''16 bf''16~ 8. ef''16 |}
sop.20 = { ef''8 c'' ef'' c''' bf''2 |}
sop.21 = { af''8. g''16 af''8 c'''8 bf'' ef''4 8 |}
sop.22 = { c''8 8 f''( ef'') d''4 ef''16 f'' g''  af'' |}
sop.23 = { bf''4. ef''8 d''16 16 bf''8 8. ef''16 |}
sop.24 = { ef''8 c'' ef'' c''' bf''4. ef''8 |}
sop.25 = { af''8. 16 bf''8 c''' bf'' ef''4 c''8 |}
sop.26 = { af''8. g''16~ 8 f'' g'' f'' ef'' d'' |}
sop.27 = { ef''2 s2 |}
sop.28 = \sop.1
sop.29 = \sop.1
sop.30 = { r2 r8 bf'8 ef'' bf'' |}
sop.31 = { bf''4. g''8 8 f'' ef'' d'' |}
sop.32 = { ef''2~ 8 8 d'' ef'' |}
sop.33 = { c''4. 8 8 ef'' f'' g'' |}
sop.34 = { f''2~ 8 bf' ef'' bf'' |}
sop.35 = { bf''4. g''8 8 f'' ef'' d'' |}
sop.36 = { ef''4. d''8 c''2 |}
sop.37 = { af''8 g'' f'' ef'' c''' af'' g'' f'' |}
sop.38 = { bf''2. bf''16 ef'' d'' ef'' |}
sop.39 = { bf''4. ef''8 d''8 16 bf''16~ 8. ef''16 |}
sop.40 = { ef''8 c'' ef'' c''' bf''2 |}
sop.41 = { af''8. g''16 af''8 c''' bf'' ef''4 8 |}
sop.42 = { c''8 8 f''( ef'') d''4 ef''16 f'' g'' af'' |}
sop.43 = { bf''4. ef''8 d''16 16 bf''8 8. ef''16 |}
sop.44 = { ef''8 c'' ef'' c''' bf''4. ef''8 |}
sop.45 = { af''8. 16 bf''8 c''' bf'' ef''4 c''8 |}
sop.46 = { af''8. g''16~8 f'' g'' f'' ef'' d'' |}
sop.47 = { ef''2. bf''16 ef'' d'' ef'' |}
sop.48 = { ef''1 |}
sop.49 = { af''4 bf''8 c''' bf'' g'' ef'''4~ |}
sop.50 = { ef'''2.~ 8 ef'' |} 
sop.51 = { af''8 g'' f'' ef''8 4 d' |}
sop.52 = { ef''1|}
sop.53 = { ef'''1\fermata |}
sopranoVoice =   {
  \global
  \dynamicUp
  \expandVar \sop 1 53
  
}

verseOne = \lyricmode {
  %\repeat unfold 5 {\skip1}
  雖 曾 應
  \set stanza = "1."
  許 一 生 不 撇 下 我 每 段 窄 路 雖 陪 我 去 走
  過 雖 還 領 我 於 青 草 恬 靜 處 躺 臥
  豐 足 恩 惠 比 海 沙 更 多 雖 曾 應 哪 懼 路 途 卷 動 著 漩
  渦 因 祢 是 我 主 我 避 難 所 我 盾 牌 和 詩 歌
  祢 是 我 的 高 臺 我 隨 時 幫 助 來 吧 用 信 心 讚 頌 和 高 歌 祢
  永 在 我 心 窩 唯 祢 有 永 生 江 河 隨 祢 以 外 不 倚 靠 別
  個
  雖 曾 應
  許 天 天 看 顧 著 我 畫 夜 眷 佑 連 頭 髮 也 數
  過 雖 還 以 愛 驅 走 心 裡 害 怕 怯 懦
  哪 𢣷 路 途 卷 動 著 漩 渦 因 祢 是 我 主 我 避 難 所 我
  盾 牌 和 詩 歌 祢 是 我 的 高 臺 我 隨 時 幫 助 來 吧 用 信
  心 讚 頌 和 高 歌 祢 永 在 我 心 窩 唯 祢 有 永 生 江 河 除
  祢 以 外 不 倚 靠 別 個 因 祢 是 我
  個 我 究 竟 算 甚 麼 衶
  祢 竟 這 般 顧 念 我
}

verseTwo = \lyricmode {
  \repeat unfold 3 {\skip1}
  \set stanza = "2."
  許 天 天 看 顧 著 我 畫 夜 眷 佑 連 頭 髮 也 數
  過 雖 還 以 愛 驅 走 心 裡 𢣷 怕 怯 懦
}

rgt.1 = { \ottava 1 <<{s2. s8 bf'''16^>( c''''^>}\\{ef'''8 g'' bf'' af''~ 8 ef''' bf'' r8}>> |}
rgt.2 = { <<{bf'''4) r4 r8 bf'''16^>( c''''^> bf'''4)}\\{ef'''8 g'' bf'' g''~ 8 ef''' bf'' g''}>> |}
rgt.3 = { <<{r2 r8 bf'''16^>( c''''^> bf'''4^^)}\\{ef'''8 g''' bf''' g'''~ 8 ef''' bf'' g'''}>> |} 
rgt.4 = { <<{bf'''16^>( c''''^> bf'''4^^) s8 s4 \ottava 0 g'16( f' ef' c'}\\{ef'''8 r8 bf'' g''~ 8 ef''' s4}>> |}
rgt.5 = { <<{<g bf>4 <bf ef'g'> <bf d'f'> <bf ef'g'>}\\{s1}>> |}
rgt.6 = { <<{<bf d'f'>4 8 <bf ef'g'>8~ 4 g'16 f' ef' c'}\\{s1}>> |}
rgt.7 = { <<{<g bf>4 <bf ef'g'> <bf d'f'> <bf ef'g'>}\\{s1}>> |} 
rgt.8 = { <<{<bf d'f'>4 8 <bf ef'g'>8~ 8) bf'8 ef'' bf''}\\{s1}>> |}
rgt.9 = { <ef''g''bf''>4. g''8 8 f'' ef'' d'' |}
rgt.10 = { <g'c''ef''>2~ 8 ef'' <bf'd''> ef'' |}
rgt.11 = { <ef'c''>4. c''8 <af'c''> ef'' f'' g'' |}
rgt.12 = { <<{<bf'd''>2 f''8 bf' ef'' bf''}\\{f''4. d''16 ef'' f''8 s8 s4}>> |}
rgt.13 = { <ef''g''bf''>4. g''8 8 f'' ef'' d'' |}
rgt.14 = { <g'c''ef''>4. d''8 <a'c''>2 |}
rgt.15 = { <c''ef''af''>8 g'' f'' ef'' <ef''c'''> g'' f'' ef'' |}
rgt.16 = { f''2~ 8 bf' ef'' af'' |}
rgt.17 = { <c''ef''af''>8 g'' f'' ef'' <ef''c'''> af'' g'' f'' |}
rgt.18 = { <d''f''bf''>2. <bf'bf''>16 ef'' d'' ef'' |}
rgt.19 = { <ef''g''bf''>4. ef''8 d''8 d''16 bf''16~ 8. ef''16 |}
rgt.20 = { <c''ef''>8 c'' ef'' c''' <d''f''bf''>2 |}
rgt.21 = { <c''ef''af''>8. g''16 af''8 c'''8 <ef''g''bf''> ef''4 <g'ef''>8 |}
rgt.22 = { <f'af'!c''>8 c'' f'' ef'' <bf'd''>4 <bf'ef''>16 <d''f''> <ef''g''> <f''af''> |}
rgt.23 = { <ef''g''bf''>4. ef''8 <bf'd''>16 16 bf''8 8. ef''16 |}
rgt.24 = { <c''ef''>8 c'' ef'' c''' <d''f''bf''>4. <bf'ef''>8 |}
rgt.25 = { <c''ef''af''>8. 16 bf''8 c''' <ef''g''bf''> ef''4 c''8 |}
rgt.26 = { <c''f''af''>8. g''16~ 8 f''8 <bf'g''> f'' ef'' d'' |}
rgt.27 = { <<{g''16^>( bf' ef'' g''^>~ 16 bf' ef'' g'' d''^> f' bf' f''^>~ 16 d''32 ef'' d''16 bf'}\\{ef''2 s2}>> |}
rgt.28 = { <<{g''16^> c'' ef'' g''~^> 16 c'' ef'' g'' f''^> d'' \tuplet 3/2{ ef''16 f'' g''} \ottava 1 \tuplet 3/2{ af''16 bf'' c'''} \tuplet 3/2{ d'''16 ef''' f'''}}\\{s1}>> |} 
rgt.29 = { <<{g'''16^> bf'' ef''' g'''^>~ 16 bf'' g''' bf'' d''' ef''' f''' bf'''~ 16 d'''32 ef''' d'''16 bf'' \ottava 0}\\{s1}>> |}
rgt.30 = { <<{af''8. g''16~ 8 f''~ 8) bf'8 ef'' bf''}\\{s1}>> |}
rgt.31 = { <ef''g''bf''>4. g''8 8 f'' ef'' d'' |}
rgt.32 = { <g'c''ef''~>2 ef''8 8 <bf'd''> ef'' |}
rgt.33 = { <ef'c''>4. c''8 <af'c''> ef'' f'' g'' |}
rgt.34 = { <bf'd''f''~>2 f''8 bf' ef'' bf'' |}
rgt.35 = { <ef''g''bf''>4. g''8 8 f'' ef'' d'' |}
rgt.36 = { <g'c''ef''>4. d''8 <a'c''>2 |}
rgt.37 = { <c''ef''af''>8 g'' f'' ef'' <ef''c'''> af'' g'' f'' |}
rgt.38 = { <d''f''bf''>2. <bf'bf''>16 ef'' d'' ef'' |}
rgt.39 = { <ef''g''bf''>4. ef''8 d''8 16 bf''16~8. ef''16 |}
rgt.40 = { <c''ef''>8 c'' ef'' c''' <d''f''bf''>2 |}
rgt.41 = { <c''ef''af''>8. g''16 af''8 c''' <ef''g''bf''> ef''4 <g'ef''>8 |}
rgt.42 = { <f'af'!c''>8 c'' f''( ef'') <bf'd''>4 <bf'ef''>16 <d''f''> <ef''g''> <f''af''> |}

right =  {
  \global
  \expandVar \rgt 1 42
  
}


left =   {
  \global
  %\expandVar \lft 1 28
}

leadSheetPart = <<
  %\new ChordNames \chordNames
  \new Dynamics { \dynamic }
  %\addlyrics { \verse }
>>

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

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

\score {
  <<
    \leadSheetPart
    \sopranoVoicePart
    \pianoPart
  >>
  \layout { }
  \midi { }
}