patch::: 1.3.120.jcn1

[lilypond.git] / input / test / metronome.ly

diff --git a/input/test/metronome.ly b/input/test/metronome.ly
index 197f5adc33f603b274448e554134ac0695a5a828..3d0ca2068f08dbe99fae786842979f95fbc767aa 100644 (file)
--- a/input/test/metronome.ly
+++ b/input/test/metronome.ly
@@ -1,14 +1,25 @@
 
-\version "1.3.110";
+\version "1.3.117";
 
+% Test scm markup text and kerning
+
+% Warning
+%  
+% This is not a feature, it is a hack.  If you change anything,
+% it will probably break (that's because scm markup text is a
+% bit broken and needs fixing).  Chances are, it's already
+% broken by the time you read this.  Don't complain.
 %
-% Test new font selection and scm text markup
-%
+% FIXME: put in an item, and typeset by an engraver.
+
+#(define note '(rows (music "noteheads-2" ((kern . -0.1) "flags-stem"))))
+#(define eight-note `(rows ,note ((kern . -0.1) (music ((raise . 3.5) "flags-u3")))))
+#(define dotted-eight-note `(rows ,eight-note (music "dots-dot")))
+
 
 \score{
        \notes\relative c''{
-               % put me in an engraver
-               a1-#'(rows (music "noteheads-2" ((kern . -0.1) "flags-stem") ((kern . -0.1) ((raise . 3.5) "flags-u3"))) " = 64")
+               a1-#`(rows ,dotted-eight-note " = 64")
                }
        \paper{
                linewidth = -1.\mm;