music/album4/gothra-strings.ly

\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 {}
}