\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 = #'()
  }
}

rmtext = #(define-scheme-function
           (o)
           (ly:music?)
           (define (f o)
             (ly:music-set-property! o 'text "")
             (let ((t (ly:music-property o 'name)))
               (let ((els (ly:music-property o 'elements)))
                 (if (null? els)
                     (let ((arts (ly:music-property o 'articulations)))
                       (map (lambda (a)
                              (f a))
                            arts))
                     (map (lambda (e)
                            (f e)
                            )	
                          els))))
             )
           (let ((oo (ly:music-deep-copy o)))
             (f oo)
             oo)
           )
           

rep = #(define-scheme-function 
        (n m)
        (index? ly:music?)
        (let ((nn (- n 1))
              (mm (rmtext m))
              )
          (if (> nn 0)
                #{
                  $m \repeat unfold $nn $mm
                #}
               #{
                 $m
               #}
              )
          )
        )

fr = #(define-scheme-function
        (n)
        (ly:music?)
        (let ((nf (ly:music-deep-copy n)))
          (let ((els (ly:music-property nf 'elements)))
            (map (lambda (e)
                   (ly:music-set-property! e 'text ""))
                 els)
            )
          #{
             $n $nf $nf $nf
          #}
          )
        )

frr = #(define-scheme-function
        (n)
        (ly:music?)
        (let ((nf (ly:music-deep-copy n)))
          (let ((els (ly:music-property nf 'elements)))
            (map (lambda (e)
                   (ly:music-set-property! e 'text ""))
                 els)
            )
          #{
             $n $nf $nf $nf $nf $nf $nf $nf
          #}
          )
        )
          

fig = #(define-music-function
        (a b c)
        (ly:music? ly:music? ly:music?)
        
        (define (with-duration-i m d)
           (map (lambda (n) (with-duration-i n d))
              (ly:music-property m 'elements)))
        
         (define (with-duration-internal m duration)
           (cond 
            ((or (music-is-of-type? m 'note-event) (music-is-of-type? m 'rest-event) (music-is-of-type? m 'skip-event))
              (ly:music-set-property! m 'duration (apply ly:make-duration duration)))
            ((music-is-of-type? m 'event-chord)
              (map (lambda (n) (with-duration-internal n duration))
                (ly:music-property m 'elements)))
            (else (ly:warning "Neither note event nor chord"))
            )
             m		
             )
        
        (define (with-duration m . d)
           (with-duration-internal (ly:music-deep-copy m) d))
        
        (define (adjust-first l)
          (if (null? l)
              'done
              (let ((e (car l)))
                (if (music-is-of-type? e 'note-event)
                    (adjust-pitch-i e)
                    (adjust-first (cdr l))))
              )
          )
        
        (define (adjust-pitch-i m)
          (cond 
           ((music-is-of-type? m 'note-event)
            (let ((p (ly:music-property m 'pitch)))
              (let ((pp (ly:make-pitch -1 (ly:pitch-notename p) 0)))
                (ly:music-set-property! m 'pitch pp)))
            )
           ((music-is-of-type? m 'event-chord)
            (adjust-first (ly:music-property m 'elements))
            )
           )
          m)
        
        (define (adjust-pitch a)
          (adjust-pitch-i (ly:music-deep-copy a)))
        
        #{ #(with-duration a 3 2) #(with-duration (adjust-pitch a) 5) -. $b -. $c -. #}
        )

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 \fig d' cs8 bf'  r4   a,, \fig g'' 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 \fig d' 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.
  \relative c' {
    d4\ff \fig <f a> <g bf>8 cs,  r4   a4  \fig <a' e'> <a f'>8 f r4  
    d2.\p( cs8) c-. <bf d> r r  cs16.( d32) d8-. r r cs'16.( d32)   d8-. r r cs,16.(\f d32) d16-. r e-.\p r d-. r cs-. r
    d4\f \fig <f a> <g bf>8 cs, r4  c!4 <fs a>8.. <fs a>32 <g bf>4 r
    \fr <d bf'>16\ff \fr <d bf'>  \fr <fs a>\fz \fr <ef c'>  \frr <d bf'> a' r a r e' r d r cs8 a8 gs4 a8 cs!16. e32  f16.(\fz d32) f16.(\fz d32) 
    cs8 r gs,4 a8 cs16. e32 f16.(\fz e32) f16.(\fz e32)  cs8 a-. a-. a-. a2\fermata 
    
    \mark A 
    
    \rep 2 {a16-.(\p a-. a-. a-.)} \rep 8 bf \rep 7 bf g \rep 8 a \rep 8 <af f'>  af' \rep 7 af
    af8-. g-. r4 f8\p( f) r4  <f d'>8-.\f <f c'>-. r4 d2\p( df4)( c d) r4 a4( bf a) r
    <g' b>16\f \rep 7 <g b>16 <f a>8 <a f'> r4 d,4 r4 e2 <a, f'>8\f <g e'>4\fz <a f'>8 e' bf'4\fz a8 g e'4\fz f8 d8 r <g, b e> r  
    <<{ \stemDown \rep 4 f16\p } \\ {\stemUp <a f'>8 }>> \rep 4 f16 f2:16 \rep 8 f16 gf8-. <af, ef'>-.\f r4 gf'16\p \rep 3 gf f f ef ef 
    \rep 8 f f2:16 f2:16 \rep 8 f16 f2:16 \rep 8 g16 g2:16  \rep 8 g16 \rep 4 a \rep 4 f \rep 8 d\f  cs8 a' gs4
    a8 cs16. e32 f16.\fz( d32) f16.\fz( d32)  cs8 r4 gs,8 a cs16.( e32) f16.\fz( d32) f16.\fz( d32) cs8 a a a  a1\fermata 
    
    \mark B
    d4\f \fig <f a> <g b>8 cs, r4 a4 \fig <a' e'> <a f'>8 f r4 
    d2.\p( cs4 c!2) d8( c bf c)  d2( cs16) a'-.\f \rep 6 a-. \rep 4 <e cs>-. <e cs>-. bf'-. a-. g-.  <a, f'>-. \rep 4 <a f'>-. f'-. g-. a-.
    \rep 4 <ef bf'>\fz <a, fs'>\fz \rep 3 <a fs'> <g g'>4 r bf\p r bf'8-. a-. r4
    <a e'>8-.\f <d, a' f'> r8. f16\p e8( bf' a cs,) d4\fermata  r8\fermata  r8 c'16\p \rep 7 c16 \rep 8 bf bf2:16 
    a8 r8 r8 cs16.( d32) d8-. r8 r8 g,,16.( a32) a8 r8 r8 a16.( bf32) bf8-. r8 cs r  d8\f <cs e>4\fz  d8 cs8 cs4\fz d8 
    e8 cs'4\fz  d8 <g, bf! e>8 r <e cs'!> r 
    r bf'16.\p( a32) \autoBeamOff a8-. \autoBeamOn g16.( f32) \autoBeamOff f8-. \autoBeamOn g16.( f32) \autoBeamOff f8 \autoBeamOn e16.( d32) 
    d8-.(\pp d-. d-. d-.) d2\fermata 
  } 
  
}

scoreAViola_introduzione = \relative c' {
  \global
  % Muziek volgt hier.
  <a f>4\ff \fig d  e8 g r4  a4 cs8.. cs32 d8 d, r4 r8 d\p( bf f g gs a d) g,4 r8 e'16.( f32) f8-. r r g16.( f32)  g8 r r e16.(\fz f32) f16\p r g r a r a, r
  <f a>4\f d'8.. d32 e8-. g-. r4  c,!4  c'8.. c32  bf16  \rep 7 <g bf>-.\ff \rep 8 <g bf> ef'\fz ef ef ef a, a a a bf bf bf bf g g g g g r f r cs r d r  
  
  
  
}

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 { 
    \context {
      \Score
      \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3)
    }
    %#(layout-set-staff-size 16) 
  }
}

\score {
  \scoreAViolinIIPart_introduzione
  \layout { 
    \context {
      \Score
      \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3)
    }
    %#(layout-set-staff-size 16) 
  }
}



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