replaced-stil))
(define-public (stencil-with-color stencil color)
- (ly:make-stencil
- (list 'color color (ly:stencil-expr stencil))
- (ly:stencil-extent stencil X)
- (ly:stencil-extent stencil Y)))
+ (if (color? color)
+ (ly:make-stencil
+ (list 'color color (ly:stencil-expr stencil))
+ (ly:stencil-extent stencil X)
+ (ly:stencil-extent stencil Y))
+ stencil))
(define*-public (stencil-whiteout-outline
stil #:optional (thickness 0.3) (color white)
((eq? style 'rounded-box) 3)
(else 0))))))
(cond
+ ((eq? style 'special) stil)
((eq? style 'outline) (stencil-whiteout-outline stil thick))
((eq? style 'rounded-box) (stencil-whiteout-box stil thick (* 2 thick)))
(else (stencil-whiteout-box stil thick)))))