|
From: | Stephen MacNeil |
Subject: | RE:Precise markup position |
Date: | Wed, 6 May 2015 17:40:47 -0400 |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
#(define-public (stack-stencil-overlay stencils)
"Recursive function to add stencils together"
(if (and (pair? stencils)
(ly:stencil? (car stencils)))
(if (and (pair? (cdr stencils))
(ly:stencil? (cadr stencils)))
(let ((tail (stack-stencil-overlay (cdr stencils)))
(head (car stencils)))
(ly:stencil-add head tail))
(car stencils))
point-stencil))
#(define-markup-command (overlay layout props args)
(markup-list?)
"Overlay arguments one on top of the next"
(let ((stencils (interpret-markup-list layout props args)))
(stack-stencil-overlay
(remove ly:stencil-empty? stencils))))
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\bookpart {
\markup
\overlay { % add
\overlay { % add
\translate #'(80 . -50) { \center-column { \line { \abs-fontsize #24 "Composer" }
% \line { \null }
}
}
%\markup { \vspace #5 \null }
\translate #'(30 . -40) % move
\fill-line {
\center-column {
\line { \abs-fontsize #48 "Title 1" }
\line { \vspace #2 \null }
\line { \abs-fontsize #30 "Title 2" }
\line { \null }
}
}
}
} % add
} % add
[Prev in Thread] | Current Thread | [Next in Thread] |