On 2020-09-03 5:22 pm, Alasdair McAndrew wrote:
Many thanks, both for the event function, and to the blog post. The
latter
looks quite tricky, but when I feel brave enough I'll give it a go.
Meanwhile, I'll experiment with the event function - which might in
fact be
preferable given that some of the marks are going to have to be
individually tweaked anyway.
Something to consider is whether a Fingering grob is a better fit than
TextScript for your custom ornamentation. With a little logic, you can
automatically align the child to its parent:
%%%%
\version "2.20.0"
makeRightOrnament =
#(define-scheme-function
(text)
(markup?)
(define (relative-extent grob source axis)
(ly:grob-robust-relative-extent
grob
(ly:grob-common-refpoint grob source axis)
axis))
(define (proc grob)
(let* ((pad (ly:grob-property grob 'padding))
(nh (ly:grob-parent grob X))
(dot (ly:grob-object nh 'dot))
(nh-xex (ly:grob-property nh 'X-extent))
(dot-xex (if (ly:grob? dot)
(relative-extent dot nh X)
empty-interval)))
(ly:grob-set-property! grob 'X-offset
(+ pad (apply max (map cdr (list nh-xex dot-xex)))))
(ly:grob-set-property! grob 'Y-offset
(ly:grob-property nh 'Y-offset))))
#{ -\tweak before-line-breaking #proc
-\finger \markup \normal-text #text #})
mx = \makeRightOrnament \markup \vcenter \teeny \sans x
mzzz = \makeRightOrnament \markup \vcenter \huge \bold zzz
{ f8 -\tweak padding #0.8 -\mx f'4. -\mx
f''16 -\mzzz f'''4.. -\mx }
%%%%
-- Aaron Hill
