sonata I V1
This commit is contained in:
@@ -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
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user