From 1782882998944575e058537a0813922a23c61ec1 Mon Sep 17 00:00:00 2001
From: Erich Eckner <erich.eckner.ext@bestsecret.com>
Date: Wed, 19 Oct 2022 15:47:07 +0200
Subject: Messias: Tenor und Bass nun auch echt

---
 Messias/parts/stimmenIX.ly | 75 ++++++++++++++++++++++++++++++++++++++--------
 1 file changed, 63 insertions(+), 12 deletions(-)

diff --git a/Messias/parts/stimmenIX.ly b/Messias/parts/stimmenIX.ly
index 30ad229..79ee2ea 100644
--- a/Messias/parts/stimmenIX.ly
+++ b/Messias/parts/stimmenIX.ly
@@ -54,7 +54,7 @@ sopranMelodieIX = \relative a' {
   a4.~ a4 a8 |
   ifdef(`deutsch',`h4 e8',`h4( e8)') cis4 cis8 |
   d4. d |
-  R2.*3 \bar "|." % Seite 11
+  R2.*ifdef(`homophonisiert',`3',`8') \bar "|." % Seite 11
 }
 
 altMelodieIX = \relative a' {
@@ -97,14 +97,34 @@ altMelodieIX = \relative a' {
   c4.~ c4 c8 |
   ifdef(`deutsch',`h4 h''`8',`h4( h''`8)') a4 a8 |
   a4. a |
-  R2.*3 |
+  R2.*ifdef(`homophonisiert',`3',`8') |
   \bar "|." % Seite 11
 }
 
 tenorMelodieIX = \relative a {
   \set Staff.instrumentName = #"T"
   \clef "G_8"
-  r4 r8 r4 a8 |
+  ifdef(`homophonisiert',`
+    r4 r8 r4 a8 |
+  ',`
+    R2.*2 |
+    r4. r8 r cis8 |
+    d4 e8 cis d e |
+    fis g fis e e r |
+    R2. |
+    r4. r8 r e |
+    a,4 h8 gis a h |
+    cis d cis h h e |
+    e4 r8 r r fis32[ e d16] |
+    cis4 r8 r r e |
+    d d d e e e |
+    fis fis fis h,4 h8 |
+    cis4 r8 r r e |
+    e4 r8 r r e |
+    fis16[ e d8] fis e16[ d cis8] e |
+    d4.~ d4 d8 cis fis4 fis( e8) |
+    e4. e4 cis8 |
+  ')
   d4 h8 e d cis |
   fis e d d cis cis |
   d d d e e e |
@@ -112,20 +132,45 @@ tenorMelodieIX = \relative a {
   fis4 r8 r4 h,8 |
   fis'4 r8 r4 e8  |
   d4 d8 d4 d8 |
-  d4.~ d4 d8 | % Seite 10
+  ifdef(`homophonisiert',`
+    d4.~ d4 d8 | % Seite 10
+  ',`
+    d4.~ d8 d d |
+  ')
   cis2. |
   r4 r8 r4 fis,8 |
   fis4 fis8 fis4 fis8 |
   fis4.~ fis4 fis8 |
-  d'4 g8 e4 e8 fis4. fis |
-  R2.*3 |
+  ifdef(`deutsch',`d''`4 g8',`d''`4( g8)') e4 e8 fis4. fis |
+  R2.*ifdef(`homophonisiert',`3',`8') |
   \bar "|." % Seite 11
 }
 
 bassMelodieIX = \relative a {
   \set Staff.instrumentName = #"B"
   \clef "bass"
-  r4 r8 r4 a8 |
+  ifdef(`homophonisiert',`
+    r4 r8 r4 a8 |
+  ',`
+    R2. |
+    r4. r8 r a |
+    d,4 e8 cis d e |
+    fis fis g a h cis |
+    d[ e] d cis4 cis8 |
+    h4 gis8 a4 r8 |
+    R2.*2 |
+    r4. r8 r e |
+    a4 r8 r r d, |
+    a''`4 r8 r r a, |
+    d d h e e cis |
+    fis fis fis gis4 gis8 |
+    a4 r8 r r e |
+    a4 r8 r r cis |
+    d16[ cis h8] d cis16[ h a8] cis |
+    h4.~ h4 e,8 |
+    a fis4 d( e8) |
+    a4. a4 a8 |
+  ')
   fis4 g8 a h cis |
   d cis d a a g |
   fis fis fis e e e |
@@ -133,13 +178,19 @@ bassMelodieIX = \relative a {
   d4 r8 r4 g,8 |
   d'4 r8 r4 cis8 |
   h[ a] g fis[ e] d |
-  gis,4.~ gis4 gis8 | % Seite 10
-  a2. |
-  r4 r8 r4 d8 |
+  ifdef(`homophonisiert',`
+    gis,4.~ gis4 gis8 | % Seite 10
+    a2. |
+    r4 r8 r4 d8 |
+  ',`
+    gis,4.~ gis8  gis''` gis
+    a2. |
+    r4 r8 r4 d,8 |
+  ')
   d4 d8 d4 d8 d4.~ d4 d8 |
-  g4 e8 a4 a8 |
+  ifdef(`deutsch',`g4 e8',`g4( e8)') a4 a8 |
   d,4. d |
-  R2.*3 |
+  R2.*ifdef(`homophonisiert',`3',`8') |
   \bar "|." % Seite 11
 }
 % }}}
-- 
cgit v1.2.3-54-g00ecf