relax and enjoy...

.cc - week ten.

This week in SuperCollider I have added another line to the melodic stream and added some modal transposition.


stream3.rtf (4 kB)


(

s = Server.local;

SynthDef( "PlesantAdventure", {

arg freq, dur=1.0;

var osc;

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

Env.perc(0.05, 0.75, 0.75, -4), doneAction: 2, levelScale: 0.3, timeScale: dur

);

Out.ar(0,osc);

}).send(s);

)

(

var line1,
line2;

line1 = Pbind(
\instrument, "PlesantAdventure",
\dur, 0.15,
\degree, Pseq([ Pshuf(#[0, 3, 7], 3), Pseq([0, 6, 7]) ], 1)
);

line2 = Paddp(
\mtranspose,
Pseq( [0, 3, 6, 2, 5, 1, 4]),
Ppar([
line1,
Padd(\mtranspose, 7, line1),
Padd(\mtranspose, -2, line1)
])
);


Pseq([
line1,
line2,
Pstretch(1.5, line2)
], inf).play
)




.sources.

Haines, Christian 22.06.08, "Streams (3)," Lecture of EMU, Adelaide University.

---