1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4 (define-public (denominator-tuplet-formatter mus)
5 (number->string (ly:get-mus-property mus 'denominator)))
7 (define-public (fraction-tuplet-formatter mus)
8 (string-append (number->string (ly:get-mus-property mus 'numerator))
10 (number->string (ly:get-mus-property mus 'denominator))
15 (define-public (format-metronome-markup event context)
17 ((dur (ly:get-mus-property event 'tempo-unit))
18 (count (ly:get-mus-property event 'metronome-count))
19 (note-mark (make-note-by-number-markup (ly:duration-log dur)
20 (ly:duration-dot-count dur)
25 (make-simple-markup "=")
26 (make-simple-markup (number->string count))
32 (define number->mark-letter-vector (make-vector 25 #\A))
37 (if (= i (- (char->integer #\I) (char->integer #\A)))
39 (vector-set! number->mark-letter-vector j
40 (integer->char (+ i (char->integer #\A)))) )
42 (define-public (number->mark-string n)
43 "Double letters for big marks."
45 ((l (vector-length number->mark-letter-vector)))
50 (string-append (number->mark-string (1- (quotient n l)))
51 (number->mark-string (remainder n l)))
52 (make-string 1 (vector-ref number->mark-letter-vector n)))))
55 (define-public (format-mark-letters mark context)
56 (make-bold-markup (number->mark-string (1- mark))))
58 (define-public (format-mark-numbers mark context)
59 (make-bold-markup (number->string mark)))