opmo Posted August 8, 2016 Share Posted August 8, 2016 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) RST 1 Link to comment Share on other sites More sharing options...
Recommended Posts