From 3aae4ab2c334a2df7772480e74950b15758904cd Mon Sep 17 00:00:00 2001
From: Lorenz Lehmann <lorenz.lehmann@students.muho-mannheim.de>
Date: Thu, 28 Mar 2024 22:51:02 +0100
Subject: [PATCH] fix(source): fix voice-range in gen-harmonies
---
sources/gen-harmonies.lisp | 7 ++++---
1 files changed, 4 insertions(+), 3 deletions(-)
diff --git a/sources/gen-harmonies.lisp b/sources/gen-harmonies.lisp
index aeb553c..6ced843 100644
--- a/sources/gen-harmonies.lisp
+++ b/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))
\ No newline at end of file
--
Gitblit v1.9.1