Jump to content

Opusmodus 1.2.21420


Recommended Posts

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.

 

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

Terms of Use Privacy Policy