*** empty log message ***

[lilypond.git] / scm / stencil.scm

diff --git a/scm/stencil.scm b/scm/stencil.scm
index b1aeb4f3e778f7d63bb71810df80bd9502a3caa4..153661cc0be769ea315e0a1c409ad4a88b8dc1ca 100644 (file)
--- a/scm/stencil.scm
+++ b/scm/stencil.scm
@@ -81,8 +81,8 @@ encloses the contents.
     (ly:make-stencil
      `(text ,font-metric ,text) (car b) (cdr b))))
      
-(define-public (fontify-text-white font-metric text)
-  "Set TEXT with font FONT-METRIC, in color white, returning a stencil."
+(define-public (fontify-text-white scale font-metric text)
+  "Set TEXT with scale factor s"
   (let* ((b  (ly:text-dimension font-metric text))
-         (c  `(white-text ,text)))
+         (c  `(white-text ,(* 2 scale) ,text))) ;urg -- workaround for using ps font
     (ly:make-stencil c  (car b) (cdr b))))  ;urg -- extent is not from ps font, but we hope it's close