1 ;;;; translation-functions.scm --
3 ;;;; source file of the GNU LilyPond music typesetter
5 ;;;; (c) 1998--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
6 ;;;; Jan Nieuwenhuizen <janneke@gnu.org>
8 (define-public (denominator-tuplet-formatter mus)
9 (number->string (ly:music-property mus 'denominator)))
11 (define-public (fraction-tuplet-formatter mus)
13 (number->string (ly:music-property mus 'denominator))
15 (number->string (ly:music-property mus 'numerator))))
18 (define-public (format-metronome-markup event context)
19 (let* ((dur (ly:music-property event 'tempo-unit))
20 (count (ly:music-property event 'metronome-count))
21 (note-mark (make-smaller-markup
22 (make-note-by-number-markup (ly:duration-log dur)
23 (ly:duration-dot-count dur)
27 (make-general-align-markup Y DOWN note-mark)
28 (make-simple-markup "=")
29 (make-simple-markup (number->string count))))))
31 (define-public (format-mark-letters mark context)
32 (make-bold-markup (make-markletter-markup (1- mark))))
34 (define-public (format-mark-numbers mark context)
35 (make-bold-markup (number->string mark)))
37 (define-public (format-mark-box-letters mark context)
38 (make-bold-markup (make-box-markup (make-markletter-markup (1- mark)))))
40 (define-public (format-mark-box-numbers mark context)
41 (make-bold-markup (make-box-markup (make-markletter-markup (1- mark)))))