Re: shortening a stem

[Werner LEMBERG]

> (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