\version "2.17.6"
\language "english"
%%%%\include "include_numbrs.ly"
numbrUP = #(make-engraver (acknowledgers
 ((note-head-interface engraver grob source)
    (let* (
      (context (ly:translator-context engraver))
      (tonic-pitch (ly:context-property context 'tonic))
      (tonic-index (ly:pitch-notename tonic-pitch))
      (event (ly:grob-property grob 'cause))
      (grob-pitch (ly:event-property event 'pitch))
      (grob-index (ly:pitch-notename grob-pitch))
      (delta (modulo (- grob-index tonic-index) 7))
      (name (list-ref '("1" "2" "3" "4" "5" "6" "7") delta))
      (newgrob (ly:engraver-make-grob engraver 'TextScript event)))
    (if (string= name "Hb")  (set! name "B"))
   (set! (ly:grob-property newgrob 'text) name)
   (set! (ly:grob-property newgrob 'direction) UP) ))))

numbrDOWN = #(make-engraver (acknowledgers
 ((note-head-interface engraver grob source)
    (let* (
      (context (ly:translator-context engraver))
      (tonic-pitch (ly:context-property context 'tonic))
      (tonic-index (ly:pitch-notename tonic-pitch))
      (event (ly:grob-property grob 'cause))
      (grob-pitch (ly:event-property event 'pitch))
      (grob-index (ly:pitch-notename grob-pitch))
      (delta (modulo (- grob-index tonic-index) 7))
      (name (list-ref '("1" "2" "3" "4" "5" "6" "7") delta))
      (newgrob (ly:engraver-make-grob engraver 'TextScript event)))
    (if (string= name "Hb")  (set! name "B"))
   (set! (ly:grob-property newgrob 'text) name)
   (set! (ly:grob-property newgrob 'direction) DOWN) ))))
\header {
  title = "Let There Be Light"
  subtitle = "必 得 見 光"
  meter = "Gently"
}

global = {
  \key ef \major
  \numericTimeSignature
  \time 3/4
  \tempo 4=86
}
 

sopranoVoice = \relative c' {
  \global
 

  %{29-31%} f8 ef4~ ef8 r8 f16 g16 | af8 g16 f8. ef8 f8 d8 |  ef4 r8    ef8 g8  bf8 |\break

}

verseSopranoVoice = \lyricmode {
  From the be -- gin -- ing, the Fa -- ther  had a mag -- nif -- i -- cent

  
}
chineseLyrics = \lyricmode {
  救  贖  計  劃  精  心  編  定  聖  經  啟  示  早  言
  
}
altoVoice = \relative c' {
  \global
 

  %{29-31%} f8 ef4~ ef8 r8 f16 g16 | af8 g16 f8. ef8 f8 d8 |  ef4 r8      bf8 ef8  g8 |\break

}

verseAltoVoice = \lyricmode {
}

tenorVoice = \relative c' {
  \global \clef bass
 

%{29-31%} f,8 ef4~ ef8 r8 f16 g16 | af8 g16 f8. ef8 f8 d8 | ef4 r8 g8 bf8 ef8 |\break

  
}

verseTenorVoice = \lyricmode {
}

bassVoice = \relative c {
  \global
  \dynamicUp

%{29-31%} f8 ef4~ ef8 r8 f16 g16 | af8 g16 f8. ef8 f8 d8 | ef4 r8         ef8 ef8 ef8 |\break

}

verseBassVoice = \lyricmode { 
}

right = \relative c' {
  \global

  %{29%} <bf ef>4~ q16 g16 <bf ef>8 g8 bf8 | <af c ef>4~ q16 f16 <<{ef'8 f8 d8}\\{<f, bf>4.}>> | <g bf ef>8 q8 q8 q8_> r4 |\break

}

left = \relative c {
  \global

    %{29%} g8. g8. g4. | f8. f8. bf8 bf8 bf8 | ef,8 ef8 ef8 ef8_> r4 |
    
}





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

nup=\with { \consists #numbrUP }
ndown=\with { \consists #numbrDOWN }

% {%%%%%%%%%%%%%%%%               SA-TB+piano
choirPart = \new ChoirStaff <<
  \new Staff \with {
       instrumentName = \markup \center-column { "S." "A." }
    shortInstrumentName = \markup \center-column { "S." "A." }
  } << \clef treble  
    \new Voice =  "soprano"  \nup  {\voiceOne \sopranoVoice } 
    \new Voice =  "alto" \with{ \ndown } {\voiceTwo \altoVoice  } 
    \new Lyrics \lyricsto "soprano" { \verseSopranoVoice  }
    \new Lyrics \lyricsto "soprano" {\chineseLyrics}
  >>
  
       
  \new Staff \with { 
       instrumentName = \markup \center-column { "T." "B." }
    shortInstrumentName = \markup \center-column { "T." "B." }
  } <<
    \clef bass  
    \new Voice = "tenor" \nup    {    \voiceOne \tenorVoice }
    \new Voice = "bass"  \ndown     { \voiceTwo \bassVoice }
  >>
>>


\score {
  <<
    \choirPart
    \pianoPart
  >>
  \layout {}       
  
}