tmont/music
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

the haunted house

Browse Source
This commit is contained in:
tmont 2023-09-20 20:36:56 -07:00
parent a6b44e5e40
commit 0ab9025754
2 changed files with 551 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

551
album3/haunted-house.ly Normal file
View File

@ -0,0 +1,551 @@
\version "2.24.0"
\language "english"
\header {
title = "The Haunted House"
composer = "Tommy Montgomery"
copyright = "(c) 2023 Tommy Montgomery"
}
global = {
\key e \mixolydian
\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
\tempo 4 = 172
}
glueRiffFirstSix = \relative c {
e8 d' e e, d' e e, d' | e e, d' e \grace e( f e) d e |
e, d' e e, a b e, d' | cs e, g a \grace a( bf a) g a |
e d' e e, d' e e, d' | e e, d' e \grace e( f e) d e |
}
glueRiffFirstHalf = \relative c {
\glueRiffFirstSix
e8 d' e e, gs' a e, d'' e e,, b'' a e, e' d4 |
}
glueRiffSecondHalf = \relative c {
\glueRiffFirstSix
e8 d' e e, gs' a e, d'' e e,, gs'' a e,, d''' e4 |
}
glueRiffThree = \relative c {
d'4. a'8 ~ a4 gs ~ | gs8 a4. d4. a'8 ~ | a4 gs ~ gs8 a4. |
<a b>2( <b b>) |
}
guitarOne = \relative c' {
\global
<e b' e>4 q q8 q q q ~ | q q q q ~ q q q q |
<d a' d>4 q q8 q q <a e' a> ~ | q q q q ~ q q q q |
<e' b' e>4 q q8 q q q ~ | q q q q ~ q q <e e'> <fs fs'> |
<g g'>4 q8 q q <fs fs'> <e e'> <d d'> ~ | q q q q ~ q q q\glissando( <fs fs'>) |
<e b' e>4 q q8 q q q ~ | q q q q ~ q q q q |
<d a' d>4 q q8 q q <a e' a> ~ | q q q q ~ q q q <b fs' b> |
<c g' c>4 q q8 q q <g d' g> ~ | q q q q ~ q q q\glissando( <a e' a>) |
q4 q q8 q q q ~ | q q q q ~ q q q q |
\glueRiffFirstHalf
\glueRiffSecondHalf
\glueRiffThree
%{
<d a' d f>4 q q8 q q q ~ | q q q q ~ q q q q |
<a e' a cs>4 q q8 q q q ~ | q q q q ~ q q q q |
<g d' g bf d g>4 q q8 q q q ~ | q q q q ~ q q <g d' g>\glissando( <bf f' bf>) |
<a e' a cs>4 q q8 q q q ~ | q q q q ~ q q q q |
<bf f' bf>4. q8 ~ q4 q ~ | q8 q4. <c g' c>4. q8 ~ |
q4 q ~ q8 q4. | c4 d e c |
<d a' d>4 q q8 q q q ~ | q q q q ~ q q q q |
a'16( b a g) e8( d) a( c\glissando d) d | fs( d) g16 a g fs g8( fs) d( a) |
e4. e'8 ~ e4 b' ~ | b8 d4. <a' b>2 ~ |
q1 ~ | q1 |
% e,,8 <g d' g>\glissando( <fs cs' fs>) e |
% <g d' g>\glissando( <fs cs' fs>) e <g d' g>\glissando( <fs cs' fs>) e <g d' g>\glissando( <a e' a>) |
%}
\bar "||"
\repeat unfold 8 e8 \repeat unfold 8 e \repeat unfold 8 d' \repeat unfold 8 a
\repeat unfold 8 e \repeat unfold 8 e \repeat unfold 8 g \repeat unfold 8 d'
\repeat unfold 8 e, \repeat unfold 8 e \repeat unfold 8 d' \repeat unfold 7 a b
\repeat unfold 6 c b a \repeat unfold 6 g a b \repeat unfold 8 a \repeat unfold 8 a
% interlude
\glueRiffSecondHalf
% verse 2
\repeat unfold 2 {
e8 e <e e'> e e e e <e e'> | e <e e'> e e e e <e e'> e |
e e <e d'> e e <e d'> e <e cs'> | e e <e cs'> e cs' d cs a |
}
\alternative {
{
e8 e <e e'> e e e e <e e'> | e <e e'> e e e e <e e'>( fs') |
<b, g'> b b b b <b g'> b <a fs'> ~ | q a a a <a fs'>( d) <a d>( e') |
}
{
g, c d g, c e g, c | d g, b d g, b d g, |
a e' a a, e' b' a, e' | d' a, e' cs' a, e' g( a) |
}
}
% chorus 2
\key d \minor
bf8 f bf, bf' f bf, bf' f | c' g c, c' g c, c' g |
c f, c c' f, c c' f, | d' g, d d' g, d d' g, |
d' bf d, d' bf d, d' bf | e c e, e' c e, e' c |
e a, e e' a, e e' a, | e' a, e e' a, e e' a, |
f' bf, f f' bf, f f' bf, | g' c, g g' c, g g' c, |
f c f, f' c f, f' c | g' d g, g' d g, g' d |
bf' f bf, bf' f bf, bf' f | c' g c, c' g c, c' g |
d e g a \ottava #1 d e g a | d1 \ottava #0 |
\bar "||"
% bridge
\key e \dorian
\time 2,2,2,2,2,2 6/4
e,,,,8 e' b' d ~ d b4 e,8 d'4 b |
e,,8 e' b' cs ~ cs b4 e,8 cs'4 b |
e,,8 e' b' c ~ c b4 e,8 c'4 b |
g,8 d' a' b ~ b g4 g,8 b'4 g |
e,8 e' b' d ~ d b4 e,8 d'4 b |
e,,8 g' cs e ~ e cs4 g8 e'4 cs |
e,,8 fs' d' a' ~ a d,4 fs,8 a'4 d, |
a8 e' a d ~ d a4 e8 <a, e' a cs>2\arpeggio ~ | \time 2/4 q2 |
\time 4/4
e,8 e' g d' fs d g, e' ~ | e1 |
e,,8 fs' a d a' d, a e' ~ | e1 |
g,,8 d' fs g d' g, fs e' ~ | e1 |
a,,8 d a' b g' b, a fs' ~ | fs1 |
\bar "||"
e,,8 e' g e d' g, e e, | e' g e d' g, e g e |
e, e' a e cs' a e e, | e' a e cs' a e a e |
e, c' g' c, c' g c, e, | c' g' c, c' g c, b a |
g d' g d b' g d g, | d' g d b' g d g, fs |
e e' g e d' g, e e, | e' g e d' g, e g e |
e, g' cs g e' cs g e, | g' cs g e' cs g cs g |
e, fs' a fs d' a fs e, | fs' a fs d' a fs a fs |
e, e' a e cs' a e e, | e' a e b' a e g( fs) |
e2 b'4. e8 ~ | e1 | fs,2 a4. d8 ~ | d1 |
a2 d4. e8 ~ | e1 | g,2 d'4. fs8 ~ | fs1 |
e,,4 e r4 r8 e ~ | e e4 e8 ~ e e g' e |
e,4 e r4 r8 e ~ | e e4 e8 ~ e e a' e |
e,4 e r4 r8 e ~ | e e4 e8 ~ e e g' e |
g,4 g r4 r8 g ~ | g g4 g8 ~ g a g fs |
e16 e e8 r e <e' b'>4. e,8 | r e r e16 e <e' b'>2 |
e,16 e e8 r e <g' cs>4. e,8 | r e r e16 e <g' cs>2 |
e,16 e e8 r e <a' d>4. e,8 | r e r e16 e <a' d>2 |
<a, e' a>8 <g d' g>4 q8 ~ q4 e16 e e e | <a e' a>8 <g d' g>4 q8 ~ q8 <a e' a>4. |
\key b \mixolydian
b8 fs' b ds e b ds b, ~ | b fs' b ds e b ds b |
a, e' a cs e b cs e,, ~ | e b' e gs e' b gs e |
g, d' g d' g d g, d ~ | d a' d fs g( fs) d a |
a, e' a e d' a e cs' ~ | cs a e a b a e a, |
b fs' b ds e b ds b, ~ | b fs' b ds e b ds b |
d, a' d a b d a d, ~ | d a' d a b d a d, |
e, b' fs' gs e' b gs e, ~ | e b' fs' gs e' b gs fs |
fs, cs' fs as b as fs fs, ~ | fs cs' fs as b e( fs4) |
<b,, fs' b>4 q q8 q q q ~ | q q q q ~ q q q q |
<a e' a>4 q q8 q q <e b' e> ~ | q q q q ~ q q q <fs cs' fs> |
<g d' g>4 q q8 q q <d' a' d> ~ | q q q q ~ q q q q |
<a e' a>4 q q8 q q q ~ | q q q q ~ q q q q |
<b fs' b>4 q q8 q q q ~ | q q q q ~ q q q <cs gs' cs> |
<d a' d>4 q q8 q q q ~ | q q q q ~ q q q <ds as' ds> |
<e b' e>4 q q8 q q q ~ | q q q q ~ q q q <fs cs' fs> |
<g d' g>4 q q8 q q <a e' a> ~ | q q q q ~ q q q q |
\bar "||"
\key e \mixolydian
\glueRiffFirstHalf
\glueRiffSecondHalf
% verse 3
R1*16 |
% chorus
\key d \minor
\repeat unfold 2 {
<bf, f' bf>4. q8 ~ q4 q | <c g' c>4. q8 ~ q4 q |
<f, c' f>4. q8 ~ q4 q8\glissando( <g d' g>) | q4. q8 ~ q4 q8\glissando( <a e' a>) |
<bf f' bf>4. q8 ~ q4 q | <c g' c>4. q8 ~ q4 q |
}
\alternative {
{ <a e' a>4. q8 ~ q4 <bf f' bf> | <a e' a>4. q8 ~ q4 <g d' g>8\glissando( <a e' a>) | }
{ <d a' g'>4. q8 ~ q4 q | <d a' fs'>4. q8 ~ q4 q | }
}
g,8 f' g g, f' g g, f' | g g, f' g g, f' g g, | f' g g, f' g g, f' g |
g, f' g g, f' g g, f' | g g, f' g g, f' g g, | f' g g, f' g g, f' g |
g,8 f' g g, f' g g, f' | g g, f' g g, f' g g, |
\key e \mixolydian
\glueRiffThree
<e b' e gs b e>1\arpeggio\fermata |
\bar "|."
%{
\time 6/4
\key g \minor
\repeat unfold 2 { g,,,,8( bf) d g d g bf( g) d g d bf | }
\repeat unfold 2 { a( c) ef g ef g a( g) ef g ef c | }
\repeat unfold 2 { bf( d) f a f a c( a) f a f d | }
c( e) g c g c d( c) g c g e | cs( e) g bf g bf cs( bf) g bf g e |
d( f) a d a d f( d) a d a f | e( g) bf d bf d e( d) bf d bf g |
f( af) c f c f af( f) c f c af | g( b) d f d f af( f) d f d b |
c,( ef) g c g c ef( c) g c g ef | d( fs) a c a c d( c) a c a fs |
ef( g) bf d bf d ef( d) bf d bf g | f( a) c f c f a( fs) d c a fs |
%}
}
guitarTwo = \relative c {
R1*32 |
R1*4 |
% verse 1
R1*16 |
R1*8 |
% verse 2
R1*16 |
% chorus 1
R1*16 |
% interlude/breakdown
R1*6/4*8 | R2 |
R1*8 |
% bridge
R1*16 |
R1*8 |
R1*16 |
% interlude/solo
\key b \mixolydian
ds''2 ~ ds8 e4 fs8 ~ | fs1 |
fs2 ~ fs8( g fs) e ~ | e1 |
e2 ~ e8 d e fs ~ | fs1 |
e2 ~ e8 d4 cs8 ~ | cs2 a |
b2 ~ b8 cs4 ds8 ~ | ds1 |
d2 ~ d8 e4 fs8 ~ | fs2. ~ fs8 g16( fs) |
e2 ~ e8 fs4 gs8 ~ | gs2 b |
as2 ~ as8 b4 cs8 ~ | cs1 |
\ottava #1 \grace a'8( b2) \grace a8( b a) fs \grace a( b) ~ |
b2. gs16( a gs fs) |
gs4. b,8 gs'( a gs) fs ~ | fs \grace e( fs) e cs b a fs e |
g8 \tuplet 3/2 { g16 b d } e8 \tuplet 3/2 { g,16 b d } fs8 \tuplet 3/2 { g,16 b d } e8 d ~ |
d4. cs8 ~ cs4 d | e4. a,16 a a4 e'8 \grace e( fs) ~ |
fs4 a16( fs) e( cs) b( a) e'( cs) b( a) fs( e) |
fs4. \ottava #0 b,16 b b8 fs' e b' ~ | b4( cs8) e cs( b) a b16( a) |
d2 ~ d8 a4 d,8 ~ | d4 \tuplet 3/2 4 { cs8 d e fs gs a } b16 cs d ds |
e4. \grace d8( e) ~ e4. e,,16( g a) a( b d) d( e g) g( a b) b( d e) e( g a) |
g2 g4. \grace g8( a) ~ | a1 |
R1*16 |
}
vocalMelody = \relative c' {
R1*16 |
R1*16 |
R1*3 |
r2 r4 r8 e8 |
% verse 1
d'4^"verse 1" d8 d d( cs) cs cs( | b) b4. r2 |
cs4 cs8 cs cs( b) b b ~ | b2 r2 |
d8 d d8 d d( cs) cs cs( | b) b4. r2 |
e8 e e e e d d d ~ | d2 r2 |
d8 d d d d cs cs cs | b b4. r2 |
b8 b b b ~ b cs4 cs8 ~ | cs2 r2 |
c8 c4 c8 ~ c c4 b8 ~ | b b b b ~ b a g g |
a8 a4 a8 ~ a b4 a8 ~ | a2 r2 |
\bar "||"
% interlude
R1*8 |
\bar "||"
d8^"verse 2" d4 d8 ~ d( cs) cs cs( | b) b4. r2 |
cs8 cs cs cs cs( b) b b ~ | b2 r2 |
d8 d d8 d d( cs) cs cs( | b) b4. r4 b8 b |
e e e e e( d) d d ~ | d2 r4 r8 b |
d8 d4 d8 ~ d( cs) cs cs( | b) b4. r4 r8 b |
b b b b ~ b cs cs4 | cs r4 r2 |
c8 c4 c8 ~ c c4 b8 ~ | b4 b8 b ~ b( a) g g |
a a a a ~ a b4 a8 ~ | a2 r2 |
\key d \minor
bf4.^"chorus 1" a8 ~ a4 bf | c4.( bf8 ~ bf4) c | bf4. a8 ~ a4 g8( a) | a2 r2 |
bf4. a8 ~ a4 bf | c4.( bf8 ~ bf4) c | bf4. a8 ~ a4 g8( a) | a2 r2 |
d8 d4 ef8 ~ ef d4 c8 ~ | c g4 g8 ~ g4 g8 g | a8 a4 bf8 ~ bf a g4 | g2 r4 r8 a |
bf4. c8 ~ c4 d | c2 d | e1( | d1) |
\key e \dorian
R1*6/4*8 | R2 |
R1*8 |
% bridge
b4 b b b8 b ~ | b a4. r2 |
a4 a a8( g) g g ~ | g2 r2 |
a4 a a a8 a( ~ | a4 b8) b ~ b4 b |
b4 b b b8 c ~ | c c b4 a g |
b4 b b b8 b( ~ | b a) a2 a4 |
a a a8 b4 b8 ~ | b2 r2 |
cs4. cs8 d4 d8 cs( ~ | cs b) b2 r4 |
r4 b8 b b2 | b8( a) a a ~ a2 |
R1*8 |
b2 d4. e8 ~ | e2. b4 |
e2 d4. d8( | cs b4.) r2 |
r4 b b b8 c ~ | c4 c8 c ~ c4 b8 a |
b2( ~ b8 c b a ~ | a2) r2 |
b2 d4. e8 ~ | e2. e4 |
g2 fs4. g8( | fs e4.) r2 |
r4 e e e8 fs ~ | fs4 fs8 e ~ e4 d |
cs2 ~ cs8 d4 e8 ~ | e1 |
\bar "||"
% guitar solo/instrumental
\key b \mixolydian
R1*32 |
% glue riff
\key e \mixolydian
R1*16 |
\bar "||"
% verse 3
d4^"verse 3" d8 d8 d cs cs cs( | b) b4. r4 r8 b |
cs8 cs4 cs8 ~ cs( b) b b ~ | b2 r2 |
d8 d d8 d d cs cs cs( | b) b4. r2 |
e8 e e e e( d) d d ~ | d2 r4 r8 b |
d8 d4 d8 ~ d( cs) cs cs( | b) b4. r2 |
b8 b b b b cs cs cs ~ | cs4 r4 r2 |
c8 c4 c8 ~ c c4 b8 ~ | b4 b8 b ~ b( a) g4 |
a8 a a a ~ a b4 a8 ~ | a2 r2 |
\bar "||"
\key d \minor
bf4.^"chorus 2" a8 ~ a4 bf | c4.( bf8 ~ bf4) c | bf4. a8 ~ a4 g8( a) | a2 r2 |
bf4. a8 ~ a4 bf | c4.( bf8 ~ bf4) c | bf4. a8 ~ a4 g8( a) | a2 r2 |
d8 d4 ef8 ~ ef d4 c8 ~ | c g4 g8 ~ g4 g8 g | a8 a4 bf8 ~ bf a g4 | g2 r4 r8 a |
bf4. c8 ~ c4 d | c2 d | e1( | d1) |
\bar "||"
R1*8 |
R1*4 |
R1 |
}
allTheLyrics = \lyricmode {
A -- live in the house __ of won -- der,
feels like it's all __ gone wrong. __
Slip in -- to the depths __ of slum -- ber,
lis -- ten to the fu -- ner -- al song.
Liv -- ing on the edge of in -- san -- it -- y, __
start -- ing to feel so right. __
Head -- ing straight __ a -- head __ to ca -- lam -- i -- ty.
The fu -- ture's shi -- ning bright. __
% verse 2
Stripped of all __ e -- mo -- tion,
ne -- ver to be seen __ a -- gain.
Tried to give a last de -- vo -- tion
but the ceil -- ing is the on -- ly friend. __
The haunt -- ed house __ is clos -- ing,
the win -- dows are board -- ed up tight.
Sit -- ting here __ just de -- com -- pos -- ing,
too ti -- red to feel __ such fright. __
% chorus 1
Now's not __ the time __ to let it __ all __ go.
Stuck in __ a world __ that just moves __ too __ slow.
Ne -- ver in __ a thou -- sand years __ would there ev -- er be __ e -- nough time
to stand up __ and make it right. __
% bridge
Shoved in -- to the cor -- ner
feel -- ing all __ a -- lone. __
All eyes from the out -- side __
can't bear to see this fall from so far up.
On this tra -- gic moun -- tain
the air is stretch -- ing thin. __
Now is not for -- e -- ver
but it sure feels __ the same. __
It's all right __ to cry it out. __
Can't seem to hold __ it back __ an -- y -- more. __
So much time __ to lie a -- wake __
and think of all __ the love __ that's come __ and gone. __
% verse 3
Now that the spell has been bro -- ken
the heal -- ing can __ be -- gin. __
Fin -- al -- ly the mind has a -- wo -- ken
ne -- ver to be seen __ a -- gain. __
The haunt -- ed house __ is op -- en,
wait -- ing for a new Heav -- en sent. __
Got to find __ a way __ to cope __ in
spite of dis -- or -- i -- ent. __
% chorus 2
Now is __ the time __ to let it __ all __ go.
Stuck in __ a world __ that just moves __ too __ slow.
Ne -- ver in __ a thou -- sand years __ would there ev -- er be __ e -- nough time
to stand up __ and make it right. __
}
guitarOneStaff = \new Staff \with { midiInstrument = "distorted guitar" midiMaximumVolume = #0.6 }{ \global \guitarOne }
guitarTwoStaff = \new Staff \with { midiInstrument = "distorted guitar" midiMaximumVolume = #0.6 }{ \global \guitarTwo }
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
\set chordNameExceptions = #chordExceptions
\set majorSevenSymbol = \markup "maj7"
}
chordNames = \new ChordNames {
\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 {}
}

BIN
album3/haunted-house.pdf Normal file
View File

Binary file not shown.