music/hourglass.ly

\version "2.14.2"
\language "english"

\header {
  title = "The Hourglass"
  composer = "Tommy Montgomery"
  copyright = "(c) 2003 Tommy Montgomery"
}

global = {
  \key bf \mixolydian
  \set Staff.printKeyCancellation = ##f
  \numericTimeSignature
  \override TupletBracket #'bracket-visibility = #'if-no-beam
  \set Score.connectArpeggios = ##t
  \time 4/4
  \tempo 4 = 160
}

chorusR = \relative c' {
  \key bf \mixolydian <d bf'>4. <d f>8 ~ <d f> f bf c |
  <f, d'>4. <ef c'> <c af'>4 |
  <d bf'>4. <d f>8 ~ <d f> f bf c |
  d16 ef d c g'8 g, c ef \times 2/3 { d16 ef d } c8 |
  
  <d, bf'>4. <d f>8 ~ <d f> f bf c |
  <f, d'>4. <ef c'> <c af'>4 |
  <d bf'>4. <d f>8 ~ <d f> f bf c |
  <g g'>4. <g d'>8 ~ <g d'> g8 g16 c d ef |
  
  <af, f'>4. <af gf'> <af f'>4 |  
  <bf ef>4. <ef, bf'>8 ~ <ef bf'> ef ef16 af bf ef, |  
  <ef cf'>4. <ef bf'> <ef af>4 | 
  <ef af bf>4. <ef g bf>8 ~ <ef g bf>2 |
  
  <af, df f>4. << { af8 ~ af df f ef ~ } \\ { s8 s2 } >> |
  << { ef1 } \\ { r8 f,4 g bf4 ef8 } >> |
  <bf c f>2 f8 bf <c f> <a c f> ~ |
}

chorusL = \relative c {
  \key bf \mixolydian bf8 f' bf c ~ c4 f, |
  af,8 ef' af4 c8 bf4 ef,8 |
  bf8 f' bf c ~ c4 f, |
  c,4 g' c g |
  
  bf8 f' bf c ~ c4 f, |
  af,8 ef' af4 c8 bf4 ef,8 |
  bf8 f' bf c ~ c4 f, |
  c,4 g' c g |
  
  df8 af' df4 df'8 af4 df,8 |
  ef,8 bf' ef4 bf' ef,4 |
  af,8 ef' cf' ef, bf' ef, af ef |
  ef,4 bf' ef bf |
  
  df,4 af' df af |
  ef4 bf' ef bf |
  f,4 f' f, f' |
}

verseR = \relative c' {
  \key c \major <c e>4. <e c'>4 <c e> g8 |
  <b d>4. <d b'>4 <b d> g8 |
  <b e>4. <b gs'>4 <e b'> b8 |
  <c e c'>4. <b b'>4 <c c'>4. |
  
  <d g d'>4. <d b'>8 ~ <d b'> d e <a, f'> ~ |
  <a f'>4. a8 d a e' <a, f'> ~ |
  <a f'>4. a8 d e f <b, e> ~ |
  <b e>4. e,8 gs b e d |
  
  <c e>4. <e c'>4 <c e> g8 |
  <b d>4. <d b'>4 <b d> g8 |
  <b e>4. <b gs'>4 <e b'> b8 |
  <c e c'>4. <b b'>4 <c c'>4. |
  
  <d g d'>4. <d b'>8 ~ <d b'> d e <a, f'> ~ |
  <a f'>4. a8 d a e' <a, f'> ~ |
  <a f'>4. a8 d e f <b, e> ~ |
  <b e>4. d8 f af b d |
}

verseL = \relative c {
  \key c \major c,8 g' c4 c g |
  g8 d' g4 g d |
  gs,8 e' gs4 gs e |
  a,8 e' a4 e a8 e |
  
  g,8 d' g4 g d |
  f,8 c' f4 f c |
  d,8 a' d4 d a |
  e8 b' e4 e, d |
  
  c8 g' c4 c g |
  g8 d' g4 g d |
  gs,8 e' gs4 gs e |
  a,8 e' a4 e a8 e |
  
  g,8 d' g4 g d |
  f,8 c' f4 f c |
  d,8 a' d4 d a |
  e8 b' e4 af8 b d f |
}

