Re: Phrasing slur bug?

[Han-Wen Nienhuys]

Stewart Holmes escreveu:
> > I agree that this is strange, but this is not guaranteed to work like 
> > you expect, since the ordering is not well defined. If you want to 
> > change control-points, set a callback on control-points
> >
> >   \override #'control-points = #(lambda (grob)
> >     ..stuff.. )
>
> Thanks for your reply Han-Wen. Is there any chance you could modify my example 
> to make it work? My scheme knowledge isn't advanced enough to understand how 
> to do the next step.




#(define (pagebreakone grob)
            (let* (
                   ; have we been split?
                   (orig (ly:grob-original grob))

                   ; if yes, get the split pieces (our siblings)
                   (siblings (if (ly:grob? orig)
                               (ly:spanner-broken-into orig) '() )))

             (if (and (>= (length siblings) 2)
                       (eq? (car (last-pair siblings)) grob))
              '((0 . 0) (5 . 5)
                (10 . 15) (15 . 0))
              (ly:slur::calc-control-points grob))))
\relative
{
        \override PhrasingSlur #'control-points = #pagebreakone


--

Han-Wen Nienhuys - address@hidden - http://www.xs4all.nl/~hanwen

LilyPond Software Design
 -- Code for Music Notation
http://www.lilypond-design.com