\version "2.19.49"
\language "english"
%tested: \version "2.17.97"
\version "2.18.2"

% lilypond 2.14.x:
% Allmost copied from .../scm/translation-functions.scm:
% --> added »-approx« to the function names of
%     »format-metronome-markup« and »metronome-markup«
% --> replaced "=" with "≈" (approx. instead of equal)
%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% START of my personal include file 'tempo-approx.ly'
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

#(define-public (format-metronome-markup-approx event context)
  (let ((eq-sym-def (ly:context-property context 'tempoEquationText))             ; added option
        (hide-paren (eq? #t (ly:context-property context 'tempoHideParenthesis))) ; added option
        (num-color (ly:context-property context 'tempoNumberColor #f))            ; added option
        (hide-note (ly:context-property context 'tempoHideNote #f))
	(text (ly:event-property event 'text))
	(dur (ly:event-property event 'tempo-unit))
	(count (ly:event-property event 'metronome-count)))
    (metronome-markup-approx text dur count hide-note eq-sym-def hide-paren num-color)))

#(define-public (metronome-markup-approx text dur count hide-note eq-sym-def hide-paren col)
  (let* ((note-mark (if (and (not hide-note) (ly:duration? dur))
			(make-smaller-markup
			 (make-note-by-number-markup (ly:duration-log dur)
						     (ly:duration-dot-count dur)
						     1))
			#f))
	 (count-markup (cond ((number? count)
			      (if (> count 0)
				  (make-simple-markup (number->string count))
				  #f))
			     ((pair? count)
			      (make-concat-markup
			       (list
				(make-simple-markup (number->string (car count)))
				(make-simple-markup (ly:wide-char->utf-8 #x2009))
				(make-simple-markup (ly:wide-char->utf-8 #x2013))
				(make-simple-markup (ly:wide-char->utf-8 #x2009))
				(make-simple-markup (number->string (cdr count))))))
			     (else #f)))
         (note-markup (if (and (not hide-note) count-markup)
			  (make-concat-markup
			   (list
			    (make-general-align-markup Y DOWN note-mark)
			    (make-simple-markup " ")
			    (make-simple-markup (if (string? eq-sym-def)
                                                 eq-sym-def
                                                 (ly:wide-char->utf-8 #x2248)))
			    (make-simple-markup " ")
			    (if (eq? col #f)
                             count-markup
                             (make-with-color-markup col count-markup))))
			  #f))
         (text-markup (if (not (null? text))
			  (make-bold-markup text)
			  #f)))
    (if text-markup
	(if (and note-markup (not hide-note))
	    (make-line-markup (list text-markup
                                   (if hide-paren
                                    note-markup
				    (make-concat-markup
				     (list (make-simple-markup "(")
					   note-markup
					   (make-simple-markup ")"))))))
	    (make-line-markup (list text-markup)))
	(if note-markup
	    (make-line-markup (list note-markup))
	    (make-null-markup)))))



% Make this new formatter the default:
\layout {
  \context {
    \Score
    metronomeMarkFormatter = #format-metronome-markup-approx
  }
}

#(define (define-translator-property symbol type? description)
  (if (not (and (symbol? symbol)
	(procedure? type?)
	(string? description)))
      (ly:error "error in call of define-translator-property"))
  (if (not (equal? (object-property symbol 'translation-doc) #f))
      (ly:error (_ "symbol ~S redefined") symbol))

  (set-object-property! symbol 'translation-type? type?)
  (set-object-property! symbol 'translation-doc description)
  symbol)

#(for-each
  (lambda (x)
    (apply define-translator-property x))
    `((tempoHideParenthesis
       ,boolean?
       "Hide the parenthesis around the metronome markup with text")
      (tempoEquationText
       ,string?
       "initially ''='' in the metronome markup, but here the default is altered to ''≈''")
      (tempoNumberColor
       ,list?
       "alternate color, in which the tempo value should be displayed")))

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% END of my personal include file 'tempo-approx.ly'
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\header {
  title = "Glory to the Newborn King"
  subtitle = "榮耀歸於新生王"
  composer = "Lloyd Larson"
  poet = "Lloyd Larson"
}

\paper {
  #(set-paper-size "letter")
}

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

global = {
  \key f \major
  \numericTimeSignature
  \time 6/8
  \set Score.tempoEquationText = "= ca."
  \tempo "Joyously, steady" 4=88
}
expandVar =
#(define-music-function (xx start stop) (list? index? index?)
   #{ #@(map (lambda (i) #{ $xx . #i #}) (iota (- stop start -1) start)) #})

descant = {
  \global
  
}
⒮.1 = { R2. |}
⒮.2 = \⒮.1
⒮.3 = \⒮.1
⒮.4 = \⒮.1
⒮.5 = { c''4 f'8 g'4.~ |\break }
⒮.6 = { g'8 f' g' bf'4 g'8 |}
⒮.7 = { d''4 c''8~4.~ |}                        ⒜.7 = { g'4 f'8~ 4.~ |}
⒮.8 = { c''4. r4 bf'8 |}                        ⒜.8 = { f'4. r4 bf'8 |}
⒮.9 = { c''4 f'8 g'4.~ |\break }
⒮.10 = { g'8 f' g' bf'4 g'8 |}
⒮.11 = { d''4 c''8~ 4.~ |}                      ⒜.11 = { g'4 f'8~ 4.~ |}
⒮.12 = { c''4. r4. |}                           ⒜.12 = { f'4. r4. |}
⒮.13 = { ef''4 af'8 bf'4.~ |\break }             ⒜.13 = { ef'4 af'8 bf'4.~ |}
⒮.14 = { bf'8 af' bf' df''4 bf'8 |}
⒮.15 = { f''4 ef''8~ 4.~ |}                      ⒜.15 = { bf'4 af'8~ 4.~ |}
⒮.16 = { ef''4. r4. |}                           ⒜.16 = { af'4. r4.|}
⒮.17 = { r4. c''8. f''8. |\break }               ⒜.17 = { r4. f'!8. <f'c''>8. |}
⒮.18 = { f''4. c'' |}                            ⒜.18 = { <f'bf'>4. f' |}
⒮.19 = { df''2. |}                               ⒜.19 = { <f'bf'>2. |}
⒮.20 = { r4. f''4. |}                            ⒜.20 = { r4. <g'bf'>4. |}
⒮.21 = { f''2.~ |}                               ⒜.21 = { <f'c''>2.~ |}
⒮.22 = { f''2. |\break }                         ⒜.22 = { <f'c''>2. |}
⒮.23 = \⒮.1
⒮.24 = \⒮.1
⒮.25 = \⒮.1
⒮.26 = { \⒮.1 \break }	
⒮.27 = \⒮.1
⒮.28 = { r4. r4 c''8 |}
⒮.29 = { c''4 a'8 bf'4 c''8 |}
⒮.30 = { a'8 g' f' g'4 e'8 |\break }
⒮.31 = { f'4 8 g'( a') bf' |}
⒮.32 = { a'4 g'8 f'4 r8 |}
⒮.33 = { g'4. 4 f'8 |}                        ⒜.33 = { e'4. 4 d'8 |}
⒮.34 = { g'8 a' bf' c'' bf' a' |\break }      ⒜.34 = { e'8 f' g' a' g' f' |}
⒮.35 = { g'4. r4. |}                           ⒜.35 = { e'4. r4. |}
⒮.36 = { \time 9/8 c''4. d''4. c''4. |}       ⒜.36 = { \time 9/8 f'4. 4. 4. |}
⒮.37 = { \time 6/8 bf'4 a'8 g' f' g' |}       ⒜.37 = { \time 6/8 g'4 f'8 8 8 e'8 |}
⒮.38 = { f'2.~ |\break }
⒮.39 = { f'2. |}
⒮.40 = \⒮.1
⒮.41 = { r4. r4 c''8 |}
⒮.42 = { c''4 a'8 bf'4 c''8 |}
⒮.43 = { a'8 g' f' g'4 e'8 |\break }
⒮.44 = { f'4 8 g'( a') bf' |}
⒮.45 = { a'4 g'8 f' r8 c''8 |}
⒮.46 = { c''4 a'8 bf'4 c''8 |}
⒮.47 = { a'8 g' f' g'4 e'8 |\break }
⒮.48 = { f'4 8 g'( a') bf' |}
⒮.49 = { a'4 g'8 f'4 r8 |}
⒮.50 = { c'4. f' |}
⒮.51 = { f'4.~ 4 e'8 |\break }
⒮.52 = { f'4. a' |}
⒮.53 = { a'4.( g') |}
⒮.54 = { c''4. g' |}
⒮.55 = { g'4. e' |\break }
⒮.56 = { e'4. d' |}
⒮.57 = { c'4. r4. |}
⒮.58 = { c''4. 4. |}                          ⒜.58 = { c'4. 4. |}
⒮.59 = { c''4. f' |}                          ⒜.59 = { c'4. f' |}
⒮.60 = { bf'4. a' |\break }                   ⒜.60 = { d'4. e' |}
⒮.61 = { a'4.( g'4) r8 |}                     ⒜.61 = { f'4.( g'4) r8 |}
⒮.62 = { c''4. 4. |}                           ⒜.62 = { c'4. 4. |}
⒮.63 = { c''4. f' |}                          ⒜.63 = { c'4. f' |}
⒮.64 = { bf'4. a' |}                          ⒜.64 = { d'4. e' |}
⒮.65 = { a'4.( g'4) r8 |\break }              ⒜.65 = { f'4.( g'4) r8 |}
⒮.66 = { d''4. 4. |}                           ⒜.66 = { f'4. 4. |}
⒮.67 = { d''4. c'' |}                          ⒜.67 = { f'4. 4. |}
⒮.68 = { bf'4. a' |}                           ⒜.68 = { d'4. fs' |}
⒮.69 = { bf'4. r4. |}                          ⒜.69 = {g'4. r4. |}
⒮.70 = { g'4. a'8.( bf') |\break }            ⒜.70 = { e'4. f' |}
⒮.71 = { c''4.~ 8. f' |}                       ⒜.71 = { f'4.~ 8. c' |}
⒮.72 = { f'4. g' |}                            ⒜.72 = { d'4. e' |}
⒮.73 = { a'4. r4. |}                           ⒜.73 = { f'4. r4. |}
⒮.74 = { d''4.~ 8. 8. |}                       ⒜.74 = { f'4.~ 8. 8. |}
⒮.75 = { d''4. c'' |\break }                   ⒜.75 = { f'4. 4. |}
⒮.76 = { bf'4. a' |}                           ⒜.76 = { d'4. fs' |}
⒮.77 = { bf'4. r4. |}                          ⒜.77 = { g'4. r4. |}
⒮.78 = { g'4. a'8.( bf') |}                    ⒜.78 = { e'4. f' |}
⒮.79 = { c''4.~ 8. f' |}                       ⒜.79 = { f'4.~ 8. c' |}
⒮.80 = { f'4. g' |\break }                     ⒜.80 = { d'4. e' |}
⒮.81 = { f'2.~ |}
⒮.82 = { f'2. |}
⒮.83 = \⒮.1
⒮.84 = { \⒮.1 \bar"||"\break }
⒮.85 = { \key g\major \⒮.1 }
⒮.86 = \⒮.1
⒮.87 = { \time 4/4 R1 |}
⒮.88 = { R1 |\break }
⒮.89 = { d''4 g'4 4. a'8 |}
⒮.90 = { b'4 d''4 4( c'') |}
⒮.91 = { r4 g'8 d''8 4. c''8 |\break }
⒮.92 = { b'4 c'' d'' r4 |}
⒮.93 = { d''4 g'4 4. a'8 |}
⒮.94 = { b'4 d'' e''2 |\break }
⒮.95 = { r4 d''8 a' d''( e'') fs''4 |}
⒮.96 = { fs''4 e'' d'' r4 |}
⒮.97 = { r4 g'8 a' b'4 d'' |\break }
⒮.98 = { e''4 d''4 2 |}
⒮.99 = { r4 g'8 a' b'4 d'' |}
⒮.100 = { e''4 d''4 4. r8 |\break }
⒮.101 = { r4 c''8 d'' e''4 d'' |}
⒮.102 = { c''4 d'' e''2 |}
⒮.103 = { d''4. c''8 b'4 d'' |\break }
⒮.104 = { c''4 a' b' r4 |}
⒮.105 = { r4 c''8 d'' e''4 d'' |}
⒮.106 = { c''4 d'' e''2 |\break }
⒮.107 = { d''4. c''8 b'4 d'' |}
⒮.108 = { g''2 g''4( fs''4) |}
⒮.109 = { \time 3/4 g''2.~ |}
⒮.110 = { g''4 r4 s4 |\break }
soprano =   {
  \global
  \expandVar \⒮ 1 110
  
}

alto =   {
  \global
  \expandVar \⒮ 1 6
  \expandVar \⒜ 7 8
  \⒮.9 \⒮.10 
  \expandVar \⒜ 11 13
  \⒮.14
  \expandVar \⒜ 15 22
  \expandVar \⒮ 23 32
  \expandVar \⒜ 33 37
  \expandVar \⒮ 38 57
  \expandVar \⒜ 58 80
  \expandVar \⒮ 81 110
}

⒯.1 = { R2. |}
⒯.2 = \⒯.1
⒯.3 = \⒯.1
⒯.4 = \⒯.1
⒯.5 = { c'4 f8 g4.~ |}
⒯.6 = { g8 f g bf4 g8 |}
⒯.7 = { d'4 c'8~ 4.~ |}                   ⒝.7 = { g4 f8~ 4.~ |}
⒯.8 = { c'4. r4 bf8 |}                    ⒝.8 = { f4. r4 bf8 |}
⒯.9 = { c'4 f8 g4.~ |}
⒯.10 = { g8 f g bf4 g8 |}
⒯.11 = { d'4 c'8~ 4.~ |}                  ⒝.11 = { g4 f8~ 4.~ |}
⒯.12 = { c'4. r4. |}                      ⒝.12 = { f4. r4. |}
⒯.13 = { ef'4 af8 bf4.~ |}                ⒝.13 = { ef4 af8 bf4.~ |}
⒯.14 = { bf8 af bf df'4 bf8 |}
⒯.15 = { f'4 ef'8~ 4.~ |}                 ⒝.15 = { bf4 af8~ 4.~ |}
⒯.16 = { ef'4. r4. |}                     ⒝.16 = { af4. r4. |}
⒯.17 = { r4. c'8. e'!8. |}                ⒝.17 = { r4. c8. c'8. |}
⒯.18 = { d'4. c'4. |}                     ⒝.18 = { bf'4. a4. |}
⒯.19 = { bf2. |}                          ⒝.19 = { g2. |}
⒯.20 = { r4. df'4. |}                     ⒝.20 = { r4. g4. |}
⒯.21 = { <c'e'>2.~ |}                     ⒝.21 = { f2.~ |}
⒯.22 = { <c'e'>2. |}                      ⒝.22 = { f2. |}
⒯.23 = \⒯.1
⒯.24 = { r4. r4 c'8 |}
⒯.25 = { c'4 a8 bf4 c'8 |}
⒯.26 = { a8 g8 f8 g4 e8 |}
⒯.27 = { f4 8 g8( a8) bf8 |}
⒯.28 = { a4 g8 f4 r8 |}
⒯.29 = \⒯.1
⒯.30 = \⒯.1
⒯.31 = \⒯.1
⒯.32 = \⒯.1
⒯.33 = { c'4. 4 bf8 |}                      ⒝.33 = { c4. 4 g,8 |}
⒯.34 = { c'8 8 8 a bf c' |}                 ⒝.34 = { c8 8 8 4 8 |}
⒯.35 = { c'4. r4. |}                        ⒝.35 = { c4. r4. |}
⒯.36 = { \time 9/8 c'4. bf a |}             ⒝.36 = { \time 9/8 a,4. bf, c |}
⒯.37 = { \time 6/8 g4 bf8 c'8 8 bf8 |}      ⒝.37 = { \time 6/8 g,4 8 c8 8 8 |}
⒯.38 = { c'2.~ |}                           ⒝.38 = { f2.~ |}
⒯.39 = { c'2. |}                            ⒝.39 = { f2. |}
⒯.40 = \⒯.1
⒯.41 = \⒯.1
⒯.42 = { c4. f4. |}
⒯.43 = { f4.~ 4 e8 |}
⒯.44 = { f4. a4. |}
⒯.45 = { a4.( g4.) |}
⒯.46 = { c'4. 4. |}
⒯.47 = { c'4. bf |}
⒯.48 = { a4. g |}
⒯.49 = { a4. r4 c'8 |}
⒯.50 = { c'4 a8 bf4 c'8 |}
⒯.51 = { a8 g f g4 e8 |}
⒯.52 = { f4 8 g( a) bf |}
⒯.53 = { a4 g8 f4 r8 |}
⒯.54 = { g4. 4 f8 |}
⒯.55 = { g8( a) bf c' bf a |}
⒯.56 = { g2.~ |}
⒯.57 = { g4. r4. |}
⒯.58 = { c'4. 4. |}                         ⒝.58 = { c4. 4. |}
⒯.59 = { c'4. f |}                          ⒝.59 = { c4. f |}
⒯.60 = { bf4. c' |}                         ⒝.60 = { g4. a |}
⒯.61 = { d'4.( e') |}                       ⒝.61 = { bf4.( c') |}
⒯.62 = { c'4. 4. |}                         ⒝.62 = { c4. 4. |}
⒯.63 = { c'4. f |}                          ⒝.63 = { c4. f |}
⒯.64 = { bf4. c' |}                         ⒝.64 = { g4. a |}
⒯.65 = { d'4.( e'4) r8 |}                   ⒝.65 = { bf4.( c'4) r8 |}
⒯.66 = { d'4. bf |}                         ⒝.66 = { bf4. bf, |}
⒯.67 = { bf4. a |}                          ⒝.67 = { bf,4. c |}
⒯.68 = { g4. a |}                           ⒝.68 = { d4. 4. |}
⒯.69 = { d'4. r4. |}                        ⒝.69 = { g,4. r4. |}
⒯.70 = { c'4. 8.( g8.) |}                   ⒝.70 = { c4. 4. |}
⒯.71 = { a4.~ 8. 8. |}                      ⒝.71 = { c4.~ 8. 8. |}
⒯.72 = { bf4. c' |}                         ⒝.72 = { c4. 4. |}
⒯.73 = { c'4. r4. |}                        ⒝.73 = { f4. r4. |}
⒯.74 = { d'4.~ 8. bf |}                     ⒝.74 = { bf4.~ 8. bf, |}
⒯.75 = { bf4. a |}                          ⒝.75 = { bf,4. c |}
⒯.76 = { g4. a |}                           ⒝.76 = { e4. 4. |}
⒯.77 = { d'4. r4. |}                        ⒝.77 = { g,4. r4. |}
⒯.78 = { c'4. 8.( g) |}                     ⒝.78 = { c4. 4. |}
⒯.79 = { a4.~ 8. 8. |}                      ⒝.79 = { c4.~ 8. 8. |}
⒯.80 = { bf4. c' |}                         ⒝.80 = { c4. 4. |}
⒯.81 = { c'2.~ |}                           ⒝.81 = { f2.~ |}
⒯.82 = { c'2. |}                            ⒝.82 = { f2. |}
⒯.83 = \⒯.1
⒯.84 = \⒯.1
⒯.85 = { \key g\major \⒯.1 |}
⒯.86 = \⒯.1
⒯.87 = { \time 4/4 R1 |}
⒯.88 = { R1 |}
⒯.89 = { \clef treble d'4 g'4 4. fs'8 |}
⒯.90 = { g'4 b' b'( a') |}
⒯.91 = { d''4 4 4. c''8 |}                  ⒝.91 = { d'4 4 4. e'8 |}
⒯.92 = { b'4 a' b' r4 |}                    ⒝.92 = { g'4 a' b' r4 |} 
⒯.93 = { d'4 g'4 4. fs'8 |}
⒯.94 = { g'4 b'4 4( a') |}
⒯.95 = { d''4 a'4 4. fs'8 |}                ⒝.95 = { d'4 e' fs'4. 8 |}
⒯.96 = { fs'4 e' d' r4 |}
⒯.97 = { d''4 4 4 g' |}                     ⒝.97 = { d'4 4 4 g' |}
⒯.98 = { c''4 b'4 4( a') |}
⒯.99 = { d''4 4 4 g' |}                     ⒝.99 = { d'4 4 4 g' |}
⒯.100 = { c''4 b'4 4( a') |}
⒯.101 = { e''4 4 4 d'' |}                   ⒝.101 = { e'4 4 4 gs' |}
⒯.102 = { c''4 b' c''2 |}                   ⒝.102 = { a'4 b' c''2 |}
⒯.103 = { a'4 b'8( c'') d''4. g'8 |}
⒯.104 = { g'4 a' b' r4 |}
⒯.105 = { e''4 4 4 d'' |}                   ⒝.105 = { e'4 4 4 g' |}
⒯.106 = { c''4 b' c''2 |}                   ⒝.106 = { a'4 b' c''2 |}
⒯.107 = { a'4 b'8( c'') d''4. g'8 |}
⒯.108 = { g'2 a' |}
⒯.109 = { \time 3/4 g'2.~ |}
⒯.110 = { g'4 r4 s4 |}
tenor =   {
  \global
  \expandVar \⒯ 1 110
  
}

bass =   {
  \global
  \expandVar \⒯ 1 6
  \expandVar \⒝ 7 8
  \expandVar \⒯ 9 10
  \expandVar \⒝ 11 13
  \expandVar \⒯ 14 14
  \expandVar \⒝ 15 22
  \expandVar \⒯ 23 32
  \expandVar \⒝ 33 39
  \expandVar \⒯ 40 57
  \expandVar \⒝ 58 82
  \expandVar \⒯ 83 90
  \expandVar \⒝ 91 92
  \expandVar \⒯ 93 94
  \expandVar \⒝ 95 95
  \expandVar \⒯ 96 96
  \expandVar \⒝ 97 97
  \expandVar \⒯ 98 98
  \expandVar \⒝ 99 99
  \expandVar \⒯ 100 100
  \expandVar \⒝ 101 102
  \expandVar \⒯ 103 104
  \expandVar \⒝ 105 106
  \expandVar \⒯ 107 110
}

verse = \lyricmode {
 Glo -- ri -- a --
 in ex -- cel -- sis De -- o! Sing glo -- ri -- a --
 in ex -- cel -- sis De -- o! Glo -- ri -- a --
 in ex -- cel -- sis De -- o! Glo -- ry  
 be to God on high!  
高 歌 頌 讚 因 基 督 降 生 天
使 宣 告 美 好 佳 音 佳 音 因 彌 賽 亞 今 日 誕
生 佳 音 因 救 贖 君 王 誕 生
高 歌 頌 讚 因 基 督 誕 生 天
 
使 宣 告 美 好 佳 音 高 歌 頌 讚 因 基 督 誕 生 天
使 宣 告 美 好 佳 音 神 人 融 洽
長 歡 欣 地 上 平 安
人 蒙 恩 興 起 世 間 大 小
邦 齊 與 諸 天 共 頌 揚 
天 地 唱 和 喜 不 勝 基 督
生 於 伯 利 恆 聽 啊 天 使
高 聲 唱 榮 耀 歸 與 新 生
王
歡 迎 天 降 和 平 王 歡 迎 輝 煌
公 義 光 祂 賜 世 人 生 命 糧 
祂 消 痛 苦 治 創 傷 謙 卑 放 下
天 榮 尊 降 世 救 人 免 沉 淪 
要 使 罪 人 得 重 生 蒙 恩 常 與
主 相 親 聽 啊 天 使 高 聲 唱 
榮 耀 歸 於 新 生 王 
}
verse⒯ = \lyricmode {
  \repeat unfold 35 {\skip1}
 高 歌 頌 讚 因 基 督 降 生 天 
 使 宣 告 美 好 佳 音
 \repeat unfold 19 {\skip1}
 聽 啊 天 使 高 聲 唱 
榮 耀 歸 於 新 生 王 光 輝 亮 照 黑 暗 已 除 盡 天
使 高 聲 歌 唱 頌 揚 榮 耀 歸 真 神 平 安 歸 人
}
DPatPickUp = \drummode { hc4 }
fourFour = \drummode { bd4 crashcymbal4 sn4 hc4  }
sixEight = \drummode  {  \repeat unfold 2{crashcymbal8 sn8 sn8} }
threeFour = \drummode { bd4 crashcymbal4 hihat4 }
nineEight = \drummode {  \repeat unfold 3{crashcymbal8 sn8 hc8} }
drum = \new DrumVoice { \omit Stem 
  \global                    
  \repeat unfold 35 {\sixEight} %m01-35
  \nineEight   %36
  \repeat unfold 50 {\sixEight} %m37-86
  \repeat unfold 22 {\fourFour} %87-108
  \repeat unfold 2  {\threeFour} % 109-110
}

drumPart = {
\new DrumStaff  \with { 
  fontSize = #-4
  \override StaffSymbol.staff-space = #(magstep -4) } 
{
  \set Staff.instrumentName = #"Drums"
  \set Staff.shortInstrumentName = "drm."
  <<
    \drum
  >>
}
}


pR.1 = { <<{c''8 f'' c'' d'' c'' bf'}\\{f'4. 4.}>> |}
pR.2 = { <<{c''8 f' c'' bf' a' g'}\\{}>> |}
pR.3 = { <<{c''8 f'' c'' d'' c'' bf'}\\{f'4. 4.}>> |}
pR.4 = { <<{c''8 f' c'' <f'bf'>4.}\\{}>> |}
pR.5 = { <<{c''8 f'' c'' d'' c'' bf'}\\{f'4. 4.}>> |}
pR.6 = { <<{c''8 f' c'' bf' a' g'}\\{}>> |}
pR.7 = { <<{c''8 f'' c'' d'' c'' bf'}\\{f'4. 4.}>> |}
pR.8 = { <<{c''8 f' c'' <f'bf'>4.}\\{}>> |}
pR.9 = { <<{c''8 f'' c'' d'' c'' bf'}\\{f'4. 4.}>> |}
pR.10 = { <<{c''8 f' c'' bf' a' g'}\\{}>> |}
pR.11 = { <<{c''8 f'' c'' d'' c'' bf'}\\{f'4. 4.}>> |}
pR.12 = { <<{c''8 f' c'' <f'bf'>4.}\\{}>> |}
pR.13 = { <<{ef''8 af'' ef'' f'' ef'' df''}\\{af'4. 4.}>> |}
pR.14 = { <<{}\\{ef''8 af' ef'' df'' c'' bf'}>> |}
pR.15 = \pR.13
pR.16 = \pR.14
pR.17 = { <<{<f'a'!c''>4. c''8 f'' c''}\\{s4. f'4.}>> |}
pR.18 = { <<{s4. <f'c''>4.}\\{<f'bf'f''>4. s4.}>> |}
pR.19 = { <<{<f'bf'df''> f'8 bf' df''}\\{}>> |}
pR.20 = { <<{}\\{<g'bf'f''>4. r4.}>> |}
pR.21 = \pR.11
pR.22 = \pR.12
pR.23 = \pR.11
pR.24 = \pR.12
pR.25 = \pR.11
pR.26 = \pR.12
pR.27 = \pR.11
pR.28 = \pR.12
pR.29 = { <<{a8 f a <g bf>4.}\\{}>> |}
pR.30 = { <<{<a c'>8 f c' d'4 e'8}\\{s4. <g bf>4.}>> |}
pR.31 = { <<{f'8 c' f' <bf d' g'>4.}\\{a4. s4.}>> |}
pR.32 = { <<{<f'a'>8 c' <bf d'g'> <a c'f'>4.}\\{}>> |}
pR.33 = { <<{<e'g'>8 c' d' <c'e'> g' <d'f'>}\\{}>> |}
pR.34 = { <<{<e'g'>8 <f'a'> <g'bf'> <a'c''> <g'bf'> <f'a'>}\\{}>> |}
pR.35 = { <<{<e'g'>4. \tuplet 7/6{c'16 d' e' f' g' a' bf'}}\\{}>> |}
pR.36 = { \time 9/8 <<{c''8 f'' c'' <f'bf'd''>4. <f'c''>4. }\\{f'4. s4. s4.}>> |}
pR.37 = { \time 6/8 <<{<g'bf'>4 <f'a'>8 <g'c''>4.}\\{d'4. f'4 e'8}>> |}
pR.38 = \pR.11
pR.39 = \pR.12
pR.40 = \pR.11
pR.41 = \pR.12
pR.42 = { <<{f'8 e' f' <bf f'>4.}\\{a4. s4.}>> |}
pR.43 = { <<{f'8 g' a' g' f' e'}\\{bf2.}>> |}
pR.44 = { <<{f'8 e' f' <c'g'>4.}\\{c'4. s4.}>> |}
pR.45 = { <<{a'4 g'8 f' g' a'}\\{d'2.}>> |}
pR.46 = { <<{c''8 f'' c'' d''4 c''8}\\{f'4. 4.}>> |}
pR.47 = { <<{c''8 bf' a' <d'g'>4 <e'c''>8}\\{e'4. s4.}>> |}
pR.48 = { <<{<f'c''>8 f' c'' bf' a' g'}\\{s4. d'4.}>> |}
pR.49 = { <<{a'4 g'8 <d'f'>4.}\\{c'4. s4.}>> |}
pR.50 = { <<{f'8 e' f' <bf f'>4.}\\{a4. s4.}>> |}
pR.51 = { <<{f'8 g' a' g' f' e'}\\{bf2.}>> |}
pR.52 = { <<{f'8 e' f' <c'g'>4.}\\{c'4. s4.}>> |}
pR.53 = { <<{a'4. g'}\\{d'2.}>> |}
pR.54 = { <<{g'8 c'' b' <f'c''>4.}\\{e'4. s4.}>> |}
pR.55 = { <<{c''4. 8 bf' a'}\\{g'8 a' bf'! e'4.}>> |}
pR.56 = { <<{g'8 c'' g' f' e' d'}\\{c'4. b4.}>> |}
pR.57 = { <<{<c'e'>4. c'8 e' g'}\\{}>> |}
pR.58 = { <<{c''8 f'' e'' f'' c'' a'}\\{f'4. 4.}>> |}
pR.59 = { <<{d''8 c'' bf' <f'c''>4.}\\{f'4. s4.}>> |}
pR.60 = { <<{bf'8 a' bf' <f'c''>4.}\\{f'4. s4.}>> |}
pR.61 = { <<{<f'a'd''>4. <g'c''>}\\{}>> |}
pR.62 = { <<{c''8 f'' e'' f'' c'' a'}\\{f'4. 4.}>> |}
pR.63 = { <<{d''8 c'' bf' <f'c''>4.}\\{f'4. s4.}>> |}
pR.64 = { <<{d''8 c'' d'' s4.}\\{f'4. <g'e''>}>> |}
pR.65 = { <<{s2.}\\{<a'd''f''>4. <c''g''>}>> |}
pR.66 = { <<{s4. s4 <f'c''>8}\\{<d''f''>8 <c''e''> <bf'd''>8 4 s8}>> |}
pR.67 = { <<{<d'bf'>4. <f'c''>}\\{}>> |}
pR.68 = { <<{bf'8 a' g' fs' d' a'}\\{d'4. s4.}>> |}
pR.69 = { <<{<d'bf'>4. bf8 c' d'}\\{}>> |}
pR.70 = { <<{<c'e'>8 c' e' f'8. g'}\\{s4. c'4.}>> |}
pR.71 = { <<{<f'a'>8 f' a' <f'c''>4.}\\{}>> |}
pR.72 = { <<{c''8 bf' a' <e'g'>4.}\\{<d'f'>4. s4.}>> |}
pR.73 = { <<{a'8 f' g' a' c'' f''}\\{c'4. f'}>> |}
pR.74 = { <<{s4. <bf'd''>8. <f'c''>}\\{<d''f''>8 <c''e''> <bf'd''> s4.}>> |}
pR.75 = { <<{<d'bf'>4. <f'c''>}\\{}>> |}
pR.76 = { <<{bf'8 a' g' fs' d' a'}\\{d'4. s4.}>> |}
pR.77 = { <<{<d'bf'>4. bf8 c' d'}\\{}>> |}
pR.78 = { <<{<c'e'>8 c' e' f'8. g'}\\{s4. c'4}>> |}
pR.79 = { <<{<f'a'>8 f' a' <f'c''>4.}\\{}>> |}
pR.80 = { <<{c''8 bf' a' <e'g'>4.}\\{<d'f'>4. s4.}>> |}
pR.81 = { <<{c''8 f'' c'' d'' c'' bf'}\\{f'4. 4.}>> |}
pR.82 = { <<{c''8 f' c'' bf' a' g'}\\{}>> |}
pR.83 = \pR.11
pR.84 = \pR.12
pR.85 = { \key g\major <<{d''8 g'' d'' e'' d'' c''}\\{<g'b'>4. g'}>> |}
pR.86 = { <<{}\\{d''8 g' d'' c'' b' a'}>> |}
pR.87 = { \time 4/4 <<{c''4. b'16 c'' d''4. c''16 d''}\\{<g'a'>2 <a'b'>2}>> |}
pR.88 = { <<{e''4. d''16 e'' s2}\\{<a'c''>2 <a'c''g''>4 <a'd''a''>}>> |}
pR.89 = { <<{s4 g'4 <e'g'd''>16 c'' b' a' g'8 <fs'a'>}\\{<g'd''g''>4 s2.}>> |}
pR.90 = { <<{d''2 b'4 a'}\\{g'8 d' g' a' e'2}>> |}
pR.91 = { <<{s4 g'8 a'16 b' a'4 b'8 c'' }\\{\stemUp g'8 d'~ \stemDown d'4 <e'g'>2}>> |}
pR.92 = { <<{<fs'g'b'>4 4 4 d''8 c''}\\{s2. <e'g'>4}>> |}
pR.93 = { <<{s4 g'4 <e'g'd''>16 c'' b' a' g'8 <fs'a'>}\\{<g'd''>4 s2.}>> |}
pR.94 = { <<{d''2 b'4 a'}\\{g'8 d' g' a' e'2}>> |}
pR.95 = { <<{s4 g'8 fs'16 g' a'4 d'8 cs'}\\{\stemUp fs'8 d'~ \stemDown d'2 a4}>> |}
pR.96 = { <<{d'8 fs' <cs'e'>4 <fs a d'>4 \tuplet 7/4{d'16 e' fs' g' a' b' c''}}\\{b4 s2.}>> |}
pR.97 = { <<{s2. <d'g'b'>4}\\{<g'b'd''>4 2 s4}>> |}
pR.98 = { <<{<e'a'c''>4 <e'g'b'>2 <d'fs'a'>4}\\{}>> |}
pR.99 = { <<{s2. <d'g'b'>4}\\{<g'b'd''>4 2 s4}>> |}
pR.100 = { <<{<e'a'c''>4 <g'b'>2 <d'fs'a'>4}\\{}>> |}
pR.101 = { <<{<e'g'c''>4 e'16 c' e' g' <g'c''>4 <e'gs'b'>}\\{}>> |}
pR.102 = { <<{<c'e'a'>4 <e'gs'> <c'e'a'>2}\\{}>> |}
pR.103 = { <<{d'4 8 e'16 fs' g'!8 d' g'4}\\{a2 b}>> |}
pR.104 = { <<{g'8 a'16 b' a'8 d'' <d'g'b'>4 g'16 b' d'' g''}\\{c'4 <d'fs'> s2}>> |}
pR.105 = { <<{s2. <e'g'd''>4}\\{<g'c''e''>4 \tuplet 3/2{g'8 c'' e''} <g'c''g''>4 s4}>> |}
pR.106 = { <<{c''4 b' c''8 b' a' g'}\\{e'2 2}>> |}
pR.107 = { <<{a'4 b'8 c'' d''2}\\{d'2 <g'b'>4 d'8 g'}>> |}
pR.108 = { <<{g'4 b' <d'g'a'> <fs'a'd''>}\\{<c'd'>2 s2}>> |}
pR.109 = { \time 3/4 <<{s2 d'8 g'16 a'}\\{<b'd''g''>4 <g'b'd''> s4}>> |}
pR.110 = { <<{b'4 a' g'8 d''}\\{d'2 4}>> |}
right =   {
  \global
  \expandVar \pR 1 110
}
Lh.1 = { <<{f4. <g bf d'>}\\{f,2.~}>> |}
Lh.2 = { <<{<a c'e'>4. <g bf d'>}\\{f,2.}>> |}
Lh.3 = \Lh.1
Lh.4 = { <<{<a c'e'>4. <g bf d'>}\\{f,4.~ 4 c8}>> |}
Lh.5 = { <<{f4. <g bf d'>}\\{f,2.~}>> |}
Lh.6 = { <<{<a c'e'>4. <g bf d'>}\\{f,2.}>> |}
Lh.7 = { <<{f4. <g bf d'>}\\{f,2.~}>> |}
Lh.8 = { <<{<a c'e'>4. <g bf d'>}\\{f,4.~ 4 c8}>> |}
Lh.9 = \Lh.7
Lh.10 = \Lh.6
Lh.11 = \Lh.7
Lh.12 = \Lh.8
Lh.13 = { <<{ef4. <bf df'f'>}\\{ef,2.~}>> |}
Lh.14 = { <<{<c'ef'g'>4. <bf df'f'>}\\{ef,4.~ 4 af,8}>> |}
Lh.15 = { <<{ef4. <bf df'f'>}\\{ef,2.~}>> |}
Lh.16 = { <<{<c'ef'g'>4. <bf df'f'>}\\{ef,4.~ 4 df,8}>> |}
Lh.17 = { <<{c4. <c'e'!>}\\{c,2.~}>> |}
Lh.18 = { <<{<bf d'>4. <a c'>}\\{c,2.}>> |}
Lh.19 = { <<{<g bf df'>2.}\\{r4. <c,c>4.~}>> |}
Lh.20 = { <<{<g df'f'>4. r4.}\\{<c,c>4. r4.}>> |}
Lh.21 = { <<{f4. <g bf d'!>}\\{f,2.~}>> |}
Lh.22 = { <<{<a c'e'>4. <g bf d'>}\\{f,4.~ 4 c8}>> |}
Lh.23 = { <<{f4. <g bf d'>}\\{f,2.~}>> |}
Lh.24 = { <<{<a c'e'>4. <g bf d'>}\\{f,4.~ 4 c8}>> |}
Lh.25 = \Lh.23
Lh.26 = \Lh.24
Lh.27 = \Lh.23
Lh.28 = \Lh.24
Lh.29 = { <<{c4. d4 c8}\\{f,2.}>> |}
Lh.30 = { <<{c4. d}\\{f,2.}>> |}
Lh.31 = { <<{c4. d4 c8}\\{f,2.}>> |}
Lh.32 = { <<{c4 d8 c4.}\\{f,2.}>> |}
Lh.33 = { <<{c4. <c g>4 <g bf>8}\\{c,2.~}>> |}
Lh.34 = { <<{<c c'>4. 4.}\\{c,2.~}>> |}
Lh.35 = { <<{<c c'>4. s4.}\\{c,4. <bf,g>}>> |}
Lh.36 = { \time 9/8 <<{<a,f>4. s4. s4.}\\{s4. <bf,bf>4. <c a>}>> |}
Lh.37 = { \time 6/8 <<{<g,g>4. g4 bf8}\\{s4. c}>> |}
Lh.38 = { <<{f4. <g bf d'>}\\{f,2.~}>> |}
Lh.39 = { <<{<a c'e'>4. <g bf d'>}\\{f,4.~ 4 c8}>> |}
Lh.40 = \Lh.23
Lh.41 = \Lh.24
Lh.42 = { <<{<f,c>2.}\\{}>> |}
Lh.43 = { <<{<g,d>2.}\\{}>> |}
Lh.44 = { <<{<a,f>2.}\\{}>> |}
Lh.45 = { <<{f4. g}\\{bf,2.}>> |}
Lh.46 = { <<{a4. <g bf>}\\{c2.}>> |}
Lh.47 = { <<{a4. bf}\\{c2.}>> |}
Lh.48 = { <<{a4. g}\\{c2.}>> |}
Lh.49 = { <<{f8 g a bf4.}\\{c4.~ 4 c,8}>> |}
Lh.50 = { <<{<f,c>2.}\\{}>> |}
Lh.51 = { <<{<g,d>2.}\\{}>> |}
Lh.52 = { <<{<a,f>2.}\\{}>> |}
Lh.53 = { <<{f4 g8 f g a}\\{b,2.}>> |}
Lh.54 = { <<{s4. g4 a8}\\{<c g>4. d}>> |}
Lh.55 = { <<{c'4. g}\\{e2.}>> |}
Lh.56 = { <<{e4. d}\\{g,2.}>> |}
Lh.57 = { <<{s4. <c,c>4.}\\{<c a>4. s4.}>> |}
Lh.58 = { <<{c4. <a c' e'>}\\{c,2.~}>> |}
Lh.59 = { <<{<g bf d'>4. <a c'e'>}\\{c,2.~}>> |}
Lh.60 = \Lh.59
Lh.61 = { <<{<bf d'>4. <c'e'>}\\{c,2.}>> |}
Lh.62 = \Lh.58
Lh.63 = \Lh.59
Lh.64 = \Lh.60
Lh.65 = { <<{<bf d'f'>4. <c'e'g'>}\\{c,2.}>> |}
Lh.66 = { <<{bf4. f}\\{bf,2.}>> |}
Lh.67 = { <<{bf8 a bf a g a}\\{bf,4. c}>> |}
Lh.68 = { <<{s4. <d,d>4.}\\{<d g>4. s4.}>> |}
Lh.69 = { <<{g4. f}\\{g,2.}>> |}
Lh.70 = { <<{c4. <c a>8.~ <c bf>}\\{c,2.~}>> |}
Lh.71 = { <<{<c c'>4.~ <c a>}\\{c,2.}>> |}
Lh.72 = { <<{c4. <c c'>}\\{c,2.}>> |}
Lh.73 = { <<{f4. <f c'>}\\{f,2.}>> |}
Lh.74 = { <<{bf4. f}\\{bf,2.}>> |}
Lh.75 = { <<{bf8 a bf a g a}\\{bf,4. c}>> |}
Lh.76 = { <<{s4. <d,d>}\\{<d g>4. s4.}>> |}
Lh.77 = { <<{g4. f}\\{g,2.}>> |}
Lh.78 = { <<{c4. <c a>8.~ <c bf>}\\{c,2.~}>> |}
Lh.79 = { <<{<c c'>4.~ <c a>}\\{c,2.}>> |}
Lh.80 = { <<{c4. <c c'>}\\{c,2.}>> |}
Lh.81 = { <<{f4. <g bf d'>}\\{f,2.~}>> |}
Lh.82 = { <<{<a c'e'>4. <g bf d'>}\\{f,2.}>> |}
Lh.83 = \Lh.81
Lh.84 = { <<{<a c'e'>4. <g bf d'>}\\{f,4.~ 8 ef,8}>> |}
Lh.85 = { \key g\major <<{d4. <a c'e'>}\\{d,2.~}>> |}
Lh.86 = { <<{<b d'fs'>4. <a c'e'>}\\{d,2.}>> |}
Lh.87 = { \time 4/4 <<{<a c'e'>2 <b d'fs'>}\\{r4 d,2 4~}>> |}
Lh.88 = { <<{<c'e'g'>2 <g c'e'>4 <fs a d'>}\\{d,4 2.}>> |}
Lh.89 = { <<{}\\{<g,d g>2 <a,e c'>}>> |}
Lh.90 = { <<{g2~ 8 a}\\{b,2 c}>> |}
Lh.91 = { <<{b2 c'}\\{d1}>> |}
Lh.92 = { <<{d'4 c' d' s4}\\{d2. <d a c'>4}>> |}
Lh.93 = { <<{}\\{<g,d b>2 <a,e c'>}>> |}
Lh.94 = { <<{g2.~ 8 a}\\{b,2 cs}>> |}
Lh.95 = { <<{a2. <fs,d>4}\\{d4 e fs s4}>> |}
Lh.96 = { <<{<g,d>4 <a,e> <d,a,d>2}\\{}>> |}
Lh.97 = { <<{d8 g b a g fs e d}\\{d,1}>> |}
Lh.98 = { <<{d8 a c' b a g fs e}\\{d,1}>> |}
Lh.99 = { <<{d8 b d' c' b a g fs}\\{d,1}>> |}
Lh.100 = { <<{d8 a e' d' c' b a d}\\{d,1}>> |}
Lh.101 = { <<{c4 <c g> <e g c'> <e,e>}\\{c,2. s4}>> |}
Lh.102 = { <<{s2 a2}\\{<a,a>4 <e b> a, g,}>> |}
Lh.103 = { <<{<fs,d>2 <f,d>}\\{}>> |}
Lh.104 = { <<{<e,c>4 <d,d> g <g b d'>}\\{s2 g,2}>> |}
Lh.105 = { <<{<c'e'>2 4 <b c'>}\\{r4 <c,c>2.~}>> |}
Lh.106 = { <<{<a c'>2 <g a c'>}\\{<c,c>2. g,4}>> |}
Lh.107 = { <<{fs4 <fs a c'> f <f g b>}\\{fs,2 f,}>> |}
Lh.108 = { <<{e4 g d <d a>}\\{e,2 d,}>> |}
Lh.109 = { \time 3/4 <<{r8 d8 g a b4}\\{g,2.}>> |}
Lh.110 = { <<{r8 d8 g a b4}\\{g,2.}>> |}
left =   {
  \global
  \expandVar \Lh 1 110
}

choirPart = \new ChoirStaff <<
  \new Staff \with {
    midiInstrument = "choir aahs"
    instrumentName = \markup \center-column { "Soprano" "Alto" }
  } <<
    \new Voice = "soprano" { \voiceOne \soprano }
    \new Voice = "alto" { \voiceTwo \alto }
  >>
  \new Lyrics \with {
    \override VerticalAxisGroup #'staff-affinity = #CENTER
  } \lyricsto "soprano" \verse
  \new Staff \with {
    midiInstrument = "choir aahs"
    instrumentName = \markup \center-column { "Tenor" "Bass" }
  } <<
    \clef bass
    \new Voice = "tenor" { \voiceOne \tenor }
    \new Voice = "bass" { \voiceTwo \bass }
  >>
  \new Lyrics \with {
    \override VerticalAxisGroup #'staff-affinity = #CENTER
  } \lyricsto "tenor" \verse⒯
>>

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 {
  <<
    \choirPart
    \drumPart
    \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" { \soprano }
     \new Staff = "alto" \new Voice = "alto" { \alto }
     \new Staff = "tenor" \new Voice = "tenor" { \tenor }
     \new Staff = "bass" \new Voice = "bass" { \bass }
     \new Staff \drum
     \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 88 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 "soprano+piano"
  \score {
    \rehearsalMidi "soprano" "soprano sax" \verse
    \midi { }
  }
}

\book {
  \bookOutputSuffix "alto+piano"
  \score {
    \rehearsalMidi "alto" "soprano sax" \verse
    \midi { }
  }
}

\book {
  \bookOutputSuffix "tenor+piano"
  \score {
    \rehearsalMidi "tenor" "tenor sax" \verse
    \midi { }
  }
}

\book {
  \bookOutputSuffix "bass+piano"
  \score {
    \rehearsalMidi "bass" "tenor sax" \verse
    \midi { }
  }
}