Stuff from tonight

[Nick Colvin]

// this is weird

(

SynthDef(\saw,

{ | freq = 440, gate = 1, amp = 0.7, filtFreq = 880, rq = 0.5, pan = 0, out = 0 |

var sig, env;

env = Env.adsr(0.01, 0, 0.01, 1);

env = EnvGen.ar(env, gate, doneAction: 2);

sig = Saw.ar([freq, freq*1.01, freq*0.08]);

sig = RLPF.ar(sig, filtFreq, rq);

sig = Mix(sig);

sig = Pan2.ar(sig, pan);

sig = Limiter.ar(sig, 1);

Out.ar(out, sig);

}).add;

SynthDef(\liner,

{ | startVal = 1, endVal = 0, dur =1, lag = 0, out = 0 |

var sig;

sig = Line.kr(In.kr(out), endVal, dur, doneAction:2);

Out.kr(out, sig);

}).add;

)

~line = Bus.control(s);

~line.set(440)

~line.get

(

~player = Pbind(

\instrument, \saw,

\dur, Pgeom(0.01, 1.02, 200),

\freq, Pseries(440, 5),

\legato, 1,

\rq, 0.2,

\filtFreq, ~line.asMap

);

~linePlay = Pbind(

\instrument, \liner,

\out, ~line,

\endVal, Prand([100, 1000, 1000, 330, 600, 982, 200, 425], 10),

\dur, Prand([1, 4, 2, 5.5, 0.5, 3])

);

)

p = Ppar([~player, ~linePlay], 3).play;

a = Ppar([~linePlay]).play;

x = Synth(\saw, [\filtFreq, 660, \rq, 0.1])

x.release