* lily/stencil-scheme.cc: remove ly:fontify-atom

[lilypond.git] / scm / stencil.scm

diff --git a/scm/stencil.scm b/scm/stencil.scm
index 1e88d6c4dc8e121b533c0065183f4d39464f7a0a..2b1720f131a8e41db971735870aec7b0252270ef 100644 (file)
--- a/scm/stencil.scm
+++ b/scm/stencil.scm
@@ -24,16 +24,10 @@
           (stack-lines dir padding baseline (cdr stils))
           padding baseline))))
 
-(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
-     (ly:fontify-atom font-metric `(text ,text)) (car b) (cdr b))))
-
 (define-public (bracketify-stencil stil axis thick protusion padding)
   "Add brackets around STIL, producing a new stencil."
 
-  (let* ((ext (ly:stencil-get-extent stil axis))
+  (let* ((ext (ly:stencil-extent stil axis))
         (lb (ly:bracket axis ext thick (- protusion)))
         (rb (ly:bracket axis ext thick protusion)))
     (set! stil
@@ -68,8 +62,8 @@ encloses the contents.
 ;; TODO merge this and prev function. 
 (define-public (box-stencil stil thick padding)
   "Add a box around STIL, producing a new stencil."
-  (let* ((x-ext (interval-widen (ly:stencil-get-extent stil 0) padding))
-        (y-ext (interval-widen (ly:stencil-get-extent stil 1) padding))
+  (let* ((x-ext (interval-widen (ly:stencil-extent stil 0) padding))
+        (y-ext (interval-widen (ly:stencil-extent stil 1) padding))
         (y-rule (make-filled-box-stencil (cons 0 thick) y-ext))
         (x-rule (make-filled-box-stencil (interval-widen x-ext thick)
                                           (cons 0 thick))))