\version "2.19.3"
\language "english"

 
 
global = {
  \key d \major
  \numericTimeSignature
  \time 3/4
  \partial 4.
  \tempo "Tenderly, very freely" 4=66
}

choirDynamic = {
  s4.     s2.     s2.     s2. %m00-03 
  <>^\markup "S.A.Unison"
  s4. s8^\p s4     s2.     s2.     s2. %m04-07

}

 

soprano =   {
  \global
  r4. r2. r2. r2. %m00-03
  
  r4 r8 d'8  fs'8 a'8 | a'4. d'8 fs'8 e'8 | d'4 r8 d'8 fs'8 a'8 | b'4. b'8 a'8 fs'8 |%m04-07
   
}

alto =   {
  \global
  r4. r2. r2. r2. %m00-03
  r4 r8 d'8 fs'8 a'8 | a'4. d'8 fs'8 e'8 | d'4 r8 d'8 fs'8 a'8 | b'4. b'8 a'8 fs'8 |%m04-07
  
}

tenor =   {
  \global
  r4. r2. r2. r2. %m00-03
  \repeat unfold 4 {r2.} %m04-11
   
}

bass =   {
  \global
  r4. r2. r2. r2. %m00-03
  \repeat unfold 4 {r2.} %m04-07
   
}

 


 

right =   {
  \global
  d''8 fs''8 a''8 | a''4. d''8 fs''8 e''8 | %m00-01
  <<{d''4. cs''16 d''16 a'8 g'8}\\{s2 <d'b>4}>> | %m02
  <a' d'>8 d'8 <fs' d' b>4 <e' cs'>4 |\break %m03
  <d' a fs>4 <d'' a' d'>4 fs'8 a'8 | %m04
  <a' fs'>4. d'8 <fs' b>8 <e' cs'>8 |%m05
  <<{<d' a>4. d'8(fs'8) a'8}\\{g4 fs4 d'4}>> |%m06
  <<{<b' d'>8 <cs'' e'>8 <d'' fs'>4 a'8 fs'8}\\{s2 <d' b>4}>> |\break %m07 
 
}

pianoDynamic = {
  s4.\p      \repeat unfold 4 {s2.} %m00-05
  s4\< s4 s8 s8\!     s4\mf s4\> s8 s8\!  %06-07 
}

left =   {
  \global
  r8 r4 | <a'fs'd'cs'>4 q4 <a'g'd'b>4 |%m00-01
  <<{s2 d8 e8}\\{<fs'd'cs'a>4 q4 g,4}>> |%m02
  <<{fs4 g4 a4}\\{a,2.}>> |%m03
  <<{r8 a,8 fs4 a4}\\{d,2.}>> |%m04
  <<{r8 a,8 fs4 <d g,>8 <e a,>8}\\{d,2 s4}>> |%m05
  <<{r8 a,8 d4 a4}\\{d,2 d8 cs8}>> |%m06
  <<{r8 fs8 b4 <d g,>4}\\{b,2 s4}>> |%m07
  
}

choirPart = <<
  
  \new ChoirStaff <<
    \new Dynamics = "choirDyn" \choirDynamic 
    \new Staff \with {
      
    } <<
      \new Voice = "soprano" { \voiceOne \soprano }
      \new Voice = "alto" { \voiceTwo \alto }
    >>
    
    
    
    
    \new Staff \with {
       
    } <<
      \clef bass
      \new Voice = "tenor"   { \voiceOne   \tenor }
      \new Voice = "bass"   { \voiceTwo   \bass }
    >>
     
  >>
>>
  
pianoPart = \new PianoStaff \with {
   
} <<
  \new Staff = "right" \with {
 
  } \right
  
  \new Dynamics = "pianoD" \pianoDynamic
   
  \new Staff = "left" \with {
    
  } { \clef bass \left }
>>
 
\score {
  <<
    \choirPart
    \pianoPart
  >>
  \layout { 
  \context {
       \Dynamics \RemoveEmptyStaves
    }
  }
  
}

\markup"Just both dynamics"
\markup"............choirDynamic"
\new Dynamics = "choirDyn" \choirDynamic
\markup"............pianoDynamic"
\new Dynamics = "pianoD" \pianoDynamic