Hello all,
why does each of the out commented lines break the layout when active? And why does
"(brace-Y..." not?
%%%%%%%%%%%%%%%%%%%%%%%
\version "2.24.0"
#(define (align-to-brace)
(lambda (grob)
(let* ((refp (ly:grob-system grob))
(all-elts (ly:grob-array->list (ly:grob-object refp 'all-elements)))
(brace (car (filter (lambda (elt)
(grob::has-interface elt
'system-start-delimiter-interface))
all-elts)))
;(brace-X-ext (ly:grob-property brace 'X-extent))
;(brace-Y-ext (ly:grob-property brace 'Y-extent))
;(brace-X (ly:grob-relative-coordinate brace refp X))
(brace-Y (ly:grob-relative-coordinate brace refp Y)))
(format #t "value: ~s" brace-Y))))
\score {
\new GrandStaff <<
\new Staff {
\once \override NoteHead.after-line-breaking = #(align-to-brace)
f'4
}
\new Staff {
f'4
}
>>
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Juergen.
