Hi Harm,

On Sun, Jun 26, 2016 at 3:53 AM, Thomas Morley <thomasmorle...@gmail.com> wrote:
> 2016-06-26 5:00 GMT+02:00 Andrew Bernard <andrew.bern...@gmail.com>:
>>  Hi Matteo,
>>
>> I have a tuplet angle function that somebody (I cannot recall who)
>> sent me some time ago. I use it heavily and extensively and I can say
>> it has been tested by me to the limit - it works well.
>>
>> Using this code you just say \tupletAngles 1 0 or similar and that's
>> all you need. Put it is a file tuplet-angles.ily and include it. Using
>> \tupletAngles 0 0 is very handy for straigthening up tuplets when you
>> don't want lilypond to angle them.
>>
>> Here it is. [Surprised this is not more well known.]
>>
>> Andrew
>
> Looking in the archives:
> http://lilypond.1069038.n5.nabble.com/angle-of-a-tuplet-bracket-td55019.html#a55023
> :)
>

A very useful function!

It occurs to me that you could override 'positions directly without
consulting the stencil, instead of as a side-effect:


%% ===========================================
tupletAngles =
#(define-music-function (y-off angl)(number? number?)
   "
 y-off a (possible) offset in Y-direction
 angl is supposed to be the angle of the TupletBracket in degrees,
 "
   #{
     \once\override TupletBracket #'positions =
     #(lambda (grob)
        (let* ((pos (ly:tuplet-bracket::calc-positions grob))
               (y-length (interval-length pos))
               (x-length (interval-length
(ly:tuplet-bracket::calc-x-positions grob)))
               (alpha (degrees->radians angl))
               (dir (ly:grob-property grob 'direction))
               (new-start (+ (if (= dir 1)
                                 (max (car pos)(cdr pos))
                                 (min (car pos)(cdr pos)))
                            y-off))
               (new-y (* x-length (tan alpha))))
          (cons new-start (+ new-start new-y))))
   #})

horizontalTuplets =
\override TupletBracket  #'positions =
#(lambda (grob)
   (let* ((pos (ly:tuplet-bracket::calc-positions grob))
          (dir (ly:grob-property grob 'direction))
          (new-pos (if (= dir 1)
                       (max (car pos)(cdr pos))
                       (min (car pos)(cdr pos)))))
     (cons new-pos new-pos)))

%% ===========================================

(For newer versions, maybe it would be helpful to work in the
grob-transformer function?)

--DN

_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to