\version "2.18"
\include "chord.ly"


nrS = { \once \override  NoteHead.color = #red }

SAmusic =   {  \override Score.BarNumber.break-visibility = #all-visible
  <c'     e' >4-> <d' f'>( <g' b'>) <c' e'>-.
  \nrS g'2   \nrS c'4 r4
  <d'' e'>4. <d'' g'>8 r8 <f'' f'>8 <e'' a'>8 r8  
  r1
  <<{d''4. d''8 f''8 e''8 r4}\\{  e'2.  a'8   }>>
}

\score {
  <<
    \new Staff \with {
      instrumentName = \markup \center-column { "S." "A." }
    }   \SAmusic 
  >>
}

\score {
    \new Staff \with {
      instrumentName = \markup \center-column { "Soprano" }
    }   %%   \extractNote #1  \SAmusic
             \extractPartUpper \SAmusic
}

\score {
    \new Staff \with {
      instrumentName = \markup \center-column { "Alto" }
    }  %% \extractNote #2  \SAmusic 
         \extractPartLower  \SAmusic
}