From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 6 Dec 2005 10:52:45 +0000 (+0000)
Subject: (print-circled-text-callback): draw circle
X-Git-Tag: release/2.7.22~14
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=79863c5cbd03eb37be917367ddcb88a996ab4b30;p=lilypond.git

(print-circled-text-callback): draw circle
around text using make-circle-markup.
---

diff --git a/ChangeLog b/ChangeLog
index a1c40b2c09..e68c39c393 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2005-12-06  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+	* 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  <hjunes@cc.hut.fi>
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)