With this month I’ll start a new column with Free code on Supercollider.
As I am learning new things on the software I would love to share patches and codes by growing complexity.
(
SynthDef.new(\blip, {
arg out;
var freq, trig, sig;
freq = LFNoise0.kr(3).exprange(300,1200).round(300);
sig = SinOsc.ar(freq) * 0.25;
trig = Dust.kr(2);
sig = sig * EnvGen.kr(Env.perc(0.01, 0.2), trig);
Out.ar(out,sig);
}).add;
)
(
SynthDef.new(\reverb, {
arg in, out=0;
var sig;
sig = In.ar(in,1);
sig = FreeVerb.ar(sig, 0.5, 0.8, 0.2)!2;
Out.ar(out, sig);
}).add;
)
y = Synth.new(\reverb, [\in, 2]);
x = Synth.new(\blip, [\out,2]);
Just copy and paste in your Supercollider editor the code and validate the two SynthDef, then validate the last two lines in order.
This is code is free to share but I will appreciate mentions.
Feel also free to comment below.
Leave a Reply