Veni_Creator_Spiritus: optionale Bögen begonnen

5 files changed, 76 insertions, 14 deletions

diff --git a/Veni_Creator_Spiritus/Makefile b/Veni_Creator_Spiritus/Makefile
index 45c33a3..9da2db1 100644
--- a/Veni_Creator_Spiritus/Makefile
+++ b/Veni_Creator_Spiritus/Makefile
@@ -29,7 +29,7 @@ clean:
 Clean: clean
 	rm -f *.pdf *.midi
 
-%.pre: %.ly
+$(CURDOC).pre: $(CURDOC).ly
 	sed " \
 		s@%spezifisch%@$(SPEZIFISCH)@ ; \
 		$(KLAVIER_REGEX) \
@@ -41,5 +41,8 @@ Clean: clean
 		}; \
 	" "$<" > "$@"
 
-%.pdf: %.pre *.ly
+%.pre: %.ly parse-str-comments
+	./parse-str-comments 7 "$(STROPHEN)" < "$<" > "$@"
+
+%.pdf: %.pre stimmen.pre texte.pre
 	lilypond $<
diff --git a/Veni_Creator_Spiritus/Veni_Creator_Spiritus.ly b/Veni_Creator_Spiritus/Veni_Creator_Spiritus.ly
index 485eb29..7574452 100644
--- a/Veni_Creator_Spiritus/Veni_Creator_Spiritus.ly
+++ b/Veni_Creator_Spiritus/Veni_Creator_Spiritus.ly
@@ -1,7 +1,7 @@
 \include "deutsch.ly"
 #(ly:set-option 'relative-includes #t)
-\include "stimmen.ly"
-\include "texte.ly"
+\include "stimmen.pre"
+\include "texte.pre"
 #(ly:set-option 'relative-includes #f)
 
 %spezifisch%
