From b2f2a3e70164f813ae74bba031a381c201afea58 Mon Sep 17 00:00:00 2001
From: Lorenz Lehmann <lorenz.lehmann@students.muho-mannheim.de>
Date: Sat, 09 Dec 2023 16:54:02 +0100
Subject: [PATCH] fix(sources)!: replace harmon-database
---
sources/gen-harmonies.lisp | 6 ++----
1 files changed, 2 insertions(+), 4 deletions(-)
diff --git a/sources/harmon-database.lisp b/sources/gen-harmonies.lisp
similarity index 96%
rename from sources/harmon-database.lisp
rename to sources/gen-harmonies.lisp
index 409a4eb..869a5d7 100644
--- a/sources/harmon-database.lisp
+++ b/sources/gen-harmonies.lisp
@@ -8,13 +8,11 @@
(in-package :omlead)
-;;;harmon-database
-;keine globalen Variablen mehr
-
-(om::defmethod! harmon-database (pitch-set-list instr1 &key instr2 instr3 instr4 (fundamental 6000) (skala (list 100)) (permutations t) (register-list '(0)))
+(om::defmethod! gen-harmonies ((pitch-set-list list) (instr1 list) (instr2 list) (instr3 list) (instr4 list) &key (fundamental 6000) (skala (list 100)) (permutations t) (register-list '(0)))
:icon 030719972
+:initvals '('((0)) '(6000 7200) nil nil nil)
:indoc '("a list of lists of intervals respective to a base not in midi-cents" "range-list with the lowest and highest note of the instrument in midi-cents" "range-list with the lowest and highest note of the instrument in midi-cents" "range-list with the lowest and highest note of the instrument in midi-cents" "range-list with the lowest and highest note of the instrument in midi-cents" "list of intervals based on the virtual fundamental which defines the <octave> for register-transposition")
:numouts 1
--
Gitblit v1.9.1