[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: \box overlaps
From: |
David Kastrup |
Subject: |
Re: \box overlaps |
Date: |
Mon, 18 Mar 2013 23:10:58 +0100 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (gnu/linux) |
Eluze <address@hidden> writes:
> Am 18.03.2013 22:17, schrieb Thomas Morley:
>> \version "2.17.12"
>>
>> \markup \box { \left-brace #80 \left-brace #80 }
>
> 1st occurrence is 2.17.9!
I suspect
commit bad0e5f6c8a3e5a40284e4120cb9753b77a8d7b3
Author: Keith OHara <address@hidden>
Date: Wed Nov 21 13:52:53 2012 -0800
markup.scm: use stencil extents when stacking; issue 723
diff --git a/scm/markup.scm b/scm/markup.scm
index 31bbaee..a4f723e 100644
--- a/scm/markup.scm
+++ b/scm/markup.scm
@@ -62,7 +62,8 @@ Example:
(cons (acons key val (car chain)) (cdr chain)))
(define-public (stack-stencil-line space stencils)
- "DOCME"
+ "Adjoin a list of STENCILS along the X axis, leaving SPACE between the
+ end of each stencil and the reference point of the following stencil."
(if (and (pair? stencils)
(ly:stencil? (car stencils)))
@@ -70,7 +71,7 @@ Example:
(ly:stencil? (cadr stencils)))
(let* ((tail (stack-stencil-line space (cdr stencils)))
(head (car stencils))
- (xoff (+ space (interval-length (ly:stencil-extent head X)))))
+ (xoff (+ space (interval-end (ly:stencil-extent head X)))))
(ly:stencil-add head
(ly:stencil-translate-axis tail xoff X)))
(car stencils))
though from the patch itself, it appears plausible that this might be a
_desired_ effect of the change as a consequence of the brace metrics.
--
David Kastrup