Re: select a note in a chord

[Valentin Villenave]

On 1/17/19, Davide Bonetti <address@hidden> wrote:
> I worked on your example, and here is the result.

Nice!

> I'm sure there is a better way to write the inversion function, but I
> haven't find a way to program the repetition of a function in scheme.

This is certainly not the most elegant way, but it seems to work:

inversion =
#(define-music-function (num music) (integer? ly:music?)
   (let ((str "")
         (up? (> num 0)))
     (map (lambda (x)
            (set! str
                  (string-append str
                    (if up? "\\rise 1 " "\\drop 1 ")))
            str)
       (iota (abs num)))
     #{ $(ly:parser-include-string str) $music #}))

Can you verify that it works as you intended? (If you’re running 2.18,
you’ll need to add "parser" after ly:parser-include-string.)

Cheers,
V.