Posted August 4, 20222 yr Dear Friends, This is the example in the docs for the distribute-stream function. (setf sym '(c4 cs4 d4 eb4 e4 f4 fs4 g4 gs4 a4 bb4 c5 cs5 d5 eb5 e5)) (setf v1 '(1/8 1/8 -1/8 2/8 -1/8 5/8)) (setf v2 '(1/8 1/8 1/8 -1/8 2/8 1/8)) (setf va '(-2/8 1/8 1/8 -5/8 1/8)) (setf vc '(-1/8 3/8 3/8 1/8 1/8)) (setf inst (distribute-stream sym (list v1 v2 va vc))) (setf in1 (make-omn :length v1 :pitch (1~ inst))) (setf in2 (make-omn :length v2 :pitch (2~ inst))) (setf in3 (make-omn :length va :pitch (3~ inst))) (setf in4 (make-omn :length vc :pitch (4~ inst))) (list in1 in2 in3 in4) The result shows that the chromatic pitch sequence is distributed in the voices almost like in every beat, like a 1/4 span. An interesting feature would be the option to specify a series of different length time spans to spread the notes, making the spreading of chords, voicings or serial structures (like hexachords) more controllable. Is it possible , with a keyword ? Another possibility (maybe even better) is to spread the notes according to length sublists of each voice, Best, Julio
August 7, 20222 yr Hi Julio, the distribution is not made according to beats but just in order based on delta-time. But I agree I would like to have more control on distribution like the possibility to distribute list of pitch structure on vertical events (events with the same delta time) to be able to get a better control on the resultant harmonies. Best Stéphane
September 28, 20222 yr Author Dear all, Just for the record. The simple thing is just use four instances of distribute-stream to repitch the structure, like this: (setf v1mat-a '((h. c4 ord q eb4 -q e f4 stacc e g4) (q c4 p tie q c4 < tie c4 f ord e eb4 stacc f4 stacc))) (setf v2mat-a '((h. c4 ord q eb4 -q e f4 stacc e g4) (q c4 p tie q c4 < tie c4 f ord e eb4 stacc f4 stacc))) (setf v3mat-a '((h. c4 ord q eb4 -q e f4 stacc e g4) (q c4 p tie q c4 < tie c4 f ord e eb4 stacc f4 stacc))) (setf v4mat-a '((h. c4 ord q eb4 -q e f4 stacc e g4) (q c4 p tie q c4 < tie c4 f ord e eb4 stacc f4 stacc))) (setf repitch1 '((f5 e5) (e6 e6 e6 e6 e6) (f5 e5 d5 c5 f5 e5 d5 c5 f5 e5 d5 c5 f5 e5))) (setf repitch2 '((cs4 cs4 cs4 cs4 cs4 cs4) (d4 eb4 e4 f4 fs4 g4 gs4 a4 bb4 c5 cs5 d5 eb5 e5))) (setf repitch3 '((bb3 bb3 bb3 bb3 bb3 bb3) (a3 gs3 e3 e3 e3 e3 e3 e3 e3 e3 e3 e3 e3 e3 e3 e3 e3 e3 e3 e3 e3 e3 e3 g3 fs3 f3 e3 eb3 d3 cs3 c3 b2 bb2 a2))) (setf repitch4 '(cs2 g2 cs2 d2 d2 bb2 bb2 bb2 bb2 bb2 bb2 g2 cs2 g2 cs2 g2 cs2 g2 cs2 g2 cs2 g2 cs2 g2)) (setf v1new (distribute-stream repitch1 (list v1mat-a))) (setf v2new (distribute-stream repitch2 (list v2mat-a))) (setf v3new (distribute-stream repitch3 (list v3mat-a))) (setf v4new (distribute-stream repitch4 (list v4mat-a))) (setf v1 (make-omn :length (omn :length v1mat-a) :pitch v1new)) (setf v2 (make-omn :length (omn :length v2mat-a) :pitch v2new)) (setf v3 (make-omn :length (omn :length v3mat-a) :pitch v3new)) (setf v4 (make-omn :length (omn :length v4mat-a) :pitch v4new)) All the best ! Julio
Create an account or sign in to comment