bridgeR = \relative c' {
  \key ef \dorian <ef gf bf ef>4. <ef gf bf>4 <ef gf bf> ef8 |
  <f bf df f>4. <f bf df>4 <f bf df> f8 |
  <gf bf df gf>4. <f f'>4. <ef ef'>4 |
  <f af df f>4. <df f af df>4 <df f af df> df8 |
  
  <ef gf bf ef>4. <ef gf bf ef>4 <ef gf bf ef> ef8 |
  <c f af c>4. <bf bf'>4 <af af'>4. |
  <bf df gf bf>2 bf8 df <gf bf> <a, c a'> ~ |
  <a c a'>4. <a c f>4 <a c f>4. |
}

bridgeL = \relative c, {
  \key ef \dorian ef8 bf' ef4 ef bf |
  bf8 f' bf4 bf f |
  gf,8 df' gf4 gf8 df4 gf,8 |
  df8 af' df4 df af |
  
  ef8 bf' ef4 ef bf  |
  f8 c' f4 f c |
  gf4 df' gf df |
  f,8 c' f4 f c |
}

interludeOneR = \relative c {
  \key b \minor
  <fs b d>4. <b d fs>8 ~ <b d fs> <fs b d>4 fs8 |
  <a d fs>4. <a e'>8 ~ <a e'> <a d>4 a8 |
  <b cs e g>4\arpeggio b8 <cs fs> ~ <cs fs> <cs e>4 fs8 ~ |
  fs8 cs4 b8 ~ b as4. |
  
  <g b cs e>4.\arpeggio cs8 ~ cs <g b>4 <a cs>8 ~ |
  <a cs>8 fs4 <a cs>8 ~ <a cs> fs'4 d8 |
  <bf d bf'>4. <a d a'>8 ~ <a d a'>4 <g d' g> |
  a8 cs e a g cs e bf' |
  
  \key d \minor
  
  <d, f a>4. <a e'>8 ~ <a e'> <f a d>4 d8 |
  <f bf e>4. <f bf d>8 ~ <f bf d> <f bf>4. |
  <c c'>4 <d d'> <e e'> <g g'> |
  <e' g bf>4. <bf df g>8 ~ <bf df g>4 <g bf e> |
  
  <af c f>4. c,8 ~ c f g af |
  <df, f bf>4. <f bf df>8 ~ <f bf df> <df f bf>4 df8 |
  <c af' c>4. <c af'>8 ~ <c af'> <ef bf'> <c af' c>4 |
  <d? f d'?>4. <d b'>8 ~ <d b'> <f af> g4 |
}

interludeOneL = \relative c, {
  \key b \minor
  b8 fs' b4 fs b |
  a,8 fs' a4 fs a |
  e8 b' e4 b e |
  fs,4 cs' fs cs |
  
  e,8 b' e4 b e |
  d,8 a' d4 a d |
  g,8 d' g4 d8 g4 d8 |
  <a a'>4. <g g'>8 ~ <g g'> <f f'> <e e'>4 |
  
  \key d \minor
  
  d8 a' d4 a d |
  bf8 f' bf4 f bf |
  <c,, c'>4. <bf bf'>8 ~ <bf bf'>4 <a a'> |
  <g g'>8 e'' g4 e8 g4 e8 |
  
  f,8 c' f4 c f |
  bf,8 f' bf4 f bf |
  af,8 ef' af4 ef af |
  g,8 d' g4 d g |
}

