From 90e10b6cd083c310c0a66886e163f0135915755d Mon Sep 17 00:00:00 2001 From: Paul Morris Date: Sun, 3 Jan 2016 16:15:51 -0500 Subject: [PATCH] stencil.scm: make args optional in stencil-whiteout --- scm/stencil.scm | 19 +++++++++++++------ 1 file changed, 13 insertions(+), 6 deletions(-) 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 -- 2.39.5