lilypond-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

RE:Precise markup position


From: Stephen MacNeil
Subject: RE:Precise markup position
Date: Wed, 6 May 2015 17:40:47 -0400

the overlay on the lsr will do this.
can't remember where it is but I have it here so ...
play with translate to position
I put them on top off one another so you can see it's use.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

#(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


HTH
Stephen

reply via email to

[Prev in Thread] Current Thread [Next in Thread]