Viele_verachten_die_edele_Musik: aufgeräumt

4 files changed, 226 insertions, 42 deletions

diff --git a/Viele_verachten_die_edele_Musik/Makefile b/Viele_verachten_die_edele_Musik/Makefile
new file mode 100644
index 0000000..8cdc1e0
--- /dev/null
+++ b/Viele_verachten_die_edele_Musik/Makefile
@@ -0,0 +1,38 @@
+CURDOC=$(shell basename "$(CURDIR)")
+
+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
+
+clean:
+	rm -f *.pre
+
+Clean: clean
+	rm -f *.pdf *.midi
+
+%.pre: %.ly
+	sed " \
+		s@%spezifisch%@$(SPEZIFISCH)@ ; \
+		$(KLAVIER_REGEX) \
+		$(MIDI_REGEX) \
+	" "$<" > "$@"
+
+%.pdf: %.pre *.ly
+	lilypond $<
diff --git a/Viele_verachten_die_edele_Musik/Viele_verachten_die_edele_Musik.ly b/Viele_verachten_die_edele_Musik/Viele_verachten_die_edele_Musik.ly
index 7ffdcb5..74bebd2 100755
--- a/Viele_verachten_die_edele_Musik/Viele_verachten_die_edele_Musik.ly
+++ b/Viele_verachten_die_edele_Musik/Viele_verachten_die_edele_Musik.ly
@@ -1,47 +1,61 @@
 \include "deutsch.ly"
+#(ly:set-option 'relative-includes #t)
+\include "stimmen.ly"
+\include "texte.ly"
+#(ly:set-option 'relative-includes #f)
 
-#(set! paper-alist (cons '("kindle" . (cons (* 210 mm) (* 100 mm))) paper-alist))
-#(set-default-paper-size "kindle")
+%spezifisch%
+
+\version "2.19.80"
 
 \pointAndClickOff
 
