From 0726ed249c7dcbb0091091e0a7191d168f27f25c Mon Sep 17 00:00:00 2001 From: Erlend Aasland Date: Sun, 13 Jan 2008 14:39:42 +0100 Subject: [PATCH] Fix underline markup x extent --- scm/define-markup-commands.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm index 624cc3bb01..0b9e7c9540 100644 --- a/scm/define-markup-commands.scm +++ b/scm/define-markup-commands.scm @@ -124,11 +124,12 @@ thickness and y offset." (ly:output-def-lookup layout 'line-thickness) (chain-assoc-get 'thickness props 1))) (markup (interpret-markup layout props arg)) - (x (cdr (ly:stencil-extent markup X))) + (x1 (car (ly:stencil-extent markup X))) + (x2 (cdr (ly:stencil-extent markup X))) (y (* thick -2)) (line (ly:make-stencil - `(draw-line ,thick 0 ,y ,x ,y) - (cons (min x 0) (max x 0)) + `(draw-line ,thick ,x1 ,y ,x2 ,y) + (cons (min x1 0) (max x2 0)) (cons thick thick)))) (ly:stencil-add markup line))) -- 2.39.5