diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..a5cbf12
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,8 @@
+# ---> Lilypond
+*.pdf
+*.ps
+*.midi
+*.mid
+*.log
+*~
+
diff --git a/.gitmodules b/.gitmodules
new file mode 100644
index 0000000..ae42512
--- /dev/null
+++ b/.gitmodules
@@ -0,0 +1,3 @@
+[submodule "lilypond-hd"]
+	path = lilypond-hd
+	url = https://git.dijkewijk.nl/hans/lilypond-hd.git
diff --git a/Joseph-Haydn-String-Quartet-No-38.ly b/Joseph-Haydn-String-Quartet-No-38.ly
new file mode 100644
index 0000000..f450fe3
--- /dev/null
+++ b/Joseph-Haydn-String-Quartet-No-38.ly
@@ -0,0 +1,152 @@
+\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
+}
+
diff --git a/lilypond-hd b/lilypond-hd
new file mode 160000
index 0000000..717b32c
--- /dev/null
+++ b/lilypond-hd
@@ -0,0 +1 @@
+Subproject commit 717b32cecebc6e139ab8c05c033e65a55cad886f