music/broken-tranquility.ly

\version "2.14.2"
\language "english"

\header {
  title = "Broken Tranquility"
  composer = "Tommy Montgomery"
  copyright = "(c) 2011 Tommy Montgomery"
}

lhBrokenChord = {
  \relative c, {
    fs,8 cs' fs a cs fs a fs cs a fs cs | 
  }
}

sixBeamException = {
  \set Timing.beatStructure = #'(6 6)
}

\parallelMusic #'(right left) {
  
  \key fs \dorian
  \time 4/4
  \tempo "Moderately" 4 = 120
  \set Score.connectArpeggios = ##t
  
  \key fs \dorian <b e>4.    b8 e  fs gs e   |
  \key fs \dorian e,8  b' e4    a8 b4    cs8 |
  <fs a>4. <e gs> <ds fs>4 |
  a,8 e' a4  <cs,, cs'>8 <fs' a> ~ <fs a>4 |
  <es gs>2.\fermata ds8 es |
  cs8 gs' ds' b cs2\fermata |
  
  << { fs2.\arpeggio gs4 } \\ { <b, cs>2.\arpeggio <gs cs>4 } >> |
  << { r8 e,? gs a gs e r4 } \\ { <a,, a'>2. <a a'>8 <gs gs'> } >> |
  
  << { a'2 ~ a8 fs' gs a } \\ { <a,, ds>2 ~ <a ds>8 fs' gs a } >> |
  << { r8 cs' fs a ds a fs cs } \\ { <fs,, fs'>1 } >> |
  << { b'2. ds4 } \\ { <b, es>2. ds4 } >> |
  << { r8 b' ds es b' es, ds b } \\ { <es,, es'>1 } >> |
  << { cs'2 gs2\fermata } \\ { <cs, es>1 } >> |
  <cs cs'>8 <gs'' gs'> <ds' ds'> <b b'> <es cs'>2\fermata |
  
  \time 12/8
  \sixBeamException
  \set Score.tempoHideNote = ##t
  \tempo \markup {
    \concat {
      (
      \smaller \general-align #Y #DOWN \note #"4." #1
      " = "
      \smaller \general-align #Y #DOWN \note #"4" #1
      )
    }
  } 4. = 120

  r1. |
  \lhBrokenChord |
  r1. |
  \lhBrokenChord |
  r1. |
  \lhBrokenChord |
  r1. |
  \lhBrokenChord |
  
  % and it begins...
  
  <fs, cs' fs>2. ~ <fs cs' fs>4. ~ <fs cs' fs>4 <cs' fs cs'>8 |
  \lhBrokenChord |
  <cs fs cs'>4 <cs fs cs'>8 <ds ds'>4 <cs cs'>8 <cs fs cs'>2. |
  \lhBrokenChord |
  
  <bs fs' bs>2. ~ <bs fs' bs>4. <gs gs'> |
  gs,,8 ds' fs bs ds fs bs fs ds bs fs ds |
  <b? es b'?>1. |
  cs8 gs' cs es gs cs es cs gs es cs gs |
  <a es' a>1. |
  es8 a cs es a cs es cs a es cs a |
  <a a'>4 <gs gs'> <fs fs'> <es es'> <fs fs'> <gs gs'> |
  es8 gs cs es gs cs \parenthesize es cs gs es cs gs |
  
  <fs cs' fs>1. |
  \lhBrokenChord |
  r1. |
  fs,8 cs' fs a cs e? d cs b a gs fs |
  \time 6/8
  r2. |
  es8 d cs b a gs |
  
  \time 12/8
  \sixBeamException
  
  <fs cs' fs>2. ~ <fs cs' fs>4. ~ <fs cs' fs>4 <cs' fs cs'>8 |
  \lhBrokenChord |
  <cs fs cs'>4 <cs fs cs'>8 <ds ds'>4 <cs cs'>8 <cs fs cs'>2. |
  \lhBrokenChord |
  <b fs' b>2. <b fs' b>4 <a a'> <g g'> |
  g8 d' g b d g b g d b g d |
  <bf df bf'>2. <bf df bf'>4 <af af'> <g g'> |
  g,8 df' g bf df e g e df bf g df |
  <f af c f>1. |
  f,8 c' f g af c f c af g f c |
  <es gs cs es>1.\arpeggio |
  es,8 gs cs es gs cs es cs gs es cs gs |
  <fs a cs fs>1.\arpeggio |
  \lhBrokenChord |
  r1. |
  \lhBrokenChord |
  
  \set Timing.beatStructure = #'(3 3 3 3)
  
  r2. <a fs'>8( <gs e'> <fs ds'>) <fs ds'>( <gs e'> <fs ds'>) |
  <fs fs'>2. <fs fs'>8 <gs gs'> <gs gs'> <a a'> <b b'> <b b'> |
  
  << { <es cs'>2. s2. } \\ { s2. \grace { es,16[ gs cs es gs cs gs' cs] } gs'2. } >> |
  <cs cs'>2. ~ <cs cs'>4. <a a'>8 <gs gs'> <a a'> |
  
  r2. <cs,, a'>8( <b gs'> <a fs'>) <a fs'>( <b gs'> <a fs'>) |
  <fs fs'>2. <fs fs'>8 <gs gs'> <gs gs'> <a a'> <b b'> <b b'> |
  
  << { <gs es'>2. s2. } \\ { s2. \grace { es,16[ gs cs es gs cs gs' cs] } gs'2. } >> |
  <cs cs'>2. ~ <cs cs'>4. <b b'>8 <a a'> <b b'> |
  
  r2. <d, b'>8( <cs a'> <b gs'>) <b gs'>( <cs a'> <b gs'>) |
  <gs gs'>2. <gs gs'>8 <a a'> <b b'> <b b'> <cs cs'> <cs cs'> |
  
  << { <a fs'>2. s2. } \\ { s2. \grace { fs,16[ a d fs a d a' d] } a'2. } >> |
  <d d'>2. ~ <d d'>4. <d d'>8 <cs cs'> <d d'> |
  
  r2. <f, d'>8( <e cs'> <d b'>) <d b'>( <e cs'> <d b'>) |
  <b b'>2. <d d'>8 <e e'> <f f'> <gs gs'> <a a'> <gs gs'> |
  
  <cs a'>1. |
  <a a'>1. |
  
  \set Score.tempoHideNote = ##f
  \tempo "Faster" 4. = 160
  \sixBeamException
  
  fs,1. |
  cs8 fs a cs a fs cs fs a cs a fs |
  cs'4 cs8 ds4 cs8 cs2. |
  cs8 fs a ds a fs cs fs a ds a fs |
  bs2. ~ bs4. gs |
  bs,8 fs' gs bs gs fs bs, fs' gs bs gs fs |
  b?1. |
  b,?8 cs es b'? es, cs b cs es b' es, cs |
  a1. |
  a8 cs es a es cs a cs es a es cs |
  a4 gs fs es fs gs |
  gs8 cs es gs es cs gs cs es gs es cs |
  fs1. |
  fs,8 a cs fs cs a fs a cs fs cs a |
  r1. |
  fs8 a cs fs cs fs a fs cs fs cs a |
}

\score {
  \new PianoStaff \with {
    instrumentName = "Piano"
  } <<
    \new Staff = "right" \with {
      midiInstrument = "acoustic grand"
    } \relative c' \right
    \new Staff = "left" \with {
      midiInstrument = "acoustic grand"
      
    } { \clef bass \relative c \left }
  >>
  \layout { }
  \midi {
    \context {
      \Score
      tempoWholesPerMinute = #(ly:make-moment 120 4)
    }
  }
}