music/album3/fair-weather-friend.ly

353 lines
9.5 KiB
Plaintext

\version "2.22.1"
\language "english"
\header {
title = "Fair-weather Friend"
composer = "Tommy Montgomery"
copyright = "(c) 2022 Tommy Montgomery"
}
global = {
\key d \dorian
\set Staff.printKeyCancellation = ##f
\numericTimeSignature
\compressEmptyMeasures
\omit Voice.StringNumber
%\override TupletBracket #'bracket-visibility = #'if-no-beam
\override MultiMeasureRest.expand-limit = #3
\override Score.ChordName.font-name = #"Noto Serif"
\override Score.ChordName.font-size = #0
\override Score.LyricText.font-name = #"Noto Serif"
\override Score.LyricText.font-size = #0
\time 5/4
}
guitar = \relative c' {
\tempo 4 = 106
\partial 8 a16( c) |
\repeat unfold 3 {
d4 <a d a' d>8-> q16 q \xNotesOn q8 \xNotesOff q-> ~ q q4-> a16( c) |
}
d4 <a d a' d>8-> q16 q \xNotesOn q8 \xNotesOff q-> ~ q q4-> c16 g |
\repeat unfold 2 {
a4 <a e' a cs>8-> q16 q \xNotesOn q8 \xNotesOff q-> ~ q q4-> c!16 g |
}
a4 <a e' a cs>8-> q16 q q8 \xNotesOn q16 \xNotesOff <a f' bf d> ~ q \xNotesOn q \xNotesOff <a g' c e>8 ~ q4 ~ |
q4. \xNotesOn q16 q \xNotesOff <g' c d>( b) <g b d> q \xNotesOn q q \xNotesOff <g c d>( b) <g b d> q \xNotesOn q q \xNotesOff |
\repeat unfold 2 {
d4 <a d a' d>8-> q16 q \xNotesOn q8 \xNotesOff q-> ~ q q4-> a16( c) |
d4 <a d a' d>8-> q16 q \xNotesOn q8 \xNotesOff q-> ~ q q4-> c16( a) |
f4-> <f c' f a>8-> q16 q \xNotesOn q8 \xNotesOff <c' g'c e>8-> ~ q q4-> \xNotesOn q16 q \xNotesOff |
}
\alternative {
{ d4 <a d a' d>8-> q16 q \xNotesOn q8 \xNotesOff q-> ~ q q4-> a16( c) | }
{ d4 <a d a' d>8-> \xNotesOn q16 q \xNotesOff <g' c d>( b) <g b d> q \xNotesOn q q \xNotesOff <g c d>( b) <g b d> q \xNotesOn q q \xNotesOff }
}
% chorus
\repeat unfold 3 {
<a, e' a cs>4-> q8 \xNotesOn q16 q q q \xNotesOff <a f' bf d>8->
\xNotesOn q16 q \xNotesOff <a e' a cs>8-> \xNotesOn q16 q \xNotesOff <a d g b>8-> |
}
f'8 a d a e' d f( e) d a |
<d, bf' d e>4.\arpeggio <d c' e e>8-> r <a e' a cs>-> \tuplet 6/4 4 { a16( c! d) d( f g) g( f d) d( c a) } |
\bar "||"
R1*5/4*8^"intro riff" |
\bar "||"
\repeat unfold 2 {
d'16( d,) d c'( d,) d b'( d,) d c'( d,) d b'( d,) g( d)
a'( d,) d b'( d,) d c'( d,) d b'( d,) d a'( d,) g( d)
a'( d,) d f( d c) c( a) |
f8. c'16 ~ c8 f g8. e16 ~ e8 c a c |
}
\alternative {
{ d4 <a d a' d>8-> q16 q \xNotesOn q8 \xNotesOff q-> ~ q q4-> \xNotesOn q16 q \xNotesOff | }
{ d4 <a d a' d>8-> q16 q \xNotesOn q8 \xNotesOff q-> ~ q q4-> \xNotesOn q16 q \xNotesOff | }
}
\repeat unfold 2 {
<a bf' d g>8.-> q16 \xNotesOn q q \xNotesOff <a a' d fs>8-> ~ q16 q \xNotesOn q q \xNotesOff
\repeat unfold 2 { q q \xNotesOn q q \xNotesOff } |
}
\repeat unfold 2 {
<a a' d f!>8.-> q16 \xNotesOn q q \xNotesOff <a a' cs e>8-> ~ q16 q \xNotesOn q q \xNotesOff
\repeat unfold 2 { q q \xNotesOn q q \xNotesOff } |
}
\repeat unfold 2 {
<a g' c d>8.-> q16 \xNotesOn q q \xNotesOff <a g' b d>8-> ~ q16 q \xNotesOn q q \xNotesOff
\repeat unfold 2 { q q \xNotesOn q q \xNotesOff } |
}
<a f' a d>8.-> q16 \xNotesOn q q \xNotesOff <a e' a cs>8-> ~ q16 q \xNotesOn q q \xNotesOff
\repeat unfold 2 { q q \xNotesOn q q \xNotesOff } |
<a f' bf d>4-> q8-> \xNotesOn q16 q \xNotesOff <f' bf d>16\glissando( <g c e>) q8 q-> \xNotesOn q16 q \xNotesOff
\tuplet 3/2 { e'16( f! \set stemRightBeamCount = #1 e) } \set stemLeftBeamCount = #1 d( c) |
R1*5/4*8^"verse riff" |
R1*5/4*5^"chorus riff" |
% guitar solo
R1*5/4*15^"awesome solo" |
a'8. c16 ~ c8 d d4\harmonic \ottava #1 \tuplet 6/4 4 {
a'16( f) d a d f
g( e) c g e c
} | \ottava #0
% interlude
\bar "||"
\repeat unfold 2 {
c16( d) g, a r f r g r c,( d) g, a8 bf16 c d ef r d r c d fs a g c ef r d r c d2 |
c16( d) g, a r f r g r c,( d) g, a8
}
\alternative {
{ g16 a bf c r bf r a bf d f a b f\glissando( g) b d f g2 | }
{ g,,16 a bf a8 bf16 cs d e\glissando( f) g a8 bf16 cs16 d e f g a8 bf16 cs d e8 | }
}
\repeat unfold 2 {
<a,,, e' g cs>8.-> q16 \xNotesOn q q \xNotesOff <a e' g cs>8-> ~ q16 q \xNotesOn q q \xNotesOff
<a e' g cs>8 <a f' g d'> <a e' g cs> <a d g b> |
}
\alternative {
{ <a e' g cs>8.-> q16 \xNotesOn q q \xNotesOff <a e' g cs>8-> ~ q16 q \xNotesOn q q \xNotesOff
<a e' g cs>8 <a f' g d'> <a g' g e' e>4 | }
{ f16 c' g' g, d' a' bf, f' c' c, g' d' \tuplet 3/2 { c16( d c) } a g\glissando( f) d c( a) | }
}
% verse 4
R1*5/4*8^"verse 1 riff" |
R1*5/4*5^"chorus riff" |
<a d a' d>4-> r r2 r4 |
}
vocalMelody = \relative c' {
\partial 8 r8 |
R1*5/4*8 |
\bar "||"
% verse 1
r4^"verse" r8 d d f4 a8 ~ a4 | a8 g4 g8 g( fs) fs4 r4 |
r8 a, f'! f ~ f e4( d8) c d ~ | d2 r2 r4 |
r4 r8 d d f4 a8 ~ a4 | a8 g4 g8 g( fs) fs4 r4 |
r8 a, f'! f ~ f e4( d8) c d ~ | d2 r2 r8 d8 |
% chorus
cs4.^"chorus" e8 ~ e4 a4 ~ a |
bf4 bf8 a ~ a g a4 ~ a8 r8 |
a4. cs8 ~ cs4 e4 ~ e8 e8 |
f8 f f4 ~ f8 e4. d4 |
e2. r4 r4 |
R1*5/4*8 |
% verse 2
r4^"verse" r8 d, d f4 a8 ~ a4 | a8 g4 g8 g( fs) fs4 r4 |
r8 a, f'! f ~ f e4( d8) c d ~ | d2 r2 r4 |
r4 r4 d8 f4 a8 ~ a4 | a8 g4 g8 g( fs) fs4 r4 |
r8 a, f'! f ~ f e4( d8) c d ~ | d2 r2 r4 |
% bridge
bf'4^"bridge" bf8 a ~ a4 g8 a ~ a fs8 ~ | fs d4 e8 ~ e fs8 ~ fs4 r4 |
a4 a8 cs ~ cs4 d8 e8 ~ e4 | e8 f4 e8 ~ e d4 cs8 ~ cs4 |
c!4. b8 ~ b4. d8 ~ d4 ~ | d8 c4( b8 ~ b4) r g4 |
a8 a a a bf( a) g a ~ a4 | R1*5/4 |
% verse 3
r4^"verse" r8 d, d f4 a8 ~ a4 | a8 g4 g8 g( fs) fs4 r4 |
r8 a, f'! f f e4( d8 c) d ~ | d2 r2 r4 |
r4 r8 d d f4 a8 ~ a4 | a8 g4 g8 g( fs) fs4 r4 |
r8 a, f'! f ~ f e4( d8) c d ~ | d2 r2 r4 |
% chorus
R1*5/4*5^"chorus" |
% guitar solo
R1*5/4*16 |
% interlude
R1*5/4*12 |
% verse 4
r4^"verse" r8 d d f4 a8 ~ a4 | a8 g4 g8 g( fs) fs4 r4 |
r8 a, f'! f8 ~ f e4( d8) c d ~ | d2 r2 r4 |
r2 d8 f4 a8 ~ a4 | a8 g4 g8 g( fs) fs4 r4 |
r8 a, f'! f ~ f e4( d8) c d ~ | d2 r2 r4 |
% chorus
R1*5/4*5^"chorus" |
R1*5/4 |
\bar "|."
% end
}
allTheLyrics = \lyricmode {
I washed my hands __ in ho -- ly wa -- ter
but I still __ seem __ to bleed. __
I sent my mo -- ney to your temp -- le
but I still __ feel __ your greed. __
But now I __ see __
what it means __ to be __
all a -- lone __
with just a fair weath -- er friend.
I lift my eyes __ and beg for mer -- cy
but I'm too __ blind __ to see __
all the things __ you hold a -- gainst __ me
and what might __ set __ me free. __
Sick and tired, __ I watched __ you __ drift a -- way, __
leav -- ing me __ a -- lone __ in -- side this __ tomb of __ self -- de -- struc -- tion __
and phy -- si -- cal de -- form -- i -- ty. __
I sink down low __ to find the an -- swers
but they still e -- lude __ me. __
I look up __ high __ and wish for clo -- sure,
the si -- lence deaf -- ens me. __
On sleep -- less nights, __ my mind will wan -- der
to thoughts of __ you __ and me. __
What was lost __ I can't re -- co -- ver,
'twas all il -- lus -- or -- y. __
}
guitarStaff = \new Staff \with { midiInstrument = "distorted guitar" midiMaximumVolume = #0.6 } {
\global
\guitar
}
vox = \new Staff \with { midiInstrument = "voice oohs" midiMinimumVolume = #0.7 } {
<<
\new Voice = "vocalMelody" { \clef treble \global \vocalMelody }
\new Lyrics \lyricsto "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 { "°7" }
<c ef gf bf>1-\markup { \super { "ø7" } }
<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 bf>1-\markup { "7" }
<c e g b>1-\markup { "maj7" }
<c ef g bf>1-\markup { "m7" }
<c f g>1-\markup { "sus4" }
<c d g>1-\markup { "sus2" }
<c e g bf df'>1-\markup { "7" \super { \flat "9" } }
<c e g f'>1-\markup { "add11" }
}
chordExceptions = #(append
(sequential-music-to-chord-exceptions chordExceptionMusic #t)
ignatzekExceptions
)
chordValues = \chordmode {
\set chordNameExceptions = #chordExceptions
\set majorSevenSymbol = \markup "maj7"
\partial 8 r8 |
d1*5/4:5 | q | q | q |
a | q | q2 q8. bf c4. | q2 g2. |
% verse 1
d1*5/4:5 | q | f2 q8 c8 c2 | d1*5/4:5 |
d1*5/4:5 | q | f2 q8 c8 c2 | d2:5 g2. |
% chorus
\repeat unfold 3 { a2 q8 bf4 a g8 | }
d1*5/4:1.3-.5.9 | bf4.:1.3.5.11+/d c4:/d a8 r2 |
R1*5/4*8 |
% verse 2
\repeat unfold 2 { d1*5/4:5 | q | f2 c q4 | d1*5/4:5 | }
% bridge
\repeat unfold 2 { g4.:m/a d8*7:/a | }
\repeat unfold 2 { d4.:m/a a8*7 | }
\repeat unfold 2 { g4.:sus4/a g8*7:/a | }
d4.:m/a a8*7 | bf2 q16 c8. q2 |
% verse 3
d1*5/4:5 | q | f2 q8 c8 c2 | d1*5/4:5 |
d1*5/4:5 | q | f2 q8 c8 c2 | d2:5 g2. |
% chorus
R1*5/4*5 |
% guitar solo
bf1*5/4 | g:m | a2 q8 a8:sus4 q2 | a1 q8 g8 |
f1*5/4 | g | c | d1 c4 |
bf1*5/4 | c | d | q1 c4 |
bf1*5/4 | g:m | a | a8.:5 c:5 d4.:5 d4:m c |
% interlude
}
chordNames = \new ChordNames {
\set chordChanges = ##t
\set chordNameExceptions = #chordExceptions
\chordValues
}
\score {
<<
\chordNames
\vox
\guitarStaff
>>
\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 {
<<
% \vox
\guitarStaff
>>
}
\midi {}
}