Thanks, Valentin. That looks great. However, when I use it in a Dynamics context, I get an error message. Is there something else I would need to do to transplant this to a Dynamics context? I appreciate the work you did to make this.
Best,
Michael
\version "2.23.5"
right = \relative c'' {
}
left = \relative c' {
c1 | c1 |
}
ped = {
\override Dynamics.PianoPedalBracket.edge-height = #'(0 . 0)
\override Dynamics.PianoPedalBracket.stencil =
#(grob-transformer 'stencil
(lambda (grob orig)
(let* ((star (grob-interpret-markup grob (markup #:musicglyph "pedal.*")))
(gr_orig (ly:grob-original grob))
(sibs (if (ly:grob? gr_orig) (ly:spanner-broken-into gr_orig) '())))
(if (and (ly:grob? gr_orig) (eq? grob (last sibs)))
(ly:stencil-combine-at-edge orig X RIGHT star -0.82)
orig))))
\set Dynamics.pedalSustainStyle = #'mixed
s1\sustainOn |
s\sustainOff |
}
\score {
\new PianoStaff <<
\new Staff = "right" \right
\new Staff = "left" { \clef bass \left }
\new Dynamics \ped
>>
}