fix(examples): add new examples

Lorenz Lehmann

11.12.23 452fa3bdcfdea130310fc1b42de08dc28054ad94

 sources/gen-harmonies.lisp

@@ -9,7 +9,7 @@
(in-package :omlead)


(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)))
(om::defmethod! gen-harmonies ((pitch-set-list list) (instr1 list) (instr2 list) (instr3 list) (instr4 list) &key (avoid-empty-voices nil) (fundamental 6000) (skala (list 100)) (permutations nil) (register-list '(0)))

:icon 030719972
:initvals '('((0)) '(6000 7200) nil nil nil)   
@@ -23,7 +23,7 @@
(defun circular_oml (items) 
(setf (cdr (last items)) items)
items)

 

(defun flat_oml (liste)
  (cond 
@@ -158,17 +158,18 @@
                                                          collect
                                                          (loop for reg in (variations_oml register-list (length a))
                                                                collect (mapcar #'(lambda (r p) (+ r p)) reg a))) 1) :test 'equal))
       (instr-list2  (remove nil (list instr1 instr2 instr3 instr4)))
       (harmon-database (loop for a in harmon-database
       (instr-list2  (list instr1 instr2 instr3 instr4))
       (harmon-database (remove -1 (loop for a in harmon-database
                              collect (loop for p in a
                                            for count to (1- (length instr-list2))
                                            for c to (1- (length instr-list2))

                                            collect (if (or (< p  (car (nth count instr-list2)))
                                                            (> p (cadr (nth count instr-list2)))) nil p))))
                                            collect (if (nth c instr-list2) (if (or (< p  (car (nth c instr-list2)))
                                                            (> p (cadr (nth c instr-list2)))) nil p) -1)) )))
       (harmon-database (remove nil (loop for a in harmon-database
                                          collect (if (> (count nil a) 0) nil a)))))
harmon-database))
                                          collect (if (> (count nil a) 0) nil a))))

       (harmon-database (if avoid-empty-voices (mapcar (lambda (x) (remove -1 x)) harmon-database) harmon-database)))
harmon-database))