Freu_dich_Erd_und_Sternenzelt neu

6 files changed, 275 insertions, 0 deletions

diff --git a/Freu_dich_Erd_und_Sternenzelt/Freu_dich_Erd_und_Sternenzelt.ly b/Freu_dich_Erd_und_Sternenzelt/Freu_dich_Erd_und_Sternenzelt.ly
new file mode 100644
index 0000000..b288304
--- /dev/null
+++ b/Freu_dich_Erd_und_Sternenzelt/Freu_dich_Erd_und_Sternenzelt.ly
@@ -0,0 +1,24 @@
+\include "deutsch.ly"
+#(ly:set-option 'relative-includes #t)
+\include "artikulation.ly"
+\include "stimmen.pre"
+\include "texte.pre"
+#(ly:set-option 'relative-includes #f)
+
+%spezifisch%
+
+\version "2.19.80"
+
+\pointAndClickOff
+
+\header {
+  tagline = ""
+}
+\paper {
+  top-margin = 5
+  print-all-headers = ##t
+}
+
+#(ly:set-option 'relative-includes #t)
+\include "satz.pre"
+#(ly:set-option 'relative-includes #f)
diff --git a/Freu_dich_Erd_und_Sternenzelt/Makefile b/Freu_dich_Erd_und_Sternenzelt/Makefile
new file mode 100644
index 0000000..daa2e73
--- /dev/null
+++ b/Freu_dich_Erd_und_Sternenzelt/Makefile
@@ -0,0 +1,47 @@
+CURDOC=$(shell basename "$(CURDIR)")
+STROPHEN=[1-4]
+VARIANTE=1
+
+ifeq ($(FUER),ewe)
+  SPEZIFISCH=\#(set! paper-alist (cons '(\"kindle\" . (cons (* 210 mm) (* 130 mm))) paper-alist))\n\#(set-default-paper-size \"kindle\")
+else
+  SPEZIFISCH=
+  # \#(set-global-staff-size 14)
+endif
+
+ifeq ($(MIDI),1)
+  MIDI_REGEX=
+else
+  MIDI_REGEX=/\\\\midi/{ :a; s/\\\\midi[^{}]*{/\\\\midi/; tb; N; ba; :b; s/{[^{}]*}//; tb; s/\\\\midi[^{}]*}//; t; N; bb; };
+endif
+
+ifeq ($(KLAVIER),1)
+  KLAVIER_REGEX=
+else
+  KLAVIER_REGEX=/%Klavier%/d;
+endif
+
+all: $(CURDOC).pdf
+	pkill -SIGHUP -xf 'mupdf(-x11)? (.*/)?$<' || true
+
+clean:
+	rm -f *.pre
+
+Clean: clean
+	rm -f *.pdf *.midi
+
+%.pre: %.ly
+	sed " \
+		s@%spezifisch%@$(SPEZIFISCH)@ ; \
+		/%STR_\($(STROPHEN)\)%/{ \
+			s/%[A-Z_0-9]\+%//; \
+			p; \
+			d; \
+		}; \
+		s/%Variante_$(VARIANTE)%//; \
+		$(KLAVIER_REGEX) \
+		$(MIDI_REGEX) \
+	" "$<" > "$@"
+
+%.pdf: %.pre artikulation.ly satz.pre stimmen.pre texte.pre
+	lilypond $<
diff --git a/Freu_dich_Erd_und_Sternenzelt/artikulation.ly b/Freu_dich_Erd_und_Sternenzelt/artikulation.ly
new file mode 100644
index 0000000..cf9ffff
--- /dev/null
+++ b/Freu_dich_Erd_und_Sternenzelt/artikulation.ly
@@ -0,0 +1,20 @@
+artikulation = {
+  s8\mf\< s4 s8\! |
+  s\> s4 s8\! |
+  s\f s s\> s |
+  s\mf s4. |
+  s8\< s s\! s |
+  s2 |
+  s\p |
+  s |
+  s8\p s\< s4 |
+  s8\mf\> s4. |
+  s2\p |
+  s8\mf\< s4 s8\! |
+  s8\f\> s4. |
+  s2\p |
+  s-"espress." |
+  s4\< s\! |
+  s8\f s\> s s\! |
+  s2\p | \bar "|."
+}
diff --git a/Freu_dich_Erd_und_Sternenzelt/satz.ly b/Freu_dich_Erd_und_Sternenzelt/satz.ly
new file mode 100644
index 0000000..fd04e7b
--- /dev/null
+++ b/Freu_dich_Erd_und_Sternenzelt/satz.ly
@@ -0,0 +1,36 @@
+\score {
+  \header {
+    title = "Freu dich Erd und Sternenzelt"
+    composer = "Melodie: Böhmen 1505; Leitmeritz 1844"
+    arranger = "Satz: Karl Riedel (1827-1888)"
+    poet = "Text: Leitmeritz 1844"
+  }
+  \new ChoirStaff <<
+    \set Score.skipBars = ##t
+    \new Lyrics = textSopran { }
+    \new Dynamics {
+      \global \artikulation
+    }
+    \new Staff <<
+      \new Voice = frauen  { \global \oneVoice \pausen }
+      \new Voice = sopran  { \global \voiceOne \sopranMelodie }
+      \new Voice = alt     { \global \voiceTwo \altMelodie }
+    >>
+    \context Lyrics = textSopran \lyricsto sopran { \textSopran }
+    %STR_1% \new Lyrics \lyricsto alt { \textI }
+    %STR_2% \new Lyrics \lyricsto alt { \textII }
+    %STR_3% \new Lyrics \lyricsto alt { \textIII }
+    %STR_4% \new Lyrics \lyricsto alt { \textIV }
+    \new Staff <<
+      \new Voice = maenner { \global \clef "bass" \oneVoice \pausen }
+      \new Voice = tenor   { \global \clef "bass" \voiceOne \tenorMelodie }
+      \new Voice = bass    { \global \clef "bass" \voiceTwo \bassMelodie }
+    >>
+    \new Dynamics {
+      \global \artikulation
+    }
+  >>
+  \layout {
+    indent = #0
+  }
+}
diff --git a/Freu_dich_Erd_und_Sternenzelt/stimmen.ly b/Freu_dich_Erd_und_Sternenzelt/stimmen.ly
new file mode 100644
index 0000000..8f2a913
--- /dev/null
+++ b/Freu_dich_Erd_und_Sternenzelt/stimmen.ly
@@ -0,0 +1,108 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+\version "2.18"
+
+global = {
+  \key g \major
+  %\override Staff.TimeSignature #'style = #'()
+  \time 2/4
+  \autoBeamOff
+}
+
+% Die Stimmen
+
+pausen = {
+  s2*3 |
+  s4. r8 |
+  s2*3 |
+  s4. r8 |
+  s2*2 |
+  s4 r |
+  s2*2 |
+  s4 r |
+  s2*4 | \bar "|."
+}
+
+sopranMelodie = \relative g' {
+  g8 a h c |
+  d d d4 |
+  c8 d e4 |
+  d4. s8 |
+  d d c c |
+  h h a4 |
+  h8 c a4 |
+  g4. s8 |
+  h8 a h c |
+  d4.( c8) |
+  h4 s |
+  h8 a h c |
+  d4.( c8) |
+  h4 s |
+  R2 |
+  g4 e' |
+  d8 h a4 |
+  g2 | \bar "|."
+}
+
+altMelodie = \relative g' {
+  g8 d d g |
+  fis g fis4 |
+  e8 g g[ fis] |
+  g4. s8 |
+  g g e e |
+  fis fis a4 |
+  g8 g g[ fis] |
+  g4. s8 |
+  d d g g |
+  d4( e8[ fis]) |
+  g4 s |
+  g8 a fis a |
+  h4( a) |
+  g s |
+  d g |
+  g g |
+  fis8 g a[ fis] |
+  d2 | \bar "|."
+}
+  
+tenorMelodie = \relative d' {
+  d8 a g g |
+  a h a4 |
+  a8 h c4 |
+  h4. s8 |
+  g' d e a, |
+  d d e4 |
+  d8 e d[ a] |
+  h4. s8 |
+  g8 a g e |
+  fis4( a8[ d]) |
+  d4 s |
+  e8 e dis e |
+  g4( e) |
+  e s |
+  h e |
+  d c |
+  a8 g e'[ d16 c] |
+  h2 | \bar "|."
+}
+
+bassMelodie = \relative h {
+  h8 fis g e |
+  d g d4 |
+  a'8 g c,4 |
+  g'4. s8 |
+  h h, c c |
+  d h' c4 |
+  g8 c, d4 |
+  g,4. s8 |
+  g'8 fis e c |
+  h4( a) |
+  g s |
+  e'8 c' h a |
+  g4( a) |
+  e s |
+  g c, |
+  h c |
+  d8 e c[ d] |
+  g,2 | \bar "|."
+}
diff --git a/Freu_dich_Erd_und_Sternenzelt/texte.ly b/Freu_dich_Erd_und_Sternenzelt/texte.ly
new file mode 100644
index 0000000..aa99a70
--- /dev/null
+++ b/Freu_dich_Erd_und_Sternenzelt/texte.ly
@@ -0,0 +1,40 @@
+%some settings% vim: ai sw=2 lbr nu et
+
+% Abkürzungen
+
+% Die Textaufteilungen
+
+Halleluja = \lyricmode {
+  al -- le -- lu -- ja!
+}
+
+textSopran = \lyricmode {
+  \repeat unfold 34 { \skip 1 }
+  ward uns heut ge -- bo -- ren.
+}
+
+textI = \lyricmode {
+  \set stanza = "1."
+  Freu dich Erd und Ster -- nen -- zelt, \Halleluja
+  Got -- tes Sohn kam in die Welt,  \Halleluja
+  Uns zum Heil er -- ko -- ren ward er heut ge -- bo -- ren,
+  ward uns heut, uns heut ge -- bo -- ren.
+}
+
+textII = \lyricmode {
+  \set stanza = "2."
+  Seht der schöns -- ten Ro -- se Flor, \Halleluja
+  sprießt asus Jes -- ses Zweig em -- por, \Halleluja
+}
+
+textIII = \lyricmode {
+  \set stanza = "3."
+  Er, das mensch -- ge -- word -- ne Wort, \Halleluja
+  Je -- sus Chris -- tus, un -- ser Hort, \Halleluja
+}
+
+textIV = \lyricmode {
+  \set stanza = "4."
+  Ehr sei Gott im höchs -- ten Thron, \Halleluja
+  der uns schenkt sein lie -- ben Sohn, \Halleluja
+}