\version "2.22.2"

myStaffSize = #20

#(set-global-staff-size myStaffSize)

\paper {
  % system-separator-markup = \slashSeparator
  % following commands are needed only to format this documentation
  %two-sided = ##t
  %inner-margin   = 17.5\mm
  %outer-margin   = 17.5\mm
  %line-width    = 175\mm
  left-margin   = 22.5\mm
  right-margin   = 22.5\mm
  top-margin    = 5\mm
  bottom-margin = 5\mm
  indent = 0\mm 
  %%set to ##t if your score is less than one page: 
  ragged-last-bottom = ##t
  ragged-bottom = ##t
  print-page-number = ##f
  %%systems-per-page = #4
  %%bottom-margin = 1\mm
  %% in orchestral scores you probably want the two bold slashes 
  %% separating the systems: so uncomment the following line: 
  %% system-separator-markup = \slashSeparator 
  %% page-count = 4
  %%staff-staff-spacing #'padding = #40
  %%system-system-spacing #'basic-distance = #19    % Abstand zwischen Notenzeilen
  #(define fonts
     (make-pango-font-tree "Old Standard TT"
                           "Alegreya Sans"
                           "Droid Mono"
                           (/ myStaffSize 20)))
  %%oddFooterMarkup = \markup \small\fill-line {\with-color #(x11-color 'grey40) \large \override #'(font-name . "Open Sans")\encodingdate \line{"♫ Lilypond 🙰 Frescobaldi • Komponist’s"\italic"Stück""•"\smaller{"Seite" \fromproperty #'page:page-number-string }}{\with-color #(x11-color 'grey40) \large \override #'(font-name . "Open Sans")\encodingdate}}
}

\header {
  title = "Gloria in Excelsis"
  subtitle = "Ehre sei Gott in der Höhe"
  composer = "Straßburger Kirchenordnung, 1525"
  poet = "nur bis „…Wohlgefallen”"
}

global = {
  \key c \major
  \time 30/4
}

\layout {
  \context {
    \Score
    \omit TimeSignature
      \override BarLine.X-extent = #'(-1 . 1)
      %\hide BarLine
      \hide TupletNumber
  }
}

scoreATrumpetCI = \relative c'' {
  \global
  \override Staff.BarLine.stencil = ##f
  g2
  g4 g g( a b2) a4 b
  c2 a\breathe
  a4 d, e fis
  g2\breathe g4
  a4 a4
  b4 c b4
  a4 a2. \override Staff.BarLine.stencil = ##t \bar "|."
  
}

scoreATrumpetCII = \relative c'' {
  \global
  d,2
  d4 d e( fis
  g2) e4 e
  e2 f\breathe
  c4 b c c
  d2\breathe e4
  fis4 fis
  g4 e4 gis4
  e4 e2.
  
}

scoreATrombone = \relative c {
  \global
  b'2
  b4 b b d ~
  d2 c4 b
  a2 d\breathe
  a4 g g a
  b2\breathe b4
  d4 d4
  d4 c4 e4
  c4 c2.
  
}

scoreATuba = \relative c {
  \global
  g'2
  g4 g e( d
  g2) a4 gis
  a2 d,\breathe
  f4 g! c, a
  g2\breathe e'4
  d4 d
  g4 a4 e4
  a4 a2.
  
  
}

Liedtext =  \lyricmode { 
  Eh -- re sei Gott __ in der Hö -- he und auf Er -- den Fried,
  den Men -- schen ein Wohl -- ge -- fal -- len.
}

scoreATrumpetCIPart = \new Staff \with {
  %instrumentName = "Trompete in C I"
  midiInstrument = "trumpet"
} \scoreATrumpetCI
\addlyrics { \Liedtext }

scoreATrumpetCIIPart = \new Staff \with {
  %instrumentName = "Trompete in C II"
  midiInstrument = "trombone"
} \scoreATrumpetCII

scoreATrombonePart = \new Staff \with {
  %instrumentName = "Posaune"
  midiInstrument = "french horn"
} { \clef bass \scoreATrombone }

scoreATubaPart = \new Staff \with {
  %instrumentName = "Tuba"
  midiInstrument = "tuba"
} {\clef bass \scoreATuba}

\score {\transpose c bes, {
  <<
    \scoreATrumpetCIPart
    \scoreATrumpetCIIPart
    \scoreATrombonePart
    \scoreATubaPart
  >>}
  \layout { }
  \midi {
    \tempo 4=100
  }
}