Jump to content

Recommended Posts

Posted

modifying stephane' s code

 

(defun replace-length-of-a-technique (omn-list &key technique length)
   (flatten (loop for i in (single-events omn-list)
              when (equal (nth 3 i) technique)
              collect `(,(rnd-pick* length) ,(nth 1 i) ,(nth 2 i) ,(nth 3 i))
              else collect i)))



(replace-length-of-a-technique  '(e. c4 p tasto d4 ponte e4) 
                                  :technique 'tasto 
                                  :length '(1/32))


(replace-length-of-a-technique  '(e. c4 p tasto d4 ponte e4 d4 tasto f5 tasto)  
                                  :technique 'tasto 
                                  :length '(1/32 2/32 3/32)) ;; rnd

 

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