\NeedsTeXFormat{LaTeX2e}
%
% Übersetzen mit "lualatex --shell-escape wm15fom"
%
\documentclass[11pt]{letter}
%
% Der Einfachheit halber verwenden wir hier geometry zum
% Setzen der diversen Seitenparameter und im Anschluß das
% uralte quire.tex aus den Midnight Macros, um je zwei Seiten
% auf einen A4-Bogen zu kombinieren.
%
\usepackage{geometry}
\geometry{papersize={14.85cm,21cm},left=1.5cm,right=2.5cm,top=1.5cm,bottom=1.5cm,twoside,
                     marginparsep=3mm,marginparwidth=1.9cm}
\input quire.tex
   \paperwidth=2\paperwidth  \shhtotal=\paperwidth   \htotal=0.5\paperwidth
   \vtotal=\paperheight      \horigin=1in            \vorigin=1in
   \shvoffset=-1in           \shvcorrection=0pt      \shthickness=0pt
   \shhcorrection=0pt        \shoutline=0pt          \shstaplewidth=0pt
   \shstaplelength=0pt       \shcrop=0pt             \shfootline={}
   \def\supereject{\par\penalty-20000}
   \latexquire               \quire{8}
\usepackage[english,german]{babel}
\selectlanguage{german}
\usepackage{fontspec}
\defaultfontfeatures{Ligatures=TeX}
\DeclareUTFcharacter[\UTFencname]{x201C}{\grqq}
\DeclareUTFcharacter[\UTFencname]{x201E}{\glqq}
\setmainfont{CMU Serif}
\setsansfont{CMU Sans Serif}
\setmonofont{CMU Typewriter Text}
\usepackage{graphicx}
\usepackage{shellesc}
\usepackage{soul}
\usepackage{calc}


\def\tmpNamePrefix{tmplily}
\def\tmpFragPrefix{\tmpNamePrefix frag}
\def\tmpNameFull{\tmpNamePrefix .ly}
\def\tmpNameHead{\tmpNamePrefix head.ly}
\def\tmpNamePaper{\tmpNamePrefix paper.ly}
\def\tmpNamePdf{\tmpNamePrefix .pdf }
\def\tmpNameTail{\tmpNamePrefix tail.ly}

