From b69300350100f702c0455cc2688882f3680bbadf Mon Sep 17 00:00:00 2001 From: Graham Percival Date: Thu, 8 Jun 2006 10:36:43 +0000 Subject: [PATCH] Oops, forgot this file. \applyMusic -> music functions. --- input/test/reverse-music.ly | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) diff --git a/input/test/reverse-music.ly b/input/test/reverse-music.ly index 828afcd59b..985b471aef 100644 --- a/input/test/reverse-music.ly +++ b/input/test/reverse-music.ly @@ -1,5 +1,6 @@ +\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 @@ -8,8 +9,6 @@ function to reverse the syntax. " } -music = \relative c'' { c4 d4( e4 f4 } - #(define (reverse-music music) (let* ((elements (ly:music-property music 'elements)) (reversed (reverse elements)) @@ -30,12 +29,18 @@ music = \relative c'' { c4 d4( e4 f4 } 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 } \layout { ragged-right = ##t} } - -- 2.39.5