reverse music

[Rune Zedeler]

The reverse-music script didn't like transposed and relative music...

--- reverse-music.ly.~1.2.~     Thu Apr  5 00:02:41 2001
+++ reverse-music.ly    Sun May 12 14:16:22 2002
@@ -6,14 +6,20 @@
 "
 }
 
-music = \notes { c'4 d'4( e'4 f'4 }
+music = \notes \relative c'' { c4 d4( e4 f4 }
 
 #(define (reverse-music music)
   (let* ((elements (ly-get-mus-property music 'elements))
          (reversed (reverse elements))
+         (e (ly-get-mus-property music 'element))
          (span-dir (ly-get-mus-property music 'span-direction)))
 
     (ly-set-mus-property music 'elements reversed)
+
+    (if (music? e)
+        (ly-set-mus-property
+         music 'element
+         (reverse-music e)))
 
     (if (dir? span-dir)
         (ly-set-mus-property music 'span-direction (- span-dir)))