Refactor fret diagrams for simpler calls

[lilypond.git] / scm / stencil.scm

diff --git a/scm/stencil.scm b/scm/stencil.scm
index 8513c6389a3bd95499315bf6ea54e743719e1485..105f6f5893555deade31e7f9b5e5e97aed13d8ff 100644 (file)
--- a/scm/stencil.scm
+++ b/scm/stencil.scm
@@ -4,13 +4,6 @@
 ;;;; 
 ;;;; (c) 2003--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
-(define-public (translate-stencil stencil coordinate-pair)
-  "Translate @code{stencil} by the distances specified in
-@code{coordinate-pair}."
-  (ly:stencil-translate-axis
-    (ly:stencil-translate-axis stencil (cdr coordinate-pair) Y)
-    (car coordinate-pair) X))
-
 (define-public (stack-stencils axis dir padding stils)
   "Stack stencils STILS in direction AXIS, DIR, using PADDING."
   (cond
@@ -88,13 +81,6 @@
       (interval-widen xext (/ width 2))
       (interval-widen yext (/ width 2)))))
 
-(define-public (make-round-filled-box-stencil xext yext blot-diameter)
-  "Make a filled rounded box."
-  
-  (ly:make-stencil
-      (list 'round-filled-box (- (car xext)) (cdr xext)
-                       (- (car yext)) (cdr yext) blot-diameter)
-      xext yext))
 
 (define-public (make-filled-box-stencil xext yext)
   "Make a filled box."