Jump to content

Opusmodus 1.2.21641


Recommended Posts

New:

 

VELOCITY-VARIANT

 

velocity-variant sequence &key variant section exclude omn

 

[Function]

 

Arguments and Values:

 

sequence                          list(s) of velocities or omn-form lists.

variant                            'p (prime), 'r (retrograde), 'i (invert), 'ri (retrograde-invert),

                                            'a (ascending), 'd (descending) and '? (at random).

                                              The default is ? (random).

section            an integer or list of integers. Selected list or lists to process.

                                              The default is NIL.

exclude            an integer or list of integers. Excluded list or lists from process.

                                              The default is NIL.

omn                                       NIL or T. If true force OMN style output. The default is T.

 

Description:

 

This function can process a sequence of common variant forms on lists of velocities.

 

(velocity-variant '(ppp p mf ff p<>f < <) :variant 'i)

=> (fff f mp pp f><p > >)

 

The variant processes included in this function are all standard forms used throughout most composition practice. The function does not use any speculative or random-based processes. All the function processes used can be found in OPUSMODUS as standalone functions.

 

(setf velocity (gen-repeat 6 '((ppp p mf ff p<>f < <))))

 

(velocity-variant velocity :variant '(p r i ri a d))

=> ((ppp p mf ff p<>f < <) (> > f><p ff mf p ppp)

    (fff f mp pp f><p > >) (< < p<>f pp mp f fff)

    (ppp p mf mf mf f ff) (ff f mf mf mf p ppp))

 

Examples:

 

(velocity-variant

 '(p<>mf p<>ff fff><ff pppp<ff>ppp p>ppp<f 0<mp) :variant 'i)

=> (f><mp f><pp ppp<>pp ffff>pp<fff f<fff>p mf>0)

 

(velocity-variant

 '(p<>mf p<>ff fff><ff pppp<ff>ppp p>ppp<f 0<mp) :variant 'ri)

=> (0<mf p<fff>f fff>pp<ffff pp><ppp pp<>f mp<>f)

 

OMN:

 

(velocity-variant '(q e4 mf f4 f g4 ff) :seed 5)

=> (q e4 pp f4 p g4 mp)

 

(velocity-variant

 '((e c4 f cs5 f d4 f ds5 p f4 p fs5 p c5 p pp)

   (e cs4 p f d4 f eb5 p f4 p eb4 f d3 p ff)) :variant '(r i))

=> ((e c4 pp cs5 p d4 ds5 f4 fs5 f c5 c5)

    (e cs4 f p d4 eb5 f f4 eb4 p d3 f pp))

 

(velocity-variant

 '((e c4 fff cs5 f d4 f ds5 p f4 p fs5 p c5 p pp)

   (e cs4 p f d4 f eb5 p f4 p eb4 f d3 p ff)))

=> ((e c4 pp cs5 p d4 ds5 f4 fs5 f c5 c5 fff)

    (e cs4 p f d4 eb5 p f4 eb4 f d3 p ff))

   . . .

 

(setf omn

      '((h. eb4 pp tasto q g3 0<pp>0 ponte)

        (-e) (q gs4 fp tasto) (-s) (q a5 ffp)

        (-e) (q bb4 fffp) (-s) (q cs5 pf)

        (-s q. e5 fp -e.) (q cs5 p h. d5 pfp)

        (-q h. c5 pp) (h. gs3 0<ppp>0 ponte -e a4 p< tasto)

        (h. fs5 mp q bb3 0<pp>0 ponte)

        (q c5 p tasto h. e4 pfp) (-e)

        (q cs4 fp h d5 pp>pppp) (h. f4 pp>pppp)))

 

(velocity-variant omn :variant '(ri i r p))

=> ((h. eb4 0<ff>0 tasto q g3 ff ponte)

    (-e) (q gs4 fp tasto) (-s) (q a5 ffp)

    (-e) (q bb4 fffp) (-s) (q cs5 pf)

    (-s q. e5 fp -e.) (q cs5 pfp h. d5 p)

    (-q h. c5 pp) (h. gs3 f< ponte -e a4 0<fff>0 tasto)

    (h. fs5 mf q bb3 0<ff>0 ponte)

    (q c5 pfp tasto h. e4 p) (-e)

    (q cs4 fp h d5 pp>pppp) (h. f4 ffff>ff))

 

-----------------------------------------

 

Fix to RESPELL and chord sort function and handful of new dynamic symbols.

 

To see the list of all the velocity and dynamic symbols please go to:
Documents/1. OMN The Language/2. Four Elements/3rd Element - Velocity

 

More optimisation and minor bug fixes.

 

Best wishes,

Janusz

 

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

Terms of Use Privacy Policy