On Fri, Oct 31, 2014 at 6:32 PM, Gilberto Agostinho <
gilbertohasn...@gmail.com> 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
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
