Re: Growing beam position

[Paolo Prete]

Hello Aaron,

what if I enlarge the beam angle? (see below)

Thanks!
P

%%%%

{

   \override Beam #'length-fraction = #1.6

   \override Beam.positions =
   #(grob-transformer 'positions
     (lambda (grob orig)
      (let* ((dir (ly:grob-property grob 'direction))
             (grow (ly:grob-property grob 'grow-direction))
             (cnt (length (ly:grob-property grob 'beam-segments)))
             (th (ly:grob-property grob 'beam-thickness))
             (iv (if (interval-sane? orig) orig
                     (reverse-interval orig)))
             (pos1 (interval-index iv dir))
             (pos2 (- pos1 (* 0.5 dir (- cnt 1 th)))))
       (if (> 0 grow) (cons pos1 pos2) (cons pos2 pos1)))))

   \override Beam.grow-direction = #RIGHT
   e'32[ f' g' a']
   c''64[ d'' e'' f'']
   \override Beam.grow-direction = #LEFT
   b'128[ a' g' f']
}
%%%%