replace-length-of-a-technique

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