[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
reverse music
From: |
Rune Zedeler |
Subject: |
reverse music |
Date: |
Sun, 12 May 2002 14:19:06 +0200 |
User-agent: |
Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9) Gecko/20020313 |
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- reverse music,
Rune Zedeler <=