+\version "2.10.0"
+\sourcefilename "reverse-music.ly"
-\version "2.3.1"
% possible rename to scheme-something.
\header { texidoc="@cindex Scheme Reverse Music
Symmetric, or palindromical music can be produced, first, by printing
"
}
-music = \notes \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
- \applymusic #reverse-music \music
+ \reverseMusic \music
}
- \paper { raggedright = ##t}
+ \layout { ragged-right = ##t}
}
-