1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4 (define-public (denominator-tuplet-formatter mus)
5 (number->string (ly:music-property mus 'denominator)))
7 (define-public (fraction-tuplet-formatter mus)
9 (number->string (ly:music-property mus 'denominator))
11 (number->string (ly:music-property mus 'numerator))
16 (define-public (format-metronome-markup event context)
18 ((dur (ly:music-property event 'tempo-unit))
19 (count (ly:music-property event 'metronome-count))
20 (note-mark (make-note-by-number-markup (ly:duration-log dur)
21 (ly:duration-dot-count dur)
26 (make-simple-markup "=")
27 (make-simple-markup (number->string count))
33 (define-public (format-mark-letters mark context)
34 (make-bold-markup (make-markletter-markup (1- mark))))
36 (define-public (format-mark-numbers mark context)
37 (make-bold-markup (number->string mark)))