From 002b97a9f81c7430d405eae7840fb1d2c9e9c783 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Tue, 20 Jan 2026 01:33:51 +0100 Subject: [PATCH] sonata I V1 --- Joseph-Haydn-Die-Sieben-Wörte-des-Erlösers.ly | 279 +++++++++++++----- 1 file changed, 204 insertions(+), 75 deletions(-) diff --git a/Joseph-Haydn-Die-Sieben-Wörte-des-Erlösers.ly b/Joseph-Haydn-Die-Sieben-Wörte-des-Erlösers.ly index e861cdb..0265d01 100644 --- a/Joseph-Haydn-Die-Sieben-Wörte-des-Erlösers.ly +++ b/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" - 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" } + opus = "Op. 51, Nr. 17" + copyright = \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 - Lilypond 2.24.3" } } \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 { - subsubtitle = "Introduzione" - } - \score { - \scoreAViolinIPart_introduzione - \layout { - \context { - \Score - \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3) - } - %#(layout-set-staff-size 16) - } - } + \makeHdr \piece_introduzione \scriptum_introduzione + \makeScoreVI \scoreAViolinI_introduzione } \bookpart { - \header { - subsubtitle = "Introduzione" - } - \score { - \scoreAViolinIIPart_introduzione - \layout { - \context { - \Score - \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3) - } - %#(layout-set-staff-size 16) - } - } + \makeHdr \piece_sonataI \scriptum_sonataI + \makeScoreVI \scoreAViolinI_sonataI } +% Violin II score of all pieces \bookpart { - \header { - subsubtitle = "Introduzione" - } - \score { - \scoreAViolaPart_introduzione - \layout { - \context { - \Score - \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3) - } - %#(layout-set-staff-size 16) - } - } + \makeHdr \piece_introduzione \scriptum_introduzione + \makeScoreVII \scoreAViolinII_introduzione } +% Viola score of all pieces \bookpart { - \header { - subsubtitle = "Introduzione" - } - \score { - \scoreACelloPart_introduzione - \layout { - \context { - \Score - \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3) - } - %#(layout-set-staff-size 16) - } - } + \makeHdr \piece_introduzione \scriptum_introduzione + \makeScoreVa \scoreAViola_introduzione +} + +% Cello score of all pieces +\bookpart { + \makeHdr \piece_introduzione \scriptum_introduzione + \makeScoreCl \scoreACello_introduzione } -\score { - << - \scoreAViolinIPart_introduzione - \scoreAViolinIIPart_introduzione - \scoreAViolaPart_introduzione - \scoreACelloPart_introduzione - >> - \layout { - \context { - \Score - \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3) - } - } +% Full score all pieces +\bookpart { + \makeHdr \piece_introduzione \scriptum_introduzione + \makeScoreFull \scoreAViolinI_introduzione \scoreAViolinII_introduzione \scoreAViola_introduzione \scoreACello_introduzione }