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
  \numericTimeSignature
  \override TupletBracket #'bracket-visibility = #'if-no-beam
  \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>2. ~ <af df f>8 <bf ef g> ~ |
  <bf ef g>4 bf ef g |
  <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 |
  f4 c' f c |
}

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
}

interludeOneL = \relative c, {
  \key b \minor
}

pianoPart = \new PianoStaff \with {
  instrumentName = "Piano"
} <<
  \new Staff = "right" \with {
    midiInstrument = "acoustic grand"
  } {
    \clef treble
    
    \chorusR
    \relative c' { <a c f>2 <b d g> }
    \verseR
    \bridgeR
    
    \chorusR
    \relative c' { <a c f>2 <as cs fs>2 }
    
    \interludeOneR
  }
  \new Staff = "left" \with {
    midiInstrument = "acoustic grand"
  } { 
    \clef bass
    
    \chorusL
    \relative c, { f4 f' g, g' }
    \verseL
    \bridgeL
    
    \chorusL
    \relative c, { f4 c' fs cs }
    
    \interludeOneL
  }
>>

stringMusic = \relative c' {
  \global
  \repeat unfold 55 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 | }
  >>
}

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

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
  \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 |
  af4 af8 af ~ af4 af | g2. r8 g | f4 f8 f ~ f4 f | f1 |
  
  \key b \minor
  \repeat unfold 8 r1
  \key d \minor
  \repeat unfold 8 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?
}

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

\score {
  <<
    \vox
    \pianoPart
    \strings
  >>
  \layout { }
  \midi {}
}