From bbaca2ed893d929170bca4db03ec90ba26a094e0 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Tue, 24 Jan 2017 21:39:15 +0100 Subject: [PATCH] Issue 5043/2: Use ly:stencil-outline instead of transparent-stencil --- scm/define-markup-commands.scm | 5 +---- scm/stencil.scm | 5 +---- 2 files changed, 2 insertions(+), 8 deletions(-) diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm index 07f1538aa2..9543db464b 100644 --- a/scm/define-markup-commands.scm +++ b/scm/define-markup-commands.scm @@ -2333,10 +2333,7 @@ Add padding @var{amount} around @var{arg} in the X@tie{}direction. } } @end lilypond" - (let* ((m (interpret-markup layout props arg)) - (x (ly:stencil-extent m X)) - (y (ly:stencil-extent m Y))) - (ly:make-stencil (list 'transparent-stencil (ly:stencil-expr m)) x y))) + (ly:stencil-outline empty-stencil (interpret-markup layout props arg))) (define-markup-command (pad-to-box layout props x-ext y-ext arg) (number-pair? number-pair? markup?) diff --git a/scm/stencil.scm b/scm/stencil.scm index f4b5eb8bad..0fa79d4161 100644 --- a/scm/stencil.scm +++ b/scm/stencil.scm @@ -238,10 +238,7 @@ the more angular the shape of the parenthesis." (define-public (make-transparent-box-stencil xext yext) "Make a transparent box." - (ly:make-stencil - (list 'transparent-stencil - (ly:stencil-expr (make-filled-box-stencil xext yext))) - xext yext)) + (ly:stencil-outline empty-stencil (make-filled-box-stencil xext yext))) (define-public (make-filled-box-stencil xext yext) "Make a filled box." -- 2.39.2