music/album4/instr1.ly
2025-05-02 12:39:08 -07:00

559 lines
14 KiB
Plaintext

\version "2.24.0"
\language "english"
\header {
title = "Instrumental"
composer = "Tommy Montgomery"
tagline = ""
}
global = {
\set Staff.printKeyCancellation = ##f
\numericTimeSignature
\compressEmptyMeasures
\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
\override Staff.OttavaBracket.font-series = #'normal
\set Staff.ottavationMarkups = #ottavation-simple-ordinals
\tempo 4 = 112
\key fs \minor
}
guitarOne = \relative c' {
\time 4/4
\global
% intro
\repeat unfold 3 {
fs,8 fs \xNotesOn fs16 fs fs \xNotesOff fs ~ fs fs8 \xNotesOn fs16 fs fs \xNotesOff fs8 |
fs \xNotesOn fs16 fs fs \xNotesOff fs8 fs16 ~ fs \xNotesOn fs16 fs fs \xNotesOff
}
\alternative {
{ gs8 a | }
{ a8 e | }
{ gs8 a | }
}
fs8 fs \xNotesOn fs16 fs fs \xNotesOff fs ~ fs fs8 \xNotesOn fs16 fs fs \xNotesOff <d' a'>8 |
\xNote e,16 <a e'>8 \xNote e16 <e b'>2. ~ |
q2 \tuplet 3/2 { gs''16( a \set stemRightBeamCount = #1 gs) } \set stemLeftBeamCount = #1 fs e b a gs e |
\bar "||"
\repeat unfold 4 {
fs,8 fs \xNotesOn fs16 fs fs \xNotesOff fs ~ fs fs8 \xNotesOn fs16 fs fs \xNotesOff fs8 |
fs \xNotesOn fs16 fs fs \xNotesOff fs8 fs16 ~ fs \xNotesOn fs16 fs fs \xNotesOff
}
\alternative {
{ gs8 a | }
{ a8 e | }
{ gs8 a | }
{ a b | }
}
<cs gs' cs>8 q \xNotesOn q16 q q \xNotesOff q ~ q q8 \xNotesOn q16 q q \xNotesOff <cs g' cs>8 |
q \xNotesOn q16 q q \xNotesOff e'( ds) cs( b) cs fs, g d' bs, d? fs |
<cs gs' cs>8 q \xNotesOn q16 q q \xNotesOff q ~ q q8 \xNotesOn q16 q q \xNotesOff <cs g' cs>8 |
q \xNotesOn q16 q q \xNotesOff <cs g' cs>8 q16 \tuplet 6/4 4 { ds'16( cs b) a( g es) ds( cs b) a( g es) } |
\repeat unfold 2 {
fs8 fs \xNotesOn fs16 fs fs \xNotesOff fs ~ fs fs8 \xNotesOn fs16 fs fs \xNotesOff fs8 |
fs \xNotesOn fs16 fs fs \xNotesOff fs8 fs16 ~ fs \xNotesOn fs16 fs fs \xNotesOff
}
\alternative {
{ gs8 a | }
{ b8 a | }
}
\repeat unfold 2 {
<gs ds' gs>8 q \xNotesOn q16 q q \xNotesOff q ~ q q8 \xNotesOn q16 q q \xNotesOff <gs d' gs>8 |
q \xNotesOn q16 q q \xNotesOff
}
\alternative {
{ q8 e16 gs( e) gs b d b gs( e) | }
{ q8 q16 ~ q \xNotesOn q16 q q \xNotesOff <a ds a'>4 | }
}
gs8 \tuplet 3/2 { b16 d! es } gs8 d \tuplet 3/2 { es16 gs b } d!8 gs, \tuplet 3/2 { b16 d es } |
gs8 d \tuplet 3/2 { es16 gs b } d8 cs2 ~ |
cs1 ~ | cs4 \tuplet 3/2 { cs16( d \set stemRightBeamCount = #1 cs) } \set stemLeftBeamCount = #1 b cs a b gs a es4 |
\bar "||"
fs,8 gs \xNotesOn gs16 gs gs \xNotesOff gs ~ gs a8 \xNotesOn a16 a a \xNotesOff a8 |
b \xNotesOn b16 b b \xNotesOff b8 cs16 ~ cs d e fs gs8 a |
fs8 gs \xNotesOn gs16 gs gs \xNotesOff gs ~ gs a8 \xNotesOn a16 a a \xNotesOff a8 |
b \xNotesOn b16 b b \xNotesOff b8 cs16 ~ cs \xNotesOn cs cs cs \xNotesOff \tuplet 6/4 { fs16( e) cs b cs e } |
cs8 e r8. \ottava #1 e16 ~ e fs8 r16 r8 fs | gs8 r r16 gs8 a16 ~ a r8 b16 \tuplet 6/4 { cs b a gs a b } |
a8 b r8. b16 ~ b cs8 r16 r8 cs d r8 r16 d8 e16 ~ e r8. \grace { e( } fs4) \ottava 0 |
\repeat unfold 2 {
\grace { \xNotesOn gs,,16 d b fs \xNotesOff } \tuplet 3/2 { cs4 gs'-. b-. } cs2 |
\grace { \xNotesOn gs'16 d b fs \xNotesOff } \tuplet 3/2 { cs4 gs'-. b-. }
}
\alternative {
{ \grace cs8( d)( cs b cs) | }
{ cs16( d) es( gs) b( d) cs8 | }
}
\ottava 1
\repeat unfold 4 { fs16( cs) b fs r }
\repeat unfold 4 { gs'16( fs) b, a r }
\repeat unfold 4 { a'16( gs) fs cs r }
\tuplet 6/4 { cs'( a) fs cs a fs } |
d4. fs8 ~ fs4 gs | d'4. fs8 ~ fs4 \grace gs8( a)( gs16 fs) |
gs4. gs8 ~ gs4 gs | cs,2\glissando cs'2 ~ | cs1 ~ |
cs4 \tuplet 3/2 { gs16( a \set stemRightBeamCount = #1 gs) } \set stemLeftBeamCount = #1 fs gs d es cs( d) cs4 |
\ottava 0
fs,,,16( a) cs fs r cs fs( a) cs r fs,( a) cs fs r cs fs a cs r
d( b) gs es r gs( es) d b r d( b) gs es r gs( es) d b r
c( ef) g c r g c( ef) g r d,( fs) a d r bf( d) g a r bf( g) e cs! |
b( d) fs b r fs b d fs r g( e) b g r e,32( g) |
b e g b e e r16 fs( ds) b fs r c e g c r \tuplet 3/2 { a' g fs } |
\tuplet 3/2 { d a fs } d16 r \tuplet 6/4 { c ds fs a c ds } fs4 g16( d) g, d'( |
bf) c, ef( g) c ef d( a) d, a'( fs) a, bf d g a bf g d' fs, ef' c fs a, g' d a' c, \tuplet 6/4 { bf'( g) ef bf ef g } |
a1 ~ | a ~ | a2. r4 |
R1*4 |
% solo
\ottava #1
\repeat unfold 2 {
\tuplet 3/2 4 {
\grace b,8( c) cs fs \grace e( es) fs fs \grace a( as) fs
fs \grace e( es) fs cs
}
}
\repeat unfold 1 {
\tuplet 3/2 4 {
b cs fs
e fs fs
a fs fs
e fs cs
}
}
\tuplet 3/2 4 {
b cs a b gs a e( fs) fs
}
fs4 |
\tuplet 6/4 4 {
cs''16^+( a fs) b^+( a fs)
a^+( e cs) gs'^+( e cs)
fs^+( d b) e^+( d b)
d^+( gs, es) cs'^+( gs es)
\ottava 0
cs'16^+( a fs) b^+( a fs)
a^+( e! cs) gs'^+( e cs)
fs^+( d b) e^+( d b)
d^+( gs, es) cs'^+( gs es
a fs a) b^+( a) b^+
cs( b cs) e!^+( cs b
cs b cs) e^+( cs) e^+
fs( e fs) a^+( fs e
fs e fs) a^+( fs) a^+
b( a b) cs^+( b a
b a b) cs^+( b) cs^+
}
\tuplet 3/2 { e( cs e) } fs8 |
\ottava 1
\tuplet 6/4 4 {
\repeat unfold 2 { cs'16^+( a) cs^+( a fs a) }
d16^+( b) d^+( b fs b)
cs16^+( a) cs^+( a fs a)
\repeat unfold 2 { b16^+( gs) b^+( gs e gs) }
cs16^+( a) cs^+( a e a)
b16^+( gs) b^+( gs e gs)
\repeat unfold 2 { a16^+( fs) a^+( fs d fs) }
b16^+( fs) b^+( fs d fs)
a16^+( fs) a^+( fs d fs)
gs^+( es) gs^+( es cs es)
a^+( fs) a^+( fs cs fs)
gs^+( es cs) b^+( gs es)
}
cs4 |
\tuplet 6/4 4 {
\repeat unfold 2 { a''16( fs) cs a fs cs fs, cs' fs a cs fs }
b( fs) d b fs d b( d) fs b d fs
a16( fs) cs a fs cs fs, cs' fs a cs fs
\repeat unfold 2 { gs( e) b gs e b e, b' e gs b e }
a( e) cs a e cs a( cs) e a cs e
gs( e) b gs e b e, b' e gs b e
\repeat unfold 2 { fs( d) a fs d a d, a' d fs a d }
fs( d) b fs d b b d fs b d fs
fs( d) a fs d a d, a' d fs a d
es( cs) gs es cs gs cs, gs' cs es gs cs
gs'( es) cs gs es cs cs es gs cs es gs
cs( gs) es cs gs es cs( es) gs cs es gs
}
cs2 | \ottava 0
R1*4 |
% keyboard solo
R1*8 |
R1*4 |
fs,,16 gs a b cs gs a b cs d a b cs d e \ottava 1 b |
cs d e fs \tuplet 6/4 { gs( e) cs a cs e } gs e fs gs a gs a b |
cs4 \grace cs8( d4) cs \ottava 0 b,^"loco" |
cs \grace cs8( d4) cs es |
\tuplet 6/4 { a16( fs) e cs b a } fs8 a r fs a b |
\grace b8( c8 b16)( a) \tuplet 6/4 { fs16 e cs b a fs } a8 b r b |
cs e r fs e,16 fs a b\glissando( cs) e fs a |
b\glissando( cs) e fs a( b a\glissando gs) fs4 \tuplet 6/4 { fs16( e) cs b a fs } |
a8 b r a \tuplet 6/4 { b16( a) fs e cs b } cs8 e r cs \tuplet 6/4 { e16( cs) b a fs e } fs4 r |
b16 cs d e fs
d e fs gs a
fs gs a b cs
a b cs d es
fs es fs gs
\tuplet 6/4 4 { a( g es) ds( cs b) a( g es) ds( cs b) } |
a2 r2 |
R1*3 |
cs'4 \grace cs8( d4) cs es |
fs \grace gs8( a4) gs2 |
<<
{
e16[( ds) cs( b)] cs[ fs, g] d'[ bs, d? fs]
a[( gs) fs e] fs[ b, c] g'[ es, g b] |
}
\\
{
cs'[( b) gs fss] gs[ ds e] bs'[ gs, bs d] |
fs[( e) cs b] cs[ fs, g] es'[ cs, es g] |
}
>>
fs2 r2 |
}
guitarTwo = \relative c' {
\global
% intro
R1*9 |
R1*16 |
% g# part
R1*4 |
R1 | r2 cs4. b8 ~ | b4 d ~ d8 es4. |
b'4 \tuplet 3/2 { cs,16( d \set stemRightBeamCount = #1 cs) } \set stemLeftBeamCount = #1 b cs a b gs a es4 |
\repeat unfold 4 {
fs8 fs \xNotesOn fs16 fs fs \xNotesOff fs ~ fs fs8 \xNotesOn fs16 fs fs \xNotesOff fs8 |
fs \xNotesOn fs16 fs fs \xNotesOff fs8 fs16 ~ fs \xNotesOn fs16 fs fs \xNotesOff
}
\alternative {
{ gs8 a | }
{ a8 e | }
{ gs8 a | }
{ a b | }
}
\repeat unfold 2 {
cs8 cs \xNotesOn cs16 cs cs \xNotesOff cs ~ cs cs8 \xNotesOn cs16 cs cs \xNotesOff cs8 |
cs \xNotesOn cs16 cs cs \xNotesOff cs8 cs16 ~ cs \xNotesOn cs16 cs cs \xNotesOff
}
\alternative {
{ b8( cs) | }
{ a8 gs | }
}
\repeat unfold 2 {
fs8 fs \xNotesOn fs16 fs fs \xNotesOff fs ~ fs fs8 \xNotesOn fs16 fs fs \xNotesOff fs8 |
fs \xNotesOn fs16 fs fs \xNotesOff fs8 fs16 ~ fs \xNotesOn fs16 fs fs \xNotesOff
}
\alternative {
{ gs8 a | }
{ b a | }
}
<gs d' gs>8 q \xNotesOn q16 q q \xNotesOff q ~ q q8 \xNotesOn q16 q q \xNotesOff q8 |
q \xNotesOn q16 q q \xNotesOff q8 e16 gs( e) gs b d b gs( e) |
gs8 \tuplet 3/2 { b16 d es } gs8 d \tuplet 3/2 { es16 gs b } d8 gs, \tuplet 3/2 { b16 d es } |
gs8 d \tuplet 3/2 { es16 gs b } d8 cs2 ~ |
cs1 ~ | cs4 \tuplet 3/2 { cs16( d \set stemRightBeamCount = #1 cs) } \set stemLeftBeamCount = #1 b cs a b gs a es4 |
% f# minor stuff
\repeat unfold 2 { fs,,16 fs fs fs r }
\repeat unfold 2 { a16 a a a r }
\repeat unfold 2 { gs16 gs gs gs r }
\repeat unfold 2 { b16 b b b r }
c16 c c c r
ef ef ef ef r
d d d d r
bf bf bf bf r
cs! cs cs cs |
b b b b r
d d d d r
e e e e r
g g g g r
fs fs fs fs r
e e e e r
\tuplet 3/2 8 { d d d d d d } d r
\tuplet 6/4 { ds fs a c ds fs } a4
bf16( g) bf, g' d ef, g cs ef g fs( d) fs, d' a d, e g bf d |
<<
{
d bf fs' a, g' ef a d, bf' g d' a \tuplet 6/4 { ef' bf g ef g bf } |
a1 ~ |
a ~ |
a2. r4 |
}
\\
{
g,,8 a c d ef c bf g |
a16 cs e ef g bf a cs e ef g bf a4 ~ |
a8 \grace ef8( e4.) a,4. \grace ef8( e8) ~ |
e4 a,2 r16 gs8. |
}
>>
\bar "||"
fs8 fs \xNotesOn fs16 fs fs \xNotesOff fs ~ fs fs8 \xNotesOn fs16 fs fs \xNotesOff fs8 |
fs \xNotesOn fs16 fs fs \xNotesOff fs8 fs16 ~ fs \xNotesOn fs16 fs fs \xNotesOff gs8 a |
fs8 fs \xNotesOn fs16 fs fs \xNotesOff fs ~ fs fs8 \xNotesOn fs16 fs fs \xNotesOff fs8 |
fs \xNotesOn fs16 fs fs \xNotesOff a'( gs) fs e fs b, c g' es, g b |
\bar "||"
\repeat unfold 4 {
fs8 fs \xNotesOn fs16 fs fs \xNotesOff fs ~ fs fs8 \xNotesOn fs16 fs fs \xNotesOff fs8 |
fs \xNotesOn fs16 fs fs \xNotesOff fs8 fs16 ~ fs \xNotesOn fs16 fs fs \xNotesOff
}
\alternative {
{ gs8 a | }
{ a e | }
{ gs a | }
{ b a | }
}
\repeat unfold 4 { fs8 fs16 fs } |
\repeat unfold 4 { e8 e16 e } |
\repeat unfold 2 { fs8 fs16 fs } \repeat unfold 2 { a8 a16 a } |
b4 d cs4 es\glissando |
<fs, cs'>1 | <fs d'>2 <fs cs'> |
<e b'>1 | <e cs'>2 <e b'> |
<d' a'>1 | <d gs>2 <d fs> |
<cs gs'>4-> r q-> r | q-> r q-> cs'4\glissando |
\bar "||"
fs,,8 fs \xNotesOn fs16 fs fs \xNotesOff fs ~ fs fs8 \xNotesOn fs16 fs fs \xNotesOff fs8 |
fs \xNotesOn fs16 fs fs \xNotesOff fs8 fs16 ~ fs \xNotesOn fs16 fs fs \xNotesOff fs8 fs |
\xNotesOn fs16 fs fs \xNotesOff fs ~ fs fs8 \xNotesOn fs16 fs fs \xNotesOff fs8 fs \xNotesOn fs16 fs \xNotesOff |
<d' a'>8 \xNotesOn e,16 \xNotesOff <a e'>16 ~ q \xNotesOn e16 \xNotesOff <e b'>8 ~ q2 |
\bar "||"
\repeat unfold 2 {
fs8 fs16 fs fs'16( e fs) fs, ~ fs8 fs16 fs fs'16( e fs) fs, ~ |
fs8 fs16 fs fs'16( e fs) fs, ~ fs8 fs16 fs fs'16( e fs) e, ~ |
e8 e16 e e'16( d e) e, ~ e8 e16 e e'16( d e) e, ~ |
e8 e16 e e'16( d e) e, ~ e8 e16 e e'16( d e) fs, ~ |
}
\bar "||"
fs8 gs a r16 gs ~ gs8 a b r16 a ~ |
a8 b cs r16 b ~ b cs d e fs a gs e |
fs8 gs a r16 gs ~ gs8 a b r16 a ~ |
a8 b cs r16 b ~ b cs d e fs a gs e |
fs,,4 ~ fs16 gs8. ~ gs8 a4 ~ a16 b ~ |
b4 a8 cs e gs a d, |
cs16 cs cs cs r cs cs cs cs r cs cs cs cs r cs cs cs cs r cs cs cs cs r cs cs cs g4-> |
\tuplet 6/4 { e16 fs a b cs e } fs8 a r fs a b |
\grace b8( c b16 a) \tuplet 6/4 { b16 a fs e cs b } cs8 e r e |
fs a r b cs16( b) a fs\glissando( e) cs b a |
fs a b cs fs gs a cs fs4 \tuplet 6/4 { b16( a) fs e cs b } |
cs8 e r cs \tuplet 6/4 { e16( cs) b a fs e } fs8 a |
r fs \tuplet 6/4 { a16( fs) e cs b a } fs4 r |
b16 b b b b
d d d d d
cs cs cs cs cs
es es es es es
fs gs a cs
\tuplet 6/4 4 { ds( cs b) a( g es) ds( cs b) a( g es) } |
\bar "||"
fs8 fs \xNotesOn fs16 fs fs \xNotesOff fs ~ fs fs8 \xNotesOn fs16 fs fs \xNotesOff fs8 |
fs \xNotesOn fs16 fs fs \xNotesOff fs8 fs16 ~ fs \xNotesOn fs16 fs fs \xNotesOff gs8 a |
fs8 fs \xNotesOn fs16 fs fs \xNotesOff fs ~ fs fs8 \xNotesOn fs16 fs fs \xNotesOff fs8 |
fs \xNotesOn fs16 fs fs \xNotesOff fs8 fs16 ~ fs \xNotesOn fs16 fs fs \xNotesOff fs16 gs a b |
<cs cs'>4 <d d'> <cs cs'> es, |
<fs cs'> <a e'> <gs bs>2 |
\time 11/16
e''16[( ds) cs( b)] cs[ fs, g] d'[ bs, d? fs]
a[( gs) fs e] fs[ b, c] g'[ es, g b] |
\time 4/4
fs2 r2 |
\bar "|."
}
guitarOneStaff = \new Staff \with { midiInstrument = "distorted guitar" } \guitarOne
guitarTwoStaff = \new Staff \with { midiInstrument = "distorted guitar" } \guitarTwo
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 { \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 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
\set chordNameExceptions = #chordExceptions
\set majorSevenSymbol = \markup "maj7"
fs1*6:m | q2.. d8. a e2. | q1 |
fs1*8:m |
cs1:m | q2. gs4:1.3.5-.7 |
cs1:m | q2 r2 |
fs1*4:m |
gs1*4:1.3-.5- |
gs1.:1.3-.5-.7- cs2:1.3.5.7.9- | q1 | q1 |
}
chordNames = \new ChordNames {
\set chordChanges = ##t
\set chordNameExceptions = #chordExceptions
\chordValues
}
#(set-global-staff-size 18)
\book {
\paper {
system-system-spacing =
#'((basic-distance . 8)
(minimum-distance . 4)
(padding . 4)
(stretchability . 60)
)
}
\score {
<<
\chordNames
\guitarOneStaff
\guitarTwoStaff
>>
\layout {
% indent = #0
\context {
\Staff \RemoveEmptyStaves
% \override Glissando.springs-and-rods = #ly:spanner::set-spacing-rods
\override VerticalAxisGroup.remove-first = ##t
}
}
}
}
\score {
\unfoldRepeats {
<<
\transpose c c, {
\guitarOneStaff
}
\transpose c c, {
\guitarTwoStaff
}
>>
}
\midi {}
}