\version "2.24.3"
\language "english"

\include "lilypond-hd/functions.ly"
\include "lilypond-hd/string-quartet.ly"

#(define sqCustomMoment (ly:make-moment 3/16))

\header {
  title = "String Quartet No. 38"
  composer = "Joseph Haydn"
  opus = "Op. 33, Nr. 2."
  copyright = \markup { \fontsize #-8 { "2026 - H.N.M. Dijkema - CC-BY-NC-SA-3.0 - Lilypond " #(lilypond-version) } }
  tagline = \markup { \fontsize #-8 { "2026 - H.N.M. Dijkema - CC-BY-NC-SA-3.0 - Lilypond " #(lilypond-version) } }
}

\layout {
  \context {
    \Voice
    \consists "Melody_engraver"
    %\override Stem #'neutral-direction = #'()
  }
}

partI = { 
  \key ef \major
  \time 4/4
  \partial 8
  \tempo "Allegro moderato, cantabile"
}  

scorePartIViolinI = \relative c' {
  \partI
  % Muziek volgt hier.
  bf16\upbow\mf( ef) |
  ef2 bf'4.( a16 f) | ef8-. g-. bf-. ef16( bf) bf4.( b8) | c2 af4.( f16 d) |
  ef8-. g-. bf-. af16( f) ef4 r8 bf16\downbow\p( ef) |
  ef8-. bf16( f') f8-. bf,16( g') g8-. r r bf,16-1\downbow( g') | 
  g8-. bf,16( af') af8-. bf,16( bf') bf8-. r r bf16-1\upbow( bf') |
  bf16(\fz af) bf, af' af\fz( g) bf, bf' bf\fz( af) bf, af' af(\fz g) c,-1 c' |
  c8. g16 bf( af g f) ef4(\> d8)\! bf,16\upbow\mf([ ef]) |
  ef2 bf'4.( af16 f) | ef8-. g-. bf-. ef16( bf) bf4.( b8) |
  \acciaccatura d8 c2 af4.( f16 d) | ef8-. g-. bf-. af16( f) ef4 r8 bf'16(\upbow g') |
  
  \mark A
  g2\(( af4.) b,8-.\) | c8-. ef-. g-. ef16( c) bf!4( a) | bf8-.\p d-. f-. d16( b) c8-. ef-. g-. ef16( c) |
  d8-. f-. bf!-. f16( d) e8-. g-. bf-. g16( e-0) |
  f8-4\mf c16( a-0) f'8-4 e16( c) f8 c16( a) f'8 e16( c) |
  f8 c16( a) f'8 d16-3( bf) f'8 ef!16( c) f8 d16( bf) |
  f4.( fs16\> g\!) g4. ef'16\upbow\>( c\!) |
  bf4\(( a8) bf-.\) \turnNaturalBetween c8.\upbow d16\downbow ef8-. f,16\upbow( bf)
  bf8-.\cresc bf-.\! bf\turn^\markup { \super \musicglyph #"accidentals.natural" } c16( a) bf8-. d-. d\turn ef16( c) |
  d8-. f-.-3 f\turn[ g16( ef)] d8 <d, bf' bf'>\f[ <d bf' bf'> <d bf' bf'>] |
 \acciaccatura d'8-1 d'8. c16\> bf16 a g\! f f8\((\p e16-.) r16 g8( f16-.)\) r16 |
 c'8( ef,16-.) r16 ef8( d16-.) r16 fs8( g16-.) r16 a8( bf16-.) r16 |
  
 \mark B
 \stemDown \triG f,16-2\f bf a \stemNeutral \triGn c bf d \triGn c ef-2 d \triGn f ef g \triGn f bf a \triGn g-2 f ef \triGn d c bf \triGn a g f |
 \rep 2 \triGn e e e  \rep2 \triGn ef ef ef \triGn d( f) bf \triGn d f a bf8 fs(\upbow | 
 g16) r16 b8-1( c16) r16 ef(\upbow c) \triG bf( d) f-4 \triGn f f f \triGn f-4( d-3) bf \triGn f'( d) bf |
 f4_\markup { \italic "mezza voce" } c'(\trill \grace { \stemDown bf16 c) \stemNeutral } bf2~ | bf2~ bf4. f16-3\upbow\p( d) |
 g8-. ef16-4( c) ef8-. c16( a) \stemDown bf2~ | bf2~ bf4. b16\downbow( c) \stemNeutral | c8-. c16-1( ef) ef8-. f,16( bf) bf4 r8 
 \bar ":..:"
 
 \partial 8 { << { a8\rest } \new CueVoice { \stemDown f,16_"Vcello" bf \stemNeutral } >> } |
 << { \voiceOne bf'2\rest bf4\rest bf8\rest } \new CueVoice { \voiceTwo \stemDown bf,8 f16 d' c8 bf16 d d8 c8\rest c8\rest \stemNeutral } >>  \stemDown bf'16-1(\p\downbow ef) \stemNeutral |
 
 \override Staff.Rest.Y-offset = 0 
 ef8-. bf16( f') f8-. bf,16( g') g8 r8 r8 ef16-1\f\upbow( af!) |
 af2 ef'4.( df16 bf) | c2 bf8 bf,16-1\upbow( df) bf'8-. bf-. |
 af2 g4. c,16(\upbow f) | f2 c'4.-3( bf16 g-2) | af4( a) bf4.( af16 f) | g4 r r r8 bf,16(\upbow ef) |
 
 \mark C
 ef2-1  bf'4.( af16 f) | 
 ef8-. g-. bf-. ef16(\p bf) bf4. df16(\downbow c) |
 c4. cf16-3\upbow( bf) bf4. bf16-3\downbow( a) | a8-. a16-3( af-2) af8-. af16-3( g) g8 bf,16( gf') gf4\sf~ | 
 gf4. gf!16\upbow( af) af2~ | af8 f16\downbow( gf) gf4. ef16(\upbow f) f8-. af32( g f g) |
 af2~ af8 f16\downbow( gf) gf8-. bf32( a g a) | bf2~ bf8 g!16\upbow( af!) af8-. c32-3( b a b) | 
 c4. e,16\downbow( df') df8-. f,16( c') c8-. df,16( bf') |
 
 \mark D
 bf4 r af8\p r e-0 r |
 f1\downbow\cresc | fs1\upbow\! | g2 a2 | g8\mf d16( b) fs'8 ef!16( c) g'8 d16( bf) fs'8 ef16( c) |
 g'8 d16( b) g'8 ef16( c) g'8 f16( d) g8 ef16( c) |
 g'8 d16\<( b) g'8 ef16( c)\! \triG af'!16\f g f \triGn ef d c \triGn b! af! g \triGn f ef d |
 \triGn c b af! \triGn g b d \slurDown \triGn f( ef) d \slurNeutral \triGn a'( g) f \triGn ef g c \triGn a f d \triGn g( ef) c \triG f( d) b! |
 c8-.[ a'-.] g-. b-. r4 r8 g,16\p\upbow( c-1) | 
 
 \mark E
 c2 g'4.-0( f16-4 d) |
 c8-. ef-. g-. c16( g) g4. c16\downbow( f,-1) | f4. b16\upbow( f) f4. b16\downbow( f) |
 f8-. b16( f) f8-. b16( f) f8-. r r bf,!16\f\upbow( ef) |
 ef2 bf'4.( af16 f) | ef8-. g-. bf-. ef16( bf) bf4.( b8) | c2 af4.( f16 d) | ef8-. g-. bf-. af16( f) ef4 r8 bf16\p\downbow( ef) |
 ef8-. bf16( f') f8-. bf,16( g') g8 r r bf,16-1( g') | g8-. bf,16( af') af8-. bf,16( bf') bf8 r r bf16-1\upbow( bf') |
 \repeat unfold 3 { bf16(\sf af) bf, af' } af\sf( g) bf8-2\mf |
 
 \mark F
 c4( bf af g-2) | f af16( gf f ef) d8-.\p f-. af( f16 d) |
 ef8-. g!-. bf( g16 e-0) f8-. af-1-. c( af16 f) | g8-. bf-. ef!8-4( bf16-2 g) a8-. c-. ef-4( c16-3 a) |
 bf8\mf f16( d) bf'8 a16( f) bf8 (f16 d) bf'8 a!16( f) | bf8 f16( d) bf'!8 g16( ef) bf'8 (af!16-3_"I" f) bf8 g16\upbow( ef) |
 bf4.( b16\> c\!) c4. af'16\>\upbow( f)\! | ef4\(( d8) ef-.\) \turnNaturalBetween f8.\upbow g16\downbow a8 bf,16\upbow( ef) |
 ef8-.\cresc ef-.-2\! f32( ef d ef) f16( d) ef8-. g8-. af32-3_"I"( g f g) a16( f) |
 g8-. bf-. c32-3( bf af bf) c16( af) bf8 \rep 3 <g, ef' df'>8\f | <g ef'df'>4 r b'8\downbow\p( c16-.) r16 g8-2( af16-.) r16 |
 e8( f16-.) r16 g8( af16-.) r a8( bf16) r fs8( g16-.) r |
 d8( ef16-.) r f!8( g16-.) r af!8.\downbow\f f16\upbow ef16( d c bf) |
 
 \mark G
 af16( g f ef) d( c bf) af\upbow \triG g ef' d \triGn f ef g \triGn f af-2 g \triGn bf af c |
 \triGn bf ef d \triGn ef g f \triGn ef d c-2 \triGn bf af g \triGn f( af) c \triGn c c c \triGn c( f) af \triGn af af af |
 \triGn f( af-1) c \triGn c c c \triGn a( c-1) ef \triGn ef ef ef ef8.^\markup { \italic "ten." } bf16-1 \triGn ef16 bf g \triGn bf( g) ef |
 bf4\upbow f'(\trill \grace { ef16 f) } ef2~\mf ef2.. ef16-4\p\upbow( bf) |
 c8-. c16( f,) af8-. af16( d,) ef2 | ef2.. e16\downbow( f) |
 f8-. f16-1( af) af8-. bf,16( ef) ef4 r8 
 \bar ":|."
}

scorePartIViolinII = \relative c' {
  \partI
  % Muziek volgt hier.
  r8 |
  r8\mf \rep 3 ef-. r8 \rep 3 d-. | r8 \rep 3 ef-. r \rep 3 df-. | r \rep 3 c-. r d!-. d-. d-. |
  ef r d r ef4 r | r2 r8 fs'16\p( g) g8-. r |
  r2 r8 a16( bf) bf8-. r | bf,8 r8 \rep 3 { bf8\mf r8 } | c4 d16( c bf af) g4(\> f8)\! r8 |
  r8 \rep 3 ef-. r8 \rep 3 d-. | r8 \rep 3 ef-. r \rep 3 df-. | r \rep 3 c-. r d!-. d-. d-. | ef r d r ef4 r | 
  
  \mark A
  
}

scorePartIViola = \relative c' {
  \partI
  % Muziek volgt hier.
  
}

scorePartICello = \relative c {
  \partI
  % Muziek volgt hier.
  
}


\bookpart {
  \makeHdr "" ""
  \makeScoreVI \scorePartIViolinI
}

\bookpart {
  \makeHdr "" ""
  \makeScoreVII \scorePartIViolinII
}