fix(source): fix voice-range in gen-harmonies

Lorenz Lehmann

28.03.24 3aae4ab2c334a2df7772480e74950b15758904cd

fix(source): fix voice-range in gen-harmonies

Filter all harmonies out of voice-range after the implementation of expand-harmonies and filter-harmonies

 sources/gen-harmonies.lisp

@@ -101,6 +101,10 @@
                                                                                    (if (funcall rule (first filter-box) harmony) harmony) harmony)))))
                                    
                                    harmonies))
                       (harmonies (remove nil (loop for harmony in (remove-duplicates harmonies :test #'equal)
                               collect (if (find -1  (mapcar (lambda (pitch range) 
                                                             (if (and (<= pitch (list-max_oml range)) (>= pitch (list-min_oml range))) pitch -1)) 
                                                           harmony ranges)) nil harmony))))
           
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

@@ -357,7 +361,4 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



(let ((a '(1)))
  (delete 1 a))