Re: is shapeSlur broken?

[David Nalesnik]

Hi Urs,

On Fri, Apr 27, 2012 at 4:23 AM, Urs Liska <address@hidden> wrote:

Hello Jan-Peter,

thank you very much.
This seems to solve the problem. Maybe it's not perfectly robust, though.
The function now works when the number of lists exactly matches the number of slur fragments. I'm not sure if this has been the case earlier or if it had been a little bit more 'generous'.
For the project at hand I can live with that anyway.

I've rewritten shape-slur so that you should be able to use lists of offsets which don't match with the number of slur fragments.  I've tested it somewhat, but if you run into a problem, let me know.  Here's the relevant part:

 #(define ((shape-slur offsets) 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) '() ))

          (total-found (length siblings)))

     (define (helper sibs offs)

       (if (and (eq? (car sibs) grob)

                (pair? offs))

           ((alter-curve (car offs)) grob)

           (if (pair? offs)

               (helper (cdr sibs) (cdr offs))

               ((alter-curve '()) grob))))

     (if (>= total-found 2)

         (helper siblings offsets)

         ((alter-curve offsets) grob))))

Hope this helps!

David