\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
%  }
%}