> (define ((stem-reduce amount) grob) > (let ((l (ly:grob-property grob 'length))) > (/ (- l amount) l))) > > \override Stem.length-fraction = #(stem-reduce 1) > > This is probably slightly absurd (and untested to boot), but it > would likely work.
Thanks for this, too!
Werner
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
