* scm/fret-diagrams.scm (draw-dots): default values for dot size

[lilypond.git] / scm / stencil.scm

diff --git a/scm/stencil.scm b/scm/stencil.scm
index b77a3c83443d504836887fafa2a169883f0a6263..b1aeb4f3e778f7d63bb71810df80bd9502a3caa4 100644 (file)
--- a/scm/stencil.scm
+++ b/scm/stencil.scm
@@ -80,4 +80,9 @@ encloses the contents.
   (let* ((b  (ly:text-dimension font-metric text)))
     (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."
+  (let* ((b  (ly:text-dimension font-metric text))
+         (c  `(white-text ,text)))
+    (ly:make-stencil c  (car b) (cdr b))))  ;urg -- extent is not from ps font, but we hope it's close