\version "2.16.0"
\header {
- texidoc = "Text markup using @code{center-align} or @code{center-column} shall
+ texidoc = "Text markup using @code{center-column} shall
still reserve space for its whole width and not overwrite the previous stencil."
}
-\markup{\left-align { AAA BB }}
-\markup{\center-align { AAA BB }}
-\markup{\right-align { AAA BB }}
-
% Here the two center-columns should not collide with the +
\markup \line {
\center-column { \line {XXX} \line {Y} }
(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)))
(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))