\version "2.18.0"
\language "english"

\header {
  title = "Orbit"
  composer = "Tommy Montgomery"
  copyright = "(c) 2014 Tommy Montgomery"
}

normalStuff = {
  \key af \major
  \set Staff.printKeyCancellation = ##f
  \numericTimeSignature
  \override TupletBracket #'bracket-visibility = #'if-no-beam
  \set Score.connectArpeggios = ##t
  \time 4/4
  \tempo 4 = 144
}

oboe = \new Staff \with {
  instrumentName = "Oboe"
  midiInstrument = #"oboe"
} {
  \clef treble \relative c' {
    \normalStuff
    \repeat unfold 2 r1
    \repeat unfold 8 r1
    \repeat unfold 2 r1
    \repeat unfold 8 r1
    \repeat unfold 7 r1
    r4 ef\ff af c |
    
    df2 ef4. df8 | c2. af4 |
    df2 af4. af8  | bff4 df ef f |
    gf2 f4. ef8 | df2 af4 af |
    bff2 cf4. bff8 | bf?1 |
    r1 | r1 |
  }
}

horn = \new Staff \with {
  instrumentName = "Horn"
  midiInstrument = #"french horn"
} { 
  \clef treble \relative c' {
    \normalStuff
    
    \repeat unfold 2 r1
    \repeat unfold 8 r1
    r2 r8 a\ffff bf c | d2. ef8  d |
    c2 ~ c8  c  d  ef | f2.  g8 f  |
    f2.          f8 g | a2.  g8 fs |
    g2 ~ g8 f? ef   d | ef1        |
    
    af1 ~ | af4  ef af bf |
    
    cf2 df4. cf8 | bf2. ef,4 |
    cf'2 bf4. cf8 | df1 |
    gf2 af4. gf8 | f2. bf,4 |
    ef2 c4. df8 | ef1 |
    
    ff2 gf4. ff8 | ef2. af,4 |
    ff'2 ef4. ff8 | gf2 af2 |
    bff2 af4. gf8 | af2 df,4 ef |
    ff2 ef4. df8 | ef1 |
    
    r1 | r1 \bar "|." | 
  }
}

highStrings = \new Staff \with {
  instrumentName = "High Strings"
  midiInstrument = #"string ensemble 1"
} {
  \clef treble \relative c'' {
    \normalStuff
    
    r1 | r1 | 
    
    af2\pp ~ af8 ef  af bf | c4.  bf8 ~ bf4 af |
    bf2 ~ bf8 ef, g  af | bf4. af8 ~ af4 g  |
    af2 ~ af8 c,  f  g  | af4. g8  ~ g4  f  |
    g1                  | g4.  f8  ~ f4  e  |
    
    f2 ~  f8  f  g   a  | bf2. c8  bf |
    a2 ~  a8  a  bf  c  | d2.  ef8 d  |
    c2.          bf8 c  | d2.  ef8 d  |
    ef2 ~ ef8 d  c   bf | af2  g      |
    %d2 ~ d8 d c   bf | c2 g |
    
    af1 ~ | af1 ~ |
    
    <ef af> ~ | <ef g> ~ | <ef af> ~ | <df gf af>2 ~ <df f af> |
    <ef bf'>1 ~ | <df bf'> ~ | <df bf'> ~ | <df af'>2 ~ <c af'> ~ |
    
    <df af'>1 ~ | <ef af> ~ | <df af'> ~ | <df bff'>2 ~ <df af'> ~ |
    <df gf>1 ~ | <df f> ~ | <df ff> | ef |
    r1 | r1 |
    
    
  }
}

lowStrings = \new Staff \with {
  instrumentName = "Low Strings"
  midiInstrument = #"string ensemble 1"
} {
  \clef bass \relative c {
    \normalStuff
    
    \repeat unfold 4 { af8\ppp ef' af ef bf' ef, af ef }
    \repeat unfold 2 { g,8 ef' bf' ef, af ef bf' ef, }
    \repeat unfold 2 { f,8 c' f c g' c, f c  }
    \repeat unfold 2 { e,8 c' g' c, af' c, g' c, }
    f, c' g' c, a' c, g' c, |
    ef, bf' f' bf, g' bf, f' bf, |
    f c' g' c, a' c, g' c, |
    bf, f' bf f c' f, bf f |
    f c' g' c, a' c, g' c, |
    fs, d' a' d, g d a' d, |
    c, g' c g d' g, ef' g, |
    ef bf' ef bf f' bf, g' bf, |
    
    \repeat unfold 2 { af8 ef' af ef bf' ef, af ef }
    
    af,8 ef' af ef bf' ef, af ef |
    g,8 ef' bf' ef, af ef bf' ef, |
    af,8 ef' af ef bf' ef, af ef |
    df, af' df af ef' af, f' af, |
    
    ef bf' ef bf f' bf, ef bf |
    bf, f' bf f c' f, bf f |
    gf df' gf df af' df, gf df |
    af ef' af ef bf' ef, af ef |
    
    df, af' df af ef' af, df af |
    c, af' ef' af, f' af, gf' af, |
    df, af' df af ef' af, df af |
    gf df' gf gf, df af' df ef |
    
    gf, df' gf df af' df, gf df |
    f, df' f df af' df, f df |
    ff, df' ff df gf df ff df |
    ef, bf' ef bf f'? bf, g' bf, |
    
    af8 ef' af ef bf' ef, af ef |
    af,8 ef' af ef bf' ef, af ef |
  }
}

\score {
  <<
    \horn
    \oboe
    \highStrings
    \lowStrings
  >>
  \layout { 
    \context {
      \Staff \RemoveEmptyStaves
    }
  }
  \midi {}
}