Auf_Seele_Gott_zu_loben: 3-stimmiger Satz fertig

2 files changed, 81 insertions, 3 deletions

diff --git a/Auf_Seele_Gott_zu_loben/Auf_Seele_Gott_zu_loben.ly b/Auf_Seele_Gott_zu_loben/Auf_Seele_Gott_zu_loben.ly
index 80cde7e..deeb3dd 100644
--- a/Auf_Seele_Gott_zu_loben/Auf_Seele_Gott_zu_loben.ly
+++ b/Auf_Seele_Gott_zu_loben/Auf_Seele_Gott_zu_loben.ly
@@ -5,6 +5,9 @@ include(texte.pre)
 \header {
   tagline = ""
   title = "Auf, Seele, Gott zu loben"
+  poet = "Text: M. Müller-Zitzke 1947, nach Psalm 104"
+  composer = "Melodie: J. Steuerlein 1575"
+  ifdef(`dreistimmig',`arranger = "Satz: M. Schütz/E. Zabel"')
 }
 \paper {
   top-margin = 5
@@ -14,6 +17,9 @@ include(texte.pre)
   \new ChoirStaff <<
     \set Score.skipBars = ##t
     \new Staff <<
+      ifdef(`dreistimmig',`
+      \new Voice = frauen  { \global \oneVoice \frauenPausen }
+      ')
       \new Voice = sopran  { \global \voiceOne \sopranMelodie }
       \new Voice = alt     { \global \voiceTwo \altMelodie }
     >>
@@ -28,8 +34,12 @@ include(texte.pre)
     ifdef(`STR_7',`\new Lyrics \lyricsto sopran { \textVII }')
     ifdef(`STR_7',`\new Lyrics \lyricsto sopran { \textVIIa }')
     \new Staff <<
+      ifdef(`dreistimmig',`
+      \new Voice = maenner { \global \clef "bass" \oneVoice \maennerMelodie }
+      ',`
       \new Voice = tenor   { \global \clef "bass" \voiceOne \tenorMelodie }
       \new Voice = bass    { \global \clef "bass" \voiceTwo \bassMelodie }
+      ')
     >>
   >>
   \layout {
diff --git a/Auf_Seele_Gott_zu_loben/stimmen.ly b/Auf_Seele_Gott_zu_loben/stimmen.ly
index ea8660f..f37dc34 100644
--- a/Auf_Seele_Gott_zu_loben/stimmen.ly
+++ b/Auf_Seele_Gott_zu_loben/stimmen.ly
@@ -8,32 +8,82 @@ global = {
   \partial 4
 }
 
+frauenPausen = {
+  \repeat volta 2 {
+    s4 |
+    s1*3 |
+    s2 r4
+  } s4 |
+  s1*3 |
+  s2 r4 s |
+  s1*3 |
+  s2 r4 \bar "|."
+}
+
 sopranMelodie = \relative e' {
   \repeat volta 2 {
     e4 |
+    ifdef(`dreistimmig',`
+    a4. h8 cis[ h] a[ gis] |
+    ',`
     a8[ h] cis[ d] cis[ h] a[ gis] |
+    ')
     fis2 fis4 fis |
     e a a gis |
+    ifdef(`dreistimmig',`
+    a2 s4
+    ',`
     a2.
-  } cis4 |
+    ')
+  } \break cis4 |
+  ifdef(`dreistimmig',`
+  cis4. h8 cis4 h8[ a] |
+  ',`
   cis cis cis a |
+  ')
   h2 h4 h |
+  ifdef(`dreistimmig',`
+  a cis d8[ cis] h[ a] |
+  gis2 s4 \break a4 |
+  a4. gis8 a[ gis] fis[ e] |
+  ',`
   a8[ h] cis[ d] cis[ h] a[ gis16 fis] |
-  gis2. \bar "" e4 |
+  gis2. \break e4 |
   a8[ h] cis[ d] cis[ h] a[ gis] |
+  ')
   fis2 fis4 fis |
   e a a gis |
+  ifdef(`dreistimmig',`
+  a2 s4 \bar "|."
+  ',`
   a2. \bar "|."
+  ')
 }
 
 altMelodie = \relative cis' {
   \repeat volta 2 {
+  ifdef(`dreistimmig',`
+    e4 |
+    cis4. d8 e4 cis |
+    d2 d4 d |
+    e d d h |
+    cis2 s4
+  } e |
+  e4. e8 e4 e8[ fis] |
+  gis2 gis4 gis |
+  fis a h8[ a] gis[ fis] |
+  e2 s4 e |
+  cis4. d8 e4 cis |
+  d2 d4 d |
+  e d d h |
+  cis2 s4 | \bar "|."
+  ',`
     cis4 |
     cis e e cis |
     d2 d4 d |
     cis fis e4. e8 |
     cis2.
-  } a'4 |
+  } a''`4 |
   a a a e |
   gis2 gis4 gis |
   fis4.  fis8 fis4 fis |
@@ -42,6 +92,7 @@ altMelodie = \relative cis' {
   d2 d4 d |
   cis fis e4. e8 |
   cis2. \bar "|."
+  ')
 }
 
 tenorMelodie = \relative a {
@@ -80,3 +131,20 @@ bassMelodie = \relative a, {
   a,2. \bar "|."
 }
 
+maennerMelodie = \relative d {
+  \repeat volta 2 {
+    e4 |
+    a4. a8 a4 a |
+    d,2 d4 d |
+    e e e e |
+    <a a,>2 r4
+  } a |
+  a4. a8 a4 a |
+  e2 e4 e |
+  fis fis h h |
+  e,2 r4 \bar "" e |
+  a4. a8 a4 a |
+  d,2 d4 d |
+  e e e e |
+  <a a,>2 r4 \bar "|."
+}