sonata I V1

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

@@ -7,10 +7,9 @@
   title = "Die Sieben Wörte des Erlösers"
   subtitle = "Streichquartett"
   composer = "Joseph Haydn"
-  piece = "Nr. 17"
+  opus = "Op. 51, Nr. 17"
-  opus = "Op. 51"
+  copyright = \markup { \fontsize #-8 "(p) 2026 - H.N.M. Dijkema - CC-BY-NC-SA-3.0 - Lilypond 2.24.3" }
-  copyright = \markup { \fontsize #-8 "(p) 2026 - H.N.M. Dijkema - CC-BY-NC-SA-3.0" }
+  tagline = \markup { \fontsize #-8 "(p) 2026 - H.N.M. Dijkema - CC-BY-NC-SA-3.0 - Lilypond 2.24.3" }
-  tagline = \markup { \fontsize #-8 "(p) 2026 - H.N.M. Dijkema - CC-BY-NC-SA-3.0" }
 }
 
 \paper {
@@ -34,10 +33,22 @@
 
 \include "lilypond-hd/functions.ly"
 
+makePiece = #(define-scheme-function
+              (p)
+              (string?)
+              #{ \markup { \bold \fontsize #+1 $p } #}
+              )
+
+makeScriptum = #(define-scheme-function
+                 (s)
+                 (string?)
+                 #{ \markup { \fontsize #-1 \normal-text $s } #}
+                 )
+
 fig = #(define-music-function
         (a b c)
         (ly:music? ly:music? ly:music?)
-        #{ #(withDuration a 3 2) #(withDuration (flattenPitch a) 5 0) -. $b -. $c -. #}
+        #{ #(withDuration a 3 2) #(withDuration (flattenPitch a) 5 0) $b -. $c -. #}
         )
 
 fgg = #(define-music-function
@@ -46,17 +57,114 @@ fgg = #(define-music-function
        #{ #(withDuration a 4 1) #(withDuration b 5 0) #}
        )
 
+fggg = #(define-music-function
+         (a b c d)
+         (ly:music? ly:music? ly:music? ly:music?)
+         #{ #(withDuration a 4 1) #(withDuration b 5 0) #(withDuration c 4 1) #(withDuration d 5 0) #}
+         )
+
+fg = #(define-music-function
+       (a b)
+       (ly:music? ly:music?)
+       #{ #(withDuration a 3 2)( #(withDuration b 5 0)) #}
+       )
+
+
+makeHdr = #(define-scheme-function 
+            (thePiece theScriptum)
+            (markup? markup?)
+            #{
+              \header {
+                subsubtitle = $theScriptum
+                piece = $thePiece
+              }
+            #}
+            )
+            
+makeScore = #(define-scheme-function
+              (instrument music)
+              (string? ly:music?)
+              #{
+                \score {
+                  \new Staff \with { instrumentName = $instrument }
+                  $music
+                  \layout { 
+                    \context {
+                      \Score
+                        \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3)
+                    }
+                  }
+                }          
+              #}
+              )	
+
+makeScoreVI = #(define-scheme-function
+                (music)
+                (ly:music?)
+                (makeScore "Violin I" music)
+                )
+
+makeScoreVII = #(define-scheme-function
+                 (music)
+                 (ly:music?)
+                 (makeScore "Violin II" music)
+                 )
+
+makeScoreVa = #(define-scheme-function
+                (music)
+                (ly:music?)
+                (makeScore "Viola" #{ { \clef alto $music } #})
+                )
+
+makeScoreCl = #(define-scheme-function
+                (music)
+                (ly:music?)
+                (makeScore "Cello" #{ { \clef bass $music } #})
+                )
+
+makeScoreFull = #(define-scheme-function
+                  (vI vII va cl)
+                  (ly:music? ly:music? ly:music? ly:music?)
+                  #{
+                    \score {
+                      << 
+                        \new Staff \with { instrumentName = "Violin I" } $vI
+                        \new Staff \with { instrumentName = "Violin II" } $vII
+                        \new Staff \with { instrumentName = "Viola" } { \clef alto $va }
+                        \new Staff \with { instrumentName = "Cello" } { \clef bass $va }
+                      >>
+                      \layout { 
+                        \context {
+                          \Score
+                            \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3)
+                        }
+                      }
+                    }          
+                  #}
+                  )
+
 global = {
   \key f \major
   \time 4/4
-  \tempo "Maeestoso ed Adagio" 8=72
+  \tempo "Maestoso ed Adagio" 8=72
 }
 
 introduzione = { 
   \key f \major
   \time 4/4
-  \tempo "Maeestoso ed Adagio" 8=72
+  \tempo "Maestoso ed Adagio" 8=72
 }
