\version "2.24.2"
\include "deutsch.ly"

%%% #(set-global-staff-size 18)
showFinalBar = { % revert "Mensurstriche" to regular barlines
        \override Score.BarLine #'allow-span-bar = ##t
        %\once \override Score.BarLine #'transparent = ##f
        %\once \override Score.BarLine #'hair-thickness = #1.9
}

\paper {
  %#(define page-breaking ly:optimal-breaking)  % the new default algorithm
  %#(define page-breaking ly:page-turn-breaking)
  %#(define page-breaking ly:minimal-breaking)
  %#(define page-breaking optimal-page-breaks)  % the old algorithm
  top-margin =  4\mm % 5\mm default
  head-separation =  3\mm % 4\mm default
  after-title-space = 3\mm % 5\mm default
  between-system-space = 18\mm % 17\mm % 20\mm default 
  between-system-padding = 3\mm % #0.1 % 4\mm default
%  foot-separation = 1\mm % 2\mm % 4\mm default
  bottom-margin = 5\mm % 6\mm
  
  left-margin = 10\mm % 18 \mm % 25\mm % 10\mm default
  line-width = 190\mm % 177\mm % default pw-20\mm
%  ragged-right = ##t
%  paper-height = 290\mm
%  paper-height = 310\mm
%  ragged-last-bottom = ##f
%  ragged-bottom = ##t
%%  annotate-spacing = ##t
%  oddFooterMarkup = \markup \abs-fontsize #11 {
%    \on-the-fly #first-page { \fill-line { \center-column { 
%      \line { " " }
%      \line { " " }
%      \line { © 2012 by CPDL <http://cpdl.org>. May be
%        freely distributed, duplicated, performed, and recorded. }
%      \line { Engraving by LilyPond 2.12.3 <http://lilypond.org>.
%        Edition by Klaus Föhl <klaus@foehl.net> 2012. }     
%    } } }
%}}  
}

\header {
%  copyright = "copyright"
  title = \markup { \medium \fontsize #1.5 "Macht hoch die Tür" }
  poet = "Worte: Georg Weißel (1590-1635)"
  composer = "Weise: Halle, 1704; Satz: Friedrich Silcher"
%  arranger = ""
%  instrument = "instrument"
%  metre = "Maestoso"
%  opus = "opus"
%  piece = "Mit Wärme."
%  texidoc = "All header fields with special meanings."
%  copyright = "public domain"
%  enteredby = "Klaus Föhl"
%  source = "urtext"
}

globales = {
  \key f \major
  \time 3/4
  \partial 4
  \autoBeamOff
  %\set melismaBusyProperties = #'()  % Bindebogen nicht anschauen
}

sopranToene = \relative a' { 
  h4 | d2 c4 h2 a4 g( a) h a2 d4 c2 c4 h2 h4 a( g) a g2 \breathe
  h4 | a2 a4 h( cis) d d( e) cis d2 a4 h2 a4 h( cis) d d( e) cis d2 \breathe
  d4 | e2 d4 e2 d4 e( d) c h2 d4 e2 d4 e2 d4 e( d) c h2 \breathe
  d4 | g,2 g4 c2 h4 a2.~a2 \breathe d4 c2 h4 a( g) a g2.~g2
  \showFinalBar  \bar "|."
}

altToene = \relative g' { 
  g4 | g2 g4 g2 fis4 g( fis) g fis2 g4 g2 fis4 g2 g4 fis( e) fis d2 \breathe
  g4 | e2 fis4 g2 a4 g2 e4 fis2 a4 g2 a4 g2 a4 h2 a4 a2 \breathe
  h4 | c2 h4 g2 g4 g2 fis4 g2 g4 e( fis) g g2 g4 g2 fis4 g2 \breathe
  g4 | e2 e4 e( fis) g fis2.~fis2 \breathe g4 g2 g4 g( e) fis d2.~d2
  \showFinalBar  \bar "|."
}

tenorToene = \relative c' { 
  d4 | h2 e4 d2 c4 h2 d4 d2 d4 e2 d4 d2 d4 c2 c4 h2 \breathe
  d4 | cis2 d4 d4( e) d h2 a4 a2 d4 d2 d4 d( e) d d( g) g fis2 \breathe
  g4 | g2 g4 c,2 h4 c( h) d d2 h4 c( a) h c2 h4 c( h) a g2 \breathe
  d'4 | c2 c4 c2 d4 d2.~d2 d4 e2 d4 c2 c4 h2.~h2 
  \showFinalBar  \bar "|."
}

bassToene = \relative g {
  g4 | g2 g4 g2 d4 e2 h8[ c] d2 h'4 a2 d,4 g2 h,4 d2 d4 g2 \breathe
  g4 | a2 d,4 g2 fis4 e2 a4 d,2 fis4 g2 fis4 g( e) fis g2 a4 d2 \breathe
  g,4 | c2 g4 c,2 g'4 c,( d) d g2 g4 c,2 g'4 c2 g4 c,( d) d e2 \breathe
  h'4 | c2 h4 a2 g4 d2.~d2 \breathe h'4 c2 g4 d2 d4 g2.~g2 
  \showFinalBar  \bar "|."
}

textEins = \lyricmode { 
  \set stanza = "1. "
  Macht hoch die Tür, die Tor macht weit!
  Es kommt der Herr der Herr -- lich -- keit,
  ein Kö -- nig al -- ler Kö -- nig -- reich,
  ein Hei -- land al -- ler Welt zu -- gleich,
  der Heil und Le -- ben mit sich bringt,
  der -- hal -- ben jauchzt, mit Freu -- den singt:
  ge -- lo -- bet sei mein Gott, __
  mein Schöp -- fer, reich von Rat! __
}

