Added practice file
This commit is contained in:
parent
f90eb91a82
commit
3d2a6830ac
73
practice.sc
Normal file
73
practice.sc
Normal file
@ -0,0 +1,73 @@
|
|||||||
|
( // Init some shit
|
||||||
|
t = TempoClock(120/60);
|
||||||
|
~reverbBus = Bus.audio(s,2);
|
||||||
|
~srcGrp = Group.new;
|
||||||
|
~fxGrp = Group.after(~srcGrp);
|
||||||
|
~reverb = Synth.new(\reverb, [\in, ~reverbBus], ~fxGrp);
|
||||||
|
)
|
||||||
|
|
||||||
|
(
|
||||||
|
SynthDef.new(\reverb, {
|
||||||
|
arg in, out=0, mix=0.6, room=0.8, damp=0.1;
|
||||||
|
var sig;
|
||||||
|
sig = In.ar(in, 2);
|
||||||
|
sig = FreeVerb2.ar(sig[0], sig[1], mix, room, damp);
|
||||||
|
Out.ar(out,sig);
|
||||||
|
}).add;
|
||||||
|
)
|
||||||
|
|
||||||
|
( //reset fx
|
||||||
|
~fxGrp.freeAll;
|
||||||
|
~reverb = Synth.new(\reverb, [\in, ~reverbBus], ~fxGrp);
|
||||||
|
)
|
||||||
|
|
||||||
|
(
|
||||||
|
SynthDef.new(\bell, {
|
||||||
|
arg freq=440, rel=0.6, amp=0.3, pan=0, gate=1, out=0,
|
||||||
|
atk=0.01, dec=0.4, sus=0;
|
||||||
|
var sig, env;
|
||||||
|
env = EnvGen.kr(Env.new([0,1,0], [atk,rel], [1,-1]), gate, doneAction:2);
|
||||||
|
sig = Pan2.ar(SinOsc.ar(freq) * env * amp, pan);
|
||||||
|
Out.ar(out,sig);
|
||||||
|
}).add;
|
||||||
|
)
|
||||||
|
|
||||||
|
(
|
||||||
|
SynthDef.new(\pad, {
|
||||||
|
arg freq=440, rel=1, amp=0.3, pan=0, gate=1, out=0,
|
||||||
|
atk=1, dec=0.5, sus=0;
|
||||||
|
var sig, env;
|
||||||
|
env = EnvGen.kr(Env.adsr(atk, dec, sus, rel, amp), gate, doneAction:2);
|
||||||
|
sig = Pan2.ar(Saw.ar(freq) * env * amp, pan);
|
||||||
|
Out.ar(out,sig);
|
||||||
|
}).add
|
||||||
|
)
|
||||||
|
|
||||||
|
|
||||||
|
Env.new([0,1,0], [0.01,3], [1,1.5]).plot
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
(
|
||||||
|
~bells = Pbind (
|
||||||
|
\instrument, \bell,
|
||||||
|
\dur, Pseq([1, 2, 1], inf, 0),
|
||||||
|
\midinote, Prand(Scale.minor.degrees + 60, inf),
|
||||||
|
\amp, 0.5,
|
||||||
|
\out, ~reverbBus,
|
||||||
|
\group, ~srcGrp,
|
||||||
|
).play;
|
||||||
|
)
|
||||||
|
~bells.stop;
|
||||||
|
|
||||||
|
(
|
||||||
|
~pad = Pbind (
|
||||||
|
\instrument, \pad,
|
||||||
|
\dur, Pseq([1, 2, 1], inf, 0),
|
||||||
|
\midinote, Prand(Scale.minor.degrees + 60, inf),
|
||||||
|
\amp, 0.5,
|
||||||
|
\out, ~reverbBus,
|
||||||
|
\group, ~srcGrp,
|
||||||
|
).play;
|
||||||
|
)
|
||||||
|
~pad.stop;
|
Loading…
Reference in New Issue
Block a user