From 5bb71e5d06c135518bf765d85d283e79687bdc40 Mon Sep 17 00:00:00 2001 From: Erlend Aasland Date: Fri, 11 Jan 2008 22:21:29 +0100 Subject: [PATCH] Code style... --- scm/define-markup-commands.scm | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm index e04b79963c..624cc3bb01 100644 --- a/scm/define-markup-commands.scm +++ b/scm/define-markup-commands.scm @@ -120,18 +120,17 @@ the PDF backend." (define-builtin-markup-command (underline layout props arg) (markup?) "Underline @var{arg}. Looks at @code{thickness} to determine line thickness and y offset." - (let* ((th (* + (let* ((thick (* (ly:output-def-lookup layout 'line-thickness) (chain-assoc-get 'thickness props 1))) - (m (interpret-markup layout props arg)) - (x (cdr (ly:stencil-extent m X))) - (y (* th -2)) + (markup (interpret-markup layout props arg)) + (x (cdr (ly:stencil-extent markup X))) + (y (* thick -2)) (line (ly:make-stencil - `(draw-line ,th 0 ,y ,x ,y) + `(draw-line ,thick 0 ,y ,x ,y) (cons (min x 0) (max x 0)) - (cons th th))) - (s (ly:stencil-add m line))) - s)) + (cons thick thick)))) + (ly:stencil-add markup line))) (define-builtin-markup-command (box layout props arg) (markup?) "Draw a box round @var{arg}. Looks at @code{thickness}, -- 2.39.2