Jump to content

Recommended Posts

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

Link to comment
Share on other sites

(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)

 

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...

Important Information

Terms of Use Privacy Policy