\version "2.16.2" 
\language "english"
\include "include_lyndon-specific.ly"
ti="This is the Day"  %title
  st = "Psalm "   %subtitle
  sst = ""
  sy=0   \include "include_paper-header-footer-filename-footnote.ly" 
\header {}
#(set-global-staff-size 18.0)   %default 25
global = {
  \key a \major
  \numericTimeSignature
  \time 2/2
   \tempo "Brightly " 2=60 
}

soprano =  \relative c' { 
  \global
  \override Score.BarNumber #'stencil     = #(make-stencil-circler 0.1 0.25 ly:text-interface::print)
  r1 r1 r1 r1 |\bk
  cs2\mf e4. a8 | d,1 | r4 cs4 e4 a8 a8 | b4. cs8 e,2 |\bk		% 05-08
  r2 \times 2/3{ e4 a4 b4 } | d2. cs8 a8 | b4. fs8 fs2 | r1 |\bk 	% 09-12
  cs2\mf e4. a8 | d,1 | r4 cs4 e4 a8 a8 | \times 2/3{ d4 cs4 b4~ } b4. r8 |\bk 	% 13-16
  r2 \times 2/3{ a4^\< d4 e4^\! } | fs2.^\f e8 d8 | e4.^- a,8 a2~^\> | a4^\! fs4^\mf b4 b4 | \bk 	% 17-20
  %\transpose e d 
  \key e\major b1 | r1  |     %\time 3/2 r2 r2 r2|\bk		% 21-23
  %r1 r2 | \time 2/2 r1 |\bk 	% 24-25
  %r1  | \time 3/4 r2. |\bk 	% 26-28
  %\time 3/2 gs4. fs \time 3/2 gs4 b4 a2 | \time 2/2 gs4. fs8 gs4 b4 | \time 3/2 ds4. e8 cs2 b4 a4 |\bk		% 29-31
  \label #'lastPage 
}

alto =  \relative c' {
  \global
  s1 s1 s1 s1		% 01-04
  s1 s1 s1 s1		% 05-08
  s1 s1 s1 s1		% 09-12
  cs2 e4. a8 | d,1 | r4 cs4 e4 a8 a8 | \times 2/3{ g!4 g4 g4~ } g4. r8 |		% 13-16
  r2 \times 2/3  {a4 fs4 a4}  | fs2( gs?4) gs8 gs8 | gs4._- e8 e2~ | e4 e4 e4 ds4 |	% 17-20 
  \key e\major e1 | r1 |	% 21-22
}

tenor =  \relative c { 
  \global
  r1 r1 r1 r1 |		% 01-04
  r1 r1 r1 r1 |		% 05-08
  r1 r1 r1 r1 |		% 09-12
  cs2 e4. a8 | d,1 | r4 cs4 e4 a8 a8 | \times 2/3{ b4 cs4 d4~ } d4. r8 | 	% 13-16
  r2 \times 2/3{ d4 d4 d4 } | d2. d8 d8 | cs4.^- cs8 cs2~ | cs4 cs4 gs4 a4 |		% 17-20
  %\transpose e d
  \key e\major   gs1 | r2 r4 fs4 |     %\time 3/2 gs4. fs8 gs4 b4 a2 |	% 21- 23  
  %e4. ds8 e4 gs4 b2 | \time 2/2 e,4. ds8 e4 gs4 |\bk	% 24-25
  %\times 2/3{ ds'4 cs4 b4 } cs2 | a4. gs8 a4 cs4 | \times 3/4 a2 r4 | 		% 26-28
}

bass =  \relative c {
  \global
  s1 s1 s1 s1 	% 01-04
  s1 s1 s1 s1 	% 05-08
  s1 s1 s1 s1 	% 09-12
  cs2 e4. a8 | d,1 | r4 cs4 e4 a8 a8 | \times 2/3 {a4 a4 a4~} a4. r8 | 		% 13-16
  r2 \times 2/3 {fs4_\< a4 fs4_\!} | a2_\f( b4) b8 b8 | b4._- cs8 cs2_\>~ | cs4_\! a4_\mf fs4 fs4 |	% 17-20
  \key e\major e1 | r2 r4 fs4 | 	% 21-22
}

verse = \lyricmode { 
  This is the day. the day which the Lord hath made 
  we will re -- joice and be glad in it.
  This is the day, the day which the  Lord hath made;
  we will re -- joice and be glad in it. this is the 
  day 
  
  Praise him sun and moon; praise him, all ye stars and light,  let them
  praise the Name of the Lord; For
  he shall give his an -- gels charge o -- ver thee;
}
verseTenor = \lyricmode {
 % O praise the Lord of heav'n
 % praise  him in the height. Praise him, all ye
 % an -- gels of his; praise him, all his host.
}

%{
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 60 2)
       \set Staff.midiMinimumVolume = #0.8
       \set Staff.midiMaximumVolume = #1.0
       \set Staff.midiInstrument = $midiInstrument
     }
     \new Lyrics \with {
       alignBelowContext = $name
     } \lyricsto $name $lyrics
   >> #})

