opmo Posted February 27, 2017 Share Posted February 27, 2017 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 Stephane Boussuge 1 Link to comment Share on other sites More sharing options...
Recommended Posts