+2006-02-15 Graham Percival <gpermus@gmail.com>
+
+ * scm/translation-functions.scm: circle patch from Erlend, thanks!
+
+ * THANKS: moved Erlend Aasland to contributors.
+
2006-02-15 Han-Wen Nienhuys <hanwen@xs4all.nl>
* config.hh.in: remove HAVE_PANGO_16
(define-public (format-mark-box-alphabet mark context)
(make-bold-markup (make-box-markup (make-markalphabet-markup (1- mark)))))
+(define-public (format-mark-circle-alphabet mark context)
+ (make-bold-markup (make-circle-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-box-letters mark context)
(make-bold-markup (make-box-markup (make-markletter-markup (1- mark)))))
+(define-public (format-mark-circle-letters mark context)
+ (make-bold-markup (make-circle-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-circle-numbers mark context)
+ (make-bold-markup (make-circle-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)))))
+(define-public (format-mark-circle-barnumbers mark context)
+ (make-bold-markup (make-circle-markup
+ (number->string (ly:context-property context 'currentBarNumber)))))
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Bass figures.