Verleih_uns_Frieden__: Klavierstimme neu

2 files changed, 142 insertions, 12 deletions

diff --git a/Verleih_uns_Frieden__/Verleih_uns_Frieden__.ly b/Verleih_uns_Frieden__/Verleih_uns_Frieden__.ly
index f8ce64d..0d0231d 100644
--- a/Verleih_uns_Frieden__/Verleih_uns_Frieden__.ly
+++ b/Verleih_uns_Frieden__/Verleih_uns_Frieden__.ly
@@ -23,20 +23,30 @@
     subtitle = ##f
     poet = "Gebet nach Worten von Luther"
   }
-  \new ChoirStaff <<
-    \set Score.skipBars = ##t
-    \new Staff <<
-      \new Voice = frauen  { \global \oneVoice \pausen }
-      \new Voice = sopran  { \global \voiceOne \sopranMelodie }
-      \new Voice = alt     { \global \voiceTwo \altMelodie }
+  <<
+    \new ChoirStaff <<
+      \set Score.skipBars = ##t
+      \new Staff <<
+        \new Voice = frauen  { \global \oneVoice \pausen }
+        \new Voice = sopran  { \global \voiceOne \sopranMelodie }
+        \new Voice = alt     { \global \voiceTwo \altMelodie }
+      >>
+      \new Lyrics = "text" {}
+      \new Staff <<
+        \new Voice = maenner { \clef "bass" \global \oneVoice \pausen }
+        \new Voice = tenor   { \clef "bass" \global \voiceOne \tenorMelodie }
+        \new Voice = bass    { \clef "bass" \global \voiceTwo \bassMelodie }
+      >>
+      \context Lyrics = "text" \lyricsto sopran { \text }
     >>
-    \new Lyrics = "text" {}
-    \new Staff <<
-      \new Voice = maenner { \clef "bass" \global \oneVoice \pausen }
-      \new Voice = tenor   { \clef "bass" \global \voiceOne \tenorMelodie }
-      \new Voice = bass    { \clef "bass" \global \voiceTwo \bassMelodie }
+    \new PianoStaff <<
+      \new Staff <<
+        \new Voice { \global \autoBeamOn \klavierRechts }
+      >>
+      \new Staff <<
+        \new Voice { \global \clef "bass" \autoBeamOn \klavierLinks }
+      >>
     >>
-    \context Lyrics = "text" \lyricsto sopran { \text }
   >>
   \layout {
     indent = #0
diff --git a/Verleih_uns_Frieden__/stimmen.ly b/Verleih_uns_Frieden__/stimmen.ly
index 8b925d1..12f542c 100644
--- a/Verleih_uns_Frieden__/stimmen.ly
+++ b/Verleih_uns_Frieden__/stimmen.ly
@@ -131,3 +131,123 @@ bassMelodie = \relative d' {
     }
   }
 }
+
+klavierRechts = \relative a {
+  <a d e a>4 <a d e a>8 <a d e a> <<
+    {
+      \voiceOne
+      e'8 d4 d8~ |
+    }
+    \new Voice {
+      \voiceTwo
+      r4 a |
+    }
+  >> \oneVoice
+  <d h a>2 <<
+    {
+      \voiceOne
+      e8 d4 d8~ |
+    }
+    \new Voice {
+      \voiceTwo
+      r4 <h a> |
+    }
+  >> \oneVoice
+  <d h fis>2 fis8 e <d a fis>4 |
+  <g d h> <g d h>16 <g d h>8. <e cis a>4 < a e cis> | \bar "||"
+  <a fis d> <a fis d> <a e a,> <a e a,> |
+  <fis d h> <fis d h> <fis cis fis,> <fis cis fis,> |
+  <fis d h> <fis d h> <h e, h> <h e, h> |
+  <a e cis> <a e cis> <g d h> <a e cis> |
+  <a fis d> <a fis d> <a e a,> <a e a,> |
+  <fis d h> <fis d h> <fis cis fis,> <fis cis fis,> |
+  <fis d h> <fis d h> <h e, h> <h e, h> |
+  <a e cis> <a e cis> <g e c> < a fis d c> |
+  <b f d> <b f d> <b g c,> <b g c,> |
+  <a f c> <g c,> <f d a> <f d a> |
+  <g d b> <g d b> <g d b>8 g, b d |
+  <<
+    {
+      \voiceOne
+      b' a
+    }
+    \new Voice {
+      \voiceTwo
+      e4
+    }
+  >> \oneVoice
+  <a e a,>4 <a g d h> <a e a,> |
+  \repeat volta 2 {
+    <d a fis> <d a fis> <cis a e> <cis a e> |
+    <h g d> <h g d> <h g d> <a d,> |
+    <h g e> <a fis d> <g e h> <h fis d> |
+    <a~ e~ d>2 <a e cis>4 <a e cis>8 <a e cis> |
+    <fis d a>4 <fis d a>8 fis16 g <a e a,>4 <a e a,> |
+    <g d h> <g d h> <g d h> <a d, a> |
+    <g e h> <fis d>
+    <<
+      {
+        \voiceOne
+        e4. d8 |
+      }
+      \new Voice {
+        \voiceTwo
+        <cis a>4 <h g> |
+      }
+    >>
+  }
+  \alternative {
+    {
+      <<
+        {
+          \voiceOne
+          d2(
+        }
+        \new Voice {
+          \voiceTwo
+          <a fis>4 <a fis>
+        }
+      >> \oneVoice
+      <d h g>4) <d h g> |
+    }
+    {
+      <d a fis>^\fermata <d a fis> <d h g> <a' e cis>^\markup { Dal \tiny \raise #1 \musicglyph #"scripts.segno" (ad. lib.) } | \bar "|."
+    }
+  }
+}
+
+klavierLinks = \relative fis, {
+  fis4 fis8 fis r4 fis |
+  g4 g8 g r2 |
+  h4 h8 h r2 |
+  a8. a16 a'8. a16 a,4 a |
+  d4. d8 cis4. cis8 |
+  h4. h8 a4. a8 |
+  g4. g8 gis4. gis8 |
+  a4. a8 a4 a |
+  d4. d8 cis4. cis8 |
+  h4. h8 a4. a8 |
+  g4. g8 gis4. gis8 |
+  a4. a8 d4 d8 a |
+  g4 g'8 g, e4 e'8 e, |
+  f4 e d d'8 d, |
+  e4. e8 d4. d8 |
+  cis4 cis'8 cis, <h' h,>4 <cis cis,> |
+  \repeat volta 2 {
+    <d d,> d8 d, fis4 fis'8 fis, |
+    g4 g'8 g, g4 <fis' fis,> |
+    <e e,> fis, g gis |
+    a4. e8 a,4 a'8 a, |
+    d4 d'8 d,16 e fis4 fis'8 fis, |
+    g4 g'8 g, g4 fis |
+    <e' e,> e8 e, a4. a8 |
+  }
+  \alternative {
+    {
+      d,4 d'8. d,16 a'8 a8. a16 a8 |
+    }
+    {
+      d,4_\fermata d'8. d,16 a'4 a | \bar "|."
+    }
+  }
+}