[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Growing beam position

From: Paolo Prete
Subject: Re: Growing beam position
Date: Thu, 4 Nov 2021 00:45:42 +0100

Hello Aaron,

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




   \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']


reply via email to

[Prev in Thread] Current Thread [Next in Thread]