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