+piece_introduzione = \makePiece "Introduzione" 
+scriptum_introduzione = \makeScriptum ""
+
+sonataI = { 
+  \key bf \major
+  \time 3/4
+  \tempo "Largo" 8=80
+}
+piece_sonataI = \makePiece "Sonata I"
+scriptum_sonataI = \makeScriptum "Pater, dimitte illis, non enum sciunt, quid faciunt."
+
 
 scoreAViolinI_introduzione = \relative c'' {
   \introduzione
@@ -122,6 +230,31 @@ scoreAViolinI_introduzione = \relative c'' {
   }
   
   \pageBreak 
+}
+
+scoreAViolinI_sonataI = \relative c' {
+  \sonataI
+  % music here
+  R2._"1" | 
+  \fg f'\f d bf8-. r r4 | \fg bf'\fz g e8-. ef-.(\p ef-. ef-.) |
+  \fg cs\fz d d8-. r r d\p | c!4 ef4.\fz a,8\p | c4( bf8-.) r r4 |
+  \fg bf'\fz g e8-. r r4 |
+  \fg f\fz d bf8-. bf(\p a bf) | b( c) r c( b c) | cs( d) r d( ef f) | f\fz( fs) g16( b, c d) \grace f!16( ef8)( c16 a) |
+  
+  c4( bf8-.) r8 r4 | d4\f d,8\p \acciaccatura f ef8( d cs) | cs4( \fggg d)( c d c) d8-. r |
+  d'4\f d,8\p( f! af b,!) | d4( \fggg c)( b c b) \fggg c( d c bf) |
+  a!8( c) f4( f16) (e32 f g16 f) | \grace f16( e8)( d16 c) c4 r |
+  
+  \fg bf'\fz g e8-. r r4 | \fg g'\fz e bf8-. r r4 | bf'4.\f \grace { c32( bf a) } bf8( c df) | f,4\fz( e8-.) r r f\p | 
+  f4( e8-.) r8 r d-. | d( cs) c-. r r bf |
+  bf4 a8( g bf e,) | f r g r e r | 
+  
+  \mark A
+  f4 r8 c''8( a f) | \grace { e32 f g } f4( e8-.) r d16( a') g32( f e d) | d8( cs) c-. r r16 bf-.( bf-. bf-.) | 
+  
+  
+  
+  
 }
 
 scoreAViolinII_introduzione = \relative c'' {
@@ -256,18 +389,52 @@ scoreACello_introduzione = \relative c {
     d4\ff \fig d' e8 e, r4 | a,4 \fig cs' d8 d, r4 | r8 d( bf f g gs a4) | bf r8 \fgg g'( f) f8 r8 r4 |
     
     %5
-    r4 r8 \fgg g\fz( f) f16-.\p r g-. r a-. r a,-. r | d4\f  \fig d' e8 e, r4 | c! c'8.. c32 bf!4 r16\ff g,-. bf-. d-. |
+    r4 r8 \fgg g\fz( f) f16-.\p r g-. r a-. r a,-. r | d4\f  \fig d' e8 e, r4 | 
+    
+    %7 
+    c! c'8.. c32 bf!4 r16\ff g,-. bf-. d-. |
     \rep 8 g \rep 8 g\fz | 
     
     %9
-    \rep 8 g g16-. r f-. r cs-. r d-. r | \rep 8 a' a2:16 | a16 \rep 7 a, a2:16 |
+    \rep 8 g g16-. r f-. r cs-. r d-. r | \rep 8 a' a2:16 | 
+    %11
+    a16 \rep 7 a, a2:16 |
     \rep 4 a8-. a2\fermata
     
     \mark A
     f4\p r4 r8 fs'8( g e) | c r e r f f,-. a-. c-. | \rep 16 f16\f | 
-    f8-. e-. r4 r2 bf'8-.\f a-. r4 r8 af8\p( g f) | r8 e( f) f,-. bf4 r4 | c2( d4) r4
+    f8-. e-. r4 r2 |
     
+    %17 
+    bf'8-.\f a-. r4 r8 af8\p( g f) | r8 e( f) f,-. bf4 r4 | c2( d4) r4 |
     
+    \rep 8 e16\f f8 f, r4 | bf4\p r c2 | \rep 8 f16\f f2:16 | \rep 8 f16 bf,8 r8 c r |
+    
+    %24 
+    f,4 r4 r2 | \rep 8 df'16\p  ef8-.\f c-. r4 | \rep 8 c'16\p df8 r8 r4 |
+    \compressMMRests { R1*4 } |
+    \rep 8 bf,16\f \rep 8 a | 
+    
+    %32
+    \rep 4 a a4:16 a2:16 | \rep 8 a16 \rep 4 a8-.  a1\fermata |
+    
+    \mark B
+    d4\f \fig d' e8 e,  r4 | a,4 \fig cs' d8 d,8 r4 | 
+    r8 d\p( bf f) g bf'( a e) | 
+    
+    %38
+    r8 ef( d a) bf( a g a) | bf2( a4) r |
+    \rep 4 a'16-.\f a-. g-. f-. e-. \rep 6 d-.\fz e-. f-. |
+    \rep 4 g\fz \rep 4 a\fz bf4\fz r | 
+    g4\p r g8-. f-. r4 | cs8-.\f d r4 g,\p( a) | 
+    
+    %44
+    bf4\fermata r8\fermata r8 r2 | R1^"1" |
+    r2 r4 r8 e16.\p( f32) f8-. r r fs16.( g32) g8-. r a-. r | 
+    \rep 4 d,16\f d4:16 d2:16 | d2:16 g8 r a r | \rep 4 d,16\p d4:16 d2:16 | d8-.(\pp d-. d-. d-.) d2\fermata 
+    
+    \bar "|."
+    \pageBreak 
   }
 }
 
