\version "2.24.0"

#(ly:set-option 'point-and-click #f)

\header {
  title = "Sixten"
  composer = "Uno Lindgren"
  arranger = "arr: Fredrik Olofsson 1997"
  tagline = "v2022-08-17"
}

\paper {
  evenHeaderMarkup = \markup {
    \fill-line {
      \unless \on-first-page \fromproperty #'page:page-number-string
      \unless \on-first-page \fromproperty #'header:instrument
      \unless \on-first-page \fromproperty #'header:title
    }
  }
  oddHeaderMarkup = \evenHeaderMarkup
  markup-system-spacing.padding = 3
  ragged-last = ##t
}

\layout {
  \accidentalStyle modern-cautionary
  \context {
    \Score
    \numericTimeSignature
  }
}

%----------------------------------------------------------------------------

rs = {
  \once \override Rest.stencil = #ly:percent-repeat-interface::beat-slash
  \once \override Rest.thickness = #0.48
  \once \override Rest.slope = #1.7
  \once \override Rest.staff-position = #0
  r4
}
rsOne = { \rs \rs \rs \rs }

codaSegno = {
  s1*16
  s1^\tweak Y-offset #5.5 \segno s1*7 s1*7 s2. s8. s16^\tweak Y-offset #5.5 \coda
  s1*15 s2. s8. s16^\markup { "D.S." }
  s1^\tweak Y-offset #5.5 \coda
}

global = {
  \key c \major
  \time 4/4
  \tempo "slow"

  s1*8 \bar "||"
  s1*8 \bar "||"
  s1*8 \bar "||"
  s1*8 \bar "||"

  \break
  s1*8 \bar "||"
  s1*8 \bar "||"

  \break
  s1 \bar "|."
}

chordExceptions = {
  <c e gis bes>1-\markup {
    \super "7" \raise #3.5 {
      \teeny \center-column {
        \lower #3.5
        "alt"
      }
    }
  }
  <c e g a d'>1-\markup {
    \raise #3.5 {
      \teeny \center-column {
        \lower #1.25
        " 9"
        " 6"
      }
    }
  }
  <c ees ges bes>1-\markup {
    "m" \super "7" \raise #3.5 {
      \teeny \center-column {
        \lower #2
        \concat { " " \smaller \flat \lower #0.25 "5" }
      }
    }
  }
  <c f g bes des'>1-\markup {
    \super "7" \raise #3.5 {
      \teeny \center-column {
        \lower #2
        \concat { " " \smaller \flat \lower #0.25 "9" }
        \lower #0.5
        "sus"
      }
    }
  }
  <c e gis bes dis'>1-\markup {
    \super "7" \raise #3.5 {
      \teeny \center-column {
        \lower #1.25
        \concat { " " \smaller \sharp \lower #0.5 "9" }
        \concat { " " \smaller \sharp \lower #0.5 "5" }
      }
    }
  }
  <c e gis bes des'>1-\markup {
    \super "7" \raise #3.5 {
      \teeny \center-column {
        \lower #1.25
        \concat { " " \smaller \flat \lower #0.25 "9" }
        \concat { " " \smaller \sharp \lower #0.5 "5" }
      }
    }
  }
  <c e ges bes dis'>1-\markup {
    \super "7" \raise #3.5 {
      \teeny \center-column {
        \lower #1.25
        \concat { " " \smaller \sharp \lower #0.5 "9" }
        \concat { " " \smaller \flat \lower #0.25 "5" }
      }
    }
  }
  <c e g bes dis' fis'>1-\markup {
    \super "7" \raise #3.5 {
      \teeny \center-column {
        \lower #1.25
        \concat { " " \smaller \sharp \lower #0.5 "11" }
        \concat { " " \smaller \sharp \lower #0.5 "9" }
      }
    }
  }
  <c e g bes des' fis'>1-\markup {
    \super "7" \raise #3.5 {
      \teeny \center-column {
        \lower #1.25
        \concat { " " \smaller \sharp \lower #0.5 "11" }
        \concat { " " \smaller \flat \lower #0.25 "9" }
      }
    }
  }
  <c e g bes d' fis'>1-\markup {
    \super "9" \raise #3.5 {
      \teeny \center-column {
        \lower #2
        \concat { " " \smaller \sharp \lower #0.5 "11" }
      }
    }
  }
  <c e g bes des' f'>1-\markup {
    \super "11" \raise #3.5 {
      \teeny \center-column {
        \lower #2
        \concat { " " \smaller \flat \lower #0.25 "9" }
      }
    }
  }
  <c ees ges bes d' f'>1-\markup {
    "m" \super "11" \raise #3.5 {
      \teeny \center-column {
        \lower #2
        \concat { " " \smaller \flat \lower #0.25 "5" }
      }
    }
  }
  <c e g bes des' fis' a'>1-\markup {
    \super "13" \raise #3.5 {
      \teeny \center-column {
        \lower #1.25
        \concat { " " \smaller \sharp \lower #0.5 "11" }
        \concat { " " \smaller \flat \lower #0.25 "9" }
      }
    }
  }
  <c e g bes des' a'>1-\markup {
    \super "13" \raise #3.5 {
      \teeny \center-column {
        \lower #2
        \concat { " " \smaller \flat \lower #0.25 "9" }
      }
    }
  }
  <c e g b d' fis'>1-\markup {
    \teeny \super \triangle ##f \super "9" \raise #3.5 {
      \teeny \center-column {
        \lower #2
        \concat { " " \smaller \sharp \lower #0.5 "11" }
      }
    }
  }
  <c e g b fis'>1-\markup {
    \teeny \super \triangle ##f \super "7" \raise #3.5 {
      \teeny \center-column {
        \lower #2
        \concat { " " \smaller \sharp \lower #0.5 "11" }
      }
    }
  }
  <c e g a b d'>1-\markup {
    \teeny \super \triangle ##f \super "7" \raise #3.5 {
      \teeny \center-column {
        \lower #1.25
        " 9"
        " 6"
      }
    }
  }
  <c e g a b d' fis'>1-\markup {
    \teeny \super \triangle ##f \super "7" \raise #3.5 {
      \teeny \center-column {
        \lower #1.25
        \concat { " " \smaller \sharp \lower #0.5 "11" }
        " 9"
        \raise #1.5
        " 6"
      }
    }
  }
  <c e g bes des' aes'>1-\markup {
    \super "7" \raise #3.5 {
      \teeny \center-column {
        \lower #1.25
        \concat { " " \smaller \flat \lower #0.25 "13" }
        \concat { " " \smaller \flat \lower #0.25 "9" }
      }
    }
  }
  <c f g d'>1-\markup {
    \super "9" \raise #3.5 {
      \teeny \center-column {
        \lower #3.5
        "sus"
      }
    }
  }
  <c e g bes d' a'>1-\markup {
    \super "13"
  }
  <c f g a'>1-\markup {
    \super "13" \raise #3.5 {
      \teeny \center-column {
        \lower #3.5
        "sus"
      }
    }
  }
  <c e g bes d' fis' a'>1-\markup {
    \super "13" \raise #3.5 {
      \teeny \center-column {
        \lower #2
        \concat { " " \smaller \sharp \lower #0.5 "11" }
      }
    }
  }
  <c e gis bes d'>1-\markup {
    \super "9" \raise #3.5 {
      \teeny \center-column {
        \lower #2
        \concat { " " \smaller \sharp \lower #0.5 "5" }
      }
    }
  }
}
chExceptions = #(append (sequential-music-to-chord-exceptions chordExceptions #t) ignatzekExceptions)

