Re: modaltranspose & scheme function

[Aaron Hill]

On 2020-03-19 4:20 am, Gianmaria Lari wrote:

multiModal =

#(define-music-function (scale patternRhytmic patternMelodic) (ly:music?

ly:music? ly:music?)
   #{
     #@(map(lambda (p)

#{ \changePitch $patternRhytmic \modalTranspose c #(ly:make-pitch -1

p) $scale $patternMelodic #})
     (iota 8))
   #})

I would like to modify it so that the generated output would be:

c4 d8 e
b'4 c8 d
a'4 b'8 c

(iota 8) produces (0 1 2 3 4 5 6 7).
(iota 8 0 -1) would produce (0 -1 -2 -3 -4 -5 -6 -7).


-- Aaron Hill