From afa6ef25081f3e4322d2968f9f73cb5c0f38192a Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Sun, 5 Nov 2023 19:24:12 +0100
Subject: gnlpfth

---
 .meta/header.ly                  |  21 +++++
 Veni_Creator_Spiritus/stimmen.ly | 192 ++++++++++++++++++++++++---------------
 Veni_Creator_Spiritus/texte.ly   |  50 +++++-----
 3 files changed, 166 insertions(+), 97 deletions(-)

diff --git a/.meta/header.ly b/.meta/header.ly
index a630764..edb742e 100644
--- a/.meta/header.ly
+++ b/.meta/header.ly
@@ -1 +1,22 @@
 define(`transponiert',`c')
+
+define(`forloop',
+       `pushdef(`$1', `$2')_forloop(`$1', `$2', `$3', `$4')popdef(`$1')')
+define(`_forloop',
+       `$4`'ifelse($1, `$3', ,
+		   `define(`$1', incr($1))_forloop(`$1', `$2', `$3', `$4')')')
+
+define(`strophen_varianten',
+       `undefine(`_strophen_varianten_andere')'
+       `undefine(`_strophen_varianten_diese')'
+       `forloop(str,1,20,
+          `ifdef(`STR_'str,
+                 `ifelse(
+                   index(` $1 ',` 'str` '),`-1',
+                   `define(_strophen_varianten_andere,str)',
+                   `define(_strophen_varianten_diese,str)'
+                   )'
+                 )'
+       )'
+       `ifdef(`_strophen_varianten_diese',`ifdef(`_strophen_varianten_andere',```$3''',```$2''')',$4)'
+)
diff --git a/Veni_Creator_Spiritus/stimmen.ly b/Veni_Creator_Spiritus/stimmen.ly
index b67b4b1..1473adc 100644
--- a/Veni_Creator_Spiritus/stimmen.ly
+++ b/Veni_Creator_Spiritus/stimmen.ly
@@ -37,30 +37,42 @@ tieferis = \markup { - \sharp }
 
 sopranMelodie = \relative d'' {
   d4 a h |
-  %STR_NOT 6% cis( e)
-  %STR_MIX 6% \punktBoegenA \punktBoegenB cis( e) \strichBoegen
-  %STR_MAX 6% cis e
+  strophen_varianten(`6',
+    `cis e',
+    `\punktBoegenA \punktBoegenB cis( e) \strichBoegen',
+    `cis( e)'
+  )
   d8[ h] |
-  %STR_MAX 6% a4( g fis) |
-  %STR_MIX 6% a4( \punktBoegenA g)( \punktBoegenB fis) \strichBoegen |
-  %STR_NOT 6% a4( g) fis |
+  strophen_varianten(`6',
+    `a4( g fis) |',
+    `a4( \punktBoegenA g)( \punktBoegenB fis) \strichBoegen |',
+    `a4( g) fis |'
+  )
   e2 s4 |
-  %STR_NOT 3% e'4
-  %STR_MIX 3% \punktBoegenA \punktBoegenB e'8~ e \strichBoegen
-  %STR_MAX 3% e'8 e
+  strophen_varianten(`3',
+    `e''`8 e',
+    `\punktBoegenA \punktBoegenB e''`8~ e \strichBoegen',
+    `e''`4'
+  )
   h4 cis |
-  %STR_NOT 2 4 7% a( d)
-  %STR_MIX 2 4 7% \punktBoegenA \punktBoegenB a( d) \strichBoegen
-  %STR_MAX 2 4 7% a d
+  strophen_varianten(`2 4 7',
+    `a d',
+    `\punktBoegenA \punktBoegenB a( d) \strichBoegen',
+    `a( d)'
+  )
   h |
-  %STR_MAX 2% g2~( g8 fis) |
-  %STR_MIX 2% g2~ \punktBoegenA g8( \punktBoegenB fis) \strichBoegen |
-  %STR_NOT 2% g2~ g8 fis |
+  strophen_varianten(`2',
+    `g2~( g8 fis) |',
+    `g2~ \punktBoegenA g8( \punktBoegenB fis) \strichBoegen |',
+    `g2~ g8 fis |'
+  )
   fis2 s4 |
   fis fis
-  %STR_MAX 6% ais8 ais |
-  %STR_MIX 6% \punktBoegenA \punktBoegenB ais8~ ais \strichBoegen |
-  %STR_NOT 6% ais |
+  strophen_varianten(`6',
+    `ais8 ais |',
+    `\punktBoegenA \punktBoegenB ais8~ ais \strichBoegen |',
+    `ais |'
+  )
   h2 h4 |
   h2 cis4 |
   d4 s d |
@@ -74,30 +86,42 @@ sopranMelodie = \relative d'' {
 
 altMelodie = \relative fis' {
   fis4 e d |
-  %STR_NOT 6% cis2
-  %STR_MIX 6% \punktBoegenA \punktBoegenB cis~ cis \strichBoegen
-  %STR_MAX 6% cis cis
+  strophen_varianten(`6',
+    `cis cis',
+    `\punktBoegenA \punktBoegenB cis~ cis \strichBoegen',
+    `cis2'
+  )
   d4 |
-  %STR_MAX 6% \punktBoegenB e2( d4) \strichBoegen |
-  %STR_MIX 6% \punktBoegenA \punktBoegenB e2( d4) \strichBoegen |
-  %STR_NOT 6% e2 d4 |
+  strophen_varianten(`6',
+    `\punktBoegenB e2( d4) \strichBoegen |',
+    `\punktBoegenA \punktBoegenB e2( d4) \strichBoegen |',
+    `e2 d4 |'
+  )
   cis2 s4 |
-  %STR_NOT 3% e4
-  %STR_MIX 3% \punktBoegenA \punktBoegenB e8~ e \strichBoegen
-  %STR_MAX 3% e8 e
+  strophen_varianten(`3',
+    `e8 e',
+    `\punktBoegenA \punktBoegenB e8~ e \strichBoegen',
+    `e4'
+  )
   fis4 a |
-  %STR_NOT 2 4 7% \punktBoegenB e( d) \strichBoegen
-  %STR_MIX 2 4 7% \punktBoegenA \punktBoegenB e( d) \strichBoegen
-  %STR_MAX 2 4 7% e d
+  strophen_varianten(`2 4 7',
+    `e d',
+    `\punktBoegenA \punktBoegenB e( d) \strichBoegen',
+    `\punktBoegenB e( d) \strichBoegen'
+  )
   d |
-  %STR_MAX 2% d( h \punktBoegenB cis) \strichBoegen |
-  %STR_MIX 2% d( \punktBoegenA h)( \punktBoegenB cis) \strichBoegen |
-  %STR_NOT 2% d( h) cis |
+  strophen_varianten(`2',
+    `d( h \punktBoegenB cis) \strichBoegen |'
+    `d( \punktBoegenA h)( \punktBoegenB cis) \strichBoegen |'
+    `d( h) cis |'
+  )
   d2 s4 |
   cis cis
-  %STR_MAX 6% fis8 fis |
-  %STR_MIX 6% \punktBoegenA \punktBoegenB fis8~ fis \strichBoegen |
-  %STR_NOT 6% fis4 |
+  strophen_varianten(`6',
+    `fis8 fis |',
+    `\punktBoegenA \punktBoegenB fis8~ fis \strichBoegen |',
+    `fis4 |'
+  )
   fis2 fis4 |
   g2 g4 |
   fis s d' |
@@ -112,34 +136,46 @@ altMelodie = \relative fis' {
 
 tenorMelodie = \relative a {
   a4 g fis |
-  %STR_NOT 6% e( g)
-  %STR_MIX 6% \punktBoegenA \punktBoegenB e( g) \strichBoegen
-  %STR_MAX 6% e g
+  strophen_varianten(`6',
+    `e g',
+    `\punktBoegenA \punktBoegenB e( g) \strichBoegen',
+    `e( g)'
+  )
   fis |
-  %STR_MAX 6% a2. |
-  %STR_MIX 6% \punktBoegenA \punktBoegenB a2~ a4 \strichBoegen |
-  %STR_NOT 6% a2 a4 \strichBoegen |
+  strophen_varianten(`6',
+    `a2. |',
+    `\punktBoegenA \punktBoegenB a2~ a4 \strichBoegen |',
+    `a2 a4 \strichBoegen |'
+  )
   a2 s4 |
-  %STR_NOT 3% cis4
-  %STR_MIX 3% \punktBoegenA \punktBoegenB cis8~ cis \strichBoegen
-  %STR_MAX 3% cis8 cis
+  strophen_varianten(`3',
+    `cis8 cis',
+    `\punktBoegenA \punktBoegenB cis8~ cis \strichBoegen',
+    `cis4'
+  )
   d4 e |
-  %STR_NOT 2 4 7% a,2
-  %STR_MIX 2 4 7% \punktBoegenA \punktBoegenB a,~ a \strichBoegen
-  %STR_MAX 2 4 7% a, a
+  strophen_varianten(`2 4 7',
+    `a, a',
+    `\punktBoegenA \punktBoegenB a,~ a \strichBoegen',
+    `a,2'
+  )
   a4 |
-  %STR_MAX 2% h( g a) |
-  %STR_MIX 2% h( \punktBoegenA g)( \punktBoegenB a) \strichBoegen |
-  %STR_NOT 2% h( g) a |
+  strophen_varianten(`2',
+    `h( g a) |',
+    `h( \punktBoegenA g)( \punktBoegenB a) \strichBoegen |',
+    `h( g) a |'
+  )
   \once \override Accidental.stencil = #ly:text-interface::print
   \once \override Accidental.text = #hoeher
   ais2 s4 |
   \once \override Accidental.stencil = #ly:text-interface::print
   \once \override Accidental.text = #tieferis
   ais ais
-  %STR_MAX 6% cis8 cis |
-  %STR_MIX 6% \punktBoegenA \punktBoegenB cis8~ cis \strichBoegen |
-  %STR_NOT 6% cis4 |
+  strophen_varianten(`6',
+    `cis8 cis |',
+    `\punktBoegenA \punktBoegenB cis8~ cis \strichBoegen |',
+    `cis4 |'
+  )
   d2 d4 |
   e2 ais,4 |
   h s d |
@@ -156,30 +192,42 @@ tenorMelodie = \relative a {
 
 bassMelodie = \relative d {
   d4 d d |
-  %STR_NOT 6% a2
-  %STR_MIX 6% \punktBoegenA \punktBoegenB a~ a \strichBoegen
-  %STR_MAX 6% a a
+  strophen_varianten(`6',
+    `a a',
+    `\punktBoegenA \punktBoegenB a~ a \strichBoegen',
+    `a2'
+  )
   h4 |
-  %STR_MAX 6% cis( d2) |
-  %STR_MIX 6% cis( \punktBoegenA d)( \punktBoegenB d) \strichBoegen |
-  %STR_NOT 6% cis( d) d |
+  strophen_varianten(`6',
+    `cis( d2) |',
+    `cis( \punktBoegenA d)( \punktBoegenB d) \strichBoegen |',
+    `cis( d) d |'
+  )
   a2 s4 |
-  %STR_NOT 3% a'4
-  %STR_MIX 3% \punktBoegenA \punktBoegenB a'8~ a \strichBoegen
-  %STR_MAX 3% a'8 a
+  strophen_varianten(`3',
+    `a''`8 a',
+    `\punktBoegenA \punktBoegenB a''`8~ a \strichBoegen',
+    `a''`4'
+  )
   a4 g |
-  %STR_NOT 2 4 7% fis2
-  %STR_MIX 2 4 7% \punktBoegenA \punktBoegenB fis~ fis \strichBoegen
-  %STR_MAX 2 4 7% fis fis
+  strophen_varianten(`2 4 7',
+    `fis fis',
+    `\punktBoegenA \punktBoegenB fis~ fis \strichBoegen',
+    `fis2'
+  )
   fis4 |
-  %STR_MAX 2% e2( a,4) |
-  %STR_MIX 2% \punktBoegenA \punktBoegenB e2( a,4) \strichBoegen |
-  %STR_NOT 2% e2 a,4 |
+  strophen_varianten(`2',
+    `e2( a,4) |',
+    `\punktBoegenA \punktBoegenB e2( a,4) \strichBoegen |',
+    `e2 a,4 |'
+  )
   d2 s4 |
   fis fis
-  %STR_MAX 6% fis8 fis |
-  %STR_MIX 6% \punktBoegenA \punktBoegenB fis8~ fis \strichBoegen |
-  %STR_NOT 6% fis4 |
+  strophen_varianten(`6',
+    `fis8 fis |',
+    `\punktBoegenA \punktBoegenB fis8~ fis \strichBoegen |',
+    `fis4 |'
+  )
   h,2 h'4 |
   e,2 e4 |
   h s d' |
diff --git a/Veni_Creator_Spiritus/texte.ly b/Veni_Creator_Spiritus/texte.ly
index f1e0ccb..ca9c26d 100644
--- a/Veni_Creator_Spiritus/texte.ly
+++ b/Veni_Creator_Spiritus/texte.ly
@@ -5,75 +5,75 @@
 % Die Textaufteilungen
 
 textI = \lyrics {
-  \set stanza = "STR_1."
-  Ve -- ni, Cre -- a -- %STR_MIX 6% _
+  \set stanza = "STR_1"
+  Ve -- ni, Cre -- a -- strophen_varianten(`6',`',`_',`')
   tor \markup { \underline Spi } -- ri -- tus,
-  men -- %STR_MIX 3% _
+  men -- strophen_varianten(`3',`',`_',`')
   tēs tu -- o -- _ rum \markup { \underline vi } -- si -- ta:
-  im -- plē su -- %STR_MIX 6% _
+  im -- plē su -- strophen_varianten(`6',`',`_',`')
   per -- na \markup { \underline gra } -- ti -- a,
   quae tu cre -- a -- sti \markup { \underline pe } -- cto -- ra.
 }
 
 textII = \lyrics {
-  \set stanza = "STR_2."
-  Qui di -- ce -- ris %STR_MIX 6% _
+  \set stanza = "STR_2"
+  Qui di -- ce -- ris strophen_varianten(`6',`',`_',`')
   Pa -- ra -- cli -- tus,
-  Al -- %STR_MIX 3% _
+  Al -- strophen_varianten(`3',`',`_',`')
   ti -- si -- mi do -- num De -- _ i,
-  fons vi -- vus, %STR_MIX 6% _
+  fons vi -- vus, strophen_varianten(`6',`',`_',`')
   ig -- nis ca -- ri -- tas
   et spi -- ri -- ta -- lis un -- cti -- o.
 }
 
 textIII = \lyrics {
-  \set stanza = "STR_3."
-  Tu sep -- ti -- for -- %STR_MIX 6% _
+  \set stanza = "STR_3"
+  Tu sep -- ti -- for -- strophen_varianten(`6',`',`_',`')
   mis mu -- ne -- re,
   di -- gi -- tus Pa -- ter -- _ nae dex -- te -- rae,
-  tu ri -- te %STR_MIX 6% _
+  tu ri -- te strophen_varianten(`6',`',`_',`')
   pro -- mis -- sum Pa -- tris,
   ser -- mo -- ne di -- tans gut -- tu -- ra.
 }
 
 textIV = \lyrics {
-  \set stanza = "STR_4."
-  Ac -- cen -- de \markup { \underline lu } -- %STR_MIX 6% _
+  \set stanza = "STR_4"
+  Ac -- cen -- de \markup { \underline lu } -- strophen_varianten(`6',`',`_',`')
   men sen -- si -- bus,
-  in -- %STR_MIX 3% _
+  in -- strophen_varianten(`3',`',`_',`')
   fun -- de a -- mo -- rem \markup { \underline cor } -- di -- bus,
-  in -- fir -- ma %STR_MIX 6% _
+  in -- fir -- ma strophen_varianten(`6',`',`_',`')
   no -- stri \markup { \underline cor } -- po -- ris
   vir -- \markup { \underline tu } -- te fir -- mens per -- pe -- ti.
 }
 
 textV = \lyrics {
-  \set stanza = "STR_5."
-  Ho -- stem re -- pel -- %STR_MIX 6% _
+  \set stanza = "STR_5"
+  Ho -- stem re -- pel -- strophen_varianten(`6',`',`_',`')
   las lon -- gi -- us,
-  pa -- %STR_MIX 3% _
+  pa -- strophen_varianten(`3',`',`_',`')
   cem -- que do -- _ nes pro -- ti -- nus;
-  duc -- to -- re %STR_MIX 6% _
+  duc -- to -- re strophen_varianten(`6',`',`_',`')
   sic te prae -- vi -- o
   vi -- te -- mus o -- mne no -- xi -- um.
 }
 
 textVI = \lyrics {
-  \set stanza = "STR_6."
+  \set stanza = "STR_6"
   Per -- te sci -- a -- mus da Pa -- _ trem,
-  no -- %STR_MIX 3% _
+  no -- strophen_varianten(`3',`',`_',`')
   sca -- mus at -- _ que Fi -- li -- um,
   te -- que u -- tri -- us -- que Spi -- ri -- tum
   cre -- da -- mus o -- mni tem -- po -- re.
 }
 
 textVII = \lyrics {
-  \set stanza = "STR_7."
-  De -- o Pa -- tri %STR_MIX 6% _
+  \set stanza = "STR_7"
+  De -- o Pa -- tri strophen_varianten(`6',`',`_',`')
   sit \markup { \underline glo } -- ri -- a,
-  et %STR_MIX 3% _
+  et strophen_varianten(`3',`',`_',`')
   \markup { \underline Fi } -- li -- o, qui a \markup { \underline mor } -- tu -- is
-  sur -- re -- xit, %STR_MIX 6% _
+  sur -- re -- xit, strophen_varianten(`6',`',`_',`')
   ac Pa -- ra -- cli -- to
   in sae -- cu -- lo -- rum \markup { \underline sae } -- cu -- la.
   A -- men.
-- 
cgit v1.2.3-54-g00ecf