diff --git a/Veni_Creator_Spiritus/parse-str-comments b/Veni_Creator_Spiritus/parse-str-comments
new file mode 100755
index 0000000..05d9793
--- /dev/null
+++ b/Veni_Creator_Spiritus/parse-str-comments
@@ -0,0 +1,41 @@
+#!/bin/bash
+
+cnt=$(cat)
+
+printf '%s\n' "${cnt}" \
+| sed "$(
+  printf '%s\n' "${cnt}" \
+  | sed '
+    s,^.*%STR_\(MIX\|MAX\|NOT\)\(\( [0-9]\+\)*\)%.*$,\2,
+    t
+    d
+  ' \
+  | sort -u \
+  | while read -r l; do
+    found_missing=0
+    found_present=0
+    for i in $(seq 1 "$1"); do
+      if ! printf '%s\n' "${i}" \
+        | grep -xq "$2"; then
+        continue
+      fi
+      if printf '%s\n' "${l}" \
+        | grep -wqF "${i}"; then
+        found_present=1
+      else
+        found_missing=1
+      fi
+    done
+    printf '%s %s %s\n' "${found_present}" "${found_missing}" "${l}"
+  done \
+  | sed '
+    s/^1 1/MIX/
+    s/^0 1/NOT/
+    s/^1 0/MAX/
+    t
+    d
+  ' \
+  | sed '
+    s/^.*$/s@%STR_\0%@@/
+  '
+)"
diff --git a/Veni_Creator_Spiritus/stimmen.ly b/Veni_Creator_Spiritus/stimmen.ly
index ca8a694..0a621d0 100644
--- a/Veni_Creator_Spiritus/stimmen.ly
+++ b/Veni_Creator_Spiritus/stimmen.ly
@@ -40,7 +40,10 @@ sopranMelodie = \relative d'' {
   \punktBoegenA \punktBoegenB cis( e) \strichBoegen d8[ h] |
   a4( g) fis |
   e2 s4 |
-  \punktBoegenA \punktBoegenB e'8~ e \strichBoegen h4 cis |
+  %STR_NOT 3 5 6% e'4
+  %STR_MIX 3 5 6% \punktBoegenA \punktBoegenB e'8~ e \strichBoegen
+  %STR_MAX 3 5 6% e'8 e
+  h4 cis |
   \punktBoegenA \punktBoegenB a( d) \strichBoegen h |
   g2~ \punktBoegenA g8( \punktBoegenB fis) \strichBoegen |
   fis2 s4 |
@@ -61,7 +64,10 @@ altMelodie = \relative fis' {
   \punktBoegenA \punktBoegenB cis4~ cis \strichBoegen d |
   e2\punktBoegenA \punktBoegenB d4 \strichBoegen |
   cis2 s4 |
-  \punktBoegenA \punktBoegenB e8~ e \strichBoegen fis4 a |
+  %STR_NOT 3 5 6% e4
+  %STR_MIX 3 5 6% \punktBoegenA \punktBoegenB e8~ e \strichBoegen
+  %STR_MAX 3 5 6% e8 e
+  fis4 a |
   \punktBoegenA \punktBoegenB e( d) \strichBoegen d |
   d( \punktBoegenA h)( \punktBoegenB cis) \strichBoegen |
   d2 s4 |
@@ -83,7 +89,10 @@ tenorMelodie = \relative a {
   \punktBoegenA \punktBoegenB e( g) \strichBoegen fis |
   \punktBoegenA \punktBoegenB a2~ a4 \strichBoegen |
   a2 s4 |
-  \punktBoegenA \punktBoegenB cis8~ cis \strichBoegen d4 e |
+  %STR_NOT 3 5 6% cis4
+  %STR_MIX 3 5 6% \punktBoegenA \punktBoegenB cis8~ cis \strichBoegen
+  %STR_MAX 3 5 6% cis8 cis
+  d4 e |
   \punktBoegenA \punktBoegenB a,~ a \strichBoegen a |
   h( \punktBoegenA g)( \punktBoegenB a) \strichBoegen |
   a2 s4 |
@@ -109,7 +118,10 @@ bassMelodie = \relative d {
   \punktBoegenA \punktBoegenB a~ a \strichBoegen h |
   cis( \punktBoegenA d)( \punktBoegenB d) \strichBoegen |
   a2 s4 |
-  \punktBoegenA \punktBoegenB a'8~ a \strichBoegen a4 g |
+  %STR_NOT 3 5 6% a'4
+  %STR_MIX 3 5 6% \punktBoegenA \punktBoegenB a'8~ a \strichBoegen
+  %STR_MAX 3 5 6% a'8 a
+  a4 g |
   \punktBoegenA \punktBoegenB fis~ fis \strichBoegen fis |
   \punktBoegenA \punktBoegenB e2( a,4) \strichBoegen |
   d2 s4 |
diff --git a/Veni_Creator_Spiritus/texte.ly b/Veni_Creator_Spiritus/texte.ly
index 57afc96..f24a89f 100644
--- a/Veni_Creator_Spiritus/texte.ly
+++ b/Veni_Creator_Spiritus/texte.ly
@@ -7,7 +7,8 @@
 textI = \lyrics {
   \set stanza = "1."
   Ve -- ni, Cre -- a -- _ tor \markup { \underline Spi } -- ri -- tus,
-  men -- _ tēs tu -- o -- _ rum \markup { \underline vi } -- si -- ta:
+  men -- %STR_MIX 3 5 6% _
+  tēs tu -- o -- _ rum \markup { \underline vi } -- si -- ta:
   im -- plē su -- _ per -- na \markup { \underline gra } -- ti -- a,
   quae tu cre -- a -- sti \markup { \underline pe } -- cto -- ra.
 }
@@ -15,7 +16,8 @@ textI = \lyrics {
 textII = \lyrics {
   \set stanza = "2."
   Qui di -- ce -- ris _ Pa -- ra -- cli -- tus,
-  Al -- _ ti -- si -- mi do -- num De -- _ i,
+  Al -- %STR_MIX 3 5 6% _
+  ti -- si -- mi do -- num De -- _ i,
   fons vi -- vus, _ ig -- nis ca -- ri -- tas
   et spi -- ri -- ta -- lis un -- cti -- o.
 }
@@ -31,7 +33,8 @@ textIII = \lyrics {
 textIV = \lyrics {
   \set stanza = "4."
   Ac -- cen -- de \markup { \underline lu } -- _ men sen -- si -- bus,
-  in -- _ fun -- de a -- mo -- rem \markup { \underline cor } -- di -- bus,
+  in -- %STR_MIX 3 5 6% _
+  fun -- de a -- mo -- rem \markup { \underline cor } -- di -- bus,
   in -- fir -- ma _ no -- stri \markup { \underline cor } -- po -- ris
   vir -- \markup { \underline tu } -- te fir -- mens per -- pe -- ti.
 }
@@ -39,7 +42,8 @@ textIV = \lyrics {
 textV = \lyrics {
   \set stanza = "5."
   Ho -- stem re -- pel -- _ las lon -- gi -- us,
-  pa -- _ cem -- que do -- _ nes pro -- ti -- nus;
+  pa -- %STR_MIX 3 5 6% _
+  cem -- que do -- _ nes pro -- ti -- nus;
   duc -- to -- re _ sic te prae -- vi -- o
   vi -- te -- mus o -- mne no -- xi -- um.
 }
@@ -47,7 +51,8 @@ textV = \lyrics {
 textVI = \lyrics {
   \set stanza = "6."
   Per -- te sci -- a -- mus da Pa -- _ trem,
-  no -- _ sca -- mus at -- _ que Fi -- li -- um,
+  no -- %STR_MIX 3 5 6% _
+  sca -- mus at -- _ que Fi -- li -- um,
   te -- que u -- tri -- us -- que Spi -- ri -- tum
   cre -- da -- mus o -- mni tem -- po -- re.
 }
@@ -55,7 +60,8 @@ textVI = \lyrics {
 textVII = \lyrics {
   \set stanza = "7."
   De -- o Pa -- tri _ sit \markup { \underline glo } -- ri -- a,
-  et _ \markup { \underline Fi } -- li -- o, qui a \markup { \underline mor } -- tu -- is
+  et %STR_MIX 3 5 6% _
+  \markup { \underline Fi } -- li -- o, qui a \markup { \underline mor } -- tu -- is
   sur -- re -- xit, _ ac Pa -- ra -- cli -- to
   in sae -- cu -- lo -- rum \markup { \underline sae } -- cu -- la.
   A -- men.