opmo Posted February 3, 2017 Share Posted February 3, 2017 New: single-events sequence [Function] Arguments and Values: sequence omn sequence. Description: The function SINGLE-EVENTS brakes-up an omn sequence into a new list of single events (l p v a). (single-events '(s bb3 leg a3 mp leg g3 a3 f c4 f4 a4)) => ((s bb3 mf leg) (s a3 mp leg) (s g3 mp) (s a3 f) (s c4 f) (s f4 f) (s a4 f)) Examples: (single-events '((s bb3 leg a3 mp leg g3 a3 f c4 f4 a4) (-q s bb4 c5 mf stacc b4 c5 mf d5 eb5 fff f5 eb5 d5))) => (((s bb3 mf leg) (s a3 mp leg) (s g3 mp) (s a3 f) (s c4 f) (s f4 f) (s a4 f)) ((-q) (s bb4 mf) (s c5 mf stacc) (s b4 mf) (s c5 mf) (s d5 mf) (s eb5 fff) (s f5 fff) (s eb5 fff) (s d5 fff))) --------------------------------------------------------------- gen-steps step sequence &key seed [Function] Arguments and Values: step an integer or list of integers (number of steps). sequence a sequence. seed an integer or NIL. The default is NIL. Description: The function GEN-STEPS randomises the order of a sequence and returns it into the original sequence order, after a given number of steps. (gen-steps 12 '(0 1 2 3 4 5 6 7 8 9 10 11) :seed 43) => ((4 2 10 9 4 7 5 0 11 6 1 3) (4 2 2 9 4 7 5 0 11 6 1 3) (4 2 2 9 4 7 5 0 11 6 10 3) (4 2 2 9 4 7 5 0 11 9 10 3) (4 2 2 9 4 7 5 0 8 9 10 3) (4 2 2 9 4 7 5 7 8 9 10 3) (4 2 2 9 4 5 5 7 8 9 10 3) (0 2 2 9 4 5 5 7 8 9 10 3) (0 2 2 9 4 5 5 7 8 9 10 11) (0 2 2 9 4 5 6 7 8 9 10 11) (0 1 2 9 4 5 6 7 8 9 10 11) (0 1 2 3 4 5 6 7 8 9 10 11)) Examples: (gen-steps 6 '(c4 e4 g4 b4 f4 d4 b3) :seed 56) => ((a4 c4 f4 b4 e4 a4 d4) (c4 c4 f4 f4 e4 a4 d4) (c4 c4 f4 f4 e4 a4 b4) (c4 c4 e4 f4 e4 a4 b4) (c4 c4 e4 f4 g4 a4 b4) (c4 d4 e4 f4 g4 a4 b4)) OMN: (gen-steps 7 '(s c4 ppp d4 pp e4 p f4 mp g4 mf a4 f - b4 ff c5 fff) :seed 45) => ((s g4 mf f4 mp c5 fff f4 mp g4 mf c4 ppp a4 f - b4 ff) (s g4 mf f4 mp c5 fff f4 mp g4 mf c4 ppp a4 f - c5 fff) (s g4 mf f4 mp e4 p f4 mp g4 mf c4 ppp a4 f - c5 fff) (s g4 mf d4 pp e4 p f4 mp g4 mf c4 ppp a4 f - c5 fff) (s c4 ppp d4 pp e4 p f4 mp g4 mf a4 f a4 - c5 fff) (s c4 ppp d4 pp e4 p f4 mp g4 mf a4 f - - c5 fff) (s c4 ppp d4 pp e4 p f4 mp g4 mf a4 f - b4 ff c5 fff)) (pitch-variant (gen-steps '(3 4 5 4 3) '(s bb3 p a3 mp g3 a3 f c4 f4 a4 pp -q s bb4 c5 p b4 c5 mf d5 eb5 fff f5 eb5 d5) :seed 67) :variant '? :seed 3567) --------------------------------------------------------------- Added functions working with OMN events: (gen-crossover '((s bb3 p a3 mp g3) (s a3 f c4 f4 a4 pp)) '((-q s bb4 c5 p b4 c5 mf) (s d5 eb5 fff f5 eb5 d5)) :seed 45) => ((s bb3 p a3 mp c5 p b4 c5 mf) (-q s bb4 mf g3 mp) (s eb5 fff f5 eb5 d5) (s d5 mf a3 f c4 f4 a4 pp)) (gen-divide '(2 4 2) '(s c4 ppp d4 pp -q s e4 p f4 mp g4 mf a4 f b4 ff c5 fff)) => ((s c4 ppp d4 pp) (-q s e4 p f4 mp g4 mf) (s a4 f b4 ff) (s c5 fff)) (gen-interleave 2 '(s c4 ppp d4 pp e4 p f4 mp g4 mf a4 f b4 ff c5 fff)) => ((s c4 ppp d4 pp) (s d4 pp e4 p) (s e4 p f4 mp) (s f4 mp g4 mf) (s g4 mf a4 f) (s a4 f b4 ff) (s b4 ff c5 fff)) (gen-interleave '((2) (3)) '((s c4 ppp d4 pp e4 p f4 mp g4 mf a4 f b4 ff c5 fff) (s c4 ppp d4 pp e4 p f4 mp g4 mf a4 f b4 ff c5 fff)) :flatten t) => ((s c4 ppp d4 pp d4 e4 p e4 f4 mp f4 g4 mf g4 a4 f a4 b4 ff b4 c5 fff) (s c4 ppp d4 pp e4 p d4 pp e4 p f4 mp e4 p f4 mp g4 mf f4 mp g4 mf a4 f g4 mf a4 f b4 ff a4 f b4 ff c5 fff)) More to come... --------------------------------------------------------------- Notation: Articulation harm will display above the note now. AM, Stephane Boussuge and lviklund 3 Link to comment Share on other sites More sharing options...
Recommended Posts