modify-length-of-a-technique

(defun modify-length-of-a-technique (omn-list &key technique (factor 1) (modification 'augmentation))
  (flatten (loop for i in (single-events omn-list)
             when (equal (car (omn :articulation i)) technique)
             collect (cond ((equal modification 'augmentation)
                            (length-augmentation factor i))
                           ((equal modification 'diminution)
                            (length-diminution factor i)))
             else collect i)))


    

(modify-length-of-a-technique '(q d4 mf ponte e fs4 tasto -e. e g4 tasto q gs4 ponte) 
                              :technique 'ponte
                              :factor 10
                              :modification 'augmentation) ;; also 'diminution