@@ -275,6 +442,11 @@ scoreAViolinIPart_introduzione = \new Staff \with {
   instrumentName = "Vl. I"
 } \scoreAViolinI_introduzione
 
+scoreAViolinIPart_sonataI = \new Staff \with {
+  instrumentName = "Vl. I"
+} \scoreAViolinI_sonataI
+
+
 scoreAViolinIIPart_introduzione = \new Staff \with {
   instrumentName = "Vl. II"
 } \scoreAViolinII_introduzione
@@ -288,82 +460,39 @@ scoreACelloPart_introduzione = \new Staff \with {
 } { \clef bass \scoreACello_introduzione }
 
 
+% Violin I score of all pieces
+
 \bookpart {
-  \header {
+  \makeHdr \piece_introduzione \scriptum_introduzione
-    subsubtitle = "Introduzione"
+  \makeScoreVI \scoreAViolinI_introduzione
-  }
-  \score {
-    \scoreAViolinIPart_introduzione
-    \layout { 
-      \context {
-        \Score
-        \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3)
-      }
-      %#(layout-set-staff-size 16) 
-    }
-  }
 }
 
 \bookpart {
-  \header {
+  \makeHdr \piece_sonataI \scriptum_sonataI
-    subsubtitle = "Introduzione"
+  \makeScoreVI \scoreAViolinI_sonataI
-  }
-  \score {
-    \scoreAViolinIIPart_introduzione
-    \layout { 
-      \context {
-        \Score
-        \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3)
-      }
-      %#(layout-set-staff-size 16) 
-    }
-  }
 }
 
+% Violin II score of all pieces
 \bookpart {
-  \header {
+  \makeHdr \piece_introduzione \scriptum_introduzione
-    subsubtitle = "Introduzione"
+  \makeScoreVII \scoreAViolinII_introduzione
-  }
-  \score {
-    \scoreAViolaPart_introduzione
-    \layout { 
-      \context {
-        \Score
-        \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3)
-      }
-      %#(layout-set-staff-size 16) 
-    }
-  }
 }
 
+% Viola score of all pieces
 \bookpart {
-  \header {
+  \makeHdr \piece_introduzione \scriptum_introduzione
-    subsubtitle = "Introduzione"
+  \makeScoreVa \scoreAViola_introduzione
-  }
+}
-  \score {
+
-    \scoreACelloPart_introduzione
+% Cello score of all pieces
-    \layout { 
+\bookpart {
-      \context {
+  \makeHdr \piece_introduzione \scriptum_introduzione
-        \Score
+  \makeScoreCl \scoreACello_introduzione
-        \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3)
-      }
-      %#(layout-set-staff-size 16) 
-    }
-  }
 }
 
 
-\score {
+% Full score all pieces
-  <<
+\bookpart {
-    \scoreAViolinIPart_introduzione
+  \makeHdr \piece_introduzione \scriptum_introduzione
-    \scoreAViolinIIPart_introduzione
+  \makeScoreFull \scoreAViolinI_introduzione \scoreAViolinII_introduzione \scoreAViola_introduzione \scoreACello_introduzione
-    \scoreAViolaPart_introduzione
-    \scoreACelloPart_introduzione
-  >>
-  \layout { 
-      \context {
-        \Score
-        \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3)
-      }
-  }
 }