\def\lilycommand{lilypond -b -dbackend=eps -dgs-never-embed-fonts=\#t -dfont-export-dir=./ }

\newwrite\tmpFileMain
\newwrite\tmpFileHead
\newwrite\tmpFileTail
\newwrite\tmpFilePaper

\newread\fragcountfile

\newcount\fragcount
\newcount\fragpagecount
\newcount\fragpagenum

{
  \catcode`|=0 \catcode`[=1 \catcode`]=2 \catcode`\#=12
  \catcode`\{=12 \catcode`\}=12 \catcode`\\=12
  |gdef|eohead[\end{lilyhead}]
  |gdef|eofrag[\end{lilyfrag}]
  |gdef|eotail[\end{lilytail}]
  |gdef|hashtag[#]
  |gdef|escape[\]
  |gdef|definepaper[\definepaper]
]

{
  \obeylines
  \gdef\doline#1
  {
    \def\oneline{#1}
    \ifx\oneline\eohead\def\next{\end{lilyhead}}\else
    \ifx\oneline\eofrag\def\next{\end{lilyfrag}}\else
    \ifx\oneline\eotail\def\next{\end{lilytail}}\else 
    \ifx\oneline\definepaper\immediate\write\tmpFile{\escape include "\tmpNamePaper"}\let\next\doline
    \else\immediate\write\tmpFile{\oneline}\let\next\doline
    \fi\fi\fi\fi\next%
  }
}

\makeatletter

\newcommand{\zeit}[2]{#1%
 \sbox\z@ T%
 \vbox address@hidden@mathfonts
 address@hidden@
 address@hidden
 \setul{.17em}{.03em}\,\ul{#2}\resetul}%
 \vss}~Uhr}
 
 
\newenvironment{lilyfrag}[2]{
  \global\advance\fragcount by 1
  \immediate\openout\tmpFileMain=\tmpNameFull
  \gdef\tmpFile{\tmpFileMain}
  \immediate\write\tmpFileMain{\escape include "\tmpNameHead"}
  \immediate\openout\tmpFilePaper=\tmpNamePaper
  \immediate\write\tmpFilePaper{\hashtag(set!
     paper-alist (cons '("mySize" . (cons (* #1) (* #2))) paper-alist))}
  \immediate\closeout\tmpFilePaper
  address@hidden
}{
  \immediate\write\tmpFileMain{\escape include "\tmpNameTail"}
  \immediate\closeout\tmpFileMain
  \immediate\write18{\lilycommand \tmpNameFull}
  \openin\fragcountfile=\tmpNamePrefix-systems.count
  \read\fragcountfile to \fragpagecount
  \closein\fragcountfile
  \fragpagenum=1
  \begin{center}
  \loop
    \immediate\write18{mv \tmpNamePrefix-\the\fragpagenum.pdf \tmpFragPrefix\the\fragcount-\the\fragpagenum.pdf}
    \immediate\write18{./mypdfcrop \tmpFragPrefix\the\fragcount-\the\fragpagenum}
    \leavevmode\raise-30pt\vtop{\includegraphics{\tmpFragPrefix\the\fragcount-\the\fragpagenum-crop.pdf}}\callback
    \advance\fragpagenum by 1 \unless\ifnum\fragpagenum>\fragpagecount
  \repeat
  \end{center}
}

\newenvironment{lilyhead}{
  \immediate\openout\tmpFileHead=\tmpNameHead
  \gdef\tmpFile{\tmpFileHead}
  address@hidden
}{
  \immediate\closeout\tmpFileHead
}

\newenvironment{lilytail}{
  \immediate\openout\tmpFileTail=\tmpNameTail
  \gdef\tmpFile{\tmpFileTail}
  address@hidden
}{
  \immediate\closeout\tmpFileTail
}

\makeatother

\begin{lilyhead}
\version "2.19.52"
\include "deutsch.ly"
\pointAndClickOff
\definepaper
\paper {
  #(set-paper-size "mySize") left-margin = 0\cm top-margin = 0\cm bottom-margin = 0\cm 
  line-width = \paper-width indent = 0 systems-per-page = #1  ragged-right = ##f
  ragged-bottom = ##t ragged-last-bottom = ##t annotate-spacing = ##f print-page-number = ##f
  % not necessary for lilypond git d5bc965b (2015-12-28) and above:
  % oddHeaderMarkup = \markup \null evenHeaderMarkup = \markup \null
}
\layout{
  \context {
    \Lyrics {
      \override VerticalAxisGroup.nonstaff-relatedstaff-spacing = #'((basic-distance . 0))
      \override VerticalAxisGroup.nonstaff-relatedstaff-spacing = #'((padding . 1.25))
    }
  }
}
\header {
  tagline = ##f
}
#(set-global-staff-size 16)
allowGrobCallback = #(define-scheme-function (parser location syms) (symbol-list?)
  (let ((interface (car syms)) (sym (cadr syms))) #{ \with { \consists #(lambda (context)
  `((acknowledgers . ((,interface . ,(lambda (engraver grob source-engraver)
  (let ((prop (ly:grob-property grob sym))) (if (procedure? prop) 
  (ly:grob-set-property! grob sym (prop grob))))))))))}#}))
