From c77abde53599e65314962d7402eeee9a16693a1e Mon Sep 17 00:00:00 2001 From: Nicolas Sceaux Date: Mon, 23 Jun 2008 20:49:10 +0200 Subject: [PATCH] markuplines: really fix vertical spacing of lines when using eg. \justify-lines --- scm/define-markup-commands.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm index b6c539dc40..1715b5567a 100644 --- a/scm/define-markup-commands.scm +++ b/scm/define-markup-commands.scm @@ -2198,15 +2198,15 @@ when @var{label} is not found." (define-public (space-lines baseline stils) (let space-stil ((prev-stil #f) - (stil (car stils)) - (rest (cdr stils)) + (stils stils) (result (list))) - (cond ((null? rest) + (cond ((null? stils) (reverse! result)) ((not prev-stil) - (space-stil stil (car rest) (cdr rest) (list stil))) + (space-stil (car stils) (cdr stils) (list (car stils)))) (else - (let* ((dy (max (- baseline + (let* ((stil (car stils)) + (dy (max (- baseline (+ (- (interval-bound (ly:stencil-extent prev-stil Y) DOWN)) (interval-bound (ly:stencil-extent stil Y) UP))) 0.0)) @@ -2215,7 +2215,7 @@ when @var{label} is not found." (ly:stencil-extent stil X) (cons (interval-bound (ly:stencil-extent stil Y) DOWN) (+ (interval-bound (ly:stencil-extent stil Y) UP) dy))))) - (space-stil stil (car rest) (cdr rest) (cons new-stil result))))))) + (space-stil stil (cdr stils) (cons new-stil result))))))) (define-builtin-markup-list-command (justified-lines layout props args) (markup-list?) -- 2.39.5