Initial

Jospeh-Haydn-String-Quartett-Op-20-nr-4.ly

@@ -0,0 +1,359 @@
+\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
+%  }
+%}