absFontSize = #(define-scheme-function (parser location pt)(number?)
  (lambda (grob) (let* ((layout (ly:grob-layout grob))
  (ref-size (ly:output-def-lookup (ly:grob-layout grob) 'text-font-size 12)))
  (magnification->font-size (/ pt ref-size)))))
parenbreathe = { \once \override BreathingSign #'text =
  \markup { \concat { \vcenter "(" \musicglyph #"scripts.rcomma" \vcenter ")" } } \breathe
}
\score { <<
\end{lilyhead}

\begin{lilytail}
  >>
  \layout {
    \context {
      \Score
      \allowGrobCallback font-interface.font-size
      \omit BarNumber
    }
    \override Lyrics.LyricText  #'font-name = #"CMU Serif"
    \override LyricText.font-size = \absFontSize #10
    \override StanzaNumber.font-name = #"CMU Serif"
    \override StanzaNumber.font-size = \absFontSize #10
  }
}
\end{lilytail}

\newcount\cmarg\cmarg=1
\def\testmarg{\marginpar{\scriptsize\emph{Dies ist Marginalie \the\cmarg}}\advance\cmarg1}

\newcount\cnum\cnum=1
\def\hymn#1{{\vskip 20pt plus 10pt minus 5pt\bfseries\Large\the\cnum\hfill #1}\advance\cnum1\nopagebreak\par\nopagebreak}

\linespread{1.0}

\begin{document}
\selectlanguage{german}
\pagestyle{plain}

\begin{center}
{\bfseries\Huge Hymnals\par\LARGE Example booklet}
\end{center}

\newpage

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def\callback{\ifnum\fragpagenum=1\marginpar{\scriptsize\emph{Marginalie beim \the\fragpagenum. System}}\fi}

\hymn{O Heiland, reiß die Himmel auf}
\begin{lilyfrag}{10.85 cm}{21 cm}
  \new Voice = "Melody" \relative d'{
    \key c \major \time 3/4 \partial 4
    d4 f2 g4 a2 d,4 f e2 d2. \breathe a'4 4 h \break
    c2 f,4 a g2 f2. \breathe c'4 4 4 2 a4 \break
    d2 4 c2. \breathe a4 4 g a2 f4 g e2 d \bar"|."
  }
  \new Lyrics \lyricsto "Melody" {
   \set stanza = "1." O Hei -- land, reiß die Him -- mel auf,
   her -- ab, her -- ab vom Him -- mel lauf, reiß ab vom Him -- mel
   Tor und Tür, reiß ab, wo Schloß und Rie -- gel für.
  }
\end{lilyfrag}

2. O Erd, schlag aus, schlag aus, o Erd,~/~%
daß Berg und Tal grün alles werd.~/~%
O Erd, herfür dies Blümlein bring,~/~%
o Heiland, aus der Erden spring.

4. Wo bleibst Du, Trost der ganzen Welt,~/~%
darauf sie all ihr Hoffnung\testmarg stellt?~/~%
O komm, ach komm vom höchsten Saal,~/~%
komm, tröst uns hier im Jammertal.

6. Hier leiden wir die größte Not,~/~%
vor Augen steht der ewig Tod.~/~%
Ach komm, führ uns mit starker Hand~/~%
vom Elend zu dem Vaterland.\testmarg 

7. Da wollen wir\testmarg  all danken dir,~/~%
unserm Erlöser, für und für;~/~%
da wollen wir all loben dich~/~%
zu aller Zeit und ewiglich.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def\callback{\ifnum\fragpagenum=4\marginpar{\scriptsize\emph{Marginalie beim \the\fragpagenum. System}}\fi
              \ifnum\fragpagenum=6\marginpar{\scriptsize\emph{Marginalie beim \the\fragpagenum. System}}\fi}

\hymn{Tochter Zion}
\begin{center}
\begin{lilyfrag}{10.85 cm}{21 cm}
  \new Voice = "Melody" 
  \transpose  c b { \relative c' { \key f \major
  c2 a4.( b8) | c2 f,2 | g8( a b c b4) a | g1 | \breathe \break
  a8( b c d c4) c | f2 c | b4( a g4.) f8 | f1 | \breathe \break 
  a8( g a b a4) a | g2 f | b4( a g) f | e1 | \breathe \break 
  f8( e f g f4) f | d'2 h2 | c4( d8 c h4.) c8 | c1 | \breathe \break 
  c2 a4.( b8) | c2 f, | g8( a b c b4) a | g1 | \breathe \break
  c8( b c d c4) c | f2 c | b4( a g4.) f8 f1 \bar"|."
  } }
  
  \new Lyrics \lyricsto "Melody" {
  \set stanza = "1."
  Toch -- ter __ Zi -- on, freu -- e dich! Jauch -- ze laut, Je -- 
  ru -- sa -- lem! Sieh, __ dein Kö -- nig kommt __ zu dir, ja, __ er
  kommt, der Frie -- de -- fürst! Toch -- ter __ Zi -- on, freu -- e dich!
  Jauch -- ze laut, Je -- ru -- sa -- lem!
  }
\end{lilyfrag}
\end{center}

2. Hosianna,\testmarg  Davids Sohn,~/~%
sei gesegnet deinem Volk!~/~%
Gründe nun dein ew'ges Reich,~/~%
Hosianna in der Höh'!~/~%
Hosianna, Davids Sohn,~/~%
sei gesegnet deinem Volk!

3. Hosianna, Davids Sohn,~/~%
sei gegrüßet, König mild!~/~%
Ewig steht dein Friedensthron,\testmarg ~/~%
du, des ew'gen Vaters Kind.~/~%
Hosianna, Davids Sohn,~/~%
sei gegrüßet, König mild!

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def\callback{}

\hymn{Macht hoch die Tür}
\begin{center}
\begin{lilyfrag}{10.85 cm}{21 cm}
\new Voice = "Melody" \relative g'{
      \key es \major \time 6/4 \partial 4
      g4 b2 as4 g2 f4 es (f) g f2 \breathe \bar"" \break
      b4 as2 as4 g2 g4 f (es) f es2 \breathe \bar"" \break
      g4 f2 f4  g (a) b b (c) a b2 \breathe \bar"" \break
      f4 g2 f4 g (a) b b (c) a b2 \breathe \bar"" \break
      b4 c2 b4 c2 b4 c (b) as g2 \breathe \bar"" \break
      b4 c2 b4 c2 b4 c (b) as g2 \breathe \bar"" \break
      b4 es,2 es4 as2 g4 f2. ~ f2 \breathe \bar"" \break
      b4 as2 g4 f (es) f es2. ~ es2 \bar"|."
    }
    \new Lyrics \lyricsto "Melody" {
      \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. __
    }
\end{lilyfrag}
\end{center}
    
3. O wohl dem Land, o wohl der Stadt,~/~%
so diesen König bei sich hat.~/~%
Wohl allen Herzen insgemein,~/~%
da dieser König ziehet ein.~/~%
Er ist die rechte Freudensonn,~/~%
bringt mit sich lauter Freud und Wonn.~/~%
Gelobet sei mein Gott,~/~%
mein Tröster früh und spat.~/~%

5. Komm, o mein Heiland\testmarg  Jesu Christ,~/~%
meins Herzens Tür dir offen ist.~/~%
Ach zieh mit deiner Gnade ein;~/~%
dein Freundlichkeit auch uns erschein.~/~%
Dein Heil'ger Geist uns führ und leit~/~%
den Weg zur ewgen Seligkeit.~/~%
Dem Namen dein, o Herr,~/~%
sei ewig Preis und Ehr.~/~%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\newpage

\hymn{O Heiland, reiß die Himmel auf}
\begin{lilyfrag}{10.85 cm}{21 cm}
  \new Voice = "Melody" \relative d'{
    \key c \major \time 3/4 \partial 4
    d4 f2 g4 a2 d,4 f e2 d2. \breathe a'4 4 h \break
    c2 f,4 a g2 f2. \breathe c'4 4 4 2 a4 \break
    d2 4 c2. \breathe a4 4 g a2 f4 g e2 d \bar"|."
  }
  \new Lyrics \lyricsto "Melody" {
   \set stanza = "1." O Hei -- land, reiß die Him -- mel auf,
   her -- ab, her -- ab vom Him -- mel lauf, reiß ab vom Him -- mel
   Tor und Tür, reiß ab, wo Schloß und Rie -- gel für.
  }
