303 lines
10 KiB
Plaintext
303 lines
10 KiB
Plaintext
\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 { }
|
|
}
|