hans/lilypond-haydn-op-20-nr-4
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

better support for stripping content

Browse Source
This commit is contained in:
Hans Dijkema
2026-01-19 22:27:20 +01:00
parent ec9a5f340e
commit dc37f20b7d
2 changed files with 332 additions and 360 deletions
Download Patch File Download Diff File Expand all files Collapse all files

130
Jospeh-Haydn-String-Quartett-Op-20-nr-4.ly
View File

@@ -1,4 +1,4 @@
\version "2.24.4" \version "2.24.3"
\language "english" \language "english"
\header { \header {
@@ -26,60 +26,32 @@ parttwo = {
\tempo "Un poco Adagio, affetuoso." \tempo "Un poco Adagio, affetuoso."
} }
none = #(define-scheme-function \include "lilypond-hd/functions.ly"
(n1 n2 n3 n4 n5 n6 n7 n8 n9)
(ly:music? ly:music? ly:music?
ly:music? ly:music? ly:music?
ly:music? ly:music? ly:music?)
#{ \times 2/3 { $n1 $n2 $n3 }
\times 2/3 { $n4 $n5 $n6 }
\times 2/3 { $n7 $n8 $n9 }
#}
)
tri = #(define-scheme-function
(n1 n2 n3)
(ly:music? ly:music? ly:music?)
#{
\times 2/3 { $n1 $n2 $n3 }
#}
)
ddot = #(define-music-function ddot = #(define-music-function
(n) (n)
(ly:music?) (ly:music?)
#{ (let ((stripped_n (forceAccidental 0 (stripArticulations (rmtext (flattenPitch n))))))
#n -. #n -. #n -. ;(display stripped_n)(newline)
#} #{
$n -. $stripped_n -. $stripped_n -.
#}
)
) )
ddott = #(define-scheme-function
(n f)
(ly:music? ly:music?)
#{
#n -. #f -. #f -.
#}
)
dslur = #(define-scheme-function dslur = #(define-scheme-function
(n) (n)
(ly:music?) (ly:music?)
#{ (let ((stripped_n (forceAccidental 0 (stripArticulations (rmtext (flattenPitch n))))))
$n -. ($n -. $n -.) ;(display stripped_n)(newline)
#} #{
$n -. ($stripped_n -. $stripped_n -.)
#}
)
) )
dslurr = #(define-scheme-function
(n f)
(ly:music? ly:music?)
#{
$n -. ($f -. $f -.)
#}
)
% First violin pieces % First violin pieces
vIFirst = { \relative c' { d4\p\(-.\downbow-2 d-. d-.\) d2.-0( g-2) \stemUp fs4_\(-. b-3_( a)\) \stemNeutral d2\open c16-4 (b a b )a4 r r } } vIFirst = { \relative c' { \dslur d4\p\downbow-2 d2.-0( g-2) \stemUp fs4_\(-. b-3_( a)\) \stemNeutral d2\open c16-4 (b a b )a4 r r } }
scoreAViolinI = \relative c' { scoreAViolinI = \relative c' {
\partone \partone
@@ -88,8 +60,8 @@ scoreAViolinI = \relative c' {
\vIFirst \vIFirst
\relative c' \dslur d4 { d2.-4( b2. ) a4 (d-0 fs-1) a2 (\afterGrace { g4\trill } { fs16 [g ] } fs4) r r } \relative c' \dslur d4 { d2.-4( b2. ) a4 (d-0 fs-1) a2 (\afterGrace { g4\trill } { fs16 [g ] } fs4) r r }
\vIFirst \vIFirst
\relative c' { e4-.-1 e-. e-. e _\(g b\) a2. _\((a4) b _(g) \) fs2-2 (g8 e8 d4) r r } \relative c' { \ddot e4-1 e _\(g b\) a2. _\((a4) b _(g) \) fs2-2 (g8 e8 d4) r r }
\relative c' { c4-. (c-. c-.) c2 (b4) g'4-. (g-. g-.) fs _\( (g) b-.\) a2 (\relative c' cs!4 ) d, r r } \relative c' { \dslur c4 c2 (b4) g'4-. (g-. g-.) fs _\( (g) b-.\) a2 (\relative c' cs!4 ) d, r r }
\mark A \mark A
\relative c'' { \relative c'' {
@@ -111,8 +83,8 @@ scoreAViolinI = \relative c' {
e2. (e4) a (gs) gs \(fs\trill e (e)\) {\tri fs8 (d b)} cs4 \((cs) b\) {\tri d8 (b gs_1)} a4 r r e2. (e4) a (gs) gs \(fs\trill e (e)\) {\tri fs8 (d b)} cs4 \((cs) b\) {\tri d8 (b gs_1)} a4 r r
\mark B \mark B
\ddott as,-.\p as-. as (b) fs'-4\( (\=1(fs\=1) e) gs,-.\) \ddot as,-.\p as (b) fs'-4\( (\=1(fs\=1) e) gs,-.\)
\ddott a!\f a \ddot a!\f
a4. b16 (c-1 d e-1 fs gs a4-.) a'4.-3 (gs8) gs4-. g2\fz a4. b16 (c-1 d e-1 fs gs a4-.) a'4.-3 (gs8) gs4-. g2\fz
\none fs8\downbow( e) d cs( b) b' b( b,) a' \none fs8\downbow( e) d cs( b) b' b( b,) a'
\none a( gs) a b a gs fs e b' \none a( gs) a b a gs fs e b'
@@ -139,9 +111,9 @@ scoreAViolinI = \relative c' {
} }
\repeat volta 2 { \repeat volta 2 {
\dslurr b,4\p b b2. a'2.\f g4( b e) ds( fs a) g( e as, b) b,-.(\p b-.) \dslur b,4\p b2. a'2.\f g4( b e) ds( fs a) g( e as, b) b,-.(\p b-.)
\after 4 \> \after 2 \! b2(\< bs4)\! \after 4 \> \after 2 \! b2(\< bs4)\!
\dslurr cs\p cs cs2. b'2.\f a4( cs fs) es( gs b) a( fs bs,-2) cs( es_2 gs) fs( bs,-._1 bs-.) \decresc cs-.( cs-. cs-.) \dslur cs\p cs2. b'2.\f a4( cs fs) es( gs b) a( fs bs,-2) cs( es_2 gs) fs( bs,-._1 bs-.) \decresc cs-.( cs-. cs-.)
cs2( cs8._\reverseturn) ( d16_1) \! cs2( cs8._\reverseturn) ( d16_1) \!
e4\p( cs a) g!-0( e cs) e4\p( cs a) g!-0( e cs)
@@ -163,13 +135,13 @@ scoreAViolinI = \relative c' {
\none gs( e) b' gs( e) b' gs( e) b' \! \none gs( e) b' gs( e) b' gs( e) b' \!
\none gs(\ff es) b' gs( es) b' gs( es) b' gs4 r r \none gs(\ff es) b' gs( es) b' gs( es) b' gs4 r r
\dslurr fs,\p fs fs2.-1( b2.) a4-.\( d( cs) \) fs2 e16( d cs d) cs4 r r \dslur fs,\p fs2.-1( b2.) a4-.\( d( cs) \) fs2 e16( d cs d) cs4 r r
\mark E \mark E
fs2.(\f ^"I" fs)( fs)\((\upbow fs4) e-.\) e_4\(( e) d-.\) d( d) es, es fs fs\p-.( fs-.) fs2.(\f ^"I" fs)( fs)\((\upbow fs4) e-.\) e_4\(( e) d-.\) d( d) es, es fs fs\p-.( fs-.)
\none fs8( as_2 b cs b as b_1 ^"III" cs d) e2->( d4) \none fs8( as_2 b cs b as b_1 ^"III" cs d) e2->( d4)
\none fs,8( as_2 b cs b as b_1 cs d) e2->( d4) \none fs,8( as_2 b cs b as b_1 cs d) e2->( d4)
g2.( fs_3 e d4) b'( as a_3 gs g fs es e) e-4( d cs) \dslurr d\cresc d \! g2.( fs_3 e d4) b'( as a_3 gs g fs es e) e-4( d cs) d-.(\cresc d-. d-.)\!
b\(( d) d-.\) d2\fz \tri e8( cs as) b4-. d_1\p( d') as2( b4) b\(( d) d-.\) d2\fz \tri e8( cs as) b4-. d_1\p( d') as2( b4)
r d,( d') gs,2_1( a!4_2) r c,( c') cs,2-1( g'!4 b-.) r r r d,( d') gs,2_1( a!4_2) r c,( c') cs,2-1( g'!4 b-.) r r
r a( g e'-._0) r r r g,( fs d'-.) r r r a( g e'-._0) r r r g,( fs d'-.) r r
@@ -194,7 +166,7 @@ scoreAViolinI = \relative c' {
a4 a-.\pp( a-.) a2.( a4) d'( cs) cs_3\( b\trill a( a)\) \tri b8( g e) fs4\(( fs) e-.\) \tri g8( e c-1) d4-1 r r a4 a-.\pp( a-.) a2.( a4) d'( cs) cs_3\( b\trill a( a)\) \tri b8( g e) fs4\(( fs) e-.\) \tri g8( e c-1) d4-1 r r
\mark H \mark H
\dslurr ds,\p^"III" ds ds( e) b'-3\(( b)( a) cs,-.\) \dslur ds,\p^"III" ds( e) b'-3\(( b)( a) cs,-.\)
d!-.\f d-. d-. d!-.\f d-. d-.
d4.-0 e16( fs g a b cs d4-.) d'4.( cs8) cs4-. c2\fz d4.-0 e16( fs g a b cs d4-.) d'4.( cs8) cs4-. c2\fz
@@ -250,23 +222,23 @@ scoreBViolinI = \relative c' {
scoreAViolinII = \relative c'' { scoreAViolinII = \relative c'' {
\partone \partone
% Music follows here. % Music follows here.
\dslurr d,_2\p\downbow d d2.( cs) d4-0-.\( g( fs)\) fs2 a16( g fs g) fs4 r r \dslur d,4_2\p\downbow d2.( cs) d4-0-.\( g( fs)\) fs2 a16( g fs g) fs4 r r
\dslurr d-4 d d2.( d2.) d4( a d) fs2( \afterGrace { e4\trill } { d16 e } d4) r r \dslur d-4 d2.( d2.) d4( a d) fs2( \afterGrace { e4\trill } { d16 e } d4) r r
\dslurr d4-2 d d2.( cs) d4-.-0\( g( fs)\) fs2 a16( g fs g) fs4 r r \dslur d4-2 d2.( cs) d4-.-0\( g( fs)\) fs2 a16( g fs g) fs4 r r
\dslur e e2\( g4( g) e\) fs\(( fs) g-2( e)\) d2( \afterGrace { cs4\trill } { b16 cs } d4) r r \dslur e e2\( g4( g) e\) fs\(( fs) g-2( e)\) d2( \afterGrace { cs4\trill } { b16 cs } d4) r r
\dslurr c\pp c a2( g4) \dslur b b2--( g'4-.) fs2( e4) d r r \dslur c\pp a2( g4) \dslur b b2--( g'4-.) fs2( e4) d r r
\mark A \mark A
<d b'>-.\f <d b'>-. <d b'>-. <d b'>-. r r <d b'>-.\f <d b'>-. <d b'>-. <d b'>-. r r
\dslurr fs\p fs gs2.( a4) a-.( a-.) a-. r r \dslur fs\p gs2.( a4) a-.( a-.) a-. r r
<e c'>-.\f <e c'>-. <e c'>-. <e c'>-. r r <e c'>-.\f <e c'>-. <e c'>-. <e c'>-. r r
\dslurr ds\p ds ds2.\(( e2) a4_2-.\) b_\(_(\< gs) gs-.\) \! a\f fs2_2( e4) r r \dslur ds\p ds2.\(( e2) a4_2-.\) b_\(_(\< gs) gs-.\) \! a\f fs2_2( e4) r r
a\(( fs) fs-.\) e r r e r r fs r r b, r r a\(( fs) fs-.\) e r r e r r fs r r b, r r
b'2->( a4) R2.^"1" b2->\downbow( cs4) cs\(( b) b-.\) b2. a4( cs e-2) fs2.->\p\(( fs4) e( d)\) b'2->( a4) R2.^"1" b2->\downbow( cs4) cs\(( b) b-.\) b2. a4( cs e-2) fs2.->\p\(( fs4) e( d)\)
e2.->\(( e4) d_3( cs)\) d2.\(( d2.\pp)( d2.) cs4\) a_4-.( a-.) a2. gs2( a4) fs2( d4) cs r r e2.->\(( e4) d_3( cs)\) d2.\(( d2.\pp)( d2.) cs4\) a_4-.( a-.) a2. gs2( a4) fs2( d4) cs r r
\mark B \mark B
\dslurr as\p as as( b) d\((\=1( d) cs\=1) b-.\) a-.\f a-. a-. a4. b16( cs d-4 e fs gs a4-.) e r \dslur as\p as( b) d\((\=1( d) cs\=1) b-.\) a-.\f a-. a-. a4. b16( cs d-4 e fs gs a4-.) e r
@@ -309,17 +281,17 @@ scoreACelloPart = \new Staff \with {
midiInstrument = "cello" midiInstrument = "cello"
} { \clef bass \scoreACello } } { \clef bass \scoreACello }
%
%\bookpart { \bookpart {
% \header { \header {
% subtitle = "I" subtitle = "I"
% } }
% \score { \score {
% \scoreAViolinIPart \scoreAViolinIPart
% \layout { } \layout { }
% } }
%} }
%
\bookpart { \bookpart {
\header { \header {
@@ -334,15 +306,15 @@ scoreACelloPart = \new Staff \with {
} }
} }
%\bookpart { \bookpart {
% \header { \header {
% subtitle = "I" subtitle = "I"
% } }
% \score { \score {
% \scoreAViolinIIPart \scoreAViolinIIPart
% \layout { } \layout { }
% } }
%} }
%\score { %\score {

2
lilypond-hd

Submodule lilypond-hd updated: b4622b991f...b80900f367