From 79863c5cbd03eb37be917367ddcb88a996ab4b30 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Tue, 6 Dec 2005 10:52:45 +0000 Subject: [PATCH] (print-circled-text-callback): draw circle around text using make-circle-markup. --- ChangeLog | 3 +++ scm/output-lib.scm | 7 +++---- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index a1c40b2c09..e68c39c393 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 2005-12-06 Han-Wen Nienhuys + * scm/output-lib.scm (print-circled-text-callback): draw circle + around text using make-circle-markup. + * Documentation/user/*: strip out-www from paths. 2005-12-05 Heikki Junes diff --git a/scm/output-lib.scm b/scm/output-lib.scm index cbbc623152..0d8c59785e 100644 --- a/scm/output-lib.scm +++ b/scm/output-lib.scm @@ -76,14 +76,13 @@ (define-public (print-circled-text-callback grob) (let* ((text (ly:grob-property grob 'text)) + (layout (ly:grob-layout grob)) (defs (ly:output-def-lookup layout 'text-font-defaults)) (props (ly:grob-alist-chain grob defs)) (circle (Text_interface::interpret_markup - layout props (make-draw-circle-markup 0.8 0.1 #f))) - (text-stencil (Text_interface::interpret_markup layout props text))) - - (ly:stencil-add (centered-stencil text-stencil) circle))) + layout props (make-circle-markup text)))) + circle)) ;;(define (mm-to-pt x) -- 2.39.5