audio Micropolyphone series

[opmo]

More functionality in MICROPOLYPHONE to control the complexity:

 

(setf interval-series '((0) (1 -1 2 -2) (6 -6 11 -11) (13 -13)))

(micropolyphony
 4
 40
 1/16 1/4
 :intervals interval-series
 :interval-prob '(.2 .2 .3 .3)
 :length-prob '(.1 .9 .1 .9)
 :proportional t
 :index 'a
 :seed 830134
 :span 7
 )
 
(micropolyphony
 4
 40
 1/16 1/2
 :intervals interval-series
 :interval-prob '(.2 .2 .3 .9)
 :length-prob '(.2 .9 .4 .9)
 :proportional t
 :index 'b
 :seed 855650
 :span 13
 )
 
(setf
 rh-a (quantize (ambitus-chord 13 (dissolve-voices (merge-voices a1 a2))) '(1 2 4))
 lh-a (quantize (ambitus-chord 13 (dissolve-voices (merge-voices a3 a4))) '(1 2 4))
 rh-b (quantize (ambitus-chord 13 (dissolve-voices (merge-voices b1 b2))) '(1 2 4))
 lh-b (quantize (ambitus-chord 13 (dissolve-voices (merge-voices b3 b4))) '(1 2 4))
 )
 
(setf
 rh-1 (omn-to-time-signature (assemble-seq rh-a rh-b) '(4 4))
 lh-1 (omn-to-time-signature (assemble-seq lh-a lh-b) '(4 4))
 )
 
(setf
 rh (omn-dictum '((:all p)
                  (:all mf (1..5))
                  (:all > (5..7 16..20))
                  (:last pp 20)
                  (:last fermata 20))
                rh-1)
                
 lh (omn-dictum '((:all p)
                  (:all mf (1..5))
                  (:all > (5..7 16..20))
                  (:last pp 20)
                  (:last fermata 20))
                lh-1)
 )
 
(ps 'vsl
    :p (list (ambitus '(0 45) rh) (ambitus '(-32 -1) lh))
    :tempo 112
    )