-\new ChoirStaff <<
-\new Staff <<
- \new Voice = "Sopran" { \voiceOne \relative c'' {\autoBeamOff \time 6/8 \key b \major
-  b8 f b c f, c' | d d16[ es] f[ es] d8[ c16 d] b8 | c8. d16 c8 d8. es16 f8 | es es16[ d] c8 d4.|
-  c8 a16[ b] c[ d] c8 a16[ b] c8 | f, f f f f f | b b c d8. es16 f8 | f,8. g16 a8 b b a | b16[( a b c b a] g8) g g |
-  es'16[( d es f es d] c8) c c | d8. es16 f8 es es d | c b a b b c16[ d] | f,8. g16 a8 b b4 | }}
- \addlyrics { \set stanza = #"1. " Vie -- le ver -- ach -- ten die e -- de -- le Mus -- sik, täg -- lich ent -- ste -- het dar -- ü -- ber ein Krieg.
-  A -- ber die sol -- ches hier un -- ten nicht eh -- ren, die sol -- len auch dro -- ben das Sanc -- tus nicht hö -- ren, das Sanc -- tus,
-  das Sanc -- tus, die sol -- len auch dro -- ben das Sanc -- tus nicht hö -- ren, das Sanc -- tus nicht hö -- ren. }
- \addlyrics { \set stanza = #"2. " Denn wer die Mu -- sik sein ei -- gen nicht nen -- net, si -- cher die Freu -- den des Him -- mels nicht kennt.
-  Dem dringt kein Licht -- strahl in all sei -- ne Pla -- ge, der blei -- bet ein Narr bis ans En -- de der Ta -- ge, der blei -- bet,
-  der blei -- bet, der blei -- bet ein Narr bis ans En -- de der Ta -- ge, ans En -- de der Ta -- ge. }
- \new Voice = "Alt" { \voiceTwo \relative c'' {\autoBeamOff \time 6/8 \key b \major
-  b8 f b f8. f16 g[ a] | b8 b16[ c] d[ c] b8[ f] b | a8. b16 a8 b f b | c c16[ b] a8 b4. | a8 f g a8 f g |
-  f f f f f f | f f a b b b | f f f16[ es] d8 d f16[ es] | d4( b8~ b) es g | c16[( b c d c b] a[ b]) c8 f, | b b b b8. b16 b[ a] |
-  g8 f es d es16[ f] g8 | f f f16[ es] d8 d4 \bar "|." }}
->>
-\new Staff ="Männer" <<
- \new Voice = "Tenor" { \voiceThree \relative f' {\autoBeamOff \clef bass \time 6/8 \key b \major
-  r2. | r | f4.~ f8 f f | g es f f4. | f, f4 f8 | f' es d es d16[ es] d[ c] | b8 b f f'8. es16 d8 | d16[ es] d[ c] f,8 b b r |
-  r4 d8 b4( es8 | g4 c,8 f) f f | f8. es16 d8 es es f es d c b c16[ d] es8 | d( f16) es d[ c] b8 b4 | }}
- \new Lyrics \with { alignAboveContext = "Männer" } {
- \lyricsto "Tenor" { \set stanza = #"1. " täg -- lich ent -- ste -- het ein Krieg. A -- ber die sol -- ches nicht eh -- ren,
-  die sol -- len auch dro -- ben das Sanc -- tus nicht hö -- ren, das Sanc -- tus,
-  die sol -- len auch dro -- ben das Sanc -- tus nicht hö -- ren, das Sanc -- tus nicht hö -- ren. }}
- \new Lyrics \with { alignAboveContext = "Männer" } {
- \lyricsto "Tenor" { \set stanza = #"2. " si -- cher die Freu -- den nicht kennt. der bleibt, der blei -- bet, der blei -- bet,
-  der blei -- bet ein Narr bis ans En -- de der Ta -- ge, der blei -- bet,
-  der blei -- bet ein Narr bis ans En -- de der Ta -- ge, ans En -- de der Ta -- ge. }}
- \new Voice = "Bass" { \voiceFour \relative f {\autoBeamOff \clef bass \time 6/8 \key b \major
-  s2. | s | f8 f f b, c d | es c f b,4. | r r f' f4 f16[ es] | d8 d f b b,16[ c] d[ es] | f[ g] f[ es] d[ c] b8 b s |
-  s4 b8 es16[( d es f es d] | c8) c es f16[( g a f g a] | b8) b b, c c d | es f f g8.[( f16 es8] | f) f f <f b,> <f b,>4 | }}
- \addlyrics { \set stanza = #"1. " täg -- lich ent -- ste -- het dar -- ü -- ber ein Krieg.
-  A -- ber die sol -- len auch dro -- ben das Sanc -- tus nicht hö -- ren, das Sanc -- tus, das Sanc -- tus,
-  die sol -- len auch dro -- ben das Sanc -- tus nicht hö -- ren. }
- \addlyrics { \set stanza = #"2. " si -- cher die Freu -- den des Him -- mels nicht kennt. der bleibt, der blei -- bet
-  ein Narr bis ans En -- de der Ta -- ge, der blei -- bet, der blei -- bet,
-  der blei -- bet ein Narr bis ans En -- de, ans En -- de der Ta -- ge. }
->>
->>
\ No newline at end of file
+\header {
+  tagline = ""
+}
+\paper {
+  top-margin = 5
+  print-all-headers = ##t
+}
+
+\score {
+  \header {
+    tagline = ""
+    title = "Viele verachten die edele Musik"
+  }
+  \layout {
+    indent = #0
+    \context {
+      \Staff
+      \RemoveEmptyStaves
+      \override VerticalAxisGroup #'remove-first = ##t
+    }
+  }
+  \new Staff <<
+    \set Score.skipBars = ##t
+    \new ChoirStaff <<
+      \new Staff <<
+        \new Voice = "sopran"  { \global \voiceOne \sopranMelodie }
+        \new Voice = "alt"     { \global \voiceTwo \altMelodie }
+      >>
+      \new Lyrics = "sopranTextI"  {}
+      \new Lyrics = "sopranTextII" {}
+      \new Lyrics = "tenorTextI"   {}
+      \new Lyrics = "tenorTextII"  {}
+      \new Staff <<
+        \clef "bass"
+        \new Voice = "maenner" { \global \oneVoice \maennerPausen }
+        \new Voice = "tenor"   { \global \voiceOne \tenorMelodie }
+        \new Voice = "bass"    { \global \voiceTwo \bassMelodie }
+      >>
+      \new Lyrics = "bassTextI"    {}
+      \new Lyrics = "bassTextII"   {}
+      \context Lyrics = "sopranTextI"  \lyricsto "sopran" \sopranTextI
+      \context Lyrics = "sopranTextII" \lyricsto "sopran" \sopranTextII
+      \context Lyrics = "tenorTextI"   \lyricsto "tenor"  \tenorTextI
+      \context Lyrics = "tenorTextII"  \lyricsto "tenor"  \tenorTextII
+      \context Lyrics = "bassTextI"    \lyricsto "bass"   \bassTextI
+      \context Lyrics = "bassTextII"   \lyricsto "bass"   \bassTextII
+    >>
+  >>
+}
diff --git a/Viele_verachten_die_edele_Musik/stimmen.ly b/Viele_verachten_die_edele_Musik/stimmen.ly
new file mode 100755
index 0000000..2561152
--- /dev/null
+++ b/Viele_verachten_die_edele_Musik/stimmen.ly
@@ -0,0 +1,75 @@
+
+global = {
+  \time 6/8
+  \key b \major
+  \autoBeamOff
+}
+
+maennerPausen = {
+  R2.*2 |
+  s2.*5 |
+  s2 s8 r |
+  r4 s2 |
+  s2.*4 | \bar "|."
+}
+
+sopranMelodie = \relative b' {
+  b8 f b c f, c' |
+  d d16[ es] f[ es] d8[ c16 d] b8 |
+  c8. d16 c8 d8. es16 f8 |
+  es es16[ d] c8 d4.|
+  c8 a16[ b] c[ d] c8 a16[ b] c8 |
+  f, f f f f f |
+  b b c d8. es16 f8 |
+  f,8. g16 a8 b b a |
+  b16[( a b c b a] g8) g g |
+  es'16[( d es f es d] c8) c c |
+  d8. es16 f8 es es d |
+  c b a b b c16[ d] |
+  f,8. g16 a8 b b4 | \bar "|."
+}
+
+altMelodie = \relative b' {
+  b8 f b f8. f16 g[ a] |
+  b8 b16[ c] d[ c] b8[ f] b |
+  a8. b16 a8 b f b |
+  c c16[ b] a8 b4. |
+  a8 f g a8 f g |
+  f f f f f f |
+  f f a b b b |
+  f f f16[ es] d8 d f16[ es] |
+  d4( b8~ b) es g |
+  c16[( b c d c b] a[ b]) c8 f, |
+  b b b b8. b16 b[ a] |
+  g8 f es d es16[ f] g8 |
+  f f f16[ es] d8 d4 | \bar "|."
+}
+
+tenorMelodie = \relative f' {
+  s2.*2 |
+  f4.~ f8 f f |
+  g es f f4. |
+  f, f4 f8 |
+  f' es d es d16[ es] d[ c] |
+  b8 b f f'8. es16 d8 |
+  d16[ es] d[ c] f,8 b b s |
+  s4 d8 b4( es8 |
+  g4 c,8 f) f f |
+  f8. es16 d8 es es f es d c b c16[ d] es8 |
+  d( f16) es d[ c] b8 b4 | \bar "|."
+}
+
+bassMelodie = \relative f {
+  s2.*2 |
+  f8 f f b, c d |
+  es c f b,4. |
+  R2. |
+  f'4. f4 f16[ es] |
+  d8 d f b b,16[ c] d[ es] |
+  f[ g] f[ es] d[ c] b8 b s |
+  s4 b8 es16[( d es f es d] |
+  c8) c es f16[( g a f g a] |
+  b8) b b, c c d |
+  es f f g8.[( f16 es8] |
+  f) f f <f b,> <f b,>4 | \bar "|."
+}
diff --git a/Viele_verachten_die_edele_Musik/texte.ly b/Viele_verachten_die_edele_Musik/texte.ly
new file mode 100755
index 0000000..55748d2
--- /dev/null
+++ b/Viele_verachten_die_edele_Musik/texte.ly
@@ -0,0 +1,57 @@
+
+sopranTextI = \lyricmode {
+  \set stanza = "1."
+  Vie -- le ver -- ach -- ten die e -- de -- le Mu -- sik,
+  täg -- lich ent -- ste -- het dar -- ü -- ber ein Krieg.
+  A -- ber die sol -- ches hier un -- ten nicht eh -- ren,
+  die sol -- len auch dro -- ben das Sanc -- tus nicht hö -- ren,
+  das Sanc -- tus, das Sanc -- tus,
+  die sol -- len auch dro -- ben das Sanc -- tus nicht hö -- ren,
+  das Sanc -- tus nicht hö -- ren.
+}
+
+sopranTextII = \lyricmode {
+  \set stanza = "2."
+  Denn wer die Mu -- sik sein ei -- gen nicht nen -- net,
+  si -- cher die Freu -- den des Him -- mels nicht kennt.
+  Dem dringt kein Licht -- strahl in all sei -- ne Pla -- ge,
+  der blei -- bet ein Narr bis ans En -- de der Ta -- ge,
+  der blei -- bet, der blei -- bet, der blei -- bet ein Narr
+  bis ans En -- de der Ta -- ge, ans En -- de der Ta -- ge.
+}
+
+tenorTextI = \lyricmode {
+  \set stanza = "1."
+  täg -- lich ent -- ste -- het ein Krieg.
+  A -- ber die sol -- ches nicht eh -- ren,
+  \repeat unfold 12 { \skip 1 }
+  das Sanc -- tus,
+  \repeat unfold 18 { \skip 1 }
+}
+
+tenorTextII = \lyricmode {
+  \set stanza = "2."
+  si -- cher die Freu -- den nicht kennt.
+  der bleibt, der blei -- bet, der blei -- bet,
+  \repeat unfold 12 { \skip 1 }
+  der blei -- bet,
+  \repeat unfold 18 { \skip 1 }
+}
+
+bassTextI = \lyricmode {
+  \repeat unfold 10 { \skip 1 }
+  \set stanza = "1."
+  A -- ber
+  \repeat unfold 12 { \skip 1 }
+  das Sanc -- tus, das Sanc -- tus,
+  die sol -- len auch dro -- ben das Sanc -- tus nicht hö -- ren.
+}
+
+bassTextII = \lyricmode {
+  \repeat unfold 10 { \skip 1 }
+  \set stanza = "2."
+  der bleibt,
+  \repeat unfold 12 { \skip 1 }
+  der blei -- bet, der blei -- bet,
+  der blei -- bet ein Narr bis ans En -- de, ans En -- de der Ta -- ge.
+}