interludeTwoR = \relative c {
  <f bf df f>8 q q q q q q q |
  <gf bf df f>8 q q q q q q q |
  <af c ef>8 q q q q q q q |
  <gs bs fs'>8 q q q <gs bs e> q <gs bs ds> q |
  
  \key cs \minor
  <gs cs>4. <gs ds'>8 ~ q4 ds'8 e |
  <a, cs fs>4. <cs a'>8 ~ q4 <cs fs> |
  <a cs e>2 <a' cs e a>\arpeggio |
  <gs, b e> <e' gs b e>\arpeggio |
  
  <cs cs'>4 <ds ds'> <e e'> <fs fs'> |
  \times 2/3 { gs,8 bs ds } \times 4/5 { gs16 bs ds gs gs } gs'2 |
  \times 2/3 { a,,,8 cs e } \times 4/5 { a16 cs e a a } a'2 |
  \times 2/3 { b,,,8 ds fs } \times 4/5 { b16 ds fs b b } b'2 |
  
  <cs,,, fs as cs>4. cs8 <cs fs as cs>4 q |
  <cs es gs cs>4. cs8 <cs es gs cs>4 q |
  <b ds gs>4. <as ds as'>8 ~ q4 <b ds b'> |
  <d bf'>4. <d f>8 ~ q8 f bf c |
  
  \key f \major
  <c, f a c>4. <c f a>8 ~ q c <f a> c |
  <d f a d>2. <e e'>4 |
  <e a d e>2 <bf' d e bf'> |
  <a cs e a>4 r r2 |
  
  <g bf d g>4. d8 <g bf d>2 |
  <c, f a c>4. f8 <a c f>2 |
  <ef g ef'>4. <d f d'>8 ~ q4 <c ef c'> |
  <b d b'>4. <b d g>8 ~ q q4. |
}

interludeTwoL = \relative c, {
  <bf bf'>8 r8 r8 <bf bf'> <bf bf'> r8 r4 |
  <gf gf'>8 r8 r8 <gf gf'> <gf gf'> r8 r4 |
  <af af'>8 r8 r8 <af af'> <af af'> r8 r4 |
  <gs gs'>4. q8 q4 q |
  
  \key cs \minor
  cs8 gs' cs4 gs8 cs4 gs8 |
  fs cs' fs4 cs8 fs4 cs8 |
  a,4 a' a' a, |
  e, e' e' e, |
  
  <cs cs'>4. <b b'>8 ~ q4 <a a'> |
  gs ds' gs ds |
  a e' a e |
  b fs' b fs |
  
  fs8 cs' fs4 fs,8 cs' fs8 fs, |
  es8 cs' es4 es,8 cs' es4 |
  gs,8 ds' b' ds, as' ds, gs, ds' |
  bf f' bf c ~ c4 f, |
  
  \key f \major
  f,8 c' f4 c f |
  <d, d'>2 <d d'> |
  <a a'>2 <g g'> |
  <a a'>4 r r2 |
  
  g'8 d' g4 g,8 d' g4 |
  f,8 c' f4 f,8 c' f4 |
  <c, c'>4. <d d'>8 ~ q4 <ef ef'> |
  g8 d' g4 d4 g8 d |
}

pianoPart = \new PianoStaff \with {
  instrumentName = "Piano"
} <<
  \new Staff = "right" \with {
    midiInstrument = "acoustic grand"
  } {
    \global
    \clef treble
    
    \chorusR
    \relative c' { <a c f>2 <g b d g>\arpeggio }
    \verseR
    \bridgeR
    
    \chorusR
    \relative c' { <a c f>2 <as cs fs>2 }
    
    \interludeOneR
    
    \verseR
    \bridgeR
    \chorusR
    \relative c' { <a c f>4. <a c f>8 ~ <a c f> <a c f>4 f8 }
    
    \interludeTwoR
    
    \verseR
    \bridgeR
    \chorusR
    \relative c' { <a c f>4. <a c f>8 ~ <a c f> <a c f>4 f8 }
    
    \set Staff.explicitKeySignatureVisibility = #all-invisible
    \chorusR
    \relative c' { 
      <a c f>4. <a c f>8 ~ <a c f> <a c f>4 f8  |
      
      <bf f'>4. <d bf'>8 ~ q4 <f d'> |
      <gf ef'>4. <bf gf'>8 ~ q4 <ef bf'> |
      <bf f'>4. \override Stem #'direction = #UP <d bf'>8 ~ q4 <f d'> |
      <gf ef'>4. <bf gf'>8 ~ q4 <ef bf'> |
      <d f bf d>1\arpeggio\fermata \bar "|." |
    }
  }
  \new Staff = "left" \with {
    midiInstrument = "acoustic grand"
  } { 
    \global
    \clef bass
    
    \chorusL
    \relative c,, { f4 f' g, g' }
    \verseL
    \bridgeL
    
    \chorusL
    \relative c,, { f4 f' fs, fs' }
    
    \interludeOneL
    
    \verseL
    \bridgeL
    \chorusL
    \relative c,, { f4 f' f, f' }
    
    \interludeTwoL
    
    \verseL
    \bridgeL
    \chorusL
    \relative c,, { f4 f' f, f' }
    
    \set Staff.explicitKeySignatureVisibility = #all-invisible
    \chorusL
    \relative c,, { 
      f4 f' f, f' |
      
      bf,8 f' bf bf f' bf f d |
      ef bf' ef f gf f ef bf |
      bf,8 f' bf bf \change Staff = "right" \override Stem #'direction = #DOWN f' bf f d |
      ef bf' ef f gf f ef cf |
      <bf d f bf>1\arpeggio |
    }
  }
