music/solara.ly

\version "2.18.2"
\language "english"

\header {
  title = "Solara"
  composer = "Tommy Montgomery"
  copyright = "(c) 2017 Tommy Montgomery"
}

global = {
  \key b \minor
  \time 4/4
  \tempo 4 = 98
  \set Staff.printKeyCancellation = ##f
  \numericTimeSignature
  \compressFullBarRests
  \omit Voice.StringNumber
  \override TupletBracket #'bracket-visibility = #'if-no-beam
  \override MultiMeasureRest.expand-limit = #3
}

fSharpRiff = \relative c {
  \tuplet 6/4 { fs16 fs fs fs fs fs } fs fs' fs, fs fs fs' fs, fs fs fs' fs, fs |
  \tuplet 6/4 { fs fs fs fs fs fs } fs fs' fs, fs fs fs' fs, fs' e( fs) g8 |
}


guitarOne = \relative c {
  R1*8^\markup { "synth pad" } |

  \time 7/4
  fs16 cs' fs as b( as) fs cs fs, cs' fs as b( as) fs cs fs, cs' fs as b( as) cs( as) b( as) fs cs |
  g d' g b cs( b) g d g, d' g b cs( b) g d g, d' g b cs( b) d( b) cs( b) g d |
  fs, cs' fs as b( as) fs cs fs, cs' fs as b( as) fs cs fs, cs' fs as b( as) cs( as) b( as) fs cs |
  \time 6/4
  e, b' e fs g\glissando( fs) e b e, b' e fs g\glissando( fs) e b \tuplet 6/4 4 { e, fs g b e fs g b e b fs' b, }
  \time 4/4
  \grace fs'16( g2..) fs16( e) \bar "||" |

  \repeat unfold 2 {
    <<
      { fs4.  g8 ~ g4 fs | \grace fs16( g4 fs8) \grace fs16( g8) ~ g4. fs16( e)  | fs4. g8 ~ g4 fs } \\
      { as,4. b8 ~ b4 cs | \grace cs16( d4 cs8)              b   ~ b4. e,16( fs) | as4. b8 ~ b4 cs }
    >>
  }
  \alternative {
    {
      <<
        { \grace e16( g4) \grace e16( g8 e) ~ e2 | } \\
        { \grace d16( e4) \grace d16( e8 d) ~ d2 | }
      >>
    }
    {
      <<
        { b'2\glissando e2  | } \\
        { e,2\glissando b'2 | }
      >>
    }
  }

  \repeat unfold 4 {
    <<
      {        fs1          | } \\
      { \grace e16( fs2 e2) | }
    >>
  }

  \repeat unfold 2 {
    <<
      { fs16   fs fs fs fs fs' fs, fs fs fs' fs, fs fs fs' fs, fs | fs16 fs fs fs fs fs' fs, fs fs fs' fs, fs' e( fs) g8 | } \\
      { fs,,16 fs fs fs fs fs' fs, fs fs fs' fs, fs fs fs' fs, fs | fs16 fs fs fs fs fs' fs, fs fs fs' fs, fs' e( fs) g8 | }
    >>
  }
  \repeat unfold 8 r1 |
}


guitarTwo = \relative c {
  R1*8 |
  R1..*3 | r1. | r1 |

  \repeat unfold 2 {
    <fs cs' fs>4. <fs cs' fs as cs fs>8 ~ q4. fs16 fs |
    <fs cs' fs>\glissando( <g d' g>) ~ q4 <g cs g' b d g>8 ~ q4. g16 g |
    <g d' g>\glissando( <fs cs' fs>) ~ q4  <fs cs' fs as cs fs>8 ~ q4. fs16 fs |
  }
  \alternative {
    { <e b' e>2 <e b' e g cs e>4 <e b' e g d' e> | }
    { <e b' e>2 <e b' e g d' e>4 <e b' e g cs e> | }
  }

  \repeat unfold 4 {
    <fs cs'>8 q16 q q q8 q16 q q8 q16 q q8 q16 |
    q8 q16 q q q8 q16 q q8 q16 q q <g d'>8 |
  }

  cs16-> b g fs cs'-> b cs-> b g fs cs'-> b cs-> b g fs |
  d'-> b g fs d'-> b d-> b g fs d'-> b d-> b g fs |
  cs'->( b) g fs cs'->( b) cs->( b) g fs cs'->( b) cs->( b) g fs |
  d'->( b) g fs d'->( b) d->( b) g fs d'->( b) d->( b) g fs |

  <e b' e g b e>1 | <e b' e g cs e>2 <e b' e g d' e> |
  <b' fs' b d fs>1 | <b es b'>1 |

  \repeat volta 2 \fSharpRiff

  cs16-> b g fs cs'-> b cs-> b g fs cs'-> b cs-> b g fs |
  d'-> b g fs d'-> b d-> b g fs d'-> b d-> b g fs |
  cs'->( b) g fs cs'->( b) cs->( b) g fs cs'->( b) cs->( b) g fs |
  g8. d'16 ~ d8 b' <cs b e>2 \bar "||" |

  R1*8^"f# riff 4x" |

  \repeat unfold 2 {
    \tuplet 6/4 { g,16 g g g g g } g g' g, g g g' g, g g g' g, g |
    \tuplet 6/4 { g16 g g g g g } g g' g, g g g' g, g' b( cs) d8 |
    \tuplet 6/4 { a,16 a a a a a } a a' a, a a a' a, a' cs( d) e8 |
    \tuplet 6/4 { b,16 b b b b b } b <b fs'> b b b <b g'> b b b <b e> b b |

  }
  \alternative {
    { \tuplet 6/4 { b16 b b b b b } b <b e> b b b <b fs'> b b b <b ds> b b | }
    { \tuplet 6/4 { a16 a a a a a } a <a c> a a a <a d> a a a <a e'> a a | }
  }

  \bar "||"

  \repeat unfold 4 { b16 ds e }
  \repeat unfold 4 { b ds fs }
  \repeat unfold 4 { b, e g }
  \repeat unfold 4 { b, ds fs }
  \repeat unfold 4 { a, b ds }
  e fs e ds |
  \repeat unfold 4 { b16 ds e }
  \repeat unfold 4 { b ds fs }
  \repeat unfold 4 { b, e g }
  \repeat unfold 4 { b, fs' a }
  \repeat unfold 4 { b, fs' b }
  a b c a |

  b8. a16 ~ a8 b ~ b8 b16 b a( b) ds( e) |
  ds8. e16 ~ e8 fs ~ fs4 \tuplet 6/4 { e16 fs g a b c } |
  b8. a16 ~ a8 b ~ b8 b16 b a( b) ds( e) |
  \tuplet 6/4 4 { fs( e ds) b fs ds b ds fs b ds( fs) } b2^"+" \bar "||" |

  \repeat unfold 2 {
    <a,,, d>16 <b e>8 <a d>16 <b e>8 <a d>16 <b e> ~ <b e> q q q <d g>8 <d fs> |
    <a d>16 <b e>8 <a d>16 <b e>8 <a d>16 <b e> ~ <b e> q q q <fs d'>8 <g d'> |
    <a d>16 <b e>8 <a d>16 <b e>8 <a d>16 <b e> ~ <b e> q q q <d g>8 <d fs> |
    <cs a'>8. <d a'>16 ~ q8 <e a> ~ q a,16 a <a e' a>4 |
  }

  <d a'>8. <e a>16 ~ q8 <f a> ~ q q16 q d( e) f8 |
  <e a>8. <f a>16 ~ q8 <gs b> ~ q4. a16 e' |
  a e a, g'! e a, fs' e fs( g32 fs) e16 d e d cs a |
  b16 cs d cs d( cs) b cs b a b a b a gs e |

  % pre-chorus
  \repeat unfold 3 {
    <b fs'>4 <b fs' b d fs b> b16 b b8 <b fs' b d fs b>8 b16 b |
    <e b' e gs>4 q16 <e b' e a> <e b' e gs>8 ~ q2 |
  }
  <b fs'>4 <b fs' b d fs b> b16 b b8 <b fs' b d fs b>8 b16 b |
  <d g>2 <cs a'> |

  b16 cs d cs d cs b cs b cs d e d e fs g |
  e fs g fs g fs e fs e fs g a g a b c |
  a b c b c b a b a b c d c d e f |
  d e f e f e d e d e f g f g a bf |
  fs gs a gs a gs fs gs fs gs a b! a b cs d |
  cs ds e ds e ds cs ds cs ds e fs e fs gs a |
  gs1 ~ | gs \bar "||" |

  % chorus
  \key cs \minor
  %{
  <cs,,, gs'>4 cs16 cs cs cs <cs fs>8 <cs gs'> cs16 cs <cs a'>8 ~ |
  q4 cs16 cs cs cs <cs a'>8 <cs gs'> cs16 cs <b fs'>8 ~ |
  q4 b16 b b b <b ds>8 <b e> b16 b <b fs'>8 ~ |
  q4 b16 b b b <b ds>8 <b e> ds8( e16 ds) |
  cs4 cs16 cs cs cs <cs fs>8 <cs gs'> cs16 cs <cs a'>8 ~ |
  q4 cs16 cs cs cs <cs a'>8 <cs gs'> cs16 cs <b fs'>8 ~ |
  q4 b16 b b b <b ds>8 <b e> b16 b <a fs'>8 ~ |
  q4 a16 a a a <bs ds>8 <bs e> ds8( e16 ds) |
  %}

  \repeat unfold 2 { cs,,,16 gs' cs ds e ds e fs gs fs e ds e ds cs gs | }
  \repeat unfold 2 { a, e' gs a cs a cs ds e ds cs a cs a gs e | }
  \repeat unfold 2 { cs ds es gs cs gs cs ds es ds cs gs cs gs es ds | }
  a cs fs gs a fs gs a cs a cs fs gs a gs fs |
  gs ds cs ds bs ds a ds gs, ds' fs, ds' e, ds' ds, ds' |



}

vocalMelody = \relative c' {
  R1*8 |
  R1..*3 | r1. | r1 |
  \repeat unfold 8 r1 |
  \repeat unfold 8 r1 |
  \repeat unfold 8 r1 |
  \repeat volta 2 { r1 | r1 | }
  \repeat unfold 3 r1 |

  r2 r4 fs |
  % verse 1
  as2. b4 | cs2. d4 | cs2. b4 | cs2 r4 fs,4 |
  as2. b4 | cs2. d4 | cs2. b4 | cs2 r4 as4 |
  b2. d4 | cs4.( d16 cs b4) d | cs2. e4 | e8( ds4.) r2 | r2 r4 b |
  b2. d!4 | cs4.( d16 cs b4) d | e2. e4 | fs2. r4 | r1 |

  r2 ds8 ds ds e ~ | e fs4 g8 ~ g g4 g8( |
  fs4.) b,8 b b4 ds8 ~ | ds b b b( a4) r4 |
  r2 ds8 ds ds e ~ | e fs4 g8 ~ g g4 g8( |
  fs8) fs fs fs ~ fs fs4 a8 ~ | a b4 b8 ~ b2 |

  \repeat unfold 4 r1 |

  d,4. e8 ~ e4 b | d e8 e r4 r8 e8 |
  g4. fs8 ~ fs4 fs8( e ~ | e2) r2 |
  b16 b b b ~ b16 cs8 d16 ~ d8 d d16( cs8.) |
  d16 d d d ~ d8 d16 d( cs8) b b b |
  g'8. fs16 ~ fs8 g8 ~ g4.( fs16 e) ~ | e2 r2 |

  \repeat unfold 4 r1 |

  r4 b4 b8 d4 e8 ~ | e2. r4 |
  r4 fs e d8 e ~ | e2. r4 |
  r4 b4 b8 d4 e8 ~ | e2. r4 |
  r8 b fs'4 e d8 e( ~ | e1 | d2) r2 |

  \repeat unfold 8 r1 |

  % chorus

  \key cs \minor
  r4 e4 ds8( cs) cs fs ~ | fs4. e8 ~ e4 r4 |
  r4

}


allTheLyrics = \lyricmode {
  % verse 1
  These eyes, they see all that I dream,
  all that I am, all that I'll be.
  I once was lost __ but now I know __
  that strength will fade __ but still I'll grow.

  Fo -- llow me to __ the wa -- ter's edge, __
  it's bu -- ried deep __ in the sand. __
  All that you wished __ up -- on a star __
  can be gained __ by strength __ of hand. __

  Un -- der __ the pale moon -- light,
  the pain sub -- sides. __
  I -- ma -- ges of __ what might __ have been, __
  words that were ne -- ver said -- will
  turn your glass to __ sand. __

  And so I'll wait, __
  time af -- ter time.
  Seek what you will, __
  the rest will be mine. __


  % chorus
  I feel __ the wind blow % c#m
  I feel the Sun shine down % b
  I feel the tide pull me away % c#m b g#
  I dream of something % c#m
  more than I can ever do alone % b
  So follow me down down down % c#m
  Wherever I may go
}


guitarOneStaff = \new Staff \with { midiInstrument = "electric guitar (jazz)" }{ \global \guitarOne }
guitarTwoStaff = \new Staff \with { midiInstrument = "electric guitar (jazz)" }{ \global \guitarTwo }


vox = \new Staff \with { midiInstrument = "voice oohs" } {
  <<
    \new Voice = "vocalMelody" { \clef treble \global \vocalMelody }
  >>
}

demLyrics = \new Lyrics \lyricsto "vocalMelody" {
  <<
    \new Lyrics {
      \set associatedVoice = "vocalMelody"
      \allTheLyrics
    }
  >>
}


chordExceptionMusic = {
  <c e g b d'>1-\markup { "maj9" }
  <c e g b fs'>1-\markup { "maj7" \sharp "11" }
  <c ef f g bf>1-\markup { "m7sus4" }
  <c ef gf bff>1-\markup { "dim7" }
  <c e g d'>1-\markup { "add9" }
  <c ef g d'>1-\markup { "m(add9)" }
  <c e fs as>1-\markup { \super { \sharp "11" \sharp "13" } }
  <c g>1-\markup { "5" }
  <c e g b>1-\markup { "maj7" }
  <c e g fs'>1-\markup { "add" \super { \sharp "11" } }
  <c f g>1-\markup { "sus4" }
  <c d g>1-\markup { "sus2" }
  <c ef g b>1-\markup { "m(maj7)" }
  <c ef g b d'>1-\markup { "m(maj9)" }
}

chordExceptions = #(append
  (sequential-music-to-chord-exceptions chordExceptionMusic #t)
  ignatzekExceptions
)

chordValues = \chordmode {
  R1*8 |

  fs1.. | g:1.3.5.11+ | fs | e1.:m | q1 |

  fs | g:1.3.5.11+ | fs | e2:m e4:m6 e:m7 |
  fs1 | g:1.3.5.11+ | fs | e2:m e4:m7 e:m6 |

  \repeat unfold 4 fs1 |
  \repeat unfold 4 fs1 |
  fs1 | g:maj7 | fs | g:maj7 |
  e:m | e2:m6 e:m7 | b1:m | b:dim7 |
  \repeat volta 2 { fs1 | fs2.. g8:1.5 | }
  fs1 | g:maj7 | fs | g:1.3.5.11+ |

  % verse 1
  \repeat unfold 4 { fs1 | fs2.. g8:1.5 | }
  g1 | g | a | b | b |
  g1 | g | a | b | a:m |

  b1 | b2 e:m | q4 b2. | b1:7 |
  b1 | b2 e:m | q4 b2.:7 | b1:1.5 |
  b1:7 | q | q | q |

  % bridge or something
  \repeat unfold 2 {
    e2.:m g8 d:/fs | e2.:m d8:/fs g |
    e2.:m g8 d:/fs | a1:/cs |
  }

  d1:m | q4. e8:/gs q2 | a1:6 | e:9 |

  % pre-chorus or something
  b1:m | e | b:m | e | b:m | e | b:m | g2:/d a:/cs |

  b1:m | e:m | a:m | d:m | fs:m | cs:m | gs | gs:7 |

  % chorus or something
  cs:m | q | a:1.3.5.7+.11+ | q | cs | cs | fs:m/a | gs:1.3.5.7.9- |

}

chordNames = \new ChordNames {
  \powerChords
  \set majorSevenSymbol = \markup "maj7"
  \set chordChanges = ##t
  \set chordNameExceptions = #chordExceptions
  \chordValues
}

\score {
  <<
    \chordNames
    \vox
    \demLyrics
    \guitarOneStaff
    \guitarTwoStaff
  >>
  \layout {
    \context {
      \Staff \RemoveEmptyStaves
      \override Glissando.minimum-length = #4
      \override Glissando.springs-and-rods = #ly:spanner::set-spacing-rods
      \override Glissando.thickness = #2
      \override VerticalAxisGroup.remove-first = ##t
    }
  }
}

\score {
  \unfoldRepeats {
    <<
      %\transpose c c, \vox
      \transpose c c, \guitarOneStaff
      \transpose c c, \guitarTwoStaff
    >>
  }
  \midi {}
}