\version "2.16.0"

\include "english.ly"


\paper {
  ragged-right = ##f
}


keyClefTime = {
  \clef treble
  \key g \major
  \numericTimeSignature \time 4/4
}


hornA = \relative c'' {

  c2 c b b
  \bar "|."

} % hornA


hornB = \relative c' {

  e2 fs! fs! e
  \bar "|."

} % hornB


hornC = \relative c'' {

  g2 a g g
  \bar "|."

} % hornC


hornD = \relative c' {

  c2 d d d
  \bar "|."

} % hornD


\score {  % this is the combined score
  <<
    \new StaffGroup \with { instrumentName = #"4 Horns in F" } {
      <<
        \new Staff {
          \keyClefTime
	  <<
	    \new Voice { \voiceOne \hornA }
	    \new Voice { \voiceOne \hornB }
          >>
        } % Staff
        \new Staff {
          \keyClefTime
	  <<
	    \new Voice { \hornC }
	    \new Voice { \hornD }
          >>
        } % Staff
      >>
    } % StaffGroup
  >>
} % score


% these are the individual parts

\score {
  \new Staff \with { instrumentName = #"1st Horn" } {
    \keyClefTime
    \hornA
  } % staff
} % score

\score {
  \new Staff \with { instrumentName = #"2nd Horn" } {
    \keyClefTime
    \hornB
  } % staff
} % score

\score {
  \new Staff \with { instrumentName = #"3rd Horn" } {
    \keyClefTime
    \hornC
  } % staff
} % score

\score {
  \new Staff \with { instrumentName = #"4th Horn" } {
    \keyClefTime
    \hornD
  } % staff
} % score

% same thing, for a trombone choir:

keyClefTime = {
  \clef bass
  \key c \major
  \numericTimeSignature \time 4/4
}

tromA = \transpose c f, { \hornA }
tromB = \transpose c f, { \hornB }
tromC = \transpose c f, { \hornC }
tromD = \transpose c f, { \hornD }

\score {  % this is the combined score
  <<
    \new StaffGroup \with { instrumentName = #"4 Trombones" } {
      <<
        \new Staff {
          \keyClefTime
	  <<
	    \new Voice { \voiceTwo \tromA }
	    \new Voice { \voiceTwo \tromB }
          >>
        } % Staff
        \new Staff {
          \keyClefTime
	  <<
	    \new Voice { \tromC }
	    \new Voice { \tromD }
          >>
        } % Staff
      >>
    } % StaffGroup
  >>
} % score


% these are the individual parts

\score {
  \new Staff \with { instrumentName = #"1st Trom" } {
    \keyClefTime
    \clef tenor
    \tromA
  } % staff
} % score

\score {
  \new Staff \with { instrumentName = #"1st Trom" } {
    \keyClefTime
    \tromA
  } % staff
} % score

\score {
  \new Staff \with { instrumentName = #"2nd Trom" } {
    \keyClefTime
    \tromC
  } % staff
} % score

\score {
  \new Staff \with { instrumentName = #"3rd Trom" } {
    \keyClefTime
    \tromB
  } % staff
} % score

\score {
  \new Staff \with { instrumentName = #"4th Trom" } {
    \keyClefTime
    \tromD
  } % staff
} % score