some kind of real thing

This commit is contained in:
tmont 2023-07-22 15:43:10 -07:00
parent f258069cfd
commit 8cae888c77
2 changed files with 123 additions and 0 deletions

123
album3/real-thing.ly Normal file
View File

@ -0,0 +1,123 @@
\version "2.22.1"
\language "english"
\header {
title = "Real Thing-ish"
composer = "Tommy Montgomery"
copyright = "(c) 2023 Tommy Montgomery"
}
global = {
\key e \phrygian
\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
}
guitar = \relative c {
\tempo 4 = 75
\repeat volta 4 {
e8^"bass" e e'8. e,16 ~ e e8 f'16 ~ f e, d'8^"4x" |
}
\repeat volta 4 {
e,8^"ac. gtr." e <e e' b' b e e>8. e16 ~ e e8 <e f' c' f b, e>16 ~ q8 <e d' a' d b e>^"3x" |
}
e8 e \ottava #1 \tuplet 6/4 { e''16\harmonic a\harmonic a\harmonic d\harmonic fs\harmonic b\harmonic } e4\harmonic \ottava #0 e,,,4\glissando |
<e, b'>8 q r r16 <e b'> ~ q <e b'>8 <e b'>16 ~ q r16 r8 |
<e b'>8 q r r16 <e b'> ~ q <e b'>8 <e b'>16 <d' g>4 |
<e, b'>8 q r r16 <e b'> ~ q <e b'>8 <e b'>16 ~ q r16 r8 |
<e b'>8 q r r16 <e b'> ~ q <e b'>8 e16 g( e) b' f |
}
vocalMelody = \relative c' {
}
allTheLyrics = \lyricmode {
}
guitarStaff = \new Staff \with { midiInstrument = "distorted guitar" midiMaximumVolume = #0.6 } {
\global
\guitar
}
vox = \new Staff \with { midiInstrument = "voice oohs" midiMinimumVolume = #0.7 } {
<<
\new Voice = "vocalMelody" { \clef treble \global \vocalMelody }
\new Lyrics \lyricsto "vocalMelody" {
\allTheLyrics
}
>>
}
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 ef gf bf>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 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 {
\set chordNameExceptions = #chordExceptions
\set majorSevenSymbol = \markup "maj7"
}
chordNames = \new ChordNames {
\set chordChanges = ##t
\set chordNameExceptions = #chordExceptions
\chordValues
}
\score {
<<
% \chordNames
% \vox
\guitarStaff
>>
\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 {
<<
\guitarStaff
>>
}
\midi {}
}

BIN
album3/real-thing.pdf Normal file

Binary file not shown.