5 files changed, 303 insertions, 0 deletions
diff --git a/hr/three/lilydocs/himmelslieder/dynArt.ly b/hr/three/lilydocs/himmelslieder/dynArt.ly
new file mode 100644
index 0000000..30423d4
--- /dev/null
+++ b/hr/three/lilydocs/himmelslieder/dynArt.ly
@@ -0,0 +1,21 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  meta = {
+    %(dynamic) marks global to all voices
+    \dynamicUp
+  }
+
+% articulation
+
+    sopranArt = {
+    }
+
+    altArt = {
+    }
+
+    tenorArt = {
+    }
+
+    bassArt = {
+    }
+
diff --git a/hr/three/lilydocs/himmelslieder/himmelslieder.ly b/hr/three/lilydocs/himmelslieder/himmelslieder.ly
new file mode 100644
index 0000000..31aa07b
--- /dev/null
+++ b/hr/three/lilydocs/himmelslieder/himmelslieder.ly
@@ -0,0 +1,90 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+\version "2.14"
+\include "stimmen.ly"
+\include "texte.ly"
+
+  \header {
+    title = "Engel haben Himmelslieder"
+    subtitle = " "
+    composer = "Französisches Volkslied" 
+    arranger = \markup \center-column { "Hellmut Wormsbacher" " " }
+    %opus = "<+Werk+>"
+    tagline = ""
+  }
+
+  \paper {
+    #(set-paper-size "a5")
+    line-width = \paper-width - 20
+    top-margin = 20
+    bottom-margin = 20
+    markup-system-spacing #'basic-distance = 20
+    left-margin = 10
+    right-margin = 10
+    ragged-last-bottom = #'f
+    system-count = 4
+  }
+
+  \layout {
+    indent = #0
+    \context {
+      \Staff
+      \override VerticalAxisGroup #'minimum-Y-extent = #'(-8 . 5)
+    }
+    \context {
+      \Lyrics
+      \override VerticalAxisGroup #'staff-affinity = ##f
+      %\override VerticalAxisGroup #'padding = #3
+      %\override VerticalAxisGroup #'basic-distance = #3
+      %\override VerticalAxisGroup #'minimum-distance = #3
+      \override VerticalAxisGroup #'staff-staff-spacing = #'(
+        (padding . 1)
+        (basic-distance . 4)
+        (minimum-distance . 1)
+      )
+    }
+  }
+
+  #(set-global-staff-size 15)
+
+  sop = \new Staff = sopran <<
+          %\new Voice = "meta" { s1*<+Anzahl der Takte+> \bar "|." }
+          \new Voice = "soprane" { \global \sopranMelodie }
+          \addlyrics { \altText }
+        >>
+
+  alt = \new Staff = alt <<
+          \new Voice = "alti" { \global \altMelodie }
+          %\addlyrics { \altText }
+        >>
+
+  ten = \new Staff = tenor <<
+          \new Voice = "tenoere" { \global \tenorMelodie }
+          %\addlyrics { \tenorText }
+        >>
+
+  bas = \new Staff = bass <<
+          \new Voice = "baesse" { \global \bassMelodie }
+          %\addlyrics { \bassText }
+        >>
+
+  \score {
+    \new ChoirStaff \with {} <<
+      \sop
+      %\alt
+      %\ten
+      %\bas
+    >>
+    %\midi {
+      %\context{
+	%\Score
+	%tempoWholesPerMinute = #(ly:make-moment 72 4)
+      %}
+    %}
+    \layout {
+    }
+    \header {
+      %opus = " "
+    }
+  }
+
diff --git a/hr/three/lilydocs/himmelslieder/midi.lua b/hr/three/lilydocs/himmelslieder/midi.lua
new file mode 100644
index 0000000..58e69da
--- /dev/null
+++ b/hr/three/lilydocs/himmelslieder/midi.lua
@@ -0,0 +1,50 @@
+ -- some settings -- vim: ai sw=2 lbr nu et
+
+pre=[[
+%some settings% vim: ai sw=2 lbr nu encoding=utf8 et
+
+\version "2.12"
+\include "stimmen.ly"
+
+  \score {
+]]
+
+post=[[
+    \midi {
+      \context{
+	%\Score
+	%tempoWholesPerMinute = #(ly:make-moment 72 4)
+      }
+    }
+  }
+]]
+
+voices={ "s", "a", "t", "b" }
+expand = { s="sopran", a="alt", t="tenor", b="bass" }
+map = { sopran="soprane", alt="alti", tenor="tenoere", bass="baesse" }
+
+function text(stimme)
+  return
+[[
+    \new Staff = ]]..stimme..[[ <<
+      %\new Voice = "meta" { s1*<+Anzahl der Takte+> \bar "|." }
+      \new Voice = "]]..map[stimme]..[[" { \global \]]..stimme..[[Melodie }
+    >>
+]]
+end
+
+function err() print("oops") os.exit() end
+
+which=which or "satb"
+if type(which)~="string" then err() end
+
+for _,v in pairs(voices) do
+  if string.find(which, v) then pre=pre..text(expand[v]) end
+end
+
+input=pre..post
+
+--os.execute(lilypond -...)
+io.stdout:write(input)
+os.exit()
+
diff --git a/hr/three/lilydocs/himmelslieder/stimmen.ly b/hr/three/lilydocs/himmelslieder/stimmen.ly
new file mode 100644
index 0000000..d3ec553
--- /dev/null
+++ b/hr/three/lilydocs/himmelslieder/stimmen.ly
@@ -0,0 +1,70 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+  \version "2.12"
+  \include "dynArt.ly"
+
+  global = {
+    \key ees \major
+    %\override Staff.TimeSignature #'style = #'()
+    \time 4/4
+    %\autoBeamOff
+  }
+
+% Die Stimmen
+
+  sopranMelodie = \relative c'' {
+    <<
+      { \meta }
+      %\sopranArt
+      %the actual tune
+      {
+	g4 g4 g4 g8( bes8) bes4. aes8 g4 ees4 
+        g4 g8. f16 g4 g8( bes8) bes4. aes8 g2 
+        g4 g4 g4 g8( bes8) bes4. aes8 g4 ees4 
+        g4 g8. f16 g4 g8( bes8) bes4. aes8 g2  \break 
+        bes2( c8 bes8 aes8 g8 aes2 bes8 aes8 g8 f8 
+        g2 aes8 g8 f8 ees8 f4.) bes,8 bes2 
+        ees4 f4 g4 aes4 g2 f2 
+        bes2( c8 bes8 aes8 g8 aes2 bes8 aes8 g8 f8 
+        g2 aes8 g8 f8 ees8 f4.) bes,8 bes2 
+        ees4 f4 g4 aes4 g2( f2) ees2. r4 
+        \bar "|."
+      }
+    >>
+  }
+
+  altMelodie = \relative c' {
+    <<
+      { \meta }
+      %\altArt
+      %the actual tune
+      {
+	r1 
+      }
+    >>
+  }
+  
+  tenorMelodie = \relative c' {
+    <<
+      { \meta }
+      %\tenorArt
+      %the actual tune
+      \clef "treble_8"
+      {
+	r1 
+      }
+    >>
+  }
+
+  bassMelodie = \relative c {
+    <<
+      { \meta }
+      %\bassArt
+      %the actual tune
+      \clef bass
+      {
+	r1 
+      }
+    >>
+  }
+
diff --git a/hr/three/lilydocs/himmelslieder/texte.ly b/hr/three/lilydocs/himmelslieder/texte.ly
new file mode 100644
index 0000000..987c132
--- /dev/null
+++ b/hr/three/lilydocs/himmelslieder/texte.ly
@@ -0,0 +1,72 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+% Abkürzungen
+
+% Die Textaufteilungen
+
+  sopranText = \lyrics {
+    %<+hier den Text für den Sopran eintragen+>
+    <<
+      {
+        \set stanza = #"1. "
+        En -- gel ha -- ben Him -- mels -- lie -- der
+        auf  den Fel -- dern an -- ge -- stimmt.
+        E -- cho hallt vom Ber -- ge wi -- der,
+        daß es je -- des Ohr ver -- nimmt.
+      }
+      \new Lyrics {
+        \set stanza = #"2. "
+        Hir -- ten, was ist euch be -- geg -- net,
+        daß ihr so voll Ju -- bel seid?
+        Gott hat heut die Welt ge -- seg -- net,
+        Christ er -- schien der Er -- den -- zeit.
+      }
+      \new Lyrics {
+        \set stanza = #"3. "
+        Gott gibt al -- len Men -- schen Frie -- den,
+        die des gu -- ten Wil -- lens sind.
+        Freu -- de wur -- de uns be -- schie -- den
+        durch ein neu -- ge -- bor -- nes Kind.
+      }
+    >>
+    Glo -- ri -- a in ex -- cel -- sis De -- o,
+    glo -- ri -- a in ex -- cel -- sis De -- o!
+  }
+
+  altText = \lyrics {
+    %<+hier den Text für den Alt eintragen+>
+    <<
+      {
+        \set stanza = #"1. "
+        Hört der En -- gel hel -- le Lie -- der
+        klin -- gen das wei -- te Feld ent -- lang:
+        und die Ber -- ge hal -- len wi -- der
+        von des _ Him -- mels Lob -- ge -- sang:
+      }
+      \new Lyrics {
+        \set stanza = #"2. "
+        Hir -- ten, wa -- rum wird ge -- sun -- gen?
+        Sagt mir doch eu -- res Ju -- bels Grund!
+        Welch ein Sieg ward denn er -- run -- gen,
+        den uns die Chö -- re ma -- chen kund?
+      }
+      \new Lyrics {
+        \set stanza = #"3. "
+        Sie ver -- kün -- den uns mit Schal -- le,
+        daß der Er -- lö -- ser nun er -- schien,
+        dank -- bar sin -- gen sie heut al -- le,
+        an die -- sem Fest und  grü -- ßen ihn.
+      }
+    >>
+    Glo -- ri -- a in ex -- cel -- sis De -- o,
+    glo -- ri -- a in ex -- cel -- sis De -- o!
+  }
+
+  tenorText = \lyrics {
+    %<+hier den Text für den Tenor eintragen+>
+  }
+
+  bassText = \lyrics {
+    %<+hier den Text für den Baß eintragen+>
+  }
+