%----------------------------------------------------------------------------

trumpetNotes = \relative c' {
  R1*7
  f8\mf a d16 c bes c ees4 d
  || fis4. e16 fis c4 cis8 d
  e4. d16 e d8 cis fis, \breathe fis
  a4 \tuplet 3/2 { c8 b a } g4 fis
  e4. d16 c e2 \breathe
  e8 f g a cis4 d8 e
  f4 ges8 f f4 ees \breathe
  8 des aes bes c2
  f,8 a d c a2\> \breathe
  || g1\!\pp
  fis1
  ees2 ces
  c4 ees2. \breathe
  gis,8\< a d dis e g ais cis
  e4\!\mf fis dis2 \breathe
  d8 e fis a gis4 e
  cis2 ees4\> d
  || d2\! r2
  R1*7
  || R1*8
  || R1*8
  || r2 r2\fermata
}

altoNotes = \relative c' {
  R1*7
  des8\mf fis g16 fis f fis g4 fis
  || d'4. cis16 dis a2
  fis4. bes8 gis g8 e \breathe dis
  e2 d4 e
  b2 2 \breathe
  bes2 a'
  aes4 bes8 aes bes2 \breathe
  aes2 g
  des8 fis g4 e4\> ees\! \breathe
  || b'4~\mf \tuplet 3/2 { b8 c b } d4 c
  b1
  bes8 aes ges ees des4 d
  ees8 f, g2. \breathe
  gis8\< a d4 e8 g ais4
  des2\!\mf ais4 a \breathe
  a8 b cis cis cis4 cis
  gis2 2\>
  || a2\! r2
  R1*7
  || R1*8
  || R1*8
  || r2 r2\fermata
}

