From 7b71eda89ccf052922ed508edc3065a45379f3ed Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Mon, 14 Nov 2022 19:47:06 +0100
Subject: Messias: XLIV Grave-Stellen eingebaut

---
 Messias/parts/stimmenXLIV.ly | 121 +++++++++++++++++++++++++++++++++++--------
 1 file changed, 99 insertions(+), 22 deletions(-)

diff --git a/Messias/parts/stimmenXLIV.ly b/Messias/parts/stimmenXLIV.ly
index 9ef6b5a..79831cb 100644
--- a/Messias/parts/stimmenXLIV.ly
+++ b/Messias/parts/stimmenXLIV.ly
@@ -10,14 +10,23 @@ globalXLIV = {
 meta = {
   s1*7
   s1*9
-  s4\fermata s2.
+  ifdef(`homophonisiert',`s4\fermata s2.')
   % Seite 35
 }
 
 sopranMelodieXLIV = << \meta \relative e'' {
   \set Staff.instrumentName = #"S"
-  R1*7 |
-  r4 r8 e8\sf g4 d |
+  ifdef(`homophonisiert',`
+    R1*7 |
+  ',`
+    r4^\markup{ \italic Grave } e,2 e4 |
+    a2 h |
+    c1 |
+    r4 cis2 cis4 |
+    d2 dis |
+    e\breve | \bar "||" \set Score.currentBarNumber = #7
+  ')
+  r4^\markup{ \italic Allegro } r8 e8\sf g4 d |
   e c8 c g'4 d |
   e c g' d |
   e r8 e d4 c |
@@ -26,10 +35,21 @@ sopranMelodieXLIV = << \meta \relative e'' {
   c4 c c8[ g] a[ h] |
   c4 h8 c a[ h] c[ d] |
   e[ f] g4 d4. d8 |
-  e4 r r2 |
-  \bar "|" % Seite 35
-  R1*7 |
-  r4 a,8 a d4 cis |
+  e4 r r2 | \bar "||" % Seite 35
+  ifdef(`homophonisiert',`
+    R1*7 |
+    r4 a,8
+  ',`
+    r4^\markup{ \italic Grave } g, g g |
+    cis2 cis4 cis |
+    d1 |
+    r4 f f f |
+    d2 d4 d |
+    d2( cis4 h | \bar ""
+    cis1) | \bar "||" \set Score.currentBarNumber = #23
+    r4^\markup{ \italic Allegro } a8
+  ')
+  a d4 cis |
   d4. d8 d d cis cis |
   d4 a8 a d4 cis |
   d4. e8 d d c c |
@@ -39,7 +59,7 @@ sopranMelodieXLIV = << \meta \relative e'' {
   h[ d c] h h4. h8 |
   c4 r8 c e4 h |
   c4. c8 e4 h | % Seite 36
-  c h8[ a] gis4. gis8 |
+  c h8[ a] gis4.\trill gis8 |
   a2 r |
   R1*3 |
   \bar "|." % Seite 37
@@ -47,7 +67,17 @@ sopranMelodieXLIV = << \meta \relative e'' {
 
 altMelodieXLIV = << \meta \relative g' {
   \set Staff.instrumentName = #"A"
-  R1*7 |
+  ifdef(`homophonisiert',`
+    R1*7 |
+  ',`
+    r4 c,2 c4 |
+    d2 f |
+    e1 |
+    r4 e2 e4 |
+    d2 a''` |
+    a( gis4 fis | \bar ""
+    g1) | \bar "||"
+  ')
   r4 r8 g\sf g4 g |
   e g8 g g4 g |
   g g g g |
@@ -57,9 +87,17 @@ altMelodieXLIV = << \meta \relative g' {
   e a g f |
   g f8 g a4 a |
   g g g4. g8 |
-  g4 r r2 |
-  \bar "|" % Seite 35
-  R1*7 |
+  g4 r r2 | \bar "||" % Seite 35
+  ifdef(`homophonisiert',`
+    R1*7 |
+  ',`
+    r4 d d d |
+    e2 e4 e |
+    f1 |
+    r4 a a a |
+    a2 g4 g |
+    a\breve | \bar "||"
+  ')
   r4 f8 f a4 a |
   a4. a8 a a a a |
   a4 f8 f a4 a |
@@ -78,7 +116,17 @@ altMelodieXLIV = << \meta \relative g' {
 tenorMelodieXLIV = << \meta \relative c' {
   \set Staff.instrumentName = #"T"
   \clef "G_8"
-  R1*7 |
+  ifdef(`homophonisiert',`
+    R1*7 |
+  ',`
+    r4 a2 a4 |
+    a2 d |
+    c1 |
+    r4 b2 b4 |
+    a2. h4 |
+    c2( h4 a | \bar ""
+    h1) | \bar "||"
+  ')
   r4 r8 c\sf c4 h |
   g' e8 e c4 h |
   c e c h |
@@ -88,9 +136,18 @@ tenorMelodieXLIV = << \meta \relative c' {
   g f c' f |
   e d8 c c4 f |
   e c h4. h8 |
-  c4 r r2 |
-  \bar "|" % Seite 35
-  R1*7 |
+  c4 r r2 | \bar "||" % Seite 35
+  ifdef(`homophonisiert',`
+    R1*7 |
+  ',`
+    r4 b b b |
+    g2 g4 g |
+    a1 |
+    r4 d d d |
+    d2 d4 e |
+    f2( e4 d | \bar ""
+    e1) | \bar "||"
+  ')
   r4 d8 d d4 e |
   f4. f8 f f e e |
   f4 d8 d d4 e |
@@ -101,7 +158,8 @@ tenorMelodieXLIV = << \meta \relative c' {
   e4. f8 e4. e8 |
   e4 r8 e8 e4 e |
   e4. e8 e4 e | % Seite 36
-  e d8[ c] h4. h8 c2 r |
+  e d8[ c] h4.\trill h8 |
+  c2 r |
   R1*3 |
   \bar "|." % Seite 37
 } >>
@@ -109,7 +167,16 @@ tenorMelodieXLIV = << \meta \relative c' {
 bassMelodieXLIV = << \meta \relative c {
   \set Staff.instrumentName = #"B"
   \clef "bass"
-  R1*7 |
+  ifdef(`homophonisiert',`
+    R1*7 |
+  ',`
+    r4 a2 a4 |
+    f''`2 d |
+    a''`1 |
+    r4 g2 g4 |
+    fis2 f |
+    e\breve | \bar "||"
+  ')
   r4 r8 c\sf e4 g |
   c c,8 c e4 g |
   c c, e g |
@@ -119,10 +186,20 @@ bassMelodieXLIV = << \meta \relative c {
   c f e d |
   c d8 e f[ g] a[ h] |
   c4 e,8[ f] g4. g8 |
-  c,4 r r2 |
-  \bar "|" % Seite 35
-  R1*7 |
-  r4 d8 d f4 a |
+  c,4 r r2 | \bar "||" % Seite 35
+  ifdef(`homophonisiert',`
+    R1*7 |
+    r4 d8
+  ',`
+    r4 g''`g g |
+    e2 e4 e |
+    d1 |
+    r4 d d d |
+    b''`2 b4 b |
+    a\breve | \bar "||"
+    r4 d,8
+  ')
+  d f4 a |
   d4. d,8 f f a a |
   d4 d,8 d f4 a |
   d4. c8 h h a a |
-- 
cgit v1.2.3-54-g00ecf