From: Graham Percival Date: Wed, 15 Feb 2006 17:57:27 +0000 (+0000) Subject: Circle-mark patch from Erlend Aasland. X-Git-Tag: release/2.7.35~23 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1acb8810eddf8ef2d4963a3a7ebf8e9f25fc1fbb;p=lilypond.git Circle-mark patch from Erlend Aasland. --- diff --git a/ChangeLog b/ChangeLog index 5da6dce99f..c5ac748e00 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2006-02-15 Graham Percival + + * scm/translation-functions.scm: circle patch from Erlend, thanks! + + * THANKS: moved Erlend Aasland to contributors. + 2006-02-15 Han-Wen Nienhuys * config.hh.in: remove HAVE_PANGO_16 diff --git a/THANKS b/THANKS index 1c8563a4c9..a6ea1c4379 100644 --- a/THANKS +++ b/THANKS @@ -14,6 +14,7 @@ CONTRIBUTORS Bruce Fairchild Cameron Horsburgh +Erlend Aasland Heikki Junes Joe Neeman Johannes Schindelin @@ -60,7 +61,6 @@ Donald Axel Don Blaheta Edward Neeman Eduardo Vieira -Erlend Aasland Ernesto Gancedo Frédéric Bron Hans Forbrich diff --git a/scm/translation-functions.scm b/scm/translation-functions.scm index c3cd17ecdf..27bbd5200b 100644 --- a/scm/translation-functions.scm +++ b/scm/translation-functions.scm @@ -34,6 +34,9 @@ (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)))) @@ -46,13 +49,23 @@ (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.