Streamworks

.cc - week nine.

This week I have continued using streams in SuperCollider. I've pinched a small motive/idea from Phillip Glass, his minor chord with a flattened 6th found in the peice "Dance 8." This version is fairly different though.


streams(2).rtf


(

s = Server.local;

SynthDef( "Glass", {

arg freq, dur=1.0;

var osc;

osc = SinOsc.ar( [freq,freq+0.05.rand] ) * EnvGen.ar(

Env.perc, doneAction: 2, levelScale: 0.3, timeScale: dur

);

Out.ar(0,osc);

}).send(s);

)

(

var wait,
a,
b,
c = 60; //MouseY.kr(minval: 30, maxval: 80); //THE BASENOTE

a = Pshuf.new(
list: [
Pseq.new([c, c + 3, c + 7], {rrand(1,2)}),
Prand.new([c, c + 3, c + 7], {rrand(1,2)}),
Pshuf.new([c, c + 3, c + 7], {rrand(1,2)}),
Pseq.new([c, c + 3, c + 8], {rrand(1,2)}),
Prand.new([c, c + 3, c + 8], {rrand(1,2)}),
Pshuf.new([c, c + 3, c + 8], {rrand(1,2)})
],
repeats: inf //{rrand(5,10)}
);

b = a.midicps.asStream; //TO STREAM

wait = rrand(0.1,0.9); //0.2; //WAIT DUR

Task({ //TO SYNTH
inf.do({
Synth("Glass", [ \freq, (b.next), ]);
wait.wait;
});
}).play

)






.sources.

Haines, Christian 15.05.08, "Streams (2)," Lecture of EMU, Adelaide University.

---