3 % possible rename to scheme-something.
4 \header { texidoc="@cindex Scheme Reverse Music
5 Simple customised music apply. "
8 music = \notes \relative c'' { c4 d4( e4 f4 }
10 #(define (reverse-music music)
11 (let* ((elements (ly:get-mus-property music 'elements))
12 (reversed (reverse elements))
13 (e (ly:get-mus-property music 'element))
14 (span-dir (ly:get-mus-property music 'span-direction)))
16 (ly:set-mus-property! music 'elements reversed)
23 (if (ly:dir? span-dir)
24 (ly:set-mus-property! music 'span-direction (- span-dir)))
26 (map reverse-music reversed)
33 \apply #reverse-music \music
35 \paper { raggedright = ##t}