around text using make-circle-markup.
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>
(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)