;;;;
;;;; source file of the GNU LilyPond music typesetter
;;;;
-;;;; (c) 1998--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;; (c) 1998--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
;;;; Jan Nieuwenhuizen <janneke@gnu.org>
(define-public (denominator-tuplet-formatter mus)
(make-simple-markup "=")
(make-simple-markup (number->string count))))))
+(define-public (format-mark-alphabet mark context)
+ (make-bold-markup (make-markalphabet-markup (1- mark))))
+
+(define-public (format-mark-box-alphabet mark context)
+ (make-bold-markup (make-box-markup (make-markalphabet-markup (1- 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)))
+(define-public (format-mark-barnumbers mark context)
+ (make-bold-markup (number->string (ly:context-property context 'currentBarNumber))))
+
+(define-public (format-mark-box-letters mark context)
+ (make-bold-markup (make-box-markup (make-markletter-markup (1- mark)))))
+
+(define-public (format-mark-box-numbers mark context)
+ (make-bold-markup (make-box-markup (number->string mark))))
+
+(define-public (format-mark-box-barnumbers mark context)
+ (make-bold-markup (make-box-markup
+ (number->string (ly:context-property context 'currentBarNumber)))))