On 2021-09-03 11:52 am, Kenneth Wolcott wrote:
I am engraving some music that has a "poco rit." embedded inside a
hairpin.
See attached image.
How do I do that in Lilypond?
I'm using Lilypond 2.22.0
Maybe something like this:
%%%%
\version "2.22.0"
overlayMarkup =
#(define-scheme-function
(self-x self-y parent-x parent-y markup)
((number? 0) (number? 0) (number? 0) (number? 0) markup?)
(grob-transformer 'stencil
(lambda (grob orig)
(let* ((xex (ly:stencil-extent orig X))
(yex (ly:stencil-extent orig Y))
(xoff (interval-index xex parent-x))
(yoff (interval-index yex parent-y))
(sten (grob-interpret-markup grob markup)))
(set! sten (ly:stencil-aligned-to sten X self-x))
(set! sten (ly:stencil-aligned-to sten Y self-y))
(ly:stencil-add orig
(ly:stencil-translate sten (cons xoff yoff)))))))
pocoRitMarkup =
\markup \whiteout \tiny \italic "poco rit."
pocoRit =
-\tweak stencil \overlayMarkup \pocoRitMarkup \etc
{ b'4 \pocoRit \< 4 4 4 \! }
%%%%
-- Aaron Hill