this keep returning the original, what am I doing wrong? thanks rog

gen retro.opmo

I guess gen-retro does not work with more that one voice.

And you don't need the quote when calling the variable with gen-retro

Don't know if it is necessary but I would put a blanc character between the name of the variable and the content

(gen-retrograde 'music1)

(setf music1 '((q ..

 

hth

(setf music1 '((q e3 g3 e3) (h. c3) (h. e3) (q d3 c3 d3) (h. c3)
               (h. c3) (q e3 g3 a3) (h. g3 tie) (z^e g3 h. e3)
               (q e3 d3 c3) (h. d3 tie) (h. d3) (q e3 g3 e3) (h. c3)
               (h. e3) (q d3 c3 d3) (h. c3) (h. c3) (q e3 g3 a3)
               (h. g3 tie) (z^e g3 h. e3) (q d3 e3 d3) (h. c3 tie)
               (q. c3)))

(gen-retrograde music1)
=> ((q e3 g3 e3) (h. c3) (h. e3) (q d3 c3 d3) (h. c3) (h. c3)
    (q a3 g3 e3) (h. g3 tie) (h. e3 z^e g3) (q c3 d3 e3)
    (h. d3 tie) (h. d3) (q e3 g3 e3) (h. c3) (h. e3)
    (q d3 c3 d3) (h. c3) (h. c3) (q a3 g3 e3) (h. g3 tie)
    (h. e3 z^e g3) (q d3 e3 d3) (h. c3 tie) (q. c3))

 

MERGE-VOICES is the last process you do to a list.

Retrograde on piches only would work because the merged lengths will not change the position.

(gen-retrograde '(z^e e3 h. g3 q c4) :type :pitch)
=> (z^e c4 h. g3 q e3)