[linux-audio-user] Little chillout track

[mlang at delysid.org (Mario Lang)]

Marc Lavall?e <marc@xxxxxxxxxxxx> writes:

> Le 27 F?vrier 2005 17:58, Frank Barknecht a ?crit?:
>> Hallo,
>>
>> Mario Lang hat gesagt: // Mario Lang wrote:
>> > Today morning, I recorded this little chill-out tune.  Its really very
>> > simple and all, but I kind of fell in love with it, so I thought
>> > "share and enjoy".
>> >
>> > http://delysid.org/music/trance1.ogg
>>
>> Very nice! How about posting the 40 SC3 lines somewhere? ;)
>
> And it would be a nice tutorial for SC.
> :-)

Here is the code:

s.boot;
SynthDescLib.read;
(
SynthDef(\echo, { arg out=0, maxdtime=0.5, dtime=0.2, decay=2, gate=1;
        var env, in;
        env = Linen.kr(gate, 0.05, 1, 0.75, 2);
        in = In.ar(out, 2);
        XOut.ar(out, env, CombL.ar(in * env, maxdtime, dtime, decay, 1, in));
}, [\ir, \ir, 0.1, 0.1, 0]).store;
SynthDef(\wah, { arg out=0, gate=1, freq=3.33;
        var env, in;
        env = Linen.kr(gate, 0.05, 1, 0.4, 2);
        in = In.ar(out, 2);
        XOut.ar(out, env, RLPF.ar(in, LinExp.ar(LFNoise1.ar(freq), -1, 1, 500, 12000), 0.1) * 0.7);
}, [\ir, 0]).store;
)
(
Pdef(\melody,
	Pbind(\scale, (0..11),
		\degree, Pshuf([0,4,7,11],4),
		\amp, Pseq([0.08, 0.1, 0.09, 0.11], inf),
		\pan, Pxrand((-0.9,-0.75..0.9), inf),
		\octave, Pstutter(4,Prand([3,4,5],inf)),
		\dur, 0.25,
		\legato, 0.2));
Pdef(\wah, Pfx(Pdef(\melody), \wah, \freq, 1.66));
Pdef(\wah2, Pfx(Pn(Pdef(\melody),2), \wah, \freq, 3.66));
Pdef(\echo1, {
	Pfx(Pdef(\wah2), \echo, \dtime, thisThread.clock.tempo.reciprocal/8, \decay, 4)
});
Pdef(\echo2, {
	Pfx(Pdef(\wah), \echo, \dtime, thisThread.clock.tempo.reciprocal/4, \decay, 3)
});
Pdef(\echo3, {
	Pfx(Pfx(Pdef(\melody), \wah, \freq, 66),
		\echo, \dtime, thisThread.clock.tempo.reciprocal/3, \decay, 4)
});
Pdef(\line1, Pseq([Pdef(\echo1),Pdef(\echo2),Pdef(\echo1),Pdef(\echo3),Pdef(\echo2),Pdef(\echo3)], inf)).play;
)

Loops forever, and never stays the same :-)

-- 
CYa,
  Mario