gnlpfth

1 files changed, 120 insertions, 72 deletions

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' |