X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=scm%2Fstencil.scm;h=105f6f5893555deade31e7f9b5e5e97aed13d8ff;hb=bbe873828318df06545c3f9247f087cb6cd1db92;hp=047c0d0bb9622a2d514da8360bcca871e14f636b;hpb=a6a4b3fc2009f17a1a48cca0c11bfd3f38645937;p=lilypond.git diff --git a/scm/stencil.scm b/scm/stencil.scm index 047c0d0bb9..105f6f5893 100644 --- a/scm/stencil.scm +++ b/scm/stencil.scm @@ -2,7 +2,7 @@ ;;;; ;;;; source file of the GNU LilyPond music typesetter ;;;; -;;;; (c) 2003--2008 Han-Wen Nienhuys +;;;; (c) 2003--2009 Han-Wen Nienhuys (define-public (stack-stencils axis dir padding stils) "Stack stencils STILS in direction AXIS, DIR, using PADDING." @@ -81,6 +81,7 @@ (interval-widen xext (/ width 2)) (interval-widen yext (/ width 2))))) + (define-public (make-filled-box-stencil xext yext) "Make a filled box."