Opusmodus 1.2.20144

[opmo]

Better segregation with SPLIT-TUPLET-LENGTHS:

(split-tuplet-lengths '(3q a4 b4 d4 f4 d4 q a4 b4 5q g3 a4 q - -))
=> ((3q a4 b4 d4 f4 d4) (q a4 b4) (5q g3 a4) (q a4 - -))

 

 

RND-UNIQUE new keyword :extend.
Extends the result to a given number:

(rnd-unique 13 '(c4 cs4 d4 ds4 e4 f4 fs4) :extend :loop :seed 45)
=> (f4 d4 fs4 ds4 c4 cs4 e4 f4 d4 fs4 ds4 c4 cs4)

(rnd-unique 13 '(c4 cs4 d4 ds4 e4 f4 fs4) :extend :rnd :seed 45)
=> (fs4 f4 cs4 ds4 c4 e4 f4 cs4 d4 ds4 fs4 d4 c4)