X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fstencil.scm;h=5e32f1efbb6896f918631269661f7482297ed683;hb=d4a88d2be8acea0465332048eef5c9ee9ff34f47;hp=ce544ef66b3c4efab15e298b28331ad77f1ddd7a;hpb=a6ec33aa09b9f93eb5792d72abf5ee0efbcfba26;p=lilypond.git

diff --git a/scm/stencil.scm b/scm/stencil.scm
index ce544ef66b..5e32f1efbb 100644
--- a/scm/stencil.scm
+++ b/scm/stencil.scm
@@ -316,21 +316,6 @@ encloses the contents.
     (set! stencil (ly:stencil-add outer inner))
     stencil))
 
-
-(define-public (fontify-text font-metric text)
-  "Set TEXT with font FONT-METRIC, returning a stencil."
-  (let* ((b (ly:text-dimension font-metric text)))
-    (ly:make-stencil
-     `(text ,font-metric ,text) (car b) (cdr b))))
-
-(define-public (fontify-text-white scale font-metric text)
-  "Set TEXT with scale factor SCALE"
-  (let* ((b (ly:text-dimension font-metric text))
-	 ;;urg -- workaround for using ps font
-         (c `(white-text ,(* 2 scale) ,text)))
-    ;;urg -- extent is not from ps font, but we hope it's close
-    (ly:make-stencil c (car b) (cdr b))))
-
 (define-public (stencil-with-color stencil color)
   (ly:make-stencil
    (list 'color color (ly:stencil-expr stencil))