music/album2/vortiginous.ly
2019-09-06 19:23:51 -07:00

340 lines
7.9 KiB
Plaintext

\version "2.18.2"
\language "english"
\header {
title = "Vortiginous"
composer = "Tommy Montgomery"
copyright = "(c) 2019 Tommy Montgomery"
}
global = {
\key e \minor
\set Staff.printKeyCancellation = ##f
\numericTimeSignature
\compressFullBarRests
\omit Voice.StringNumber
\override TupletBracket #'bracket-visibility = #'if-no-beam
\override MultiMeasureRest.expand-limit = #3
\time 3/4
\tempo 4 = 104
}
mainRiffE = \relative c {
e16( a b) a( e' fs) e,( b' d) a( g' a) |
}
mainRiffCToDToE = \relative c {
e16( b' c) a( e' g) e,( d' e) a,( g' b) |
e,,( b' d) a( fs' a) e,( e' fs) a,( b' d) |
\repeat unfold 2 { e,,( d' e) a,( g' a) e,( g' a) a,( a' b) | }
e,,16( b' c) a( e' g) d( b' c) g( e' g) |
e,,( b' d) a( fs' a) d,( b' d) g,( fs' a) |
\repeat unfold 2 { e,,( d' e) a,( a' b) d,( d' e) g,( a' b) | }
}
guitarOne = \relative c' {
e16 a( b) e, e' e, a( b) e, d' e, a( |
b) e, cs' e, a( b) e, fs g fs e d |
e16 a( b) e, e' e, a( b) e, d' e, a( |
b) e, c' a b c b a g fs e d |
e16 a( b) e, e' e, a( b) e, d' e, a( |
b) e, cs' e, a( b) e, fs g fs e d |
e16 a( b) e, d'( e) e, a'\glissando( b g) e b |
d( b) g d a d( e) g( a g) fs d |
\repeat unfold 4 { <e, b'>16 q q q q8 q16 q ~ q q q8 | }
\repeat unfold 2 { <g c g'>16 q q q q8 q16 q ~ q q q8 | }
<a d a'>16 q q q q8 q16 q ~ q q q8 |
<g d' g>4 <a e' a> a16 g fs8 |
% main riff
\repeat volta 2 \repeat unfold 2 \mainRiffE
\mainRiffCToDToE
<<
{ c'''4. c | b4. a8.\glissando( g) | g16( a8.) ~ a2 ~ | a2 a,16 d fs g } \\
{
a,,16( b c) a( c d) a( d e) a,( e' f) |
a,( b c) a( c d) a( d e) a,( e' f) |
a,( cs d) a( d e) a,( e' fs!) a,( fs' g) |
a,( cs d) a( d e) a,( e' fs) a,( fs' g) |
}
>>
<<
{ a'4. b4( a8) | g4 ~ g16[( a32 g)] e8.[ d] | d16( e) ~ e4. ~ e16 e fs g | r a( g) r g( fs) r fs( e) r e( d) | e2. } \\
{
a,,16( e' f) d( a' c) a,( g' a) d,( c' e) |
a,,( e' g) d( b' d) a,( a' b) d,( e' g) |
a,,( cs d) a( d e) a,( e' fs) a,( fs' g) |
a, a' g a, g' fs a, fs' e a, e' d |
\mainRiffE
}
>>
\mainRiffE
\repeat volta 2 \mainRiffE
\time 6/8
b''4.^"Over main E riff" e, |
b' e,8 e16 fs g a |
b4. a8( b32 a\glissando g8.) |
a4. d,8. d16 ds e |
b'4. e, | \grace b'16( c4.) b4 a16\glissando( g) |
a4. ~ a16 a' g fs d a | g fs a g fs d fs d a g fs g |
a4. f8. f16 a b |
c4 c16 d e4 e16 f |
g8. g16 a( b) a8. a16 d( e) |
d8. d16 e( f) e4 \tuplet 3/2 { e16( d cs) } |
a8. f16 a b c!8. f,16 b( a) |
b8. g16 b( c) d8. g,16 c( b) |
a2. ~ |
a |
\time 3/4
R1*4*3/4^"main E riff" |
\repeat unfold 4 { <e,, b'>16 q q q q8 q16 q ~ q q q8 | }
\repeat unfold 2 { <g c g'>16 q q q q8 q16 q ~ q q q8 | }
\repeat unfold 2 { <a d a'>16 q q q q8 q16 q ~ q q q8 | }
\time 6/8
\key b \major
ds'4. ds | e ds |
cs2. | b4. cs |
ds4. ds | e ds
cs2. | b4. as |
gs2. | as4. b |
as2. | b4. cs |
b2. | cs4. ds |
cs4. ~ cs4 cs16( ds) | e4. e8 ds cs |
ds2. | gs4. fss |
es2. | ds4. es |
fss2. | gs4. fss |
<<
{ es4. ~ es8. fs16 gs as | b4. as | } \\
{ <as,, es' as>4. q4 gs16( b) | as8 as16 as gs( b) as8 as16 as b( as) }
>>
<gs ds'>4. q8 gs16 gs gs( b) |
as8 as16 as as( cs) b8 b16 b b( cs) |
ds8 ds16 as' cs e ds8 as16 e' gs b |
as8 ds,16 as' cs e ds4. |
\grace ds16( e4)
<<
{ ds16( cs) b as e cs as fss | } \\
{ e16 fss as cs e fss as cs | }
>>
ds2. | e4. ds |
cs2. | b4. cs |
ds2. | e4. ds |
cs2. | b4. as |
gs2. | as4. b |
as2. | b4. cs |
b2. | cs4. ds |
cs4. ~ cs4 cs16( ds) | e4. e8 ds cs |
\key e \minor
\repeat unfold 8 { b,,16 e( fs) } |
\repeat unfold 4 { g, e'( fs) } |
\repeat unfold 4 { a, e'( fs) } |
\time 3/4
\repeat unfold 8 { b,16 e( fs) } |
\repeat unfold 4 { g, e'( fs) } |
\repeat unfold 4 { a, e'( fs) } |
\repeat unfold 4 { <e, b'>16 q q q q8 q16 q ~ q q q8 | }
\repeat unfold 2 { <g c g'>16 q q q q8 q16 q ~ q q q8 | }
\repeat unfold 2 { <a d a'>16 q q q q8 q16 q ~ q q q8 | }
a16( b c) a( c d) a( d e) a,( e' f) |
a,16( b c) a( c d) a( d e) a,( e' f) |
\tuplet 6/4 4 {
a16( g fs g fs) e fs e d e d cs
c'?( b a b a) g a g fs g fs e
d'( c b c b) a b a g a g fs
} |
\repeat volta 2 \repeat unfold 2 \mainRiffE |
\time 6/8
e''4. \grace fs16( g4 fs8) | e4( fs16 e d4) d16( ds) | e2. ~ | e4. r4. |
e4. \grace fs16( g4 fs8) | e4( fs16 e d4) d16( ds) | e2. ~ | e4. r4. |
\ottava #1 b'4. \grace b16( c4 b8) | a4( b16 a g4) g16( a) | b2. ~ | b4. r4. |
b4. \grace b16( c4 b8) | a4( b16 a g4) g16( gs) | a2. ~ | a4. r4. |
\ottava #0 e4. \grace fs16( g4 fs8) | e4( fs16 e d4) d16( ds) | e2. ~ | e4. r4. |
\time 3/4
\repeat unfold 4 { <e,,, b'>16 q q q q8 q16 q ~ q q q8 | }
\repeat unfold 2 { <g c g'>16 q q q q8 q16 q ~ q q q8 | }
<a d a'>16 q q q q8 q16 q ~ q q q8 |
<g d' g>4 <a e' a> a16 g fs8 |
<e b' e>2. |
\mainRiffE
e16( d' e) a,( a' b) e,,( fs' a) a,( d' e) |
e,,( a' b) a,( e'' fs) e,,( b'' d) a,( g'' a) |
<c,, e g b e>2. |
\tuplet 6/4 4 { <a d>16 q q q q q } <a d a'>8 q16 q ~ q q q8 |
<b e b'>4 \tuplet 6/4 4 { g'''16( e) d b a g e d b a g fs } |
e4\glissando r2 | \bar "|."
}
guitarOneStaff = \new Staff \with { midiInstrument = "distorted guitar" }{ \global \guitarOne }
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 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 b>1-\markup { "maj7" }
<c f g>1-\markup { "sus4" }
<c d g>1-\markup { "sus2" }
}
chordExceptions = #(append
(sequential-music-to-chord-exceptions chordExceptionMusic #t)
ignatzekExceptions
)
chordValues = \chordmode {
\global
\powerChords
\set chordNameExceptions = #chordExceptions
\set majorSevenSymbol = \markup "maj7"
e2.:1.4.5.7 | e:m6 | e:1.4.5.7 | q8 a2:m q8 |
e2.:1.4.5.7 | e:m6 | e2:1.4.5.7 e4:m | g a:1.4.5.7 d |
e2.:1.5 | q | q | q |
c:1.5 | q | d:1.5 | g4:1.5 a:1.5 d |
\repeat volta 2 { e2.:1.4.5.7 | q | }
c:maj7 | d:6 | e:1.4.5.7 | q |
c:maj7 | d:6 | e:1.4.5.7 | q |
f:maj7/a | q | a:6 | q |
f:maj7 | g:6 | a:6 | q |
e2.:1.4.5.7 | q | \repeat volta 2 q |
% E riff w/ lead
q | q | q | q |
c:maj7 | q | d:6 | q |
f:maj7/a | q | a:6 | q |
f:maj7 | g:6 | a:6 | q |
R1*4*3/4 |
e2.:1.5 | q | q | q |
c:1.5 | q | d:1.5 | q |
b2. | b4.:sus4 b |
a2. | a4.:sus2 a |
b2. | b4.:sus4 b |
fs2. | fs4.:sus4 fs |
e2. | e4.:1.3.5.11+ e |
fs2. | fs4.:sus4 fs |
gs2.:m | q |
fs2. | fs:7/as |
ds2. | ds4.:sus4 ds |
cs2. | cs4.:sus2 cs |
ds2. | ds4.:sus4 ds |
as2. | as:1.3.5.7.9- |
gs2.:m | q |
ds:1.3.5.7.9- | q | q4. ds:dim7 |
gs2.:m | q |
ds2.:7 | q |
gs2.:m | q |
fs2. | fs4.:sus4 fs |
e2. | e4.:1.3.5.11+ e |
fs2. | fs4.:sus4 fs |
gs2.:m | q |
fs2. | fs:7/as |
b2.:sus4 | q | g:maj7 | a:6 |
b2.:sus4 | q | g:maj7 | a:6 |
b2.:sus4 | q | g:maj7 | a:6 |
c:1.5 | q | d:1.5 | q |
f:maj7/a | q | a2:6 c d |
\repeat volta 2 { e2.:1.4.5.7 | q | }
e:1.4.5.7 | q | q | q |
c:maj7 | d:6 | e:1.4.5.7 | q |
c:maj7 | d:6 | e:1.4.5.7 | q |
f:maj7/a | q | a:6 | q |
f:maj7 | g:6 | a:6 | q |
e2.:1.4.5.7 | e:m6 | e:1.4.5.7 | q8 a2:m q8 |
e2.:1.4.5.7 | e:m6 | e2:1.4.5.7 e4:m | g a:1.4.5.7 d |
e2.:1.5 | e:1.4.5.7 | q | q |
c:maj7 | d:1.5 | e4:1.5 r2 | r2. |
}
chordNames = \new ChordNames {
\set chordChanges = ##t
\set chordNameExceptions = #chordExceptions
\chordValues
}
\score {
<<
\chordNames
\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, \guitarOneStaff
>>
}
\midi {}
}