diff --git a/album3/haunted-house.ly b/album3/haunted-house.ly new file mode 100644 index 0000000..83369b8 --- /dev/null +++ b/album3/haunted-house.ly @@ -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. | + 2( ) | +} + + +guitarOne = \relative c' { + \global + 4 q q8 q q q ~ | q q q q ~ q q q q | + 4 q q8 q q ~ | q q q q ~ q q q q | + 4 q q8 q q q ~ | q q q q ~ q q | + 4 q8 q q ~ | q q q q ~ q q q\glissando( ) | + + 4 q q8 q q q ~ | q q q q ~ q q q q | + 4 q q8 q q ~ | q q q q ~ q q q | + 4 q q8 q q ~ | q q q q ~ q q q\glissando( ) | + q4 q q8 q q q ~ | q q q q ~ q q q q | + + \glueRiffFirstHalf + \glueRiffSecondHalf + \glueRiffThree + + %{ + 4 q q8 q q q ~ | q q q q ~ q q q q | + 4 q q8 q q q ~ | q q q q ~ q q q q | + 4 q q8 q q q ~ | q q q q ~ q q \glissando( ) | + 4 q q8 q q q ~ | q q q q ~ q q q q | + + 4. q8 ~ q4 q ~ | q8 q4. 4. q8 ~ | + q4 q ~ q8 q4. | c4 d e c | + 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. 2 ~ | + q1 ~ | q1 | + % e,,8 \glissando( ) e | + % \glissando( ) e \glissando( ) e \glissando( ) | + %} + + \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 cs' d cs a | + } + \alternative { + { + e8 e e e e e | e e e e e ( fs') | + b b b b b ~ | q a a 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 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 4. e,8 | r e r e16 e 2 | + e,16 e e8 r e 4. e,8 | r e r e16 e 2 | + e,16 e e8 r e 4. e,8 | r e r e16 e 2 | + 8 4 q8 ~ q4 e16 e e e | 8 4 q8 ~ q8 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) | + + 4 q q8 q q q ~ | q q q q ~ q q q q | + 4 q q8 q q ~ | q q q q ~ q q q | + 4 q q8 q q ~ | q q q q ~ q q q q | + 4 q q8 q q q ~ | q q q q ~ q q q q | + + 4 q q8 q q q ~ | q q q q ~ q q q | + 4 q q8 q q q ~ | q q q q ~ q q q | + 4 q q8 q q q ~ | q q q q ~ q q q | + 4 q q8 q q ~ | 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 { + 4. q8 ~ q4 q | 4. q8 ~ q4 q | + 4. q8 ~ q4 q8\glissando( ) | q4. q8 ~ q4 q8\glissando( ) | + 4. q8 ~ q4 q | 4. q8 ~ q4 q | + } + \alternative { + { 4. q8 ~ q4 | 4. q8 ~ q4 8\glissando( ) | } + { 4. q8 ~ q4 q | 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 + + 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 = { + 1-\markup { "maj9" } + 1-\markup { "maj7" \sharp "11" } + 1-\markup { "m7sus4" } + 1-\markup { "°7" } + 1-\markup { \super { "ø7" } } + 1-\markup { "add9" } + 1-\markup { "m(add9)" } + 1-\markup { \super { \sharp "11" \sharp "13" } } + 1-\markup { "5" } + 1-\markup { "7" } + 1-\markup { "maj7" } + 1-\markup { "m7" } + 1-\markup { "sus4" } + 1-\markup { "sus2" } + 1-\markup { "7" \super { \flat "9" } } + 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 {} +} + diff --git a/album3/haunted-house.pdf b/album3/haunted-house.pdf new file mode 100644 index 0000000..12b21c2 Binary files /dev/null and b/album3/haunted-house.pdf differ