101 lines
2.2 KiB
Plaintext
101 lines
2.2 KiB
Plaintext
|
\version "2.24.0"
|
||
|
\language "english"
|
||
|
|
||
|
\header {
|
||
|
title = "Instrumental"
|
||
|
composer = "Tommy Montgomery"
|
||
|
copyright = "(c) 2023 Tommy Montgomery"
|
||
|
}
|
||
|
|
||
|
global = {
|
||
|
\key e \major
|
||
|
\set Staff.printKeyCancellation = ##f
|
||
|
\numericTimeSignature
|
||
|
\compressMMRests
|
||
|
\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
|
||
|
\time 6/8
|
||
|
\tempo 4. = 66
|
||
|
}
|
||
|
|
||
|
guitarOne = \relative c' {
|
||
|
\partial 8 b'8\glissando |
|
||
|
|
||
|
e2. | ds4. e | fs ~ fs8. b,16 e( fs) | \grace fs8( g4 fs8) e8.( fs32 e) d16( e) |
|
||
|
|
||
|
e4. ~ e4 e16( d) | b8. b16 b a g8. g16 g b |
|
||
|
a8. a16 a g fs4. | a,16 b ds e fs a b ds e fs a b |
|
||
|
|
||
|
}
|
||
|
|
||
|
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
|
||
|
\set chordNameExceptions = #chordExceptions
|
||
|
\set majorSevenSymbol = \markup "maj7"
|
||
|
|
||
|
\partial 8 s8 |
|
||
|
e2. | b | d | a |
|
||
|
e | g | d | b |
|
||
|
c | d | a | q |
|
||
|
bf | c | d | q |
|
||
|
|
||
|
}
|
||
|
|
||
|
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 {}
|
||
|
}
|