tenorOneNotes = \relative c' {
  R1*7
  c8\mf d ees16 d c d g4 fis
  || a4. a16 b fes2
  d4. f8 e4 cis8 \breathe cis
  c2 c4 c
  a2 a4 gis \breathe
  a2 e'4 d8 cis
  des2 d8 ees ges f \breathe
  ees2 d
  c8 d ees4 c2\> \breathe
  || e2\p d
  d1
  ces2 bes
  bes4 bes2. \breathe
  gis8\< a4. e'8 g4.
  aes2\!\mf eis2 \breathe
  e8 fis a g fis4 fis
  e2 c2\>
  || b2\! r2
  R1*7
  || R1*8
  || R1*8
  || r2 r2\fermata
}

tenorTwoNotes = \relative c' {
  R1*7
  \tag #'score { \clef bass }
  ees,8\mf g bes16 aes fis aes a4 c
  || b4. b16 des bes2
  a4. gis8 ais4 a8 \breathe a
  d,2 ees4 b
  d2 d \breathe
  d g
  ees ges \breathe
  e f4. e8
  ees8 g f4 d2\> \breathe
  || a'2\pp gis
  a2 gis
  ges2 f
  f4 ees2. \breathe
  gis2\< a
  e'2\!\mf fis,2 \breathe
  fis8 a b a gis4 gis
  fis2 fis2\>
  || g2\! r2
  R1*7
  || R1*8
  || R1*8
  || r2 r2\fermata
}

baritoneNotes = \relative c {
  \tag #'score { \clef bass }
  fis'4.\f e16 fis c4 cis8 d
  e4. d16 e d8 cis fis, \breathe fis
  a4 \tuplet 3/2 { c8 b a } g4 fis
  e4. d16 c e2 \breathe
  e8 f g a cis4 d8 e
  f4 ges8 f f4 ees \breathe
  ees8 des aes bes c2
  aes8\mf b c16 bes aes bes ees4 ees
  || g4. e16 fis des2
  cis4. d8 d cis b \breathe b
  g2 a4 a
  f2 f \breathe
  f bes
  bes c \breathe
  bes a
  aes8 b bes4 g\> fis \breathe
  || c'1\!\p
  cis
  bes2 g
  aes4 bes,2. \breathe
  fis4-.\< fis-. fis-. fis-.
  a'2\mf c \breathe
  b8 cis e dis d4 d
  b2 bes \breathe
  || fis'4.\f e16 fis c4 cis8 d
  e4. d16 e d8 cis fis, \breathe fis
  a4 \tuplet 3/2 { c8 b a } g4 fis
  e4. d16 c e2 \breathe
  e8 f g a cis4 d8 e f4 ges8 f f4 ees \breathe
  ees8 des aes bes c2
  f,8 a d c a2
  || R1*8
  || R1*8
  || g2~ 2\fermata
}

ch = \chordmode {
  g2:maj9.11+ ges:7.9+.11+
  b4.:m11 e8:7.5-.9+ fis:9.5+ fis:7.9- b4:9
  d2:11 a4:m7.5- b:11.9-
  b2:m11.5- e4:sus7.9- e:7.9-
  g2:m9 \once \override ChordName.text = \markup { \fraction "A" "Gm" } a/g
  ges:maj6.9 aes:13.11+
  ges:13 g:11
}
compChords = \chordmode {
  \set chordNameExceptions = #chExceptions
  \ch
  ees8:sus13 a:sus13 d4:7.5+ a:m7.5- d:7.5+.9-
  || \ch
  ees8:sus13 a:sus13 aes4:maj6.9.11+ d:sus9 d:7.9-
  || a2:m9 e:7.5+.9+
  b:m9 e:13
  aes:m9 des4:13.11+ des:13.9-.11+
  bes4:11 ees2.
  \once \override ChordName.text = \markup {
    "F" \smaller \sharp \super \concat {
      "°7 (add G" \smaller \super \sharp ", D)"
    }
  } fis2:dim7 fis:7.9-
  fis:m9 gis4:13 gis:13.9-
  b2:m11 e:13
  a:maj6.9 d:7.5+
  || \ch
  ees8:sus13 a:sus13 aes4:maj7.6.9.11+ d:sus9 d:7.9-
  || \ch
  ees8:sus13 a:sus13 d4:7.5+ a:m7.5- d:7.5+.9-
  || \ch
  ees8:sus13 a:sus13 aes4:maj7.6.9.11+ d:sus9 d:7.9-
  || aes2:maj7.11+ g:6.9\fermata
}
compNotes = \relative c {
  \improvisationOn
  \rsOne
  d4. 8 8 8 4
  \rs \rs 4 4
  \rs \rs 4 4
  \rsOne
  \rsOne
  \rsOne
  8 8 4 4 4
  || \rsOne
  4. 8 8 8 4
  \rs \rs 4 4
  \rs \rs 4 4
  \rsOne
  \rsOne
  \rsOne
  8 8 4 4\> 4
  || \rs\! \rs \rs \rs
  \rsOne
  \rs \rs 4 4
  4 2.
  4-.\< 4-. 4-. 4-.
  \rs\! \rs 4 4
  \rsOne
  \rs \rs \rs\> \rs
  || \rs\! \rs \rs \rs
  4. 8 8 8 4
  \rs \rs 4 4
  \rs \rs 4 4
  \rsOne
  \rsOne
  \rsOne
  8 8 4 4 4
  || \rs^\markup { "piano solo ad lib." } \rs \rs \rs
  4. 8 8 8 4
  \rs \rs 4 4
  \rs \rs 4 4
  \rsOne
  \rsOne
  \rsOne
  8 8 4 4 4
  || \rsOne
  4. 8 8 8 4
  \rs \rs 4 4
  \rs \rs 4 4
  \rsOne
  \rsOne
  \rsOne
  8 8 4 4\>^\markup { "end solo" } 4\!
  || \rs \rs 2\fermata
  \improvisationOff  
}

