Een eerste ding

Signed-off-by: Hans Dijkema <hans@dijkewijk.nl>

Joseph-Haydn-Die-Sieben-Wörte-des-Erlösers.ly

@@ -0,0 +1,131 @@
+\version "2.24.4"
+\language "english"
+
+\header {
+  title = "Die Sieben Wörte des Erlösers"
+  subtitle = "Streichquartett"
+  composer = "Joseph Haydn"
+  piece = "Nr. 17"
+  opus = "Op. 51"
+  copyright = "(p) Hans Dijkema - CC-BY-NC-SA-3.0"
+  tagline = "(p) Hans Dijkema - CC-BY-NC-SA-3.0"
+}
+
+\paper {
+  #(set-paper-size "a4")
+  % Add space for instrument names
+  indent = 10\mm
+}
+
+\layout {
+  \context {
+    \Voice
+    \consists "Melody_engraver"
+    %\consists "Ambitus_engraver"
+    \override Stem.neutral-direction = #'()
+  }
+}
+
+fr = #(define-scheme-function
+         (n)
+         (ly:music?)
+         #{
+           $n $n $n $n
+         #}
+         )
+
+global = {
+  \key f \major
+  \time 4/4
+  \tempo "Maeestoso ed Adagio" 8=72
+}
+
+introduzione = { 
+  \key f \major
+  \time 4/4
+  \tempo "Maeestoso ed Adagio" 8=72
+}
+
+scoreAViolinI_introduzione = \relative c'' {
+  \introduzione
+  % Muziek volgt hier.
+  \relative c' {
+    d4\ff d'8.. d32-. cs8-. bf'-. r4   a,, g''8.. g32-. f8-. d'-. r4 
+    f,,2\p( e4. fs16. g32)   g4 r8 bf16.( a32) a8-. r r bf'16.( a32) a8-. r r b,16.\fz( a32) a16-.\p r g-. r f-. r e-. r 
+    d4\f d'8.. d32-. cs8-. bf'-. r4  c,,4 ef'8.. ef32 d16 d'-.\ff d-. d-. \fr d-. 
+    d8\fz( d32)( c bf a) \fr g16-. c8\fz( c32)( bf a g) \fr fs16-.
+    g8 \acciaccatura a g32( fs g a) \fr bf16-.  <e,, cs'>-. r <f d'>-. r <a g'>-. r <a f'>-. r 
+    <a e'>8 r f'16.(\fz d32) f16.(\fz d32) cs8 a' gs4( a8) r8 f,16.(\fz d32) f16.(\fz d32) cs8 a' gs4( a8) a,-. a-. a-. a2\fermata 
+    
+    \mark A
+    
+    f'4\p f'8..( e32) e8-. r8 r4 c,4 b''8..( a32) a8-. r r4
+    f,4\f af'8..( f32) df4.( c8) b8-. c-. r4 bf8\p( a) r4 <f d'>8-.\f <f c'>-. r4 b2\p( bf4.)( \stemDown a8) \stemNeutral fs( g b d) f,!4( \acciaccatura a8 g8. f16) f4 r8. bf16\f
+    bf8 g16. bf'32 bf16-. g-. e-. bf-.  a8-. a'-. r8. f16-.\p f8\(( g,16-.) r32 d'-.\) d8\(( d,16-.) r32 bf'-.\) bf4( g8 e)  
+    f\f <g bf>4\fz <f a>8 g <e d'>4\fz <f c'>8   <g bf> b'4\sf a8 <bf, g'> r <g bf e> r <f a f'>4 r4 r2
+    af4\p df8..( c32)  c8-.\f gf'-. r4 
+    af,4\p( a8.. bf32) bf8( f'-.) r8 bf,16.( a32) a8( f'-.) r c16.( bf!32) bf8( f'-.) r8 bf,16.( a32) a8( f'-.) r c16.(\fz b32) b8( g'-.) r b,16.\p( c32) 
+    c8( g'-.) r c,16.( b32) b8( g'-.) r d16.(\fz cs32) cs8( a'-.) r cs,16.\p( d32) d8( a'-.) r d16.\f( f32) f8-. d-.  bf!-. gs-. a4
+    f16.\fz( d32) f16.\fz( d32) cs8 a' gs4( a8) r   f,16.\fz( d32) f16.\fz( d32)  cs8 a' gs4( a8) a,-. a-. a-. a1\fermata
+    
+    \mark B
+    d4\f d'8.. d32-. cs8-. bf'-. r4   a,, g''8.. g32-. f8-. d'-. r4 
+    f,,2\p( e fs) g8( a bf a)  g( f e d) cs16 <a' a'>-.\f <a a'>-. <a a'>-. \fr <a a'>-.  
+    g'8\fz( g32)( f e d) \fr cs16-. a'8\fz( a32)( g f e) \fr d16-. 
+    bf'8\fz( a32)( g f ef) c'8\fz( bf32)( a g fs) d'8.\fz c16-.( bf-.\p a-. g-. f-.)  e!8 r16  f32( a) g16-.( f-. e-. d-.) cs8-. d-. r4
+    
+    
+    
+    
+  }
+}
+
+scoreAViolinII_introduzione = \relative c'' {
+  \global
+  % Muziek volgt hier.
+  
+}
+
+scoreAViola_introduzione = \relative c' {
+  \global
+  % Muziek volgt hier.
+  
+}
+
+scoreACello_introduzione = \relative c {
+  \global
+  % Muziek volgt hier.
+  
+}
+
+scoreAViolinIPart_introduzione = \new Staff \with {
+  instrumentName = "Vl. I"
+} \scoreAViolinI_introduzione
+
+scoreAViolinIIPart_introduzione = \new Staff \with {
+  instrumentName = "Vl. II"
+} \scoreAViolinII_introduzione
+
+scoreAViolaPart_introduzione = \new Staff \with {
+  instrumentName = "Avl."
+} { \clef alto \scoreAViola_introduzione }
+
+scoreACelloPart_introduzione = \new Staff \with {
+  instrumentName = "Cl."
+} { \clef bass \scoreACello_introduzione }
+
+
+\score {
+  \scoreAViolinIPart_introduzione
+  \layout { }
+}
+
+\score {
+  <<
+    \scoreAViolinIPart_introduzione
+    \scoreAViolinIIPart_introduzione
+    \scoreAViolaPart_introduzione
+    \scoreACelloPart_introduzione
+  >>
+  \layout { }
+}