Re: Horizontal beam parallel to staff

[Aaron Hill]

On 2021-05-10 9:10 pm, Pierre Perol-Schneider wrote:
> Hi Ahanu,
> How about:
>
> \version "2.20.0"
> {
>   %\override Beam.damping = #5
>   \override Beam.positions = #'(5 . 5)
>   g''8 b b c'' c'' b b g''
> }

And for an automated approach:

%%%%
\version "2.22.0"

#(define NEAR -1)
#(define FAR 1)
flattenPositions =
#(define-scheme-function
  (rel-pos) (number?)
  (grob-transformer 'positions
   (lambda (grob orig)
    (let* ((dir (ly:grob-property grob 'direction))
           (ys (ordered-cons (car orig) (cdr orig)))
           (y (interval-index ys (* dir rel-pos))))
     (cons y y)))))

{
  \override Beam.positions = \flattenPositions #NEAR
  g''8 b b c'' a' b'' b'' d'
  \override Beam.positions = \flattenPositions #CENTER
  g''8 b b c'' a' b'' b'' d'
  \override Beam.positions = \flattenPositions #(* 2 FAR)
  g''8 b b c'' a' b'' b'' d'
}
%%%%


-- Aaron Hill