Jump to content

Distribute Stream option/keyword


Recommended Posts

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.

 

image.png.6efd2d4f9bffda39b489b7d1678a5ea7.png

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

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

  • 1 month later...

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

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...

Important Information

Terms of Use Privacy Policy