Re: Beaming until barline

[David Nalesnik]

On Fri, Oct 31, 2014 at 6:32 PM, Gilberto Agostinho <address@hidden> wrote:

David Nalesnik-2 wrote
> The attached file is what I come up with.

Absolutely fantastic, David! Thanks really a lot, this function is
looking really great!

Glad I can help!

 

By the way, part of this can be made a little prettier:

#(define (calc-beam-right segments)

   (fold

    (lambda (elem prev)

      (if (> (cddr (cadr elem)) prev)

          (cddr (cadr elem))

          prev))

    0

    segments))

could be:

#(define (calc-beam-right segments)

   (fold

    (lambda (elem prev)

      (max (cddr (cadr elem)) prev))

    0

    segments))

%%

Best,

David