beamed stem lengths in pitch squash engraver

[jerome talkington]

Hello,
Wondered what I need to do to get some of these beamed stem lengths to
conform like the rest of them.
I'd like to be able to shorten beamed stems that extend inward towards the
staff as well.
Thanks!
LT

\version "2.22.1"
rhyHighDown = {
  \override Stem.details.beamed-lengths = #'(2)
  \set squashedPosition = #+13
  \override Stem.direction = #DOWN
  \override Stem.length = #3.5
  \override NoteHead.style = #'slash
  \override Accidental.stencil = ##f
  \override NoteHead #'no-ledgers = ##t
  \override Rest.Y-offset = #+6
}

rhyHighUp = {
  \override Stem.details.beamed-lengths = #'(2)
  \set squashedPosition = #+13
  \override Stem.direction = #UP
  \override Stem.length = #3.5
  \override NoteHead.style = #'slash
  \override Accidental.stencil = ##f
  \override NoteHead #'no-ledgers = ##t
  \override Rest.Y-offset = #+6
}

rhylowDown = {
  \override Stem.details.beamed-lengths = #'(2)
  \set squashedPosition = #-13
  \override Stem.direction = #DOWN
  \override Stem.length = #3.5
  \override NoteHead.style = #'slash
  \override Accidental.stencil = ##f
  \override NoteHead #'no-ledgers = ##t
  \override Rest.Y-offset = #-6
}

rhylowUp = {
  \override Stem.details.beamed-lengths = #'(2)
  \set squashedPosition = #-13
  \override Stem.direction = #UP
  \override Stem.length = #3.5
  \override NoteHead.style = #'slash
  \override Accidental.stencil = ##f
  \override NoteHead #'no-ledgers = ##t
  \override Rest.Y-offset = #-6
}
\new Voice \with {
 \consists "Pitch_squash_engraver"
 }
{
  \rhyHighUp c4 d ees8 fis g a
  \rhyHighDown c4 d ees8 fis g a
  \rhylowUp c4 d ees8 fis g a
  \rhylowDown c4 d ees8 fis g a
}

beamed-length.pdf
Description: Adobe PDF document