-\version "2.9.7"
-\sourcefilename "reverse-music.ly"
+\version "2.7.39"
% possible rename to scheme-something.
\header { texidoc="@cindex Scheme Reverse Music
Symmetric, or palindromical music can be produced, first, by printing
"
}
+music = \relative c'' { c4 d4( e4 f4 }
+
#(define (reverse-music music)
(let* ((elements (ly:music-property music 'elements))
(reversed (reverse elements))
music))
-reverseMusic =
-#(define-music-function (parser location m) (ly:music?)
- (reverse-music m)
- )
-
-music = \relative c'' { c4 d4( e4 f4 }
-
\score {
-\context Voice {
+ \context Voice {
\music
- \reverseMusic \music
+ \applyMusic #reverse-music \music
}
\layout { ragged-right = ##t}
}
+