- "Add a box around STENCIL, producing a new stencil."
- (let* ((x-ext (interval-widen (ly:stencil-extent stencil 0) padding))
- (y-ext (interval-widen (ly:stencil-extent stencil 1) padding))
- (y-rule (make-filled-box-stencil (cons 0 thickness) y-ext))
- (x-rule (make-filled-box-stencil
- (interval-widen x-ext thickness) (cons 0 thickness))))
-; (set! stencil (ly:stencil-combine-at-edge stencil X 1 y-rule padding))
- (set! stencil (ly:stencil-combine-at-edge stencil X -1 y-rule padding))
- (set! stencil (ly:stencil-combine-at-edge stencil Y 1 x-rule 0.0))
- (set! stencil (ly:stencil-combine-at-edge stencil Y -1 x-rule 0.0))
- stencil))
+ "Add a box around STENCIL, producing a new stencil."
+ (let* ((x-ext (interval-widen (ly:stencil-extent stencil X) padding))
+ (y-ext (interval-widen (ly:stencil-extent stencil Y) padding))
+ (y-rule (make-filled-box-stencil (cons 0 thickness) y-ext))
+ (x-rule (make-filled-box-stencil
+ (interval-widen x-ext thickness) (cons 0 thickness))))
+ ;; (set! stencil (ly:stencil-combine-at-edge stencil X 1 y-rule padding))
+ (set! stencil (ly:stencil-combine-at-edge stencil X LEFT y-rule padding))
+ (set! stencil (ly:stencil-combine-at-edge stencil Y UP x-rule 0.0))
+ (set! stencil (ly:stencil-combine-at-edge stencil Y DOWN x-rule 0.0))
+ stencil))