input/test/metronome.ly

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