%}   
rightOrgan =  \relative c' { 
  \global
   cs8^\markup " ch. (8' + 2')"_\mf e8 a4~ a8 b,8 cs8 e8 | cs8 d8 a'4~ a8 cs,8 d8 a'8 | b,8 cs8 e4~ e8 b8 cs8 e8 | d8 cs8 a2 d4 |\bk 	% 01-04		 
   cs8 e8 a4~ a8 b,8 cs8 e8 | cs8 d8 a'4~ a8 cs,8 d8 a'8 | b,8 cs8 e4~ e8 b8 cs8 e8 | d8 e8 b'4~ b8 b,8 e8 b'8 |	% 05-08
   b,8 cs8 e4~ e8 b8 cs8 e8 | d8 a'8 d4 e,8 a8 e'4 | fs,8 b8 fs'4~ fs8 fs,8 a8 b8 | fs8 gs8 b4~ b8 fs8 gs8 b8 | 		% 09-12
   cs,8 e8 a4~ a8 cs,8 e8 a8 | cs,8 d8 a'4~ a8 d8 cs8 a8 | e2~ e8 cs8 e8 a8 | b4. d,8 g8 a8 b8 d8 | 	% 13-16
   a2~ a8 fs8 a8 d8 | fs8 d8 a8 fs8 gs8 b8 d8 fs8 | e8 b8 gs8 e8 cs8 e8 gs8 a8 | cs,8 e8 fs8 a8 b,8 e8 fs8 b8 \bar"||" 		% 17-20
   \key e\major gs8 b8 e4~ e8 gs,8 b8 e8 | a,8 gs8e4~ e8 r8 <fs ds>4 |	% 21-22  
}

leftOrgan =  \relative c { 
  \global
  e2_~ <a e>2 | fs2_~ <a fs>2 | e2_~ <a e>2 | fs4. e8 fs2 |	% 01-04
  e2_~ <a e>2 | fs2_~ <a fs>2 | e2_~ <a e>2 | fs2 gs4~ <gs e_~>4 |		% 05-08
  <a e>1 | <<{ a2.~ <cs a>4_( | b1) }\\{ fs2 e2 | <a ds,>2 fs2~ | fs2 gs2 }>> |	% 09-12
  <<{ cs1~ | cs2 a2( | b8) cs8~ cs2. }\\{ a2 gs2 | fs1 | <a e~>2 <gs e>2 }>> <b g>2~ <d b g>2 | 	% 13-16
  << {
          \voiceTwo
          \tieNeutral
          < a fs' >1~
          < a d fs>2
      }
      \\
      {
            \voiceFour
            \tieUp
            \once \override NoteColumn #'force-hshift = #1.2
                  e'4 d2.~
          \tweak NoteColumn #'ignore-collision ##t
          \tweak #'X-extent #'(-0.1 . 0)
          \tweak #'transparent ##t
          \tweak Stem #'stencil ##f
          d2
      }
    >>
    <b d>    
  <<{  <e cs>1^~ | <e_~ cs>2 <e b_~>4 <ds b>4 }\\{  b2 a2 | a1 }>> \bar"||"	% 17-20
  \key e\major <<{ e'2 ds2 | cs2. b4 | }\\{ <b gs>1 | <a e~>2 e4~ e4 |}>>	% 21-22
  
}

pedal =  \relative c { 
  \global
  a1~ | a1 ~ | a1~ | a1 | 	% 01-04
  a1~ | a1 | a1~ | a1 |		% 05-08
  a'2 gs2 | fs2 e2 | ds1 |  d!2.  r4 |	% 09-12
  a1~ | a1 | a1~ | a1 |		% 13-16
  d2 cs2 | b1 | cs1 | fs2 b,2 | 	% 17-20
  \key e\major e1~ |e2. r4 |	% 21-22
}




choirPart = \new ChoirStaff <<
  \new Staff \with {
    midiInstrument = "choir aahs"
    instrumentName = \markup \center-column { "S." "A." }
    shortInstrumentName = \markup \center-column { "S." "A." }
  } <<
    \new Voice = "soprano" \nup { \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 { "T." "B." }
    shortInstrumentName = \markup \center-column { "T." "B." }
  } <<
    \clef bass
    \new Voice = "tenor" { \voiceOne \tenor }
    \new Voice = "bass" { \voiceTwo \bass }
  >>
  \new Lyrics \with {
    %\override VerticalAxisGroup #'staff-affinity = #CENTER
  } \lyricsto "tenor" \verseTenor
>>

organPart = <<
  \new PianoStaff \with {
    instrumentName = "Org."
    shortInstrumentName = "Org."
  } <<
    \new Staff = "right" \with {
      midiInstrument = "church organ"
    } \rightOrgan
    \new Staff = "left" \with {
      midiInstrument = "church organ"
    } { \clef bass \leftOrgan }
  >>
  \new Staff = "pedal" \with {
    midiInstrument = "church organ"
    instrumentName =  "Ped." 
    shortInstrumentName =  "Ped. " 
  } { \clef bass \pedal }
>> 



\score { \transpose a g
  <<
    \choirPart
    \organPart
   
  >>
  \layout {
     \context {
        \RemoveEmptyStaffContext
         %\consists \Ez_numbers_engraver
         \override VerticalAxisGroup #'remove-first = ##t
     }
  }
  \midi {
    \context {
      \Score
      tempoWholesPerMinute = #(ly:make-moment 60 2)
    }
  }
}

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

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

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

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