input/test/metronome.ly

   1 \version "1.3.146"
   2
   3
   4
   5 % Test scm markup text and kerning
   6
   7 % Warning
   8 %
   9 % This is not a feature, it is a hack.  If you change anything,
  10 % it will probably break (that's because scm markup text is a
  11 % bit broken and needs fixing).  Chances are, it's already
  12 % broken by the time you read this.  Don't complain.
  13 %
  14 % FIXME: put in an item, and typeset by an engraver.
  15
  16 #(define note '(columns (music "noteheads-2" ((kern . -0.1) "flags-stem"))))
  17 #(define eight-note `(columns ,note ((kern . -0.1) (music ((raise . 3.5) "flags-u3")))))
  18 #(define dotted-eight-note `(columns ,eight-note (music "dots-dot")))
  19
  20 \score {
  21   \notes\relative c'' {
  22     a1^#`((columns (font-relative-size . -1)) ,dotted-eight-note " = 64")
  23   }
  24   \paper {
  25     linewidth = -1.
  26     \translator{
  27       \ScoreContext
  28       TextScript \override #'font-shape = #'upright
  29     }
  30   }
  31 }