From ced66166c128ac976110a8dd202c67e9c8830bc9 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Sun, 13 Jul 2014 15:30:03 +0200 Subject: [PATCH] Issue 4009: \retrograde fails on slurs The section "Retrograde" in the Notation Reference is affected. This became likely exposed with issue 2240; the corresponding regtest does not cover it. The problem was existent previously for slurs and other spans inside of chords. --- scm/modal-transforms.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/scm/modal-transforms.scm b/scm/modal-transforms.scm index 3e31f660e4..4200a1f176 100644 --- a/scm/modal-transforms.scm +++ b/scm/modal-transforms.scm @@ -130,9 +130,8 @@ LilyPond scheme pitches, e.g. @code{(ly:make-pitch 0 2 0)} "Recurse through @var{music}, extracting pitches. Returns a list of pitch objects, e.g @code{'((ly:make-pitch 0 2 0) (ly:make-pitch 0 4 0) ... )} -Typically used to construct a scale for input to transposer-factory -(see). -" +Typically used to construct a scale for input to +@code{transposer-factory}." (let ((elements (ly:music-property music 'elements)) (element (ly:music-property music 'element)) @@ -192,12 +191,15 @@ Typically used to construct a scale for input to transposer-factory ;; inversion and retrograding. (let* ((elements (ly:music-property music 'elements)) + (arts (ly:music-property music 'articulations)) (reversed (reverse elements)) (element (ly:music-property music 'element)) (span-dir (ly:music-property music 'span-direction))) (ly:music-set-property! music 'elements reversed) + (for-each retrograde-music arts) + (if (ly:music? element) (ly:music-set-property! music 'element -- 2.39.2