Wer_kann_segeln: zweite Textvariante

3 files changed, 72 insertions, 21 deletions

diff --git a/Wer_kann_segeln/Wer_kann_segeln.ly b/Wer_kann_segeln/Wer_kann_segeln.ly
index 6eb3786..82f9b96 100644
--- a/Wer_kann_segeln/Wer_kann_segeln.ly
+++ b/Wer_kann_segeln/Wer_kann_segeln.ly
@@ -1,3 +1,13 @@
+undefine(`_D')
+undefine(`_S')
+undefine(`_DS')
+ifdef(`STR_1',`define(`_D')')
+ifdef(`STR_2',`define(`_D')')
+ifdef(`STR_1S',`define(`_S')')
+ifdef(`STR_2S',`define(`_S')')
+ifdef(`_D',`ifdef(`_S',`define(`_DS')')')
+ifdef(`Textvariante',,`define(`Textvariante',`1')')
+
 \include "deutsch.ly"
 include(stimmen.pre)
 include(texte.pre)
@@ -11,15 +21,6 @@ include(texte.pre)
   print-all-headers = ##t
 }
 
-undefine(`_D')
-undefine(`_S')
-undefine(`_DS')
-ifdef(`STR_1',`define(`_D')')
-ifdef(`STR_2',`define(`_D')')
-ifdef(`STR_1S',`define(`_S')')
-ifdef(`STR_2S',`define(`_S')')
-ifdef(`_D',`ifdef(`_S',`define(`_DS')')')
-
 \score {
   \header {
     title = "ifdef(`_D',`Wer kann segeln') ifdef(`_DS',` - ') ifdef(`_S',`Vem kan segla')"
diff --git a/Wer_kann_segeln/stimmen.ly b/Wer_kann_segeln/stimmen.ly
index 102ea7f..c2c644a 100644
--- a/Wer_kann_segeln/stimmen.ly
+++ b/Wer_kann_segeln/stimmen.ly
@@ -24,34 +24,34 @@
 % Die Stimmen
 
   sopranMelodie = \transpose c transponiert \relative e' {
-    e4 fis8 g8. fis16 e8 |
+    e4 fis8 ifelse(Textvariante,`1',`\punktBoegen g8.( fis16) \strichBoegen',`g8. fis16') e8 |
     h'4 h8 h4. |
-    c4 c8 e8. d16 c8 |
+    c4 c8 ifelse(Textvariante,`1',`\punktBoegen e8.( d16) \strichBoegen',`e8. d16') c8 |
     h4. h |
-    a4 a8 c8. h16 a8 |
+    ifelse(Textvariante,`1',`\punktBoegen a8~ a \strichBoegen',`a4') a8 c8. h16 a8 |
     g4 g8 e4. |
-    fis8. fis16 fis8 h,4 dis8 |
+    fis8. fis16 fis8 ifelse(Textvariante,`1',`\punktBoegen h,8~ h \strichBoegen',`h,4') dis8 |
     e4. e | \bar "|."
   }
 
   altMelodie = \transpose c transponiert \relative e' {
-    e4 fis8 g8. fis16 e8 |
+    e4 fis8 ifelse(Textvariante,`1',`\punktBoegen g8.( fis16) \strichBoegen',`g8. fis16') e8 |
     h'4 h8 h4. |
-    g4 g8 g fis fis |
+    g4 g8 ifelse(Textvariante,`1',`\punktBoegen g( fis) \strichBoegen',`g fis') fis |
     fis4( e8) e4. |
-    e4 e8 e dis fis |
+    ifelse(Textvariante,`1',`\punktBoegen e8~ e \strichBoegen',`e4') e8 e dis fis |
     fis[ e] d c4. |
-    c8 c c h4 h8 |
+    c8 c c ifelse(Textvariante,`1',`\punktBoegen h8~ h \strichBoegen',`h4') h8 |
     h4( c8) h4. | \bar "|."
   }
 
   maennerMelodie = \transpose c transponiert \relative e {
-    e4 fis8 g8. fis16 e8 |
+    e4 fis8 ifelse(Textvariante,`1',`\punktBoegen g8.( fis16) \strichBoegen',`g8. fis16') e8 |
     h'4 h8 h4. |
-    a4 a8 a d, d |
+    a4 a8 ifelse(Textvariante,`1',`\punktBoegen a( d,) \strichBoegen',`a d,') d |
     g4. g |
     fis r8 h, h |
-    e g a \punktBoegen h( a) g |
-    a~ a~ a \strichBoegen d,( h') a |
+    e g a ifelse(Textvariante,`1',`h( a)',`\punktBoegen h( a) \strichBoegen') g |
+    ifelse(Textvariante,`1',`a4. \punktBoegen h,8( h''`) \strichBoegen',`\punktBoegen a~ a~ a \strichBoegen d,( h''`)') a |
     g4( fis8) e4. | \bar "|."
   }
diff --git a/Wer_kann_segeln/texte.ly b/Wer_kann_segeln/texte.ly
index 710eb7a..a4f1bef 100644
--- a/Wer_kann_segeln/texte.ly
+++ b/Wer_kann_segeln/texte.ly
@@ -4,6 +4,55 @@
 
 % Die Textaufteilungen
 
+ifelse(Textvariante,`1',`
+  textFrauenDI = \lyricmode {
+    \set stanza = "STR_1."
+    Wer kann se -- _ geln oh -- ne Wind, ru -- dern oh -- _ ne Ru -- der,
+    wer _ sich tren -- nen vom liebs -- ten Schatz, oh -- _ ne Trä -- nen zu wei -- nen?
+  }
+
+  textFrauenNI = \lyricmode {
+    \set stanza = "STR_1S."
+    Vem kan seg -- la för -- u -- tan vind? Vem kan ro u -- tan å -- ror?
+    Vem _ kan skil -- jas från vän -- nen sin u -- tan att fäl -- _ la tå -- rar?
+  }
+
+  textFrauenDII = \lyricmode {
+    \set stanza = "STR_2."
+    Ich kann se -- _ geln oh -- ne Wind,
+    ru -- dern oh -- _ ne Ru -- der,
+    doch nicht mich tren -- nen vom liebs -- ten Schatz,
+    oh -- _ ne Trä -- nen zu wei -- nen.
+  }
+
+  textFrauenNII = \lyricmode {
+    \set stanza = "STR_2S."
+    Jag kan seg -- la för -- u -- tan vind.
+    Jak kan ro u -- tan å -- ror.
+    Men _ ej skil -- jas från vän -- nen min ut -- tan att fäl -- _ la tå -- rar.
+  }
+
+  textMaennerDI = \lyricmode {
+    \repeat unfold 15 { \skip 1 }
+    wer, wer sich tren -- nen vom liebs -- ten Schatz, oh -- ne zu wei -- nen?
+  }
+
+  textMaennerNI = \lyricmode {
+    \repeat unfold 15 { \skip 1 }
+    Vem, vem kan skil -- jas från vän -- nen sin u -- _ tan tå -- rar?
+  }
+
+  textMaennerDII = \lyricmode {
+    \repeat unfold 15 { \skip 1 }
+    doch, nicht mich tren -- nen vom liebs -- ten Schatz,
+    oh -- ne zu wei -- nen.
+  }
+
+  textMaennerNII = \lyricmode {
+    \repeat unfold 15 { \skip 1 }
+    Men, men ej skil -- jas från vän -- nen min u -- _ tan tå -- rar.
+  }
+',`
   textFrauenDI = \lyricmode {
     \set stanza = "STR_1."
     Wer kann se -- geln ganz oh -- ne Wind, ru -- dern ganz oh -- ne Rie -- men?
@@ -50,3 +99,4 @@
     \repeat unfold 15 { \skip 1 }
     Men, men ej skil -- jas från vän -- nen min
   }
+')