born
-
Posts
82 -
Joined
-
Last visited
Reputation Activity
-
born got a reaction from Stephane Boussuge in merge lengths with same pitches
Thanks a lot Stephane, that helps. Achim
-
born got a reaction from AM in Find all combinations that add upto given number
I use this to select different unique modules for Live-Electronics.
Here ist my adapted function:
(defun comb-to-sum (n &key (reps t)) (let* ((nums (gen-integer 1 n)) (x 0) (result (find-unique (sort-asc (flatten-sublist (loop repeat n for i = (combination2 (incf x) nums) collect (loop for c in i if (= (sum c) n) collect c))))))) (if reps result (loop for i in result when (equal (sum (remove-duplicates i)) n) collect i)))) (comb-to-sum 5 :reps nil) ; => ((5) (1 4) (2 3))
-
born got a reaction from JulioHerrlein in Inspiring Idea For Rhythm (with Nested Tuplets)
see:
OpenMusic Documentation - Rhythm Trees Structure
SUPPORT.IRCAM.FR Best, Achim
-
born got a reaction from opmo in Help with seed and semi-colons
It's actually
(setf motifx12 (rnd-order (gen-repeat 12 (list motif)) :seed 3)) Achim