textZwei = \lyricmode { 
  \set stanza = "2. "
  Er ist ge -- recht, ein Hel -- fer wert,
  Sanft -- mü -- tig -- keit ist sein Ge -- fährt.
  Sein Kö -- nigs -- kron ist Hei -- lig -- keit,
  sein Zep -- ter ist Barm -- her -- zig -- keit.
  All uns -- re Not zum End er bringt,
  der -- hal -- ben jauchzt, mit Freu -- den singt:
  ge -- lo -- bet sei mein Gott, __
  mein Hei -- land, groß von Tat! __
}

textDrei = \lyricmode { 
  \set stanza = "3. "
  O wohl dem Land, o wohl der Stadt,
  so die -- sen Kö -- nig bei sich hat!
  Wohl al -- len Her -- zen ins -- ge -- mein,
  da die -- ser Kö -- nig zie -- het ein!
  Er ist die rech -- te Freu -- den -- sonn,
  bringt mit sich lau -- ter Freud und Wonn.
  Ge -- lo -- bet sei mein Gott, __
  mein Trö -- ster früh und spat. __
\set stanza = "3. "
}

textVier = \lyricmode { 
  \set stanza = "4. "
  Macht hoch die Tür, die Tor’ macht weit,
  eu’r Herz zum Tem -- pel zu -- be -- reit’t.
  Die Zweig -- lein der Gott -- se -- lig -- keit
  steckt auf mit An -- dacht, Lust und Freud’!
  So kommt der Kö -- nig auch zu euch,
  ja, Heil und Le -- ben mit zu -- gleich.
  Ge -- lo -- bet sei mein Gott, __
  voll Rat, voll Tat, voll Gnad’! __
}

textFunf = \lyricmode {
  \set stanza = "5. "
  Komm, o mein Hei -- land Je -- su Christ,
  meins Her -- zens Tür dir of -- fen ist.
  Ach zeuch mit dei -- ner Gna -- den ein;
  dein Freund -- lich -- keit auch uns er -- schein.
  Dein Heil -- ger Geist uns führ und leit
  den Weg zur ew -- gen Se -- lig -- keit.
  Dem Na -- men dein, o Herr, __
  sei e -- wig Preis und Ehr. __
}

\score {
%%  \new ChoirStaff <<
  \new StaffGroup <<
    \new Staff = frauen \with {
      \override VerticalAxisGroup #'minimum-Y-extent = #'(-2 . 2)
    } 
    <<
      \clef treble
      \new Voice = "sopran" << 
        \voiceOne
        \globales
        %\mark \markup { \fontsize #-3 \note-by-number #2 #0 #UP = 72 }
        %\mark \markup { Allegro }
        %\tempo 4 = 72
        \override Score.BarLine #'allow-span-bar = ##f
        \transpose g f \sopranToene
      >>
      \new Voice = "alt" <<
        \voiceTwo
        \globales 
        \transpose g f \altToene

      >>
    >>
    \new Lyrics = "stropheeins" \with {
      %\override VerticalAxisGroup #'minimum-Y-extent = #'(-1.2 . 1)
    } { s1 }
    \new Lyrics = "strophezwei" \with {
      %\override VerticalAxisGroup #'minimum-Y-extent = #'(-0.9 . 0)% Ä in 3
    } { s1 }
    \new Lyrics = "strophedrei" \with {
      %\override VerticalAxisGroup #'minimum-Y-extent = #'(-1.2 . 0)
    } { s1 }
    \new Lyrics = "strophevier" \with {
      %\override VerticalAxisGroup #'minimum-Y-extent = #'(-1.2 . 0)
    } { s1 }
    \new Lyrics = "strophefunf" \with {
      %\override VerticalAxisGroup #'minimum-Y-extent = #'(-1.2 . 0)
    } { s1 }
    \new Staff = maenner \with {
      \override VerticalAxisGroup #'minimum-Y-extent = #'(-2 . 2)
    } 
    <<
      \clef bass
      \new Voice = "tenor" <<
        \voiceOne
        \globales
        \transpose g f \tenorToene
      >>
      \new Voice = "bass" <<
        \voiceTwo
        \globales
        \transpose g f \bassToene 
      >>
    >>
    \context Lyrics = stropheeins \lyricsto sopran \textEins
    \context Lyrics = strophezwei \lyricsto sopran \textZwei
    \context Lyrics = strophedrei \lyricsto sopran \textDrei
    \context Lyrics = strophevier \lyricsto sopran \textVier
    \context Lyrics = strophefunf \lyricsto sopran \textFunf
  >>
  \layout {
    indent = 0\cm
    \context {
      \Score
      %\remove "Bar_number_engraver"
      \override BarNumber #'padding = #1.5
    }
    \context {
      \Staff
      %\override TimeSignature #'break-align-anchor-alignment = #LEFT
      % a little smaller so lyrics can be closer to the staff
      %\override VerticalAxisGroup #'minimum-Y-extent = #'(-3 . 3)
    }
    \context { \Lyrics
      %\override VerticalAxisGroup #'minimum-Y-extent = #'(-0.1 . 1.5)
      \override VerticalAxisGroup #'minimum-Y-extent = #'(-0.3 . 2.0)
    }
  }
  \midi {
    \context {
      \Score
      tempoWholesPerMinute = #(ly:make-moment 120 4)
    }
  }
}