better support for stripping content

This commit is contained in:
2026-01-19 22:27:20 +01:00
parent ec9a5f340e
commit dc37f20b7d
2 changed files with 332 additions and 360 deletions

View File

@@ -1,359 +1,331 @@
\version "2.24.4"
\language "english"
\header {
title = "String Quartett op. 20, nr. 4"
composer = "Jospeh Haydn"
opus = "op. 20"
tagline = "(p) Hans Dijkema 2026"
}
\paper {
#(set-paper-size "a4")
% Add space for instrument names
indent = 25\mm
}
partone = {
\key d \major
\time 3/4
\tempo "Allegro di molto"
}
parttwo = {
\key f \major
\time 2/4
\tempo "Un poco Adagio, affetuoso."
}
none = #(define-scheme-function
(n1 n2 n3 n4 n5 n6 n7 n8 n9)
(ly:music? ly:music? ly:music?
ly:music? ly:music? ly:music?
ly:music? ly:music? ly:music?)
#{ \times 2/3 { $n1 $n2 $n3 }
\times 2/3 { $n4 $n5 $n6 }
\times 2/3 { $n7 $n8 $n9 }
#}
)
tri = #(define-scheme-function
(n1 n2 n3)
(ly:music? ly:music? ly:music?)
#{
\times 2/3 { $n1 $n2 $n3 }
#}
)
ddot = #(define-music-function
(n)
(ly:music?)
#{
#n -. #n -. #n -.
#}
)
ddott = #(define-scheme-function
(n f)
(ly:music? ly:music?)
#{
#n -. #f -. #f -.
#}
)
dslur = #(define-scheme-function
(n)
(ly:music?)
#{
$n -. ($n -. $n -.)
#}
)
dslurr = #(define-scheme-function
(n f)
(ly:music? ly:music?)
#{
$n -. ($f -. $f -.)
#}
)
% First violin pieces
vIFirst = { \relative c' { d4\p\(-.\downbow-2 d-. d-.\) d2.-0( g-2) \stemUp fs4_\(-. b-3_( a)\) \stemNeutral d2\open c16-4 (b a b )a4 r r } }
scoreAViolinI = \relative c' {
\partone
% Music follows here.
\repeat volta 2 {
\vIFirst
\relative c' \dslur d4 { d2.-4( b2. ) a4 (d-0 fs-1) a2 (\afterGrace { g4\trill } { fs16 [g ] } fs4) r r }
\vIFirst
\relative c' { e4-.-1 e-. e-. e _\(g b\) a2. _\((a4) b _(g) \) fs2-2 (g8 e8 d4) r r }
\relative c' { c4-. (c-. c-.) c2 (b4) g'4-. (g-. g-.) fs _\( (g) b-.\) a2 (\relative c' cs!4 ) d, r r }
\mark A
\relative c'' {
{\none b8-1\f d fs b fs d b fs d } b4 r r
%\times 2/3 { b8-1\f d fs } \times 2/3 { b fs d } \times 2/3 { b fs d } b4 r r
d'4-. (d-. d-.) d2 (e8 _\( b \) ) cs4-. (cs-. cs-.) cs-. r r
{\none a8\f c e a e c a e c} a4 r r
a'-.\p (a-. a-.) a-0 (b) c (c) b (ds-1) e2.
(\none e8\f) ds (e) fs e d c-2 b a gs4 r e'-2
(\none e8) ds (e) fs e d c-2 b a gs4 r r
{\none a8 (cs) e a gs fs e d cs }
{\none b (fs'-3) e d cs-2 b a gs fs }
{\none e \downbow (gs) a-.-2 \upbow b (a) gs a-0 (b) cs }
d2-> (cs4) fs2.->_3
{\none e8 (gs) fs e g a b cs-1 d }
e2.-> (e4\p) d (cs) d2.-> (d4) cs-2 (bs)
cs2.-> \(\none cs8\) bs \(cs d cs b a_4 gs fs\)
e4 e-.\pp (e-.)
e2. (e4) a (gs) gs \(fs\trill e (e)\) {\tri fs8 (d b)} cs4 \((cs) b\) {\tri d8 (b gs_1)} a4 r r
\mark B
\ddott as,-.\p as-. as (b) fs'-4\( (\=1(fs\=1) e) gs,-.\)
\ddott a!\f a
a4. b16 (c-1 d e-1 fs gs a4-.) a'4.-3 (gs8) gs4-. g2\fz
\none fs8\downbow( e) d cs( b) b' b( b,) a'
\none a( gs) a b a gs fs e b'
\repeat unfold 2 {
\none gs( e) b' gs( e) b' gs( e) b'
\none a gs fs e d cs b( a) b'
}
\none gs( e) b' gs( e) b' gs( e) b'
\none a a,(\ff b cs-.) a( cs e-.) cs( e_2 g4-.) r r
\mark C
r fs,-1\p\upbow( fs') cs2( d4) a2( b8 gs) a4-.\( cs_2\=1( d e\=1)\) a( g fs) r r
r e( d) r d\upbow( cs) fs2.-3(-> fs8) e( ds e ds e-1) e2.( e4) a( gs g fs f_3 e ds d_3)
cs2--\( \tri d8( b gs) \) a4-4 \tri r8\mf fs'\downbow( gs \tri a gs fs) e4-. r r
r \tri r8 fs-3( e \tri d e fs) cs4-. r cs16( b a b) a4-. r r
r \stemDown \tri r8 b(\downbow a \tri gs a b) \stemNeutral
cs4-. \tri r8 d( e \tri fs e d) cs4-. r cs16( b a b) a4-. a4-.\p( a-.)
a2.( a2.)(a2.)(a4) a,-.( a-.
\alternative {
\volta 1 { a\upbow\< bf\!\> cs!-1\!) }
\volta 2 { \after 4 \> \after 2 \! a2(\< as4)\! }
}
}
}
\repeat volta 2 {
\dslurr b,4\p b b2. a'2.\f g4( b e) ds( fs a) g( e as, b) b,-.(\p b-.)
\after 4 \> \after 2 \! b2(\< bs4)\!
\dslurr cs\p cs cs2. b'2.\f a4( cs fs) es( gs b) a( fs bs,-2) cs( es_2 gs) fs( bs,-._1 bs-.) \decresc cs-.( cs-. cs-.)
cs2( cs8._\reverseturn) ( d16_1) \!
e4\p( cs a) g!-0( e cs)
\mark D
\dslur d d2.-0 g2.-2 \stemUp fs4-.\( b-3( a)\) \stemNeutral d2-0 cs16(\upbow b a b)
a4-._\( a_( b)\) c2 b16\upbow( a gs a) gs4-.\( b( ds)\) e2 d16-3\upbow( cs b cs) b4 b( cs)
d2 cs16-4( b as b) as4 cs( es) fs2 e!16-4( d cs d)
cs4 cs( d) e2 d16( cs b cs)
\none b'8(\f fs) d cs b a g fs e
\none d( fs) b fs( b) d b( d) fs
\none b( fs) ds cs b a gs fs e
\none ds( fs) b fs( b) ds b( ds) fs
\none b( g!) e d! c b a g fs
\none e( g) b g( b) e b( e) g
\repeat unfold 2 { \none b( a) fs b,( ds) fs b( a) fs }
\none g(\cresc e) b' g( e) b' g( e) b'
\none gs( e) b' gs( e) b' gs( e) b' \!
\none gs(\ff es) b' gs( es) b' gs( es) b' gs4 r r
\dslurr fs,\p fs fs2.-1( b2.) a4-.\( d( cs) \) fs2 e16( d cs d) cs4 r r
\mark E
fs2.(\f ^"I" fs)( fs)\((\upbow fs4) e-.\) e_4\(( e) d-.\) d( d) es, es fs fs\p-.( fs-.)
\none fs8( as_2 b cs b as b_1 ^"III" cs d) e2->( d4)
\none fs,8( as_2 b cs b as b_1 cs d) e2->( d4)
g2.( fs_3 e d4) b'( as a_3 gs g fs es e) e-4( d cs) \dslurr d\cresc d \!
b\(( d) d-.\) d2\fz \tri e8( cs as) b4-. d_1\p( d') as2( b4)
r d,( d') gs,2_1( a!4_2) r c,( c') cs,2-1( g'!4 b-.) r r
r a( g e'-._0) r r r g,( fs d'-.) r r
r e,( d) r d(\cresc c)\! r c( b) r b( a) r a(\f g) fs b,-. b-. b-. r r
R2.^"1"_"G.P."
\mark F
g4-.\p( g-. g-.) g2.( c-2) b4-.\( e-3( d)\) g2-0 fs16-4( e d e) d4 r r
b''-.\f b-. b-. a2 b8( fs) g4-. g-. g-. g-. r r
d,-.\p( d-. d-.) d2.-0( g-2) fs4-._\( b-3_( a)\) d2-0 cs16( b a b) a4 r r
e-.-1( e-. e-.) e( g-1 b) a2._\(( a4) b( g)\) fs2( g8 e) d4 r r
c-.\pp( c-. c-.) c2( b4) g'-.( g-. g-.) fs_\(( g-1) b-.\) a( g fs-2)
e a\f a
\mark G
\none a8\(( cs) d-.\) e( d) cs d-1( e) fs g2->( fs4)
\none a,,8\(( cs) d-._2\) e( d) cs d_0( e) fs g2->( fs4)
b2._3->
\none a8( cs) b a cs d e fs-1 g a2.->( a4\p) g( fs)
g2.->( \none g8) a( g fs-2 g fs e fs g)
fs2.->( \none fs8) e( fs g fs e d_4 cs b)
a4 a-.\pp( a-.) a2.( a4) d'( cs) cs_3\( b\trill a( a)\) \tri b8( g e) fs4\(( fs) e-.\) \tri g8( e c-1) d4-1 r r
\mark H
\dslurr ds,\p^"III" ds ds( e) b'-3\(( b)( a) cs,-.\)
d!-.\f d-. d-.
d4.-0 e16( fs g a b cs d4-.) d'4.( cs8) cs4-. c2\fz
\none b8_4\downbow( a) g fs( e) g fs( e) cs
\none d( cs) d e( d) cs b( a) e'
\none cs( a) e' cs( a) e' cs( a) e'-2
\none d d' cs b a g fs( e) d
\none cs-2( a) e' cs( a) e' cs( a) e'-2
\none d d' cs b a g fs( e) d
\none cs-2( a) e' cs( a) e' cs( a) e'-2
\none d d,\ff( e fs-.) d( fs a-.) fs( a_2 c4-.) r r
r b\upbow\p( b') fs2( g4) d2( e8 cs) d4-.\( fs( g a)\) d( c b) r r
r a( g) r g\upbow( fs) b2.->( b8) a( gs a gs a) a2.-1( a4) d( cs c b bf_4 a gs g) fs2--\( \tri b8( g e) \)
\mark I
d4 \tri r8\mf b'-2\downbow( cs \tri d cs b) a4-. r r
r \tri r8 b-4( a \tri g a b) fs4-. r fs16-3( e d e) d4-. r r
r \tri r8 e-4( d \tri cs d e) fs4-. \tri r8 g( a \tri b a g) fs4-. r fs16-3( e d e)
\alternative {
\volta 1 { d4 d-.(\p d-.) d2.( d2.)( d2.)( d4) d,-.( d-.) \after 4 \> \after 2 \! d2\upbow(\< c4)\! }
\volta 2 { d'4 d-.(\p d-.) d2.( d4) d,-0\upbow cs'16-4( b a b) a4 r a16-4( g fs g) fs4 r fs16-4( e d e) d4 d-.(\pp d-.) d-. r r \bar "|." }
}
}
}
scoreBViolinI = \relative c' {
\parttwo
% music here
\partial 8 a'8\upbow\p_"dolce" |
d4-1 e8( f) cs-2( d) bf4
a8-4\(( d16.-0) d,32-0-.\) e8.( f32 g) g( f e d) d8-. r a'\upbow
d4-1 e8\(( f16.) a,32-0-.\) bf4( bf8) g'16.-4( bf,32) a8\(( bf16.) g32-.-3\) f8( e16. g64 e) f4 r8 \bar ":..:"
a8-2\upbow c4( bf8) a g\(( a16.) fs32-.-2\) g8 d'-1\upbow d8.(\< e16 f8) gs,\! gs4\>( bf8)\! a'_3\pp^"I" a8( g4) bf8-2\cresc
\grace { a16( bf c } bf16)( a) a4 c8( c) bf4 bf32( c bf c) d2(\f\! d8) f,4\decresc\(( g16.) e32-.\) d4\! r8 \bar ":|."
\break
% Variation 1
<<
{
\partial 8 r8 |
R2
r4 r8 e,\p
}
\new CueVoice {
\partial 8 a8^"Viol.II."^\markup { \huge \halign #.6 "Var. I." } |
cs16 d r a' r g r f e cs d a \stemDown b a32 g \stemNeutral r16
}
>>
}
scoreAViolinII = \relative c'' {
\partone
% Music follows here.
\dslurr d,_2\p\downbow d d2.( cs) d4-0-.\( g( fs)\) fs2 a16( g fs g) fs4 r r
\dslurr d-4 d d2.( d2.) d4( a d) fs2( \afterGrace { e4\trill } { d16 e } d4) r r
\dslurr d4-2 d d2.( cs) d4-.-0\( g( fs)\) fs2 a16( g fs g) fs4 r r
\dslur e e2\( g4( g) e\) fs\(( fs) g-2( e)\) d2( \afterGrace { cs4\trill } { b16 cs } d4) r r
\dslurr c\pp c a2( g4) \dslur b b2--( g'4-.) fs2( e4) d r r
\mark A
<d b'>-.\f <d b'>-. <d b'>-. <d b'>-. r r
\dslurr fs\p fs gs2.( a4) a-.( a-.) a-. r r
<e c'>-.\f <e c'>-. <e c'>-. <e c'>-. r r
\dslurr ds\p ds ds2.\(( e2) a4_2-.\) b_\(_(\< gs) gs-.\) \! a\f fs2_2( e4) r r
a\(( fs) fs-.\) e r r e r r fs r r b, r r
b'2->( a4) R2.^"1" b2->\downbow( cs4) cs\(( b) b-.\) b2. a4( cs e-2) fs2.->\p\(( fs4) e( d)\)
e2.->\(( e4) d_3( cs)\) d2.\(( d2.\pp)( d2.) cs4\) a_4-.( a-.) a2. gs2( a4) fs2( d4) cs r r
\mark B
\dslurr as\p as as( b) d\((\=1( d) cs\=1) b-.\) a-.\f a-. a-. a4. b16( cs d-4 e fs gs a4-.) e r
}
scoreAViola = \relative c' {
\partone
% Music follows here.
}
scoreACello = \relative c {
\partone
% Music follows here.
}
scoreAViolinIPart = \new Staff \with {
instrumentName = "Violin I"
midiInstrument = "violin"
} \scoreAViolinI
scoreBViolinIPart = \new Staff \with {
instrumentName = "Violin I"
midiInstrument = "violin"
} \scoreBViolinI
scoreAViolinIIPart = \new Staff \with {
instrumentName = "Violin II"
midiInstrument = "violin"
} \scoreAViolinII
scoreAViolaPart = \new Staff \with {
instrumentName = "Viola"
midiInstrument = "viola"
} { \clef alto \scoreAViola }
scoreACelloPart = \new Staff \with {
instrumentName = "Cello"
midiInstrument = "cello"
} { \clef bass \scoreACello }
%
%\bookpart {
% \header {
% subtitle = "I"
% }
% \score {
% \scoreAViolinIPart
% \layout { }
% }
%}
%
\bookpart {
\header {
title = "II"
subtitle = " "
opus = ""
composer = ""
}
\score {
\scoreBViolinIPart
\layout { }
}
}
%\bookpart {
% \header {
% subtitle = "I"
% }
% \score {
% \scoreAViolinIIPart
% \layout { }
% }
%}
%\score {
% <<
% \scoreAViolinIPart
% \scoreAViolinIIPart
% \scoreAViolaPart
% \scoreACelloPart
% >>
% \layout { }
% \midi {
% \tempo 4=120
% }
%}
\version "2.24.3"
\language "english"
\header {
title = "String Quartett op. 20, nr. 4"
composer = "Jospeh Haydn"
opus = "op. 20"
tagline = "(p) Hans Dijkema 2026"
}
\paper {
#(set-paper-size "a4")
% Add space for instrument names
indent = 25\mm
}
partone = {
\key d \major
\time 3/4
\tempo "Allegro di molto"
}
parttwo = {
\key f \major
\time 2/4
\tempo "Un poco Adagio, affetuoso."
}
\include "lilypond-hd/functions.ly"
ddot = #(define-music-function
(n)
(ly:music?)
(let ((stripped_n (forceAccidental 0 (stripArticulations (rmtext (flattenPitch n))))))
;(display stripped_n)(newline)
#{
$n -. $stripped_n -. $stripped_n -.
#}
)
)
dslur = #(define-scheme-function
(n)
(ly:music?)
(let ((stripped_n (forceAccidental 0 (stripArticulations (rmtext (flattenPitch n))))))
;(display stripped_n)(newline)
#{
$n -. ($stripped_n -. $stripped_n -.)
#}
)
)
% First violin pieces
vIFirst = { \relative c' { \dslur d4\p\downbow-2 d2.-0( g-2) \stemUp fs4_\(-. b-3_( a)\) \stemNeutral d2\open c16-4 (b a b )a4 r r } }
scoreAViolinI = \relative c' {
\partone
% Music follows here.
\repeat volta 2 {
\vIFirst
\relative c' \dslur d4 { d2.-4( b2. ) a4 (d-0 fs-1) a2 (\afterGrace { g4\trill } { fs16 [g ] } fs4) r r }
\vIFirst
\relative c' { \ddot e4-1 e _\(g b\) a2. _\((a4) b _(g) \) fs2-2 (g8 e8 d4) r r }
\relative c' { \dslur c4 c2 (b4) g'4-. (g-. g-.) fs _\( (g) b-.\) a2 (\relative c' cs!4 ) d, r r }
\mark A
\relative c'' {
{\none b8-1\f d fs b fs d b fs d } b4 r r
%\times 2/3 { b8-1\f d fs } \times 2/3 { b fs d } \times 2/3 { b fs d } b4 r r
d'4-. (d-. d-.) d2 (e8 _\( b \) ) cs4-. (cs-. cs-.) cs-. r r
{\none a8\f c e a e c a e c} a4 r r
a'-.\p (a-. a-.) a-0 (b) c (c) b (ds-1) e2.
(\none e8\f) ds (e) fs e d c-2 b a gs4 r e'-2
(\none e8) ds (e) fs e d c-2 b a gs4 r r
{\none a8 (cs) e a gs fs e d cs }
{\none b (fs'-3) e d cs-2 b a gs fs }
{\none e \downbow (gs) a-.-2 \upbow b (a) gs a-0 (b) cs }
d2-> (cs4) fs2.->_3
{\none e8 (gs) fs e g a b cs-1 d }
e2.-> (e4\p) d (cs) d2.-> (d4) cs-2 (bs)
cs2.-> \(\none cs8\) bs \(cs d cs b a_4 gs fs\)
e4 e-.\pp (e-.)
e2. (e4) a (gs) gs \(fs\trill e (e)\) {\tri fs8 (d b)} cs4 \((cs) b\) {\tri d8 (b gs_1)} a4 r r
\mark B
\ddot as,-.\p as (b) fs'-4\( (\=1(fs\=1) e) gs,-.\)
\ddot a!\f
a4. b16 (c-1 d e-1 fs gs a4-.) a'4.-3 (gs8) gs4-. g2\fz
\none fs8\downbow( e) d cs( b) b' b( b,) a'
\none a( gs) a b a gs fs e b'
\repeat unfold 2 {
\none gs( e) b' gs( e) b' gs( e) b'
\none a gs fs e d cs b( a) b'
}
\none gs( e) b' gs( e) b' gs( e) b'
\none a a,(\ff b cs-.) a( cs e-.) cs( e_2 g4-.) r r
\mark C
r fs,-1\p\upbow( fs') cs2( d4) a2( b8 gs) a4-.\( cs_2\=1( d e\=1)\) a( g fs) r r
r e( d) r d\upbow( cs) fs2.-3(-> fs8) e( ds e ds e-1) e2.( e4) a( gs g fs f_3 e ds d_3)
cs2--\( \tri d8( b gs) \) a4-4 \tri r8\mf fs'\downbow( gs \tri a gs fs) e4-. r r
r \tri r8 fs-3( e \tri d e fs) cs4-. r cs16( b a b) a4-. r r
r \stemDown \tri r8 b(\downbow a \tri gs a b) \stemNeutral
cs4-. \tri r8 d( e \tri fs e d) cs4-. r cs16( b a b) a4-. a4-.\p( a-.)
a2.( a2.)(a2.)(a4) a,-.( a-.
\alternative {
\volta 1 { a\upbow\< bf\!\> cs!-1\!) }
\volta 2 { \after 4 \> \after 2 \! a2(\< as4)\! }
}
}
}
\repeat volta 2 {
\dslur b,4\p b2. a'2.\f g4( b e) ds( fs a) g( e as, b) b,-.(\p b-.)
\after 4 \> \after 2 \! b2(\< bs4)\!
\dslur cs\p cs2. b'2.\f a4( cs fs) es( gs b) a( fs bs,-2) cs( es_2 gs) fs( bs,-._1 bs-.) \decresc cs-.( cs-. cs-.)
cs2( cs8._\reverseturn) ( d16_1) \!
e4\p( cs a) g!-0( e cs)
\mark D
\dslur d d2.-0 g2.-2 \stemUp fs4-.\( b-3( a)\) \stemNeutral d2-0 cs16(\upbow b a b)
a4-._\( a_( b)\) c2 b16\upbow( a gs a) gs4-.\( b( ds)\) e2 d16-3\upbow( cs b cs) b4 b( cs)
d2 cs16-4( b as b) as4 cs( es) fs2 e!16-4( d cs d)
cs4 cs( d) e2 d16( cs b cs)
\none b'8(\f fs) d cs b a g fs e
\none d( fs) b fs( b) d b( d) fs
\none b( fs) ds cs b a gs fs e
\none ds( fs) b fs( b) ds b( ds) fs
\none b( g!) e d! c b a g fs
\none e( g) b g( b) e b( e) g
\repeat unfold 2 { \none b( a) fs b,( ds) fs b( a) fs }
\none g(\cresc e) b' g( e) b' g( e) b'
\none gs( e) b' gs( e) b' gs( e) b' \!
\none gs(\ff es) b' gs( es) b' gs( es) b' gs4 r r
\dslur fs,\p fs2.-1( b2.) a4-.\( d( cs) \) fs2 e16( d cs d) cs4 r r
\mark E
fs2.(\f ^"I" fs)( fs)\((\upbow fs4) e-.\) e_4\(( e) d-.\) d( d) es, es fs fs\p-.( fs-.)
\none fs8( as_2 b cs b as b_1 ^"III" cs d) e2->( d4)
\none fs,8( as_2 b cs b as b_1 cs d) e2->( d4)
g2.( fs_3 e d4) b'( as a_3 gs g fs es e) e-4( d cs) d-.(\cresc d-. d-.)\!
b\(( d) d-.\) d2\fz \tri e8( cs as) b4-. d_1\p( d') as2( b4)
r d,( d') gs,2_1( a!4_2) r c,( c') cs,2-1( g'!4 b-.) r r
r a( g e'-._0) r r r g,( fs d'-.) r r
r e,( d) r d(\cresc c)\! r c( b) r b( a) r a(\f g) fs b,-. b-. b-. r r
R2.^"1"_"G.P."
\mark F
g4-.\p( g-. g-.) g2.( c-2) b4-.\( e-3( d)\) g2-0 fs16-4( e d e) d4 r r
b''-.\f b-. b-. a2 b8( fs) g4-. g-. g-. g-. r r
d,-.\p( d-. d-.) d2.-0( g-2) fs4-._\( b-3_( a)\) d2-0 cs16( b a b) a4 r r
e-.-1( e-. e-.) e( g-1 b) a2._\(( a4) b( g)\) fs2( g8 e) d4 r r
c-.\pp( c-. c-.) c2( b4) g'-.( g-. g-.) fs_\(( g-1) b-.\) a( g fs-2)
e a\f a
\mark G
\none a8\(( cs) d-.\) e( d) cs d-1( e) fs g2->( fs4)
\none a,,8\(( cs) d-._2\) e( d) cs d_0( e) fs g2->( fs4)
b2._3->
\none a8( cs) b a cs d e fs-1 g a2.->( a4\p) g( fs)
g2.->( \none g8) a( g fs-2 g fs e fs g)
fs2.->( \none fs8) e( fs g fs e d_4 cs b)
a4 a-.\pp( a-.) a2.( a4) d'( cs) cs_3\( b\trill a( a)\) \tri b8( g e) fs4\(( fs) e-.\) \tri g8( e c-1) d4-1 r r
\mark H
\dslur ds,\p^"III" ds( e) b'-3\(( b)( a) cs,-.\)
d!-.\f d-. d-.
d4.-0 e16( fs g a b cs d4-.) d'4.( cs8) cs4-. c2\fz
\none b8_4\downbow( a) g fs( e) g fs( e) cs
\none d( cs) d e( d) cs b( a) e'
\none cs( a) e' cs( a) e' cs( a) e'-2
\none d d' cs b a g fs( e) d
\none cs-2( a) e' cs( a) e' cs( a) e'-2
\none d d' cs b a g fs( e) d
\none cs-2( a) e' cs( a) e' cs( a) e'-2
\none d d,\ff( e fs-.) d( fs a-.) fs( a_2 c4-.) r r
r b\upbow\p( b') fs2( g4) d2( e8 cs) d4-.\( fs( g a)\) d( c b) r r
r a( g) r g\upbow( fs) b2.->( b8) a( gs a gs a) a2.-1( a4) d( cs c b bf_4 a gs g) fs2--\( \tri b8( g e) \)
\mark I
d4 \tri r8\mf b'-2\downbow( cs \tri d cs b) a4-. r r
r \tri r8 b-4( a \tri g a b) fs4-. r fs16-3( e d e) d4-. r r
r \tri r8 e-4( d \tri cs d e) fs4-. \tri r8 g( a \tri b a g) fs4-. r fs16-3( e d e)
\alternative {
\volta 1 { d4 d-.(\p d-.) d2.( d2.)( d2.)( d4) d,-.( d-.) \after 4 \> \after 2 \! d2\upbow(\< c4)\! }
\volta 2 { d'4 d-.(\p d-.) d2.( d4) d,-0\upbow cs'16-4( b a b) a4 r a16-4( g fs g) fs4 r fs16-4( e d e) d4 d-.(\pp d-.) d-. r r \bar "|." }
}
}
}
scoreBViolinI = \relative c' {
\parttwo
% music here
\partial 8 a'8\upbow\p_"dolce" |
d4-1 e8( f) cs-2( d) bf4
a8-4\(( d16.-0) d,32-0-.\) e8.( f32 g) g( f e d) d8-. r a'\upbow
d4-1 e8\(( f16.) a,32-0-.\) bf4( bf8) g'16.-4( bf,32) a8\(( bf16.) g32-.-3\) f8( e16. g64 e) f4 r8 \bar ":..:"
a8-2\upbow c4( bf8) a g\(( a16.) fs32-.-2\) g8 d'-1\upbow d8.(\< e16 f8) gs,\! gs4\>( bf8)\! a'_3\pp^"I" a8( g4) bf8-2\cresc
\grace { a16( bf c } bf16)( a) a4 c8( c) bf4 bf32( c bf c) d2(\f\! d8) f,4\decresc\(( g16.) e32-.\) d4\! r8 \bar ":|."
\break
% Variation 1
<<
{
\partial 8 r8 |
R2
r4 r8 e,\p
}
\new CueVoice {
\partial 8 a8^"Viol.II."^\markup { \huge \halign #.6 "Var. I." } |
cs16 d r a' r g r f e cs d a \stemDown b a32 g \stemNeutral r16
}
>>
}
scoreAViolinII = \relative c'' {
\partone
% Music follows here.
\dslur d,4_2\p\downbow d2.( cs) d4-0-.\( g( fs)\) fs2 a16( g fs g) fs4 r r
\dslur d-4 d2.( d2.) d4( a d) fs2( \afterGrace { e4\trill } { d16 e } d4) r r
\dslur d4-2 d2.( cs) d4-.-0\( g( fs)\) fs2 a16( g fs g) fs4 r r
\dslur e e2\( g4( g) e\) fs\(( fs) g-2( e)\) d2( \afterGrace { cs4\trill } { b16 cs } d4) r r
\dslur c\pp a2( g4) \dslur b b2--( g'4-.) fs2( e4) d r r
\mark A
<d b'>-.\f <d b'>-. <d b'>-. <d b'>-. r r
\dslur fs\p gs2.( a4) a-.( a-.) a-. r r
<e c'>-.\f <e c'>-. <e c'>-. <e c'>-. r r
\dslur ds\p ds2.\(( e2) a4_2-.\) b_\(_(\< gs) gs-.\) \! a\f fs2_2( e4) r r
a\(( fs) fs-.\) e r r e r r fs r r b, r r
b'2->( a4) R2.^"1" b2->\downbow( cs4) cs\(( b) b-.\) b2. a4( cs e-2) fs2.->\p\(( fs4) e( d)\)
e2.->\(( e4) d_3( cs)\) d2.\(( d2.\pp)( d2.) cs4\) a_4-.( a-.) a2. gs2( a4) fs2( d4) cs r r
\mark B
\dslur as\p as( b) d\((\=1( d) cs\=1) b-.\) a-.\f a-. a-. a4. b16( cs d-4 e fs gs a4-.) e r
}
scoreAViola = \relative c' {
\partone
% Music follows here.
}
scoreACello = \relative c {
\partone
% Music follows here.
}
scoreAViolinIPart = \new Staff \with {
instrumentName = "Violin I"
midiInstrument = "violin"
} \scoreAViolinI
scoreBViolinIPart = \new Staff \with {
instrumentName = "Violin I"
midiInstrument = "violin"
} \scoreBViolinI
scoreAViolinIIPart = \new Staff \with {
instrumentName = "Violin II"
midiInstrument = "violin"
} \scoreAViolinII
scoreAViolaPart = \new Staff \with {
instrumentName = "Viola"
midiInstrument = "viola"
} { \clef alto \scoreAViola }
scoreACelloPart = \new Staff \with {
instrumentName = "Cello"
midiInstrument = "cello"
} { \clef bass \scoreACello }
\bookpart {
\header {
subtitle = "I"
}
\score {
\scoreAViolinIPart
\layout { }
}
}
\bookpart {
\header {
title = "II"
subtitle = " "
opus = ""
composer = ""
}
\score {
\scoreBViolinIPart
\layout { }
}
}
\bookpart {
\header {
subtitle = "I"
}
\score {
\scoreAViolinIIPart
\layout { }
}
}
%\score {
% <<
% \scoreAViolinIPart
% \scoreAViolinIIPart
% \scoreAViolaPart
% \scoreACelloPart
% >>
% \layout { }
% \midi {
% \tempo 4=120
% }
%}