%----------------------------------------------------------------------------

#(set-global-staff-size 14)

\book {
  \header { instrument = "C-score" }
  \score {
    \keepWithTag #'score
    <<
      \new StaffGroup <<
        \new Staff \with {
          instrumentName = "trumpet"
          shortInstrumentName = "tp."
          midiInstrument = "trumpet"
        } <<
          \codaSegno
          \global
          \trumpetNotes
        >>
        \new Staff \with {
          instrumentName = "altsax"
          shortInstrumentName = "as."
          midiInstrument = "alto sax"
        } <<
          \global
          \altoNotes
        >>
        \new Staff \with {
          instrumentName = "tenorsax1"
          shortInstrumentName = "ts.1"
          midiInstrument = "tenor sax"
        } <<
          \global
          \tenorOneNotes
        >>
        \new Staff \with {
          instrumentName = "tenorsax2"
          shortInstrumentName = "ts.2"
          midiInstrument = "tenor sax"
        } <<
          \global
          \tenorTwoNotes
        >>
        \new Staff \with {
          instrumentName = "barytonsax"
          shortInstrumentName = "bs."
          midiInstrument = "baritone sax"
        } <<
          \global
          \clef bass
          \baritoneNotes
        >>
        <<
          \new ChordNames {
            \compChords
          }
          \new Staff \with {
            instrumentName = "komp"
            shortInstrumentName = "kmp"
            midiInstrument = "acoustic bass"
          } <<
            \global
            \clef bass
            \compNotes
          >>
        >>
      >>
    >>

    \layout {}

    \midi {
      \context {
        \Score
        midiChannelMapping = #'instrument
      }
    }
  }
}

%----------------------------------------------------------------------------

#(set-global-staff-size 24)

\layout {
  \context {
    \Score
    \override SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/16)
    skipBars = ##t
  }
}

\bookOutputName "./Sixten-parts/Sixten"

\book {
  \bookOutputSuffix "trumpet"
  \header { instrument = \markup { "Trumpet in B" \smaller \flat } }
  \score {
    \keepWithTag #'part
    \transpose bes, c
    \new Staff \with { instrumentName = "tp." } <<
      \codaSegno
      \global
      \trumpetNotes
    >>
  }
}

\book {
  \bookOutputSuffix "altsax"
  \header { instrument = \markup { "Alto Sax in E" \smaller \flat } }
  \score {
    \keepWithTag #'part
    \transpose ees, c
    \new Staff \with { instrumentName = "as." } <<
      \codaSegno
      \global
      \altoNotes
    >>
  }
}

\book {
  \bookOutputSuffix "tenorsax1"
  \header { instrument = \markup { "Tenor Sax 1 in B" \smaller \flat } }
  \score {
    \keepWithTag #'part
    \transpose bes,, c
    \new Staff \with { instrumentName = "ts.1" } <<
      \codaSegno
      \global
      \tenorOneNotes
    >>
  }
}

\book {
  \bookOutputSuffix "tenorsax2"
  \header { instrument = \markup { "Tenor Sax 2 in B" \smaller \flat } }
  \score {
    \keepWithTag #'part
    \transpose bes,, c
    \new Staff \with { instrumentName = "ts.2" } <<
      \codaSegno
      \global
      \tenorTwoNotes
    >>
  }
}

\book {
  \bookOutputSuffix "barytonsax"
  \header { instrument = \markup { "Baritone Sax in E" \smaller \flat } }
  \score {
    \keepWithTag #'part
    \transpose ees,, c
    \new Staff \with { instrumentName = "bs." } <<
      \codaSegno
      \global
      \baritoneNotes
    >>
  }
}

\book {
  \bookOutputSuffix "komp"
  \header { instrument = \markup { "Piano, Bass, Drums" } }
  \score {
    \keepWithTag #'part
    <<
      \new ChordNames {
        \compChords
      }
      \new Staff \with { instrumentName = "kmp" } <<
        \codaSegno
        \global
        \clef bass
        \compNotes
      >>
    >>
  }
}