5 Simple customised music apply.
9 music = \notes \relative c'' { c4 d4( e4 f4 }
11 #(define (reverse-music music)
12 (let* ((elements (ly:get-mus-property music 'elements))
13 (reversed (reverse elements))
14 (e (ly:get-mus-property music 'element))
15 (span-dir (ly:get-mus-property music 'span-direction)))
17 (ly:set-mus-property! music 'elements reversed)
25 (ly:set-mus-property! music 'span-direction (- span-dir)))
27 (map reverse-music reversed)
34 \apply #reverse-music \music
36 \paper { linewidth = -1. }