(
~duau.play;
~duau = {|t_gate = 0, t_gate2 = 0, freq = 80|
var src;
src = SinOsc.ar(
Phasor.ar(t_gate, [20, 21], freq, 10),
pi,
2
).softclip.sum;
src = CompanderD.ar(src, src,
thresh: EnvGen.ar(Env([0,1,0], [0.1, 0.1]), gate: t_gate),
slopeBelow: 0.022,
slopeAbove: 0.1,
clampTime: 0.2,
relaxTime: 0.00002
) * EnvGen.ar(Env([0,1,0], [0.0001, 2]), gate: t_gate2)!2;
src.softclip
}
)
~duau.set(\t_gate, 1, \t_gate2, 1, \freq, 76)
~duau.set(\t_gate, 1, \t_gate2, 1, \freq, 96)
Technorati Tags: code, sc3
Done without the function posted in the last post, but I like it anyhow:
s.boot;
p = ProxySpace.push(s);
ProxyMixer(p)
History.start;
~tacker.clear
~tacker.fadeTime = 10;
~tacker = {|amp = 0.1, freq = 60|
var in;
var lf = {LFSaw.ar(Phasor.ar(
Impulse.ar(2/5, 2.0.rand),
120,
1,
TRand.kr(0.5 * freq, freq, Impulse.ar(50))
))}!10;
in = lf.collect{|lf|
(Impulse.ar(lf.exprange(15, 1000)) * lf.range(0.1, 1))
}.sum * 0.1;
(Pan2.ar(in, WhiteNoise.ar(1)) * 20 * amp).softclip
}
~tacker.play
~filta = {|freq = 10000, rq = 0.1|
RLPF.ar(~tacker.ar, freq, rq)
}
Spec.add(\wet, [0, 1].asSpec)
~outa = {|wet = 0.1| (wet * ~filta.ar) + ((1-wet) * ~tacker.ar)}
~cutta = {
~outa.ar * LFPulse.ar(Line.kr(10, 20, 300))
}
Spec.add(\dt, [0, 1].asSpec)
~tacker1 = {|dt = 0.2| DelayN.ar(~cutta.ar, 1, dt)}
p.free(10)
Technorati Tags: art, livecoding, sc3
sometimes it makes sense to practice livecoding. In order not to use the same UGens and Patterns over and over again, I wrote this little recurrent function which collects all available UGens and chooses one for you to use.
f = {|ugen|
ugen.subclasses.notNil.if({
ugen.subclasses.collect({|ugen| f.(ugen)}) ++ [ugen]
}, {
[ugen]
})
}
f.(UGen).flat.choose
enjoy!
Update: redFrik pointed me to this little patch AdC wrote some time ago. It is much fancier then mine, but you have to post your solutions and score here.
[ redFrik | AdC | livecoding ]
Reaching photographies of Margaret Bourke-White (1904 – 1971). Abstract art in everyday life of the 30s.
[ March of the Dynamos (1928) | steps (1934) | Fort Peck Dam, Montana (1936) ]
You cannot be reminded enough:
[ Buchenwald (1945) ]
[ Wikipedia on Bourke-White ]
Technorati Tags: art, history, abstract
Run cron-jobs manually on OS X
sudo periodic daily;
sudo periodic weekly;
sudo periodic monthly;
Now have added Lightbox to my weblog. Neat little toy…
[ lightbox home ]
