229 lines
6.6 KiB
Plaintext
229 lines
6.6 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 = 120
|
|
|
|
\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 |
|
|
|
|
R1*5/4*6^"some kind of lead" |
|
|
a,4 <a e' a cs>8-> q16 q q8 \xNotesOn q16 \xNotesOff <a f' bf d> ~ q \xNotesOn q \xNotesOff <a g' c e>8 \xNotesOn q16 \xNotesOff <a a' c f>8 \xNotesOn q16 \xNotesOff |
|
|
<a bf' d g>4. \xNotesOn q16 q16 \xNotesOff <a g' g e' e> q q q \xNotesOn q q \xNotesOff <a g' g e' e> q q q \xNotesOn q q \xNotesOff |
|
|
|
|
\bar "||"
|
|
|
|
\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 a f e d |
|
|
<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 d( e a,) 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 g' a d>8.-> q16 \xNotesOn q q \xNotesOff <a fs' a d>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^"chorus riff" |
|
|
}
|
|
|
|
vocalMelody = \relative c' {
|
|
\partial 8 r8 |
|
|
R1*5/4*16 |
|
|
|
|
% 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 a'8 |
|
|
|
|
% chorus
|
|
a4. cs8 ~ cs4 e4 ~ e |
|
|
f4 f8 e ~ e d e4 ~ e8 r8 |
|
|
cs4. e8 ~ e4 g4 ~ g8 g8 |
|
|
g8 g 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 r8 a'8 |
|
|
|
|
}
|
|
|
|
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 -- ered 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. __
|
|
|
|
}
|
|
|
|
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"
|
|
|
|
|
|
|
|
}
|
|
|
|
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 {}
|
|
}
|