\version "2.17.27"

\header {
  title = "title"	
}

ignoreMelisma =	\set ignoreMelismata = ##t
ignoreMelismaOff = \unset ignoreMelismata 
%%%%%%%%%%%%%%%%%%%%%\include "include_number-notehead.ly"
#(define Ez_numbers_engraver
  (list
    (cons 'acknowledgers
          (list
          (cons 'note-head-interface
                (lambda (engraver grob source-engraver)
                  (let* ((context (ly:translator-context engraver))
                          (tonic-pitch (ly:context-property context 'tonic))
                          (tonic-name (ly:pitch-notename tonic-pitch))
                          (grob-pitch
                          (ly:event-property (event-cause grob) 'pitch))
                          (grob-name (ly:pitch-notename grob-pitch))
                          (delta (modulo (- grob-name tonic-name) 7))
                          (note-names
                          (make-vector 7 (number->string (1+ delta)))))
                    (ly:grob-set-property! grob 'note-names
note-names))))))))
EzNum = {
	\easyHeadsOn
        \override Staff.StaffSymbol #'staff-space = #2.00
        \override Staff.StaffSymbol #'line-thickness = #1.00
        \override Staff.NoteHead #'font-size = #+2.50
        \override Staff.Clef #'font-size = #+2.00
        \override Staff.TimeSignature #'font-size = #+2.00
        \override Staff.Accidental #'font-size = #+2.00
        \override Voice.NoteHead #'font-size = #0
        }
%%%%%%%%%%%%%%%%%%%%%%%%%%
#(set-global-staff-size 20)
#(set-default-paper-size "letter")


\include "english.ly"
TimeKey = { \time 4/4  \key d \major  }    
SopMusic   = \relative c' { 
        \override Stem #'length-fraction = #(magstep -3.25)
        fs2 r4 b4 |						%bar 05-06
	a4 fs d e | 						%bar 15-16
	\label #'lastPage 
			  }
AltoMusic  = \relative c' {
        cs2 s4 d4 |						%bar 05-06
	d4 d d d | 							%bar 15-16
			  }
TenorMusic = \relative c  {
  	
  	\override Stem #'length-fraction = #(magstep -3.25)
	 as'2 r4 g4 |						%bar 05-06
	a4 a4 b4 b4 | 
                          }
BassMusic  = \relative c  {
 	\EzNum
 	\override Stem #'length-fraction = #(magstep -3.25)
	\override NoteHead #'color = #red
  \override Stem #'color = #red
  \override Beam #'color = #red
  \override Slur #'color = #red
  \override Tie #'color = #red
  \override Dots #'color = #red
  \override Rest #'color = #red
	fs2 s4 g4 |						%bar 05-06
	fs4 d4 b4 g4 | 
	             }
VerseOne   = \lyricmode { \set fontSize = #'4.0
主 在 聖  殿 中 
                        }

\score {
  \new GrandStaff = "GrandStaff_score" <<
    \new ChoirStaff <<
      \tempo 4 =  90
      \set Score.markFormatter = #format-mark-box-numbers
      \new Staff <<

        \clef "treble"
        \new Voice = "Sop"  { \voiceOne  \TimeKey \SopMusic  }
        \new Voice = "Alto" { \voiceTwo    \AltoMusic }
         \new Lyrics \lyricsto "Sop" { \VerseOne   }

      >>
      \new Staff <<
        \clef "bass"
        \new Voice = "Tenor" {  \stemUp \TimeKey \TenorMusic }
        \new Voice = "Bass"  {  \stemDown    \BassMusic  }
      >>
    >>

  >>

  \layout { indent = #'0
    \context {
    \RemoveEmptyStaffContext
    \override VerticalAxisGroup #'remove-first = ##t
     \consists \Ez_numbers_engraver
    }
  }
  
}