music/album3/afterthought.ly
2023-07-08 19:04:47 -07:00

273 lines
6.6 KiB
Plaintext

\version "2.18.2"
\language "english"
\header {
title = "Afterthought"
composer = "Tommy Montgomery"
copyright = "(c) 2020 Tommy Montgomery"
}
global = {
\key d \mixolydian
\set Staff.printKeyCancellation = ##f
\numericTimeSignature
% \compressFullBarRests
\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 7/8
\tempo 4 = 144
}
introRiff = \relative c'' {
\repeat unfold 3 {
d8( d,) c'( d,) c'( d d,) |
}
g'( d,) fs'( d,) c'( d d,) |
}
guitarOne = \relative c'' {
\set Timing.beatStructure = #'(2 2 3)
\repeat volta 4 { \introRiff }
<d,, a' d a' d>2.. ~ | q |
<g d' g d' g> ~ | q |
<g' c e>2. d16 e | g8 <c e>4 ~ q2 |
<d,, a' d a' d>2.. | f'8( d) c( a) f g'4 |
<d, a' d a' d>2.. | q |
<f c' f c' f> | q |
<ef bf' ef bf' ef> | <bf' f' bf d> |
\repeat unfold 2 { <c g'>8 q q q q q q | }
d'( g,) g( d) a'( d,) f | g( d) c( a) d( a) f |
\repeat unfold 3 { <d a'>4. d16 d <d a'>8 q r | }
g( d) fs( d) <c' g'>\glissando( <d a'>4) |
\repeat unfold 3 { <d, a'>4. d16 d <d a'>8 q r | }
g( d) fs( d) <f' c'>\glissando( <d a'>4) |
\repeat unfold 3 { <d, a'>4. d16 d <d a'>8 q r | }
g( d) fs( d) <c' g'>\glissando( <d a'>4) |
\repeat unfold 2 { <d, a'>4. d16 d <d a'>8 q r | }
f e f g f g a |
g a bf c d ef16 d c ef |
\repeat volta 3 {
\repeat unfold 3 {
d8 d, c' d, c' d d, |
}
g' d, fs' d, c' d d,^"3x" |
}
\repeat unfold 2 {
d' d, c' d, c' d d, |
}
<f c'> <d a'> q <g d'> <d a'> q <f c'> |
<d a'> q <g d'> <d a'> q <f c'> <d a'> |
<af' ef'>2 ~ q8 g4 |
\time 4/4
\bar "||"
\repeat unfold 3 { f16( d) d d d8 d16 d ~ d d d8 r d16 d | }
f( d) d d g( d) d af'( d,) d a'( d,) af' g f d |
\repeat volta 2 {
\repeat unfold 3 { d''4 d8 c16 d ~ d8 c4. }
d4 d8 c16 \grace { fs8( } g16) ~ g8 fs4. |
}
\repeat unfold 3 {
<g, c>16\glissando( <a d>) q q q8 <g c>16\glissando( <a d>) ~ q4. \xNotesOn <g c>16 q \xNotesOff |
}
<f c'>4 <e c'>8. <c g'>16 ~ q8 <d a'>4. |
\repeat unfold 3 {
<g c>16\glissando( <a d>) q q q8 <g c>16\glissando( <a d>) ~ q4. \xNotesOn <g c>16 q \xNotesOff |
}
\time 5/8
<af, ef'>8 <g d'> <f c'> <g d'> <f c'> |
\time 4/4
<<
{ r4 r8 <d' a' c e> ~ q2 | r4 r8 <d a' c e> ~ q2 | r4 r8 <d c' f> ~ q2 | r4 r8 <d c' f> ~ q2 | } \\
{ <d, a'>4 q8 r8 r2 | <d a'>4 q8 r8 r2 | <d a'>4 q8 r8 r2 | <d a'>4 q8 r8 r2 | }
>>
<<
{ r4 r8 <d' a' c e> ~ q2 | r4 r8 <d a' c e> ~ q2 | r4 r8 <d d' g> ~ q2 | } \\
{ <d, a'>4 q8 r8 r2 | <d a'>4 q8 r8 r2 | <d a'>4 q8 r8 r2 | }
>>
<d a'>4 q8 <af' ef'> ~ q <ef bf'>4. |
\repeat unfold 3 { d16 d d d d8 d16 d ~ d d d8 r4 | }
d16 d d d f( d) d g( d) d f( d) d ef8. |
\bar "||"
% verse 1
\repeat unfold 4 {
\repeat unfold 3 { d16 d d d d8 d16 d ~ d d d8 r4 | }
d16 d d d f( d) d g( d) d f( d) d ef8. |
}
% pre-chorus
\repeat unfold 2 {
<d a' d a' d fs>2.. <d a' d a' d g>8 ~ | q2 <d a' d a' d fs> |
<a' e' a cs>2 ~ q8 <a e' a d>4 <a e' a cs>8 ~ | q4 a16 a a a <a e' a cs>4. a16 a |
<f' d'>4. <g e'>8 ~ q <a f'>4 <bf g'>8 ~ | q4. <a f'>8 ~ q <g e'>4 <f d'>8 ~ |
q4. <e cs'>8 ~ q4 <d b'>8( <e cs'>) | <a, e' a cs>2 a16 a a a <a e' a cs>4 |
}
d,16 f g d g f d f d f g d g f d f |
d f g d g f d f d f g d <af' ef' af>4 |
d,16 f g d g f d f d f g d g f d f |
d f g d g f d f d f g d <c' g' c>4 |
d,16 f g d g f d f d f g d g f d f |
d f g d g f d f d f g d <af' ef' af>4 |
d,16 f g d g f d f d f g d g f d f |
\tuplet 3/2 { <af ef' af>4 <g d' g> <f c' f> } <g d' g>8 <ef bf' ef>4. ~ |
q1 ~ | q1 |
\bar "||"
\repeat unfold 3 { d16 d d d d8 d16 d ~ d d d8 \override Staff.NoteHead.style = #'harmonic-black f4 \revert Staff.NoteHead.style | }
d16 d d d f( d) d g( d) d f( d) d ef8. |
}
vocalMelody = \relative c'' {
\repeat volta 4 { R1*7/8*4 | }
R1*7/8*18 |
R1*7/8*16 |
\repeat volta 3 { R1*7/8*4 | }
R1*7/8*5 |
R1*4
\repeat volta 2 { R1*4 | }
R1*7 | r2 r8 |
R1*8 |
R1*4 |
% verse 1
fs2.^"verse 1" ~ fs8 g ~ | g2. ~ g8 g |
g( d) d( c) c d4 d8 ~ | d2 r2 |
fs2. fs8 g ~ | g2. ~ g8 g |
g( d) d c ~ c4 c8( d) | d2 r2 |
fs2. ~ fs8 g ~ | g1 |
g8( d) d c8 ~ c8 d4 d8 ~ | d2 r2 |
fs2. ~ fs8 g ~ | g2. ~ g8 g |
g( d) d c8 ~ c d4 d8 ~ | d2 r2 |
}
allTheLyrics = \lyricmode {
% verse 1
Feels __ like __ this road __ won't __ ev -- er __ end. __
Sleep -- ing at __ the wheel __ but I __ can't __ wake.
Seems __ like __ I'm __ my on -- ly friend.
God __ sent __ but Heav -- en just __ can't wait. __
% pre-chorus 1
}
guitarOneStaff = \new Staff \with { midiInstrument = "distorted guitar" midiMaximumVolume = #0.6 }{ \global \guitarOne }
vox = \new Staff \with { midiInstrument = "voice oohs" midiMinimumVolume = #0.7 } {
<<
\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 { "°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 {
\global
%\powerChords
\set chordNameExceptions = #chordExceptions
\set majorSevenSymbol = \markup "maj7"
}
chordNames = \new ChordNames {
\set chordChanges = ##t
\set chordNameExceptions = #chordExceptions
\chordValues
}
\score {
<<
\chordNames
\vox
\demLyrics
\guitarOneStaff
>>
\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
>>
}
\midi {}
}