From dc37f20b7dad6227ec04437b95fea3974cff83a5 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Mon, 19 Jan 2026 22:27:20 +0100 Subject: [PATCH] better support for stripping content --- Jospeh-Haydn-String-Quartett-Op-20-nr-4.ly | 690 ++++++++++----------- lilypond-hd | 2 +- 2 files changed, 332 insertions(+), 360 deletions(-) diff --git a/Jospeh-Haydn-String-Quartett-Op-20-nr-4.ly b/Jospeh-Haydn-String-Quartett-Op-20-nr-4.ly index 7640c06..b05f9d5 100644 --- a/Jospeh-Haydn-String-Quartett-Op-20-nr-4.ly +++ b/Jospeh-Haydn-String-Quartett-Op-20-nr-4.ly @@ -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 - -.\f -. -. -. r r - \dslurr fs\p fs gs2.( a4) a-.( a-.) a-. r r - -.\f -. -. -. 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 + -.\f -. -. -. r r + \dslur fs\p gs2.( a4) a-.( a-.) a-. r r + -.\f -. -. -. 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 +% } +%} diff --git a/lilypond-hd b/lilypond-hd index b4622b9..b80900f 160000 --- a/lilypond-hd +++ b/lilypond-hd @@ -1 +1 @@ -Subproject commit b4622b991f0c5d33dd4e0ba03980242d778fd10e +Subproject commit b80900f3673d9d40a2cc671e69954ba84011e5b2