input/features/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 \score {
  20   \notes\relative c'' {
  21     a1^#`(rows ,dotted-eight-note " = 64")
  22   }
  23   \paper {
  24     linewidth = -1.;
  25     \translator{
  26       \ScoreContext
  27       TextScript \override #'font-shape = #'upright
  28     }
  29   }
  30 }