From: Paul Morris <paulwmorris@gmail.com>
Date: Sun, 3 Jan 2016 21:15:51 +0000 (-0500)
Subject: stencil.scm: make args optional in stencil-whiteout
X-Git-Tag: release/2.19.36-1~27
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=90e10b6cd083c310c0a66886e163f0135915755d;p=lilypond.git

stencil.scm: make args optional in stencil-whiteout
---

diff --git a/scm/stencil.scm b/scm/stencil.scm
index bec0301650..5490e01c9c 100644
--- a/scm/stencil.scm
+++ b/scm/stencil.scm
@@ -801,12 +801,19 @@ the white outline extends past the extents of stencil @var{stil}."
     (stencil-with-color (ly:round-filled-box x-ext y-ext blot) color)
     stil)))
 
-(define-public (stencil-whiteout stil style thickness line-thickness)
-  "@var{style} is a symbol that determines the shape of the white
-background.  @var{thickness} is how far, as a multiple of
-@var{line-thickness}, the white background extends past the extents
-of stencil @var{stil}. If @var{thickness} has not been specified
-by the user, an appropriate default is chosen based on @var{style}."
+(define*-public (stencil-whiteout stil
+                 #:optional style thickness (line-thickness 0.1))
+  "@var{style}, @var{thickness} and @var{line-thickness} are optional
+arguments. If set, @var{style} determines the shape of the white
+background.  Given @code{'outline} the white background is produced
+by @code{stencil-whiteout-outline}, given @code{'rounded-box} it is
+produced by @code{stencil-whiteout-box} with rounded corners, given
+other arguments (e.g. @code{'box}) or when unspecified it defaults to
+@code{stencil-whiteout-box} with square corners.  If @var{thickness} is
+specified it determines how far, as a multiple of @var{line-thickness},
+the white background extends past the extents of stencil @var{stil}.  If
+@var{thickness} has not been specified, an appropriate default is chosen
+based on @var{style}."
   (let ((thick (* line-thickness
                  (if (number? thickness)
                      thickness