;; tuplets.
(define-public (denominator-tuplet-formatter mus)
- (number->string (ly:get-mus-property mus 'denominator)))
+ (number->string (ly:music-property mus 'denominator)))
(define-public (fraction-tuplet-formatter mus)
- (string-append (number->string (ly:get-mus-property mus 'numerator))
- ":"
- (number->string (ly:get-mus-property mus 'denominator))
- ))
+ (string-append
+ (number->string (ly:music-property mus 'denominator))
+ ":"
+ (number->string (ly:music-property mus 'numerator))
+ ))
;; metronome marks
-(define-public (make-metronome-markup event context)
+(define-public (format-metronome-markup event context)
(let*
- ((dur (ly:get-mus-property event 'tempo-unit))
- (count (ly:get-mus-property event 'metronome-count))
- (note-mark (make-note-markup (ly:duration-log dur)
- (ly:duration-dot-count dur)
- 1)
- )
- )
-
+ ((dur (ly:music-property event 'tempo-unit))
+ (count (ly:music-property event 'metronome-count))
+ (note-mark (make-note-by-number-markup (ly:duration-log dur)
+ (ly:duration-dot-count dur)
+ 1) ) )
(make-line-markup
(list
note-mark
))))
+
+
+(define-public (format-mark-letters mark context)
+ (make-bold-markup (make-markletter-markup (1- mark))))
+
+(define-public (format-mark-numbers mark context)
+ (make-bold-markup (number->string mark)))
+