>>

stringMusic = \relative c' {
  \global
  \repeat unfold 16 r1
  \key c \major
  \repeat unfold 16 r1
  \key ef \dorian
  \repeat unfold 8 r1
  \key bf \mixolydian 
  \repeat unfold 15 r1
  r2 r4 d'8( cs) |
  
  \key b \minor
  <<
    { b4.  cs      d8( e) | fs4. e d4 | e4. d cs4 | b4.    cs8 as4 b8( cs) | } \\
    { fs,4. g8 ~ g2        | a2.    b4 | g1        | g4 fs2.               | }
  >>
  
  <<
    { d'4. cs b4 | a  fs g  a  | bf4. a g4 | f8  a  cs e  d  cs e   g   | } \\
    { e,4. g  e4 | d2    e4 fs | f4.  e d4 | <a e'>4.  <a d>    <a cs>4 | }
  >>
  
  \key d \minor
  <<
    { f''4. e f4 | g4. e       d4 | e f g c | bf2 \times 2/3 { e,,8 g bf } \times 2/3 { df  e  g } | } \\
    { d4.   a d4 | d4. bf8 g e a4 | c d e c | e2  \times 2/3 { e,8 g bf }              df8  ef    | }
  >>
  
  <<
    { af4 g8  f  g af c4  | bf df,8 ef f4 ef8 df | c4.  df ef4 | d?8 f g af ~ af4 g | } \\
    { f4  ef8 df c df ef4 | f  df4     bf f      | af4. bf c4  | f8  d c b    c4  b | }
  >>
  
  \key c \major
  \repeat unfold 16 r1
  \key ef \dorian
  \repeat unfold 8 r1
  \key bf \mixolydian 
  \repeat unfold 16 r1
  
  <f bf df f>8 r r <f bf df f> <f bf df f> r r4 |
  <gf bf df f>8 r r <gf bf df f> <gf bf df f> r r4 |
  <af c ef>8 r r <af c ef> <af c ef> r r4 |
  <gs bs fs'>4. <gs bs fs'>8 <gs e'>4 <gs ds'> |
  
  \key cs \minor
  <<
    { cs4.  ds8 ~ ds4 e  | fs4. e8 ~ e4 ds  | cs4.    b8 e2 ~  | e1      | } \\
    { gs,4. b8  ~ b4  cs | cs4. a8 ~ a4 b ~ | b4   a2       a4 | b a gs2 | }
  >>
  
  <<
    { cs4                      ds                     e                      fs                     | } \\
    { \times 2/3 { cs,8 ds e } \times 2/3 { ds e fs } \times 2/3 { e fs gs } \times 2/3 { fs gs a } | }
  >>
  
  <<
     { gs'1                  | a                   | b               | } \\
     { r4 bs,8 cs ds4 cs8 bs | r4 cs8 ds e4 ds8 cs | r4 ds8 e fs4 gs | }
  >>
  
  <<
    { as4  fs8 gs as4 fs | gs  es8 fs gs4 es | ds es8 fs gs as b4 | bf8 f d c  d f bf c  | } \\
    { fs,4 cs     as  fs | es' cs     gs  es | gs b      ds    gs | f8  d c bf c d f  bf | }
  >>
  
  \key f \major
  <<
    { c4. a8 ~ a bf c4 | \times 2/3 { d8  a f } \times 2/3 { d f a } d4 e | <a, d>2 <bf e> | } \\
    { a4. f8 ~ f g  a4 | \times 2/3 { d,8 a f } \times 2/3 { d f a } d4 c | <a e'>2 <g bf> | }
  >>
  
  <<
    { <a' cs>4 a,16 bf a g a bf a g a8 bf16 a | g4                     \times 2/3 { d'8 bf g } bf a bf c | } \\
    { a4       a,16 bf a g a bf a g a8 bf16 a | \times 2/3 { g8 bf d } g4                      g8 f g  a | }
  >>
  
  <<
    { a4                      \times 2/3 { f'8 c a } a  bf c d  | ef4. f8 ~ f4 af | g1       | } \\
    { \times 2/3 { a,,8 c f } a4                     f8 g  a bf | c4.  d8 ~ d4 ef | d4 c4 b2 | }
  >>
  
  \key c \major
  \repeat unfold 16 r1
  \key ef \dorian
  \repeat unfold 8 r1
  \key bf \mixolydian
  \repeat unfold 16 r1
  
  <f bf>1 | <af c> | <bf d> | <c ef> |
  <d f> | <ef af> | <f bf> | <g c> |
  <af df> |
  
  <<
    { bf1   | cf4. bf8 ~ bf4 af | g2 af ~ | af1 | } \\
    { ef1 ~ | ef ~              | ef      | df  | }
  >>
  
  <ef g> | <bf f' ~> | <a c f> |
  
  \repeat unfold 5 r1 |
}

strings = \new Staff \with {
  instrumentName = "Strings"
  midiInstrument = #"string ensemble 1"
} { \clef treble \relative c' \stringMusic  }

chorusVoxTwelve = \relative c'' {
  \key bf \mixolydian
  bf4.^"Chorus" f bf4 | c4. af4. af4 | d4. c bf8( c) | c2. r4 |
  bf4 f8 f ~ f4 bf4 | c4 af8 af ~ af4. af8 | d4 c8 c8 ~ c4 bf8( c) | c2. r4 |
  df4. df df4 | bf2. r8 bf | cf4 cf8 bf ~ bf4 af | bf1 |
}

chorusVoxLastFour = \relative c'' {
  af4 af8 af ~ af4 af | g2. r8 g | f4 f8 f ~ f4 f | f1 |
}

chorusVox = \relative c'' {
  \chorusVoxTwelve
  \chorusVoxLastFour
}

vocalMelody = \relative c' {
  \global
  \dynamicUp
  \repeat unfold 16 r1 
  \key c \major
  
  % verse 1
  \bar "||"
  c'4.^"Verse 1" g c4 | d4. g, d'4 | f4.( e) d4 | c2 r4 c |
  d4 d8 d ~ d4 d | c c8 c ~ c c c4 | d2. d4 | c4( b2) r4 |
  c4. g c4 | d4 g,8 g ~ g4 d'4 | f4 f8 e ~ e4 d4 | c2 r4 r8 c8 |
  d4 d8 d ~ d4 d | c1 | a1 | gs2. r4 |
  
  % bridge 1
  \key ef \dorian
  \repeat unfold 8 r1 
  
  % chorus
  \chorusVox
  
  % interlude I
  \key b \minor
  \repeat unfold 8 r1
  \key d \minor
  \repeat unfold 8 r1
  
  % verse 2
  \key c \major
  c4.^"Verse 2" g c4 | d4.( g,) d'4 | f4. e d4 | c2 r4 c |
  d4 d8 d ~ d4 d | c1 | d2. f8( e) | e2. r4 |
  c4 c8 g ~ g4 c4 | d4. g,8 ~ g2 | f'4 f8 e ~ e4 d4 | c2 r4 r8 c8 |
  d4 d8 d ~ d8 d4 d8 | c c c c ~ c c4 d8( ~ | d2. ~ d8 c ~ | c b4. ~ b4) r4 | 
  
  % bridge 2
  \key ef \dorian
  ef4.( bf8 ~ bf4) ef | f4.( df8 ~ df2) | gf4 gf8 f ~ f4 ef | f4.( df8 ~ df4.) \tiny \parenthesize df8 \normalsize |
  ef4 ef8 ef ~ ef ef4. | c4 c8 bf ~ bf4 af | bf1( | a2.) r4 |
  
  % chorus 2
  \chorusVox
  
  % interlude II
  \repeat unfold 4 r1 |
  \key cs \minor
  \repeat unfold 12 r1
  \key f \major
  \repeat unfold 8 r1
  
  % verse 3
  \key c \major
  c4.^"Verse 3" g c4 | d4 d8 g,8 ~ g g d' e | f4 f8 e8 ~ e d4 c8 ~ | c2. r8 c |
  d4 d8 d ~ d4. d8 | e4 e8 e ~ e4. e8 | d d d d ~ d d4 c8( ~ | c b4. ~ b4) r4 |
  c4. g8 ~ g4 c4 | d4. g,8 ~ g4 d' | f4 f8 e ~ e d4 c8 ~ | c2 r4 r8 c8 |
  d4 d8 d ~ d8 d4. | c4 c8 c ~ c4. c8 | d4. d8 ~ d f4( e8) | e2. r4 |
  
  % bridge 3
  \key ef \dorian
  ef4. bf8 ~ bf4 ef | f4. df8 ~ df4. df8 | gf4 gf8 f ~ f8 ef4. | f4. df8 ~ df4 r4 |
  ef4. ef8 ~ ef4 ef8( df) | c4 c8 bf ~ bf8 af4. | bf1 | c2. r4 |
  
  % chorus 3
  \chorusVoxTwelve
  af4 af8 af ~ af af4 bf8 ~ | bf4 bf8 bf ~ bf bf4 c8 ~ | c2 c4 ef8 f ~ | f1 ~ | 
  f1 ~ | f1 ~ | f1 | r1 |
  
  \repeat unfold 17 r1
}

vocals = \lyricmode {
  % verse 1
  Lost in my lab -- 'rinth of time __ I wait. So
  long be -- fore I see the fruits of my blood and tears.
  Lone -- ly I sit and wait for life to show me joy. But
  long I stay and still I wait.
    
  % chorus
  Sit -- ting and wai -- ting as life pass -- es __ by.
  Ho -- ping for a mir -- a -- cle to ease the pain -- ful time.
  Once in a while, I won -- der what went wrong.
  What could I __ have done to live my life __ so long?
  
  % verse 2
  Some -- where in time __ my pur -- pose a -- waits,
  yet here I'm stuck with all my mis -- takes.
  Sanc -- ti -- ty and vir -- tue __ fall up -- on __ deaf ears.
  While I'm still flee -- ing,
  re -- fus -- ing to face my fears. __ __ __
  
  % bridge 2
  How __ can I __
  still be so a -- fraid? __
  \tiny "(I)" \normalsize trem -- ble at the sight of my own name. __
  
  % chorus
  Sit -- ting and wai -- ting as life pass -- es __ by.
  Ho -- ping for a mir -- a -- cle to ease the pain -- ful __ time.
  Once in a while, I won -- der what went wrong.
  What could I __ have done to live my life __ so long?
  
  % verse 3
  Now I'm no lon -- ger lost in my e -- lu -- sive par -- a -- dise. __
  I've found the way __ it's straight and true __ no lon -- ger a slave to life. __
  I am the ru -- ler of my own des -- ti -- ny. __
  The way I choose to live my life __ re -- flects back through __ me.
  
  % bridge 3
  I am no lon -- ger __ a -- fraid of my own sha -- dow.
  Long is the __ road I choose to tra -- vel.
  
  % chorus
  Sit -- ting and wai -- ting as life pass -- es __ by.
  Ho -- ping for a mir -- a -- cle to ease the pain -- ful __ time.
  Once in a while, I won -- der what went wrong.
  Now I un -- der -- stand __ just what it means __ to be -- long. __
}

vox = \new Staff \with {
  instrumentName = "Vocals"
  midiInstrument = #"voice oohs"
} { \clef treble \vocalMelody }
\addlyrics { \vocals }

\score {
  <<
    \vox
    \strings
    \pianoPart
  >>
  \layout { 
    \context {
      \Staff \RemoveEmptyStaves
    }
  }
  \midi {}
}