ja

Joseph-Haydn-Die-Sieben-Wörte-des-Erlösers.ly

@@ -290,6 +290,15 @@ scoreAViolinII_introduzione = \relative c'' {
   \pageBreak
 }
 
+sonpI = #(define-scheme-function
+          (n)
+          (ly:music?)
+          (let ((m (withDuration n 2 1))
+                (nn (withDuration (flattenPitch (rmtext n)) 3 0)))
+            #{ $m \fz $nn -.\p( $nn -. $nn -.) #}
+            )
+          )
+
 scoreAViolinII_sonataI = \relative c'' {
   \sonataI
   % Muziek volgt hier.
@@ -322,15 +331,18 @@ scoreAViolinII_sonataI = \relative c'' {
     
     %34
     <df ef>2:8\f <c ef>8 <c ef> | <df f>4 r4 r8 <df ef>\p | <df ef>2:8\< <c ef>8 <c ef>\! | <df f>4\f r4 r8 <df ef>8\p |
-    <df f>8-.\pp bf( af bf af bf) | af2 r4 | R2.^"1" | 
-    <f' d'>4.\fz <f d'>8(\p <f d'>-. <f d'>-.) | <g ef'>4.\fz <g ef'>8-.(\p <g ef'>-. <g ef'>-.) 
+    <bf ef>2:8 <c ef>8 <c ef> |
+    <df f>8-.\pp bf( af bf af bf) | af2 r4 | 
+    R2.^"1" | 
+    \sonpI <f'd'> | \sonpI <g ef'>
     
     %44
-    <f d'>4.\fz <f d'>8(\p <f d'>-. <f d'>-.) | <ef c'>4.\fz <ef c'>8-.(\p <ef c'>-. <ef c'>-.) | fs\f fs fs r r c'\p |
-    c4( b8) g'-. g-. g-. | f2:8 ef8 ef | d2:8 c8 c8 | bf bf bf e,( f g) | c( bf af gf f ef) | f-. r f-. r a,-. r |
+    \sonpI <f d'> | \sonpI <ef c'> | fs8\f fs fs r r c'\p |
+    c4( b8) g'-. g-. g-. | f2:8 ef8 ef | d2:8 c8 c8 | bf bf bf e,( f g) | 
+    c( bf af gf f ef) | f-. r f-. r a,-. r |
     
     %53
-    
+    af4 r r | \sonpI <a ef'> | \sonpI df | bf4.\fz bf8\p(-. bf-. c-.) | df4( c bf) | bf2. |
     
     
     
@@ -399,6 +411,15 @@ scoreAViola_introduzione = \relative c' {
   \pageBreak 
 }
 
+scoreAViola_sonataI = \relative c'' {
+  \sonataI
+  % Muziek volgt hier.
+  \relative c' {
+    R2.^"1"
+  }
+}
+
+
 scoreACello_introduzione = \relative c {
   \introduzione
   % Muziek volgt hier.
@@ -455,9 +476,18 @@ scoreACello_introduzione = \relative c {
   }
 }
 
+scoreACello_sonataI = \relative c'' {
+  \sonataI
+  % Muziek volgt hier.
+  \relative c' {
+    R2.^"1"
+  }
+}
+
+
 % Violin I score of all pieces
 
-%{
+
 \bookpart {
   \makeHdr \piece_introduzione \scriptum_introduzione
   \makeScoreVI \scoreAViolinI_introduzione
@@ -473,14 +503,14 @@ scoreACello_introduzione = \relative c {
   \makeHdr \piece_introduzione \scriptum_introduzione
   \makeScoreVII \scoreAViolinII_introduzione
 }
-%}
+
 
 \bookpart {
   \makeHdr \piece_sonataI \scriptum_sonataI
   \makeScoreVII \scoreAViolinII_sonataI
 }
 
-%{
+
 % Viola score of all pieces
 \bookpart {
   \makeHdr \piece_introduzione \scriptum_introduzione
@@ -499,4 +529,8 @@ scoreACello_introduzione = \relative c {
   \makeHdr \piece_introduzione \scriptum_introduzione
   \makeScoreFull \scoreAViolinI_introduzione \scoreAViolinII_introduzione \scoreAViola_introduzione \scoreACello_introduzione
 }
-%}
+
+\bookpart {
+  \makeHdr \piece_sonataI \scriptum_sonataI
+  \makeScoreFull \scoreAViolinI_sonataI \scoreAViolinII_sonataI \scoreAViola_sonataI \scoreACello_sonataI
+}