This commit is contained in:
tmont 2019-11-02 11:43:25 -07:00
parent 2c0f3bce57
commit 0a43ad601b
2 changed files with 428 additions and 0 deletions

428
album2/zenithia.ly Normal file
View File

@ -0,0 +1,428 @@
\version "2.18.2"
\language "english"
\header {
title = "Zenithia"
composer = "Tommy Montgomery"
copyright = "(c) 2019 Tommy Montgomery"
}
global = {
\key cs \minor
\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
\time 4/4
\tempo 4 = 112
}
guitarOne = \relative c' {
\repeat volta 2 {
cs4\staccato cs\staccato \tuplet 6/4 { cs16 cs cs cs cs cs } cs4\staccato |
\tuplet 6/4 { cs16 cs cs cs cs cs } cs4\staccato \tuplet 6/4 4 { cs16 ds e fs gs a a gs fs e ds cs } |
}
e4\staccato e\staccato \tuplet 6/4 { e16 e e e e e } e4\staccato |
\tuplet 6/4 { e16 e e e e e } e4\staccato \tuplet 6/4 4 { e16 fs gs a b cs cs b a gs fs e } |
e4\staccato e\staccato \tuplet 6/4 { e16 e e e e e } e4\staccato |
\tuplet 6/4 { e16 e e e e e } e4\staccato \tuplet 6/4 4 { e16 fs gs a b cs ds e fs gs a b } |
cs4\staccato cs\staccato \tuplet 6/4 { cs16 cs cs cs cs cs } cs4\staccato |
\tuplet 6/4 { cs16 cs cs cs cs cs } cs4\staccato \tuplet 6/4 4 { cs,16 ds e fs gs a a gs fs e ds cs } |
\bar "||"
cs8. ds16 ~ ds8 e ~ e fs e ds |
cs8.( ds32 cs\glissando b8)\staccato cs ~ cs4 gs16 b cs b |
cs8. ds16 ~ ds8 e ~ e fs e ds |
cs8.( ds32 cs\glissando b8)\staccato cs ~ cs4 cs16 ds e gs |
a16( fs) ds a'( fs) ds a'8 ~ a4 gs16 a gs fs |
gs16( e) cs gs'( e) cs gs'8 ~ gs4 fs16 gs fs e |
fs( ds) b fs b ds gs( e) cs gs cs e ds e fs gs |
a( fs) ds bs a bs ds fs a( fs) ds fs a bs ds( bs)|
cs8. ds16 ~ ds8 e ~ e fs e ds |
cs8.( ds32 cs\glissando b8)\staccato cs ~ cs4 \tuplet 6/4 { ds,16 e fs gs a b } |
cs8. ds16 ~ ds8 e ~ e fs e ds |
cs8.( ds32 cs\glissando b8)\staccato cs ~ cs4 cs16 ds e gs |
\tuplet 6/4 4 { a( fs) ds a ds fs a( fs) ds } a'8 ~ a4 gs16 a gs fs |
\tuplet 6/4 4 { gs( e) cs gs cs e gs( e) cs } gs'8 ~ gs4 fs16 gs fs e |
fs8. e16 ~ e8 ds ~ ds cs16 b a gs fs e |
<<
{ r2 gs,16 a bs cs ds e ds cs } \\
{ ds cs bs cs ds bs gs8 ~ gs2 | }
>>
% piano solo
\bar "||"
ds'16^"piano solo" e ds cs ds cs b! a gs a gs fs gs fs e cs |
ds e ds cs ds cs b a \clef bass gs a gs fs gs fs e ds |
cs bs cs ds e fs a gs \clef treble a bs ds cs e fs a gs |
a bs ds cs e fs a gs a bs ds cs ds cs bs a |
gs a fs e ds cs cs' cs, b! cs a gs fs e e' e, |
ds e cs b a gs gs' gs, \clef bass fs cs fs gs a gs fs a |
\clef treble gs( a bs ds) b( bs ds fs) d( ds fs a) es( fs a bs) |
gs( a bs ds) b( bs ds fs) d( ds fs a) es( fs a bs) |
cs( a cs ds e) fs,( a ds cs) ds,( fs a gs) gs,( a b |
cs a cs ds e) fs,( a ds cs) ds,( fs a gs) gs,( a b) |
\tuplet 6/4 4 { a cs fs a cs fs a fs cs a cs fs a cs fs a fs cs a fs cs a fs cs } |
\tuplet 6/4 4 { a( b cs ds e fs gs a b cs ds e) a,( b cs ds e fs gs a b a gs fs) } |
\tuplet 5/4 4 { gs( b gs fs e) cs( e cs b a) fs'(a fs e ds) b( ds b a gs) } |
\tuplet 6/4 4 {
fs'( b, a) e'( a, gs) ds'( gs, fs) cs'( fs, e)
b'( e, ds) a'( ds, cs) gs'( cs, b) fs'( b, a) |
}
gs a bs ds cs e fs a gs a bs ds cs e fs a |
\tuplet 6/4 4 {
gs a gs fs e ds cs bs a gs fs e
ds fs a bs ds fs \ottava #1 a bs ds fs a bs \ottava #0
}
% guitar solo
\grace { cs,,16 e gs } cs4 ds8\staccato e8 ~ e fs e\staccato ds\staccato |
cs8.( ds32 cs\glissando b8) cs ~ cs4 \tuplet 6/4 { ds,16 e fs gs a b } |
cs4 ds8\staccato e8 ~ e fs e\staccato fs\staccato |
gs4 a8 gs ~ gs4. fs16( gs) |
gs( e) e cs cs gs gs e e ds ds cs cs b b a |
\tuplet 6/4 4 { a16( b cs) ds( e fs) gs( a b) cs( ds e) e( ds cs) b( a gs) } \tuplet 3/2 { fs( e ds) } cs8 ~ |
cs4. b8 ~ b4 r8 b16 b |
b cs e fs a gs fs gs \tuplet 6/4 4 { cs( b) gs fs gs b e( cs) b gs b ds } |
cs4\glissando cs,8 gs' ~ gs4 r8 fs16( gs) |
\grace gs8 a4( gs8) fs ~ fs2 |
\tuplet 6/4 4 { cs,16 ds e fs gs a gs a b cs ds e gs, a b cs ds e ds e fs gs a b } |
\tuplet 6/4 4 { cs, ds e fs gs a \ottava #1 gs a b cs ds e gs, a b cs ds e ds e fs gs a b } |
cs4 ds8\staccato e ~ e ds4 e8\staccato |
\grace e8 fs4.( e8\staccato) ds4 e8 cs ~ |
cs8 a16 b \tuplet 6/4 4 { cs b a gs fs e fs gs fs e ds cs bs cs ds cs bs a } |
gs2 \ottava #0 r2 |
\repeat volta 2 R1*8 |
ds,16 e fs gs a ds, e fs gs a ds, e fs gs a ds, |
e fs gs a ds, e fs gs a ds, e fs gs a ds, e |
fs gs a ds, e fs gs a ds, e fs gs a ds, e fs |
gs a ds, e fs gs a ds, e fs gs a ds, e fs gs |
fs gs a b cs fs, gs a b cs fs, gs a b cs fs, |
gs a b cs fs, gs a b cs fs, gs a b cs fs, gs |
a b cs fs, gs a b cs fs, gs a b cs fs, gs a |
b cs fs, gs a b cs fs, gs a b cs fs, gs a b |
bs cs ds e fs bs, cs ds e fs bs, cs ds e fs bs, |
cs ds e fs bs, cs ds e fs bs, cs ds e fs bs, cs |
ds e fs bs, cs ds e fs bs, cs ds e fs bs, cs ds |
e fs bs, cs ds e fs bs, cs ds e fs bs, cs ds e |
fs gs a fs gs fs gs a fs gs fs gs a fs gs fs |
gs a fs gs fs gs a fs gs fs gs a fs gs fs gs |
a fs gs fs gs a fs gs fs gs a fs gs fs gs a |
fs gs fs gs a fs gs fs gs a fs gs fs gs a fs |
r2 r4 r8 gs16( a |
gs) fs gs a bs( cs bs) a bs cs ds( e ds) cs ds e |
fs2 r4 r8 a,,16 gs |
fs gs a cs fs gs a cs fs cs gs' cs, a' cs, fs cs |
gs'2 r4 r8 gs,, |
gs'16 gs gs( fs) ds gs8. gs16 gs gs( fs) ds b'8. |
r2 r4 a'32 gs fs e ds cs ds e |
ds cs bs a gs a bs a gs fs e ds e fs e ds cs bs a bs cs bs a gs fs e fs gs fs e ds d |
cs4 r r2 |
R1*7 |
R1*3 |
r2 \tuplet 6/4 4 { cs'16 ds e fs gs a a gs fs e ds cs } |
\bar "||"
cs8. ds16 ~ ds8 e ~ e fs e ds |
cs8.( ds32 cs\glissando b8)\staccato cs ~ cs4 gs16 b cs b |
cs8. ds16 ~ ds8 e ~ e fs e ds |
cs8.( ds32 cs\glissando b8)\staccato cs ~ cs4 cs16 ds e gs |
a16( fs) ds a'( fs) ds a'8 ~ a4 gs16 a gs fs |
gs16( e) cs gs'( e) cs gs'8 ~ gs4 fs16 gs fs e |
fs8. e16 ~ e8 ds ~ ds4 ds16 e fs gs |
a8. gs16 ~ gs8 fs ~ fs4 fs16 gs a b |
cs8. ds16 ~ ds8 e ~ e fs e ds |
cs8.( ds32 cs\glissando b8)\staccato cs ~ cs4 \tuplet 6/4 { ds,16 e fs gs a b } |
cs8. ds16 ~ ds8 e ~ e fs e ds |
cs8.( ds32 cs\glissando b8)\staccato cs ~ cs4 cs16 ds e gs |
\tuplet 6/4 4 { a( fs) ds a ds fs a( fs) ds } a'8 ~ a4 gs16 a gs fs |
\tuplet 6/4 4 { gs( e) cs gs cs e gs( e) cs } gs'8 ~ gs4 fs16 gs fs e |
fs8. e16 ~ e8 ds ~ ds4 \tuplet 6/4 { b16 cs ds e fs gs } |
a8. gs16 ~ gs8 fs ~ fs4 fs16( cs) a fs |
gs2 r2 |
R1*6 |
\ottava #1 \tuplet 6/4 4 { gs16( bs) ds gs bs ds gs( ds) bs gs ds bs cs( e) gs cs e gs } cs4 \ottava #0 |
R1*4 |
}
guitarTwo = \relative c' {
\repeat volta 2 { R1*2 }
R1*6
\repeat unfold 2 { <cs gs'>8. <b fs'>16 ~ q8 <cs gs'> ~ q <b fs'> <cs gs'> <b fs'> | }
<a e'>8. <a ds>16 ~ q8 <a e'> ~ q <a ds> <a e'> <a ds> |
<fs cs'>8. <fs b>16 ~ q8 <fs cs'> ~ q <fs b> <fs cs'> <fs ds'> |
<a e'>16 q q q r <a e'> <a ds>8 ~ q4 q16 q r8 |
<gs cs gs'>16 q q q r <gs cs gs'> <gs ds' gs>8 ~ q4 q16 q r8 |
<fs b fs'>4. <gs cs gs'>8 ~ q4 <a ds a'>4 |
<gs ds' gs>1 |
\repeat unfold 2 { <cs gs'>8. <b fs'>16 ~ q8 <cs gs'> ~ q <b fs'> <cs gs'> <b fs'> | }
<a e'>8. <a ds>16 ~ q8 <a e'> ~ q <a ds> <a e'> <a ds> |
<fs cs'>8. <fs b>16 ~ q8 <fs cs'> ~ q <fs b> <fs cs'> <fs ds'> |
<a e'>16 q q q r <a e'> <a ds>8 ~ q4 q16 q r8 |
<gs cs gs'>16 q q q r <gs cs gs'> <gs ds' gs>8 ~ q4 q16 q r8 |
<fs b fs'>4. <gs cs gs'>8 ~ q4 <a ds a'>4 |
<gs ds' gs>1 |
<cs a'>4 cs16 cs <cs gs'>8 ~ q8 cs16 cs cs cs cs cs |
<cs a'>4 cs16 cs <cs gs'>8 ~ q8 cs16 cs ds e ds cs |
<bs fs'>4 bs16 bs <bs gs'>8 ~ q8 bs16 bs bs bs bs bs |
<bs fs'>4 bs16 bs <bs gs'>8 ~ q8 bs16 bs bs cs ds bs |
<cs a'>4 cs16 cs <cs gs'>8 ~ q8 cs16 cs cs cs cs cs |
<cs a'>4 cs16 cs <cs gs'>8 ~ q8 cs16 cs ds e ds cs |
<bs fs'>4 bs16 bs <bs gs'>8 ~ q8 bs16 bs bs bs bs bs |
<bs fs'>4 bs16 bs <bs gs'>8 ~ q8 bs16 bs ds cs bs gs |
<a e'>4 a16 a <a ds>8 ~ q4. a16 a |
<a fs'>4 a16 a <a e'>8 ~ q8 a16 a <a ds>8 a16 a |
<fs cs'>4 fs16 fs <fs b>8 ~ q4. fs16 fs |
<fs cs'>4 <fs b> <fs cs'> <fs ds'> |
<a e'>4 a16 a <a ds>8 ~ q4. a16 a |
<a fs'>4 a16 a <a e'>8 ~ q8 a16 a <a ds>8 a16 a |
<gs ds' gs>4 gs16 gs <gs ds' gs>8 ~ q2 |
gs16 a bs cs ds e fs gs a gs fs e ds cs bs gs |
\repeat unfold 2 {
\repeat unfold 2 { <cs gs'>8. <b fs'>16 ~ q8 <cs gs'> ~ q <b fs'> <cs gs'> <b fs'> | }
<a e'>8. <a ds>16 ~ q8 <a e'> ~ q <a ds> <a e'> <a ds> |
fs16 fs fs gs gs gs a a a gs gs gs a a b b |
}
\repeat unfold 2 { <a e'>16 q q q r <a e'> <a ds>8 ~ q4 q16 q r8 | }
\repeat unfold 2 { <gs cs gs'>16 q q q r <gs cs gs'> <gs ds' gs>8 ~ q4 q16 q r8 | }
\repeat unfold 2 { <a e'>16 q q q r <a e'> <a ds>8 ~ q4 q16 q r8 | }
<fs b fs'>4. <gs cs gs'>8 ~ q4 <a ds a'>4 |
<gs ds' gs>4 r fs8 gs a4 |
\repeat volta 2 {
\repeat unfold 2 {
gs16 gs gs a r fs r gs gs gs a r fs r gs gs |
gs a r fs r gs8 a16 bs ds cs e ds fs a fs |
gs16 gs gs a r fs r gs gs gs a r fs r gs gs |
}
\alternative {
{ gs a r fs r ds'8( bs16) a fs gs cs, ds bs a fs | }
{ gs' a r fs r cs'8( bs16) a fs ds bs a gs fs a | }
}
}
gs8 r r gs r4 gs8 r |
r8 \tuplet 3/2 8 { a16 gs fs a gs fs } gs8 r4 gs8 r |
r gs r4 \tuplet 6/4 { a'16 gs fs e ds cs } \tuplet 3/2 { cs ds e } ds8 |
gs, gs' cs, ds bs cs a gs |
fs8 r r fs r4 fs8 r |
r8 \tuplet 3/2 8 { a16 gs fs gs fs e } fs8 r4 fs8 r |
r8 fs8 r4 \tuplet 6/4 { a'16 gs fs e ds cs } \tuplet 3/2 { b a gs } fs8 |
r fs16 fs <gs ds' gs>16\glissando( <a e' a>8) q16 q q <gs ds' gs>\glissando( <fs cs' fs> ~ q) q q q |
\repeat unfold 2 {
gs16 gs gs a r fs r gs gs gs a r fs r gs gs |
gs a r fs r gs8 a16 bs ds cs e ds fs a fs |
gs16 gs gs a r fs r gs gs gs a r fs r gs gs |
}
\alternative {
{ gs a r fs r ds'8( bs16) a fs gs cs, ds bs a fs | }
{ gs' a r fs r cs'8( bs16) a fs ds bs a gs fs a | }
}
<gs ds' gs>16 q q <a e' a> ~ q <fs cs' fs>8 <gs ds' gs>16 q q <a e' a>8 <fs cs' fs>8 <gs ds' gs> ~ |
q4 r r2 |
<gs ds' gs>16 q q <a e' a> ~ q <fs cs' fs>8 <gs ds' gs>16 q q <a e' a>8 <fs cs' fs>8 <fs cs' fs> ~ |
q4 r r2 |
<gs ds' gs>16 q q <a e' a> ~ q <fs cs' fs>8 <gs ds' gs>16 q q <a e' a>8 <fs cs' fs>8 <gs ds' gs> ~ |
q4 r r2 |
<gs ds' gs>16 q q <a e' a> ~ q <fs cs' fs>8 <gs ds' gs>16 q q <a e' a>8 <fs cs' fs>4 |
r1 |
cs'16^"clean" cs cs b b b cs cs cs cs b b cs cs b b |
cs cs cs b b b cs cs cs cs b b cs cs b b |
a a a gs gs gs a a a a gs gs a a gs gs |
fs fs fs gs gs gs a a a gs gs gs a a b b |
cs^"dist" cs cs b b b cs cs cs cs b b cs cs b b |
cs cs cs b b b cs cs cs cs b b cs cs b b |
a a a gs gs gs a a a a gs gs a a gs gs |
<fs b fs'>4. <gs cs gs'>8 ~ q4 <a ds a'>4 |
<gs ds' gs>1 ~ | q |
q1 ~ | q2 r2 |
R1*8 | R1*6 |
<fs b fs'>4 fs16 fs <fs b fs'>8 ~ q fs16 fs <fs b fs'>4 |
a4. gs8 ~ gs4 fs |
\bar "||"
gs16 gs gs a r fs r gs gs gs a r fs r gs gs |
gs a r fs r gs8 a16 bs ds cs e ds fs a fs |
gs gs gs a r fs r gs gs gs a r fs r gs gs |
gs a r fs r gs8 a16 bs ds cs e ds fs a fs |
gs gs gs a r fs r gs gs gs a r fs r gs gs |
gs a r fs r gs8 a16 bs ds cs e ds fs a fs |
gs gs gs a r fs r gs gs gs a r fs r gs8 |
r1 |
cs,,,4\staccato cs\staccato \tuplet 6/4 { cs16 cs cs cs cs cs } cs4\staccato |
\tuplet 6/4 { cs16 cs cs cs cs cs } cs4\staccato \tuplet 6/4 4 { cs16 ds e fs gs a a gs fs e ds cs } |
cs4\staccato cs\staccato \tuplet 6/4 { cs16 cs cs cs cs cs } cs4\staccato |
\tuplet 6/4 { cs16 cs cs cs cs cs } cs4\staccato r2 |
\bar "|."
}
guitarOneStaff = \new Staff \with { midiInstrument = "distorted guitar" midiMaximumVolume = #0.7 }{ \global \guitarOne }
guitarTwoStaff = \new Staff \with { midiInstrument = "distorted guitar" midiMaximumVolume = #0.7 }{ \global \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 { "°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"
\repeat volta 2 { cs1:1.5 | q | }
\repeat unfold 6 q |
\repeat unfold 2 {
cs1:m | q | a:1.3.5.11+ | fs:m6 |
fs:m6/a | cs4.:m/gs gs8:1.5 q2 | b4. cs:m a4:1.3.5.11+ | gs1:1.3.5.7.9- |
}
cs1:m | q | gs:7/bs | q |
cs1:m | q | gs:7/bs | q |
a:1.3.5.11+ | q | fs:m6 | q1 |
a:1.3.5.11+ | q | gs:1.5 | gs:1.3.5.7.9- |
cs:m | q | a:1.3.5.11+ | fs:m |
cs:m | q | a:1.3.5.11+ | fs:m |
\repeat unfold 2 { a4.:1.5 a8:1.3.5.11+ q2 | }
\repeat unfold 2 { cs4.:1.5 gs8:1.5 q2 | }
\repeat unfold 2 { a4.:1.5 a8:1.3.5.11+ q2 | }
b4.:1.5 cs:1.5 a4:1.3.5.11+ | gs2 r2 |
%{
\repeat volta 2 { \repeat unfold 8 { gs1:1.3.5.7.9- | } }
\repeat unfold 4 q1 |
\repeat unfold 4 fs:m |
\repeat unfold 8 gs1:1.3.5.7.9- |
gs8.:1.5 a8:1.5 fs:1.5 gs8.:1.5 a8:1.5 fs:1.5 gs8:1.5 | q1 |
gs8.:1.5 a8:1.5 fs:1.5 gs8.:1.5 a8:1.5 fs4:1.5 | q1 |
gs8.:1.5 a8:1.5 fs:1.5 gs8.:1.5 a8:1.5 fs:1.5 gs8:1.5 | q1 |
gs8.:1.5 a8:1.5 fs:1.5 gs8.:1.5 a8:1.5 fs4:1.5 | r1 |
cs1:m | q | a:1.3.5.11+ | fs:m |
cs1:m | q | a:1.3.5.11+ | b4.:1.5 cs:1.5 a4:1.3.5.11+ |
gs1:7 | q | gs:7/fs | q |
cs1:m | q | a:1.3.5.11+ | fs:m6 |
fs:m6/a | cs4.:m/gs gs8:1.5 q2 | b4. cs:m a4:1.3.5.11+ | gs1:1.3.5.7.9- |
cs1:m | q | a:1.3.5.11+ | fs:m6 |
fs:m6/a | cs4.:m/gs gs8:1.5 q2 | b1 | fs:m |
\repeat unfold 7 gs1:1.3.5.7.9- |
gs2 cs:m |
cs1:1.5 | q | q | q |
%}
}
chordNames = \new ChordNames {
\set chordChanges = ##t
\set chordNameExceptions = #chordExceptions
\chordValues
}
\score {
<<
\chordNames
\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, \guitarOneStaff
\transpose c c, \guitarTwoStaff
>>
}
\midi {}
}

BIN
album2/zenithia.pdf Normal file

Binary file not shown.