X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fstencil.scm;fp=scm%2Fstencil.scm;h=8513c6389a3bd95499315bf6ea54e743719e1485;hb=a9d9433bc7b95cb2d4b3d96eefce7a8437c0d44e;hp=aeea39a28850714cdeeff722a7c092677c6a36bc;hpb=f6182e0c1ac71a97254053b1b6d968789047d073;p=lilypond.git

diff --git a/scm/stencil.scm b/scm/stencil.scm
index aeea39a288..8513c6389a 100644
--- a/scm/stencil.scm
+++ b/scm/stencil.scm
@@ -4,6 +4,13 @@
 ;;;; 
 ;;;; (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
@@ -81,6 +88,14 @@
       (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."