From: hanwen Date: Wed, 4 Feb 2004 02:10:48 +0000 (+0000) Subject: rewrite. X-Git-Tag: release/2.1.18~11 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d12759a030a9ff70b45c6dbaf28dc21c2b2a47cc;p=lilypond.git rewrite. --- diff --git a/scm/part-combiner.scm b/scm/part-combiner.scm index 2fa2d51d76..28e6be9018 100644 --- a/scm/part-combiner.scm +++ b/scm/part-combiner.scm @@ -150,6 +150,13 @@ Voice-state objects (if (equal? (ly:get-mus-property ev 'name) 'NoteEvent) (assoc-remove! active 'tie) active) ) + + (define (analyse-absdyn-end active ev) + (if (equal? (ly:get-mus-property ev 'name) 'AbsoluteDynamicEvent) + (assoc-remove! + (assoc-remove! active 'cresc) + 'decr) + active) ) (define (active