\version "2.24.4"
\language "english"

%#(set-global-staff-size 15)

\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
  %page-count = 1
  %min-systems-per-page = #5
  %system-system-spacing.padding = #2  %fit staves closer together
  %system-system-spacing.stretchability = #20  %how flexible the spacing is
}

\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
    \stemUp <a g'>8-.\f <d, a' f'> r8. \stemNeutral f16\p e8( bf' a cs,) d4\fermata r8\fermata cs'16.\p( d32) d8( a'8-.) r8 ef16.( d32) d8( bf'8-.) r f16.( e32) e8( cs'-.) r cs16.( d32) 
    d8-. gs,16.( a32) a8-.  e16.( f32) f8-. r r  cs,16.( d32) d8-.  r r8.. d'32 d8( e,16.) b'32 b8( a16.) cs,32 
    d8\f g4\fz f8 e <g bf>4\fz <f a>8 g <a g'>4\fz  f'8 <g, bf! e> r <e cs'> r 
    r4 r8 cs'16.(\p d32) d8-. r r cs,16.( d32) d8-.(\pp d d d) d2\fermata 
    \bar "|."
  }
}

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 { 
    %#(layout-set-staff-size 16) 
  }
}

\score {
  <<
    \scoreAViolinIPart_introduzione
    \scoreAViolinIIPart_introduzione
    \scoreAViolaPart_introduzione
    \scoreACelloPart_introduzione
  >>
  \layout { }
}