roger davis Posted September 22, 2015 Posted September 22, 2015 this keep returning the original, what am I doing wrong? thanks roggen retro.opmo Quote
o_e Posted September 22, 2015 Posted September 22, 2015 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 Quote
opmo Posted September 22, 2015 Posted September 22, 2015 (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) Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.