\end{lilyfrag}

2. O Erd, schlag aus, schlag aus, o Erd,~/~%
daß Berg und Tal grün alles werd.~/~%
O Erd, herfür dies Blümlein bring,~/~%
o Heiland, aus der Erden spring.

4. Wo bleibst Du, Trost der ganzen Welt,~/~%
darauf sie all ihr Hoffnung stellt?~/~%
O komm, ach komm vom höchsten Saal,~/~%
komm, tröst uns hier im Jammertal.

6. Hier leiden wir die größte Not,\testmarg ~/~%
vor Augen steht der ewig Tod.~/~%
Ach komm, führ uns mit starker Hand~/~%
vom Elend zu dem Vaterland.

7. Da wollen wir all danken dir,~/~%
unserm Erlöser, für und für;~/~%
da wollen wir all loben dich~/~%
zu aller Zeit und ewiglich.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\hymn{Tochter Zion}
\begin{center}
\begin{lilyfrag}{10.85 cm}{21 cm}
  \new Voice = "Melody" 
  \transpose  c b { \relative c' { \key f \major
  c2 a4.( b8) | c2 f,2 | g8( a b c b4) a | g1 | \breathe \break
  a8( b c d c4) c | f2 c | b4( a g4.) f8 | f1 | \breathe \break 
  a8( g a b a4) a | g2 f | b4( a g) f | e1 | \breathe \break 
  f8( e f g f4) f | d'2 h2 | c4( d8 c h4.) c8 | c1 | \breathe \break 
  c2 a4.( b8) | c2 f, | g8( a b c b4) a | g1 | \breathe \break
  c8( b c d c4) c | f2 c | b4( a g4.) f8 f1 \bar"|."
  } }
  
  \new Lyrics \lyricsto "Melody" {
  \set stanza = "1."
  Toch -- ter __ Zi -- on, freu -- e dich! Jauch -- ze laut, Je -- 
  ru -- sa -- lem! Sieh, __ dein Kö -- nig kommt __ zu dir, ja, __ er
  kommt, der Frie -- de -- fürst! Toch -- ter __ Zi -- on, freu -- e dich!
  Jauch -- ze laut, Je -- ru -- sa -- lem!
  }
\end{lilyfrag}
\end{center}

