omn-sieve-filter

[AM]

(defun memberp (n liste)
  (not (equal 'nil (member n liste))))

;;; MAIN

(defun omn-sieve-filter (omn-list filter-list)
  (flatten 
   (loop 
     for i in (single-events omn-list)
     for j from 1 to (length omn-list)
     when (memberp j filter-list)
     collect i
     else collect (length-invert (car i)))))


(omn-sieve-filter (make-omn :pitch (rnd-sample 10 '(c4 d4 e4 fs4 gs4) :seed 89)
                        :length '(e)
                        :span :pitch)
                  '(1 2 3 5 8 9 10))

=> (e c4 mf e gs4 mf e fs4 mf -1/8 e e4 mf -1/8 -1/8 e c4 mf e gs4 mf e fs4 mf)