gothra organ/strings

album4/gothra-organ-solo.ly

@@ -0,0 +1,152 @@
+\version "2.24.0"
+\language "english"
+
+\header {
+  title = "Gothra (organ solo)"
+  composer = "Tommy Montgomery"
+  copyright = "(c) 2025 Tommy Montgomery"
+}
+
+global = {
+  \key e \phrygian
+  \time 4/4
+  \set Staff.printKeyCancellation = ##f
+  \numericTimeSignature
+  % \compressFullBarRests
+  \omit Voice.StringNumber
+  %\override TupletBracket #'bracket-visibility = #'if-no-beam
+  \override MultiMeasureRest.expand-limit = #3
+}
+
+\parallelMusic #'(right left) {
+  \tempo 4 = 150
+
+  \global <b'' e>1 |
+  \global \clef treble R1 |
+
+  <b d>1 |
+  R1 |
+
+  \grace { a16 b cs } <b d>8 e <b e>16 d a <b d> ~ q8 e8 r8 d16 e |
+  r16 <b'' e a> r8 r8. <b e a>16 ~ q q r8 <bf d>16 e r8 |
+
+  <g b>16 e d r <e g> d b r <d e> b a r <b d> a g r |
+  r8. <e b'>16 r8. <d a'>16 r8. <b g'>16 r8. <a e'>16 |
+
+  r8 <a d>16 e <a d> g e r r8 <a d>16 e <b' e> a g a |
+  e16 d' r8 r8. b16 e, d' r8 r4 |
+
+  r8 <a d>16 e <a d> g e r r8 <bf' d>16 e, <bf' d> a e16 r |
+  e,16 d' r8 r8. b16 e, bf' r8 r8. bf16 |
+
+  r16 d e g r g a b r b d e r e g a |
+  d16 r8. g16 r8. b16 r8. e16 r8. |
+
+  \ottava 1 bf16 a g e d e b! a \ottava 0 bf a g e d e b! bf |
+  R1 |
+
+  a4. cs8 ~ cs d e16 f e d |
+  R1 |
+
+  e8 f g a \grace { g16 a } bf8 a g bf |
+  R1 |
+
+  a8 cs d e f d e cs |
+  R1 |
+
+  d8 bf cs a bf16 g a f g e f d |
+  R1 |
+
+  e4. <e g>8 ~ q4 <es gs b!> ~ |
+  r4 <a,,, d g>8 r r <b e a> r4 |
+
+  q8 <e g! bf d>4. e'16 d b bf a g e d |
+  cs8 <c e g>4. r2 |
+
+
+  e16 d b bf a g e d e g a bf b d e g |
+  R1 |
+
+  b,16 d e g d e g a e g a bf e, g a bf |
+  R1 |
+
+  b16 c b as b as a as a as a gs a gs g gs |
+  R1 |
+
+  g16 gs g fs g fs f fs f fs f ds f ds cs b |
+  R1 |
+
+  \tuplet 3/2 4 { cs8 b a b cs ef f g a b cs b } |
+  a4 ef' a ef' |
+
+  \tuplet 3/2 4 { a8 g f ef cs b } a8 r8 r4 |
+  a,4 ef a,8 r r4 |
+
+%{
+  r8. e,,16 g a d r4 b16 d e a |
+  \clef bass e,16 b' d r16 r8. a16 e' g  |
+
+  r4 e16 g a d r4 b16 d e a |
+  \tuplet 3/2 { e8 b' d } r4 \tuplet 3/2 { a8 e' g } r4 |
+
+  r4 e16 g a d r4 b16 d e a |
+  \clef treble \tuplet 3/2 { e8 b' d } r4 \tuplet 3/2 { a8 e' g } r4 |
+
+  r4 \ottava 1 e16 g a d e2 \ottava 0 |
+  \clef treble \tuplet 3/2 { e8 b' d } r4 r2 |
+%}
+
+  r4 e,16 g a d r4 b16 d e a |
+  \clef bass \tuplet 3/2 { e,8 b' d } r4 \tuplet 3/2 { a8 e' g } r4 |
+
+  r4 e16 g a d r4 b16 d e a |
+  \tuplet 3/2 { e8 b' d } r4 \tuplet 3/2 { a8 e' g } r4 |
+
+  r4 e16 g a d r4 b16 d e a |
+  \clef treble \tuplet 3/2 { e8 b' d } r4 \tuplet 3/2 { a8 e' g } r4 |
+
+  r4 \ottava 1 e16 g a d e2 \ottava 0 |
+  \clef treble \tuplet 3/2 { e8 b' d } r4 r2 |
+
+
+
+
+}
+
+
+pianoStaff = \new PianoStaff \with {
+  instrumentName = "Piano"
+} <<
+  \new Staff = "right" \with {
+    \consists "Span_arpeggio_engraver"
+    midiInstrument = "rock organ"
+  } { \set Staff.connectArpeggios = ##t \relative c' \right }
+  \new Staff = "left" \with {
+    \consists "Span_arpeggio_engraver"
+    midiInstrument = "rock organ"
+  } { \set Staff.connectArpeggios = ##t \clef bass \relative c \left }
+>>
+
+\score {
+  <<
+    \pianoStaff
+  >>
+  \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 {
+    <<
+      \pianoStaff
+    >>
+  }
+  \midi {}
+}

album4/gothra-strings.ly

@@ -0,0 +1,230 @@
+\version "2.24.0"
+\language "english"
+
+\header {
+  title = "Gothra (strings)"
+  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 = 150
+  \key d \minor
+}
+
+
+guitarOne = \relative c' {
+  \time 4/4
+  \global
+
+  <<
+    {
+
+      r4^"strings/oboe" d'8 c d2 ~ |
+      d4 d8 c d2 ~ |
+      d4 d8 c d2 ~ |
+      d4 d8 c d4 f |
+
+      e4 bf8 a bf2 ~ |
+      bf4 c8 bf c4 e |
+      d4 d8 c d2 ~ |
+      d4 fs8 e fs4 g |
+    }
+    \\
+    {
+
+      r2_"clarinet/trombone" r4 e, | f2. a4 |
+      g2. a4 | bf2. d4 |
+      c2. f,4 | e2. g4 |
+      <<
+        {
+          a2. g4 | fs2. e4 |
+        }
+        \\
+        {
+          fs2. e4 | d2. e4 |
+        }
+      >>
+    }
+  >>
+
+  <<
+    {
+      a'4 a8 g a2 ~ |
+      a4 d,8 c d2 ~ |
+      d4 f8 e f2 ~ |
+      f4 af8 g af2 |
+
+      g4 e8 d e2 ~ |
+      e4 g8 f g4 a |
+      gs4 f8 e f4 gs |
+      g!2 a |
+    }
+    \\
+    {
+      <<
+        {
+          d,,2. e4 | f?2. d4 |
+          f2. g4 | af2. f4 |
+          e2. f4 | g2 bf4 cs |
+          b2 d4 f | e2 ef |
+        }
+        \\
+        {
+          d,2. e4 | d2. d4 |
+          d2. e4 | f2. d4 |
+          cs2. d4 | e2 g4 bf |
+          gs2 b4 d | d2 cs |
+        }
+      >>
+    }
+  >>
+}
+
+
+brass = \relative c, {
+  \global
+  \clef bass
+
+  <d d'>1^"low brass" | q1 | <bf bf'>1 | <g g'> |
+  <c c'> | <e e'> | <d d'> | q2 <a a'>4 <c c'> |
+
+  <d d' a'>2 q4 q | q1 | <d d' af'>2 q4 q | q1 |
+  <cs cs' g'>2 <d d' f>4 <cs cs' e> | <bf bf'e>2 <g g' cs>4 <a a' e'> | <b b' f'>2 <gs gs' d'> | <g! g'! d'> <a a' cs> |
+}
+
+flute = \relative c''' {
+  \global
+  R1*8 |
+
+  <<
+    {
+      r4^"flute" a d e | f1 ~ |
+      f4 af, f' e | d1 |
+      cs4 e, g a | bf2 a |
+      gs4 f gs b | d2 cs |
+    }
+    \\
+    {
+      r4_"flute" d, f g | a1 ~ |
+      a4 d, af' g | f1 |
+      e4 g, bf cs | d2 cs |
+      b4 gs b d | e2 g |
+    }
+  >>
+
+}
+
+horns = \relative c' {
+  \global
+  R1*7 |
+  \clef bass
+
+  r2^"fr. horns" a4 g |
+  a2 d, | a'2 bf4 a |
+  af2 d, | af' bf4 af |
+  g2 cs, | g' a?4 g |
+  f2 d | e2 a, |
+}
+
+
+guitarOneStaff = \new Staff \with { midiInstrument = "violin" } \guitarOne
+oboeStaff = \new Staff \with { midiInstrument = "oboe" } \guitarOne
+clarinetStaff = \new Staff \with { midiInstrument = "clarinet" } \guitarOne
+tromboneStaff = \new Staff \with { midiInstrument = "trombone" } \guitarOne
+fluteStaff = \new Staff \with { midiInstrument = "flute" } \flute
+hornsStaff = \new Staff \with { midiInstrument = "french horn" } \horns
+brassStaff = \new Staff \with { midiInstrument = "brass section" } \brass
+
+
+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"
+
+  d1:m | q | g:m/bf | g:m | c | c:/e | d | q |
+  d1:m | q | d:dim | q | cs:dim7 | q | gs:dim7 | g2:6 a:1.3.5-7 |
+}
+
+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
+      \fluteStaff
+      \hornsStaff
+      \brassStaff
+    >>
+    \layout {
+      % indent = #0
+      \context {
+        \Staff \RemoveEmptyStaves
+        % \override Glissando.springs-and-rods = #ly:spanner::set-spacing-rods
+        \override VerticalAxisGroup.remove-first = ##t
+      }
+    }
+  }
+}
+
+\score {
+  \unfoldRepeats {
+      <<
+
+          \guitarOneStaff
+          \clarinetStaff
+          \oboeStaff
+          \tromboneStaff
+          \fluteStaff
+          \hornsStaff
+          \brassStaff
+
+      >>
+  }
+  \midi {}
+}