\version "2.18.2"
\language "english"

\header {
  title = "Piano Concerto No. 1"
  composer = "Tommy Montgomery"
  copyright = "(c) 2015 Tommy Montgomery"
}

scoreAGlobal = {
  \key b \minor
  \time 4/4
  \tempo "Allegro"
}

violin = \relative c'' {
  \scoreAGlobal

  \repeat unfold 4 r1

  <<
    { e8.\f( b16  b2) e4  | e8.( c16 c2) e4 | } \\
    { b8.  ( e,16 e2) b'4 | c8.( a16 a2) c4 | }
  >>

  <<
    { e8. ( b16  b4 ~ b8 a8) a8.(       b16) | e,1 | } \\
    { b'8.( e,16 e4 ~ e8 d8) d16( e fs8    ) | s1  | }
  >>

  g8\p d b' d, d' d, b' g | a e cs' e, e' e, cs' a |
  fs ds a' fs c' a ds c |
  e16 b a b g b fs b e, b' d, b' e,4 ~ |
  e2 r2 |
}

cello = \relative c {
  \scoreAGlobal

  \repeat unfold 4 r1

  <e, e'>1 ~ | q1 ~ | q1 ~ | q1 |
  g2 b | a cs | c <fs, ds'> | <e e'>2.\sfz <e' e'>8 <a, a'> |
  <g g'> <fs fs'> <e e'> <d d'> <e e'>2 |
}

flute = \relative c'' {
  \scoreAGlobal

  \repeat unfold 4 r1
  \repeat unfold 3 r1

  r2 r4 r8 e16\f( fs) |
  g4 b d4. fs,16( g) | a4 cs e4. a,16( b) |
  c4 ds fs2 |

  r2 r4 r16 e,16 fs g | a b c d e2. |


}

oboe = \relative c' {
  \scoreAGlobal

  \repeat unfold 4 r1
  \repeat unfold 3 r1
  r2 r4 r8 e16\f( fs) |
  d4 g b4. d,16( e) | e4 a cs4. e,16( g) |
  a4 c ds2 |
  r1 | r4 r16 e,16 fs g a b cs ds e4 |
}

clarinet = \relative c'' {
  \scoreAGlobal
  \transposition bf

  \repeat unfold 4 r1

}

trumpetBb = \relative c'' {
  \scoreAGlobal

  \repeat unfold 4 r1
  \repeat unfold 8 r1
  r4 r16 g a b c d e fs g4 |
}

hornF = \relative c' {
  \scoreAGlobal

  \repeat unfold 4 r1
  \repeat unfold 8 r1
  r4 r16 e fs g a b cs ds e4 |

}

right = \relative c'' {
  \scoreAGlobal


  \ottava 1
  e''16\f b g e fs b e, b e b g e fs b e, b |
  \ottava 0
  e b g e fs b e, b e
  \change Staff = "left"
  \override Stem #'direction = #UP
  b g e fs b e, b |

  \repeat unfold 8 { s16 g b e }
  \repeat unfold 4 { s16 g, b e }
  \repeat unfold 4 { s16 a, c e }
  \repeat unfold 8 { s16 g, b e }
  \repeat unfold 4 { s16 b d g }
  \repeat unfold 4 { s16 cs, e a }
  \repeat unfold 4 { s16 ds, fs c' }
  s1 | s1 |
}

left = \relative c {
  \scoreAGlobal

  r1 | s1 |
  \override Stem #'direction = #DOWN
  e,16\sfp s8.
  \repeat unfold 7 { e16 s8. }

   \repeat unfold 16 { e16 s8. }
   \repeat unfold 4 { g16 s8. }
   \repeat unfold 4 { a16 s8. }
   \repeat unfold 4 { a16 s8. }
   r1 | r1 |

}

violinPart = \new Staff \with {
  instrumentName = "Violin"
  midiInstrument = "violin"
} \violin

celloPart = \new Staff \with {
  instrumentName = "Cello"
  midiInstrument = "cello"
} { \clef bass \cello }

flutePart = \new Staff \with {
  instrumentName = "Flute"
  midiInstrument = "flute"
} \flute

oboePart = \new Staff \with {
  instrumentName = "Oboe"
  midiInstrument = "oboe"
} \oboe

clarinetPart = \new Staff \with {
  instrumentName = "Clarinet"
  midiInstrument = "clarinet"
} \clarinet

trumpetBbPart = \new Staff \with {
  instrumentName = "Trumpet"
  midiInstrument = "trumpet"
} \trumpetBb

hornFPart = \new Staff \with {
  instrumentName = "Fr. Horn"
  midiInstrument = "french horn"
} \hornF

pianoPart = \new PianoStaff \with {
  instrumentName = "Piano"
} <<
  \new Staff = "right" \with {
    midiInstrument = "acoustic grand"
  } \right
  \new Staff = "left" \with {
    midiInstrument = "acoustic grand"
  } { \clef bass \left }
>>

\score {
  <<
    \violinPart
    \celloPart
    \flutePart
    \oboePart
    \clarinetPart
    \trumpetBbPart
    \hornFPart
    \pianoPart
  >>
  \layout {
    \context {
      \Staff \RemoveEmptyStaves
    }
  }
  \midi {
    \tempo 4=96
  }
}