\version "2.12.3"

\include "english.ly"

\header {
  title= "Four-Part Vocal and Piano Test"
}

tenOne = \relative c' {
  a'4\mp f'4. e8 |
}

tenTwo = \relative c' {
  a'4\mp d4. d8 |
}

bassOne = \relative c {
  a'4\mp a4. g8 |
}

bassTwo = \relative c {
  a'4\mp d,4. d8 |
}

vocals = \new ChoirStaff = "voice" <<
  \set ChoirStaff.midiInstrument = #"choir aahs"
  \new Staff = "tenor" {
    \set Staff.instrumentName = "Tenor Ⅰ&Ⅱ"
    \set Staff.shortInstrumentName = "T."
    \clef treble
    \key c \major
    \time 3/4
    <<
      \new Voice = "tenorOne" {
        \voiceOne
        \dynamicUp
        \tenOne \bar "|."
      }
      \new Voice = "tenorTwo" \with {
        \remove "New_dynamic_engraver"
      }
      {
        \voiceTwo
        \tenTwo \bar "|."
      }
    >>
  }
  \new Staff = "bass" {
    \set Staff.instrumentName = "Bass Ⅰ&Ⅱ"
    \set Staff.shortInstrumentName = "B."
    \clef bass
    \key c \major
    \time 3/4
    <<
      \new Voice = "bassOne" {
        \voiceOne
        \dynamicUp
        \bassOne \bar "|."
      }
      \new Voice = "bassTwo" \with {
        \remove "New_dynamic_engraver"
      }
      {
        \voiceTwo
        \bassTwo \bar "|."
      }
    >>
  }
>>

pianoAcc = \new PianoStaff = "piano" <<
  \set PianoStaff.instrumentName = #"Piano"
  \set PianoStaff.shortInstrumentName = #"Pia."
  \set PianoStaff.midiInstrument = #"acoustic grand"
  \new Staff = "right hand" \with {
    printPartCombineTexts = ##f
  }
  {
    \clef treble
    \key c \major
    \time 3/4
    <<
      \partcombine
      {
        \tenOne \bar "|."
      }
      {
        \tenTwo \bar "|."
      }
     >>
  }
  \new Staff = "left hand" \with {
    printPartCombineTexts = ##f
    % \remove "Dynamic_engraver"
    % \remove "New_dynamic_engraver"
  }
  {
    \clef bass
    \key c \major
    \time 3/4
    <<
      \new Voice = "leftHand" \with {
        % \remove "Dynamic_engraver"
        % \remove "New_dynamic_engraver"
      }
      {
        \partcombine
        {
          \bassOne \bar "|."
        }
        {
          \bassTwo \bar "|."
        }
      }
     >>
  }
>>

\score {
  <<
    \vocals
    \pianoAcc
  >>
  \layout {}
}