2. Hosianna, Davids Sohn,~/~%
sei gesegnet deinem Volk!~/~%
Gründe nun dein ew'ges Reich,~/~%
Hosianna in der Höh'!~/~%
Hosianna, Davids Sohn,~/~%
sei gesegnet deinem Volk!

3. Hosianna, Davids Sohn,~/~%
sei gegrüßet, König mild!~/~%
Ewig steht dein Friedensthron,~/~%
du, des ew'gen Vaters Kind.~/~%
Hosianna,\testmarg  Davids Sohn,~/~%
sei gegrüßet, König mild!

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def\callback{\ifnum\fragpagenum=3\marginpar{\scriptsize\emph{Marginalie beim \the\fragpagenum. System}}\fi
              \ifnum\fragpagenum=6\marginpar{\scriptsize\emph{Marginalie beim \the\fragpagenum. System}}\fi}

\hymn{Macht hoch die Tür}
\begin{center}
\begin{lilyfrag}{10.85 cm}{21 cm}
\new Voice = "Melody" \relative g'{
      \key es \major \time 6/4 \partial 4
      g4 b2 as4 g2 f4 es (f) g f2 \breathe \bar"" \break
      b4 as2 as4 g2 g4 f (es) f es2 \breathe \bar"" \break
      g4 f2 f4  g (a) b b (c) a b2 \breathe \bar"" \break
      f4 g2 f4 g (a) b b (c) a b2 \breathe \bar"" \break
      b4 c2 b4 c2 b4 c (b) as g2 \breathe \bar"" \break
      b4 c2 b4 c2 b4 c (b) as g2 \breathe \bar"" \break
      b4 es,2 es4 as2 g4 f2. ~ f2 \breathe \bar"" \break
      b4 as2 g4 f (es) f es2. ~ es2 \bar"|."
    }
    \new Lyrics \lyricsto "Melody" {
      \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. __
    }
\end{lilyfrag}
\end{center}
    
3. O wohl dem Land, o wohl der Stadt,~/~%
so diesen König bei sich hat.~/~%
Wohl allen Herzen insgemein,~/~%
da dieser König ziehet ein.~/~%
Er ist die rechte Freudensonn,~/~%
bringt mit sich lauter Freud und Wonn.~/~%
Gelobet sei mein Gott,~/~%
mein Tröster früh und spat.~/~%

5. Komm, o mein Heiland Jesu Christ,~/~%
meins Herzens Tür dir offen ist.~/~%
Ach zieh mit deiner Gnade ein;~/~%
dein Freundlichkeit\testmarg  auch uns erschein.~/~%
Dein Heil'ger Geist uns führ und leit~/~%
den Weg zur ewgen Seligkeit.~/~%
Dem Namen dein, o Herr,~/~%
sei ewig Preis und Ehr.~/~%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\newpage

\def\callback{\ifnum\fragpagenum=1\marginpar{\scriptsize\emph{Marginalie beim \the\fragpagenum. System}}\fi}

\hymn{O Heiland, reiß die Himmel auf}
\begin{lilyfrag}{10.85 cm}{21 cm}
  \new Voice = "Melody" \relative d'{
    \key c \major \time 3/4 \partial 4
    d4 f2 g4 a2 d,4 f e2 d2. \breathe a'4 4 h \break
    c2 f,4 a g2 f2. \breathe c'4 4 4 2 a4 \break
    d2 4 c2. \breathe a4 4 g a2 f4 g e2 d \bar"|."
  }
  \new Lyrics \lyricsto "Melody" {
   \set stanza = "1." O Hei -- land, reiß die Him -- mel auf,
   her -- ab, her -- ab vom Him -- mel lauf, reiß ab vom Him -- mel
   Tor und Tür, reiß ab, wo Schloß und Rie -- gel für.
  }
\end{lilyfrag}

2. O Erd, schlag aus, schlag aus, o Erd,~/~%
daß Berg und Tal grün alles werd.~/~%
O Erd, herfür dies Blümlein bring,~/~%
o Heiland, aus der Erden spring.

4. Wo bleibst Du, Trost\testmarg der ganzen Welt,~/~%
darauf sie all ihr Hoffnung stellt?~/~%
O komm, ach komm vom höchsten Saal,~/~%
komm, tröst uns hier im Jammertal.

6. Hier leiden wir die größte Not,~/~%
vor Augen steht der ewig Tod.~/~%
Ach komm, führ uns mit starker Hand~/~%
vom Elend zu dem\testmarg Vaterland.

7. Da wollen wir all danken dir,~/~%
unserm Erlöser, für und für;~/~%
da wollen wir all loben dich~/~%
zu aller Zeit und ewiglich.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\end{document}