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 -
hanwen@... -
http://www.xs4all.nl/~hanwenLilyPond Software Design
-- Code for Music Notation
http://www.lilypond-design.com_______________________________________________
bug-lilypond mailing list
bug-lilypond@...
http://lists.gnu.org/mailman/listinfo/bug-lilypond
