From 2592076f326ac42aa7315b69a30b126eeaa74047 Mon Sep 17 00:00:00 2001
From: Erich Eckner <erich.eckner.ext@bestsecret.com>
Date: Thu, 27 Oct 2022 10:39:01 +0200
Subject: Messias: stimmenXXII dehomophonisiert

---
 Messias/parts/stimmenXII.ly | 428 ++++++++++++++++++++++++++++++++++++--------
 1 file changed, 352 insertions(+), 76 deletions(-)

diff --git a/Messias/parts/stimmenXII.ly b/Messias/parts/stimmenXII.ly
index 2aa2ec0..423dbea 100644
--- a/Messias/parts/stimmenXII.ly
+++ b/Messias/parts/stimmenXII.ly
@@ -11,97 +11,230 @@ sopranMelodieXII = \relative d'' {
   \set Staff.instrumentName = #"S"
   R1*6
   d4 g,8 g c c c c |
-  c h r4 r g8 fis |
+  ifdef(`deutsch',`c h',`c[ h]') r4 r g8 fis |
   e4 r r8 e a g |
   fis fis r4 r h8 a |
   g4 r r8 g c h |
   a a r4 r2 |
-  R1*5 | % Seite 12
-  r2 a4 d,8 d |
-  g g g g g fis r4 |
-  r2 r4 d8 cis |
-  h4 r r8 h e d |
-  cis cis r4 r fis8 e |
-  d4 r r8 d g fis |
-  e e r4 r2 | % Seite 13
-  R1*8 |
-  \repeat unfold 2 { d'8. a16 a4 r2 |
-  } r8 a a a d4 r8 d | % Seite 14
+  ifdef(`homophonisiert',`
+    R1*5 | % Seite 12
+    r2 a4 d,8 d |
+    g g g g g fis r4 |
+    r2 r4 d8 cis |
+    h4 r r8 h e d |
+    cis cis r4 r fis8 e |
+    d4 r r8 d g fis |
+    e e r4 r2 | % Seite 13
+    R1*8 |
+    d'8.
+  ',`
+    r2 d4 g,8 g |
+    c c c c h16[ a h c] h[ c a h] |
+    g[ fis g a] g[ h a h] c[ h c d] c[ d h c] |
+    a[ g a h] a[ c h c] d[ c d e] d[ e c d] |
+    h[ a h c] h[ d c d] e[ d e fis] e[ fis g a] |
+    fis4 r r2 |
+    R1*9 |
+    r4 a,8. cis16 h8. d16 c8. e16 |
+    d8. fis16 e8. g16 fis8[ e16 d] cis8[ h] |
+    a1 |
+    a8. d16 cis8. e16 d8. fis16 e8. d16 |
+    cis4 d8 d cis cis r4 |
+    d8.
+  ')
+  a16 a4 r2 |
+  d8. a16 a4 r2 |
+  r8 a a a d4 r8 d | % Seite 14
   d d g g fis fis r d |
-  d4 c d d,8 d |
-  g g g g g fis r4 |
-  r2 r4 g8 fis |
-  e4 r r8 e a g |
-  fis fis r4 r2 |
-  R1*7 | % Seite 15
-  \repeat unfold 2 { d'8. c16 h4 r2 | }
+  d4 cis d
+  ifdef(`homophonisiert',`
+    d,8 d |
+    g g g g g fis r4 |
+    r2 r4 g8 fis |
+    e4 r r8 e a g |
+    fis fis r4 r2 |
+    R1 |
+  ',`
+    r4 |
+    R1*3 |
+    r4 d8 h g e''` c a |
+    fis4 r r2 |
+  ')
+  R1*4 |
+  ifdef(`homophonisiert',`
+    R1*2 | % Seite 15
+    d'8.
+  ',`
+    r4 a8 d h4 r |
+    r d8 g fis d r4 |
+    d8.
+  ')
+  c16 h4 r2 |
+  d8. c16 h4 r2 |
   r8 d d d g4 r8 d |
   d d g g e e r g |
-  c,4. c8 h4 r |
+  c,4.\trill c8 h4 r |
   r2 d4 g,8 g |
-  c c c c c h r4 |
-  R1*12 | % Seite 16
+  c c c c ifdef(`deutsch',`c h',`c[ h]') r4 |
+  R1*3 |
+  ifdef(`homophonisiert',`
+    R1*3 |
+  ',`
+    r2 r4 h8 h |
+    c4 r r8 d c8. h16 |
+    a8 a r4 r2 |
+  ')
+  R1 |
+  ifdef(`homophonisiert',`
+    R1*5 | % Seite 16
+  ',`
+    r4 g8. h16 a8. c16 h8. d16 |
+    c8. e16 d8. f16 e[( d c8] e) fis |
+    g4 g, r2 |
+    r r4 d''`8 g |
+    e4 g8 d e c r4 |
+  ')
   \repeat unfold 2 { c8. g16 g4 r2 | } % Seite 17
   r8 g g g c4 r8 c |
   c c c c c4 h |
-  a4. a8 h4 r |
-  R1*12 |
+  a4.\trill a8 h4 r |
+  ifdef(`homophonisiert',`
+    R1*12 |
+  ',`
+    r2 d4 g,8 g |
+    c c c c h16[ a h c] h[ c a h] |
+    g[ fis g a] g[ h a h] c[ h c d] c[ d h c] |
+    a[ g a h] a[ c h c] d[ c d e] d[ e c d] |
+    h[ a h c] h[ c a h] c[ h c d] c[ d h c] |
+    a4 d8 c h4 r |
+    r8 d c h a a g8. h16 |
+    a8. c16 h8. d16 c8. e16 a,8. c16 |
+    h8. d16 c8. e16 d2 |
+    d4 c8. a16 h8. g16 c8. a16 |
+    d8. d16 c8. h16 a8 a d d |
+    d4 d8 d d d r4 |
+  ')
   \repeat unfold 2 { d8. c16 h4 r2 | } % Seite 18
   r8 d d d g4 r8 g |
   e d c h a a r c |
   a4. a8 h4 r8 h |
   e d c c c h4 a8 |
-  a4. a8 g2 |
-  R1*7 |
+  a4.\trill a8 g2 |
+  R1*8 |
   \bar "|." % Seite 19
 }
 
 altMelodieXII = \relative a' {
   \set Staff.instrumentName = #"A"
-  R1*6
-  d4 g,8 g c c c c |
-  c h r4 r g8 fis |
-  e4 r r8 e a g |
-  fis fis r4 r h8 a |
-  g4 r r8 g c h |
-  a a r4 r2 |
+  R1*6 |
+  ifdef(`homophonisiert',`
+    d4 g,8 g c c c c |
+    c h r4 r g8 fis |
+    e4 r r8 e a g |
+    fis fis r4 r h8 a |
+    g4 r r8 g c h |
+    a a r4 r2 |
+  ',`
+    R1*6 |
+  ')
   R1*5 | % Seite 12
   r2 a4 d,8 d |
-  g g g g g fis r4 |
+  g g g g ifdef(`deutsch',`g fis',`g[ fis]') r4 |
   r2 r4 d8 cis |
   h4 r r8 h e d |
   cis cis r4 r fis8 e |
   d4 r r8 d g fis |
-  e e r4 r2 | % Seite 13
-  R1*8 |
+  e e r4
+  ifdef(`homophonisiert',`
+    r2 | % Seite 13
+    R1*2 |
+  ',`
+    r a8 fis |
+    d4 r r8 h''` g e |
+    cis cis r4 r2 |
+  ')
+  R1*3 |
+  ifdef(`homophonisiert',`
+    R1*3 |
+  ',`
+    r4 cis8. e16 d8. fis16 e8. g16 |
+    fis8. a16 g8. e16 a8. fis16 h8. g16 |
+    e4 a8 a a a r4 |
+  ')
   \repeat unfold 2 { a8. g16 fis4 r2 |
   } r8 fis fis fis a4 r8 a | % Seite 14
   h h h h a a r a |
   h4 a a d,8 d |
-  g g g g g fis r4 |
+  g g g g ifdef(`deutsch',`g fis',`g[ fis]') r4 |
   r2 r4 g8 fis |
   e4 r4 r8 e a g |
   fis fis r4 r2 |
-  R1*7 | % Seite 15
+  R1 |
+  ifdef(`homophonisiert',`
+    R1*6 | % Seite 15
+  ',`
+    r4 d8. fis16 e8. g16 fis8. a16 |
+    g8. h16 a8. c16 h8[ a16 g] fis8[ e] |
+    d1~ |
+    d2~ d8[ e16 d] c8[ h] |
+    a4 a r d8 g |
+    fis4 g8 h a a r4 |
+  ')
   \repeat unfold 2 { h8. a16 g4 r2 | }
   r8 g g g g4 r8 g |
   g g h h g g r g |
   g4. fis8 g4 r |
-  r2 d'4 g,8 g |
-  c c c c c h r4 |
-  R1*12 | % Seite 16
+  ifdef(`homophonisiert',`
+    r2 d''`4 g,8 g |
+    c c c c c h r4 |
+  ',`
+    R1*2 |
+  ')
+  ifdef(`homophonisiert',`
+    R1*6 |
+  ',`
+    r2 g4 c,8 c |
+    f f f f e16[ d e f] e[ f d e] |
+    c[ h c d] c[ e d e] f[ e f g] f[ g e f] |
+    d[ c d e] d[ f e f] g[ f g a] g[ a f g ] |
+    e[ d e fis] e[ g fis g] a[ g a h] a[ h a g] |
+    fis4 r r2 |
+  ')
+  R1*3 |
+  ifdef(`homophonisiert',`
+    R1*3 | % Seite 16
+  ',`
+    r4 h,8.^\f d16 c8. e16 d8. f16 |
+    e8. g16 f8. e16 d8 d g g |
+    g4 g8 g g g r4 |
+  ')
   \repeat unfold 2 { g8. f16 e4 r2 | } % Seite 17
   r8 e e e g4 r8 g |
   g g g g fis4 d8[ g] |
   g4 fis g r |
-  R1*12 |
+  ifdef(`homophonisiert',`
+    R1*12 |
+  ',`
+    r2 g4 g8 g |
+    g g fis fis g16[ fis g a] g[ a fis g] |
+    e[ d e fis] e[ g fis g] a[ g a h] a[ h g a] |
+    fis[ e fis g] fis[ a g a] h[ a h c] h[ c a h] |
+    g[ fis g a] g[ a fis g] e[ d e fis] e[ fis g a] |
+    fis4 a8 a g4 r |
+    r8 h a g fis fis r4 |
+    r d8. fis16 e8. g16 fis8. a16 |
+    g8. h16 a8. g16 fis8.[ e16] d4 |
+    r fis8. fis16 d8. g16 fis8. a16 |
+    g8. g16 a8. g16 fis8 fis g h |
+    a4 g8 h a a r4 |
+  ')
   \repeat unfold 2 { h8. a16 g4 r2 | } % Seite 18
   r8 g g g g4 r8 g |
   g h a g fis fis r g |
   fis4. fis8 g4 r8 g |
   g g fis g a g4 g8 |
   fis4. d8 d2 |
-  R1*7 |
+  R1*8 |
   \bar "|." % Seite 19
 }
 
@@ -110,41 +243,107 @@ tenorMelodieXII = \relative d' {
   \clef "G_8"
   R1*11 |
   r2 d4 g,8 g | % Seite 12
-  c c c c c h r4 |
+  c c c c ifdef(`deutsch',`c h',`c[ h]') r4 |
   r2 r4 g8 fis |
   e4 r r8 e a g |
   fis fis r4 r4 h8 a |
   g4 r r8 g c h |
   a a r4 r2 |
-  R1*14 | % Seite 13
-  \repeat unfold 2 { fis'8. e16 d4 r2 |
-  } r8 d d d fis4 r8 fis | % Seite 14
+  R1*7 |
+  ifdef(`homophonisiert',`
+    R1*4 | % Seite 13
+  ',`
+    r4 a8. cis16 h8. d16 cis8. e16 |
+    d8. fis16 e8. g16 fis8[ e16 d] cis8[ h] |
+    a1 |
+    a2 r |
+  ')
+  R1 |
+  ifdef(`homophonisiert',`
+    R1*2 | % Seite 13
+    fis''`8.
+  ',`
+    r2 r4 e''`8. g16 |
+    a,4 d8 fis e e r4 |
+    fis8.
+  ') e16 d4 r2 |
+  fis8. e16 d4 r2 |
+  r8 d d d fis4 r8 fis | % Seite 14
   g g d d fis fis r fis |
   e4 e fis r |
-  R1*11 | % Seite 15
+  ifdef(`homophonisiert',`
+    R1*4 |
+  ',`
+    r2 d4 g,8 g |
+    c c c c h16[ a h c] h[ c a h] |
+    g[ fis g a] g[ h a h] c[ h c d] c[ d h c] |
+    a4 r4 r2 |
+  ')
+  R1*5 |
+  ifdef(`homophonisiert',`
+    R1*2 | % Seite 15
+  ',`
+    r4 fis''`8 fis g4 r |
+    r d8 d fis fis r4 |
+  ')
   \repeat unfold 2 { g8. d16 d4 r2 | }
   r8 h h h d4 r8 h |
   h h d d e e r d |
   e4. c8 d4 g,8 g |
-  c c c c c h r4 |
-  r2 g4 c,8 c |
-  f f f f f e r4 |
-  r2 r4 c'8 h | % Seite 16
-  a4 r r8 a d c |
-  h h r4 r2 |
-  R1*8 |
+  c c c c ifdef(`deutsch',`c h',`c[ h]') r4 |
+  ifdef(`homophonisiert',`
+    r2 g4 c,8 c |
+    f f f f f e r4 |
+    r2 r4 c'8 h | % Seite 16
+    a4 r r8 a d c |
+    h h r4 r2 |
+    R1*4 |
+  ',`
+    R1*4 |
+    r2 r4 e8 d |
+    c4 r r8 h c c |
+    d d g,8. h16 a8. c16 h8. d16 |
+    c8. e16 d8. f16 e[( d c8] e) fis8 |
+    g4 g, r2 |
+  ')
+  R1*2 |
+  ifdef(`homophonisiert',`
+    R1*2 |
+  ',`
+    r2 r4 d''`8 d |
+    e4 c8 h c c r4 |
+  ')
   \repeat unfold 2 { e8. d16 c4 r2 | } % Seite 17
   r8 c c c e4 r8 e |
   e e e e a,4 h8[ c] |
   d4. d8 d4 r |
-  R1*12 |
+  ifdef(`homophonisiert',`
+    R1*7 |
+  ',`
+    r2 d4 d8 d |
+    e e d d d4 d8 d |
+    e4 r r8 e e e |
+    fis fis r4 r fis8 fis |
+    g4 r8 e c4. d8 |
+    d d d fis d4 r |
+    r8 e e e a, a r4 |
+  ')
+  R1 |
+  ifdef(`homophonisiert',`
+    R1*4 |
+  ',`
+    r2 r4 fis8. a16 |
+    g8. h16 a8. c16 h8. d16 c8. e16 |
+    d8. h16 e8. e16 fis8 d d g |
+    fis4 d8 g fis fis r4 |
+  ')
   \repeat unfold 2 { g8. d16 d4 r2 | } % Seite 18
   r8 h h h d4 r8 d |
   e e e e a, a r e' |
   a,4. d8 d4 r8 d |
   e h c e d d4 e8 |
   d4. c8 h2 |
-  R1*7 |
+  R1*8 |
   \bar "|." % Seite 19
 }
 
@@ -152,42 +351,119 @@ bassMelodieXII = \relative d' {
   \set Staff.instrumentName = #"B"
   \clef "bass"
   R1*11 |
-  r2 d4 g,8 g | % Seite 12
-  c c c c c h r4 |
-  r2 r4 g8 fis |
-  e4 r r8 e a g |
-  fis fis r4 r4 h8 a |
-  g4 r r8 g c h |
-  a a r4 r2 |
-  R1*14 | % Seite 13
-  \repeat unfold 2 { d8. d,16 d4 r2 |
-  } r8 d d d d'4 r8 d | % Seite 14
+  ifdef(`homophonisiert',`
+    r2 d4 g,8 g | % Seite 12
+    c c c c c h r4 |
+    r2 r4 g8 fis |
+    e4 r r8 e a g |
+    fis fis r4 r4 h8 a |
+    g4 r r8 g c h |
+    a a r4 r2 |
+  ',`
+    R1*7 |
+  ')
+  ifdef(`homophonisiert',`
+    R1*7 |
+  ',`
+    r2 a4 d,8 d |
+    g g g g fis16[ e fis g] fis[ g e fis] |
+    d[ cis d e] d[ fis e fis] g[ fis g a] g[ a fis g] |
+    e[ d e fis] e[ g fis g] a[ g a h] a[ h g a] |
+    fis[ e fis g] fis[ a g a] h[ a h cis] h[ cis d e] |
+    cis4 e8 cis a4 r |
+    r8 d h g e e r4 |
+  ')
+  R1*4 |
+  ifdef(`homophonisiert',`
+    R1*3 | % Seite 13
+    d8.
+  ',`
+    r4 a,8. cis16 h8. d16 cis8. e16 |
+    d8. fis16 e8. g16 fis8. a16 g8. h16 |
+    a4 fis8 d a''` a, r4 |
+    d''`8.
+  ')
+  d,16 d4 r2 |
+  d'8. d,16 d4 r2 |
+  r8 d d d d'4 r8 d | % Seite 14
   h h g g d' d r fis, |
   g4 a d, r |
-  R1*11 | % Seite 15
+  R1*4 |
+  ifdef(`homophonisiert',`
+    R1*2 |
+  ',`
+    r4 h''`8 g e c''` a fis |
+    d d r4 r2 |
+  ')
+  R1 |
+  ifdef(`homophonisiert',`
+    R1*4 | % Seite 15
+  ',`
+    r4 d8. fis16 e8. g16 fis8. a16 |
+    g8. h16 a8. c16 h8[ c16 h] a8[ g] |
+    fis4 d r h''`8 g |
+    d''`4 h8 g d''` d, r4 |
+  ')
   \repeat unfold 2 { g8. g16 g4 r2 | }
   r8 g g g h4 r8 g |
   g g g g c c r h |
-  a4. a8 g4 g8 g |
-  c c c c c h r4 |
+  a4. a8 g4
+  ifdef(`homophonisiert',`
+    g8 g |
+    c c c c c h r4 |
+  ',`
+    r4 |
+    R1 |
+  ')
   r2 g4 c,8 c |
-  f f f f f e r4 |
+  f f f f ifdef(`deutsch',`f e',`f[ e]') r4 |
   r2 r4 c'8 h | % Seite 16
   a4 r r8 a d c |
   h h r4 r2 |
-  R1*8 |
-  \repeat unfold 2 { c8. c,16 c4 r2 | } % Seite 17
+  R1*5 |
+  ifdef(`homophonisiert',`
+    R1*3 |
+    c8.
+  ',`
+    r4 g8.^\f h16 a8. c16 h8. d16 |
+    c8. e,16 a8. c16 h8 g h h |
+    c4 e,8 g c c, r4 |
+    c''`8.
+  ')
+  c,16 c4 r2 |
+  c'8. c,16 c4 r2 | % Seite 17
   r8 c c c c'4 r8 c |
   c c c c d,4 g |
-  d4. d8 g4 r |
-  R1*12 |
+  d4. d8 g4
+  ifdef(`homophonisiert',`
+    r |
+    R1*7 |
+  ',`
+    g8 g |
+    c c c c c[ h] h h |
+    a a d, d g4 g8 g |
+    c4 r r8 a a a |
+    d d r4 r h8 d, |
+    e4 r8 e a4. g8 |
+    d''` d fis, d g4 r |
+    r8 c, c c d d r4 |
+  ')
+  R1 |
+  ifdef(`homophonisiert',`
+    R1*4 |
+  ',`
+    r2 r4 d8. fis16 |
+    e8. g16 fis8. a16 g8. h16 a8. c16 |
+    h8. g16 c8. a16 d8 d, h''` g |
+    d''`4 h8 g d''` d, r4 |
+  ')
   \repeat unfold 2 { g8. g16 g4 r2 | } % Seite 18
   r8 g g g h4 r8 h,8 |
   c c c c d d r c |
   d4. d8 g4 r8 g |
   c h a g fis g4 c,8 |
   d4. d8 g,2 |
-  R1*7 |
+  R1*8 |
   \bar "|." % Seite 19
 }
 % }}}
-- 
cgit v1.2.3-54-g00ecf