Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (
- SynthDef(\tstsSnd, { arg freq=6000, pan=0;
- var env = EnvGen.ar(Env.new([0, 1, 0], [0.0001, 0.3], [0, -5]), doneAction: Done.freeSelf);
- var snd = (SinOsc.ar(freq + SinOsc.ar(freq*3.345)));
- snd = snd + ClipNoise.ar(0.1);
- Out.ar(0, Pan2.ar(snd * env, pan));
- }).add;
- )
- (
- Pbind(\instrument, \tstsSnd,
- \freq, Pwhite(5000, 18000),
- \pan, Pbrown(-0.5, 0.5, 0.3, 5),
- \dur, Pwrand([0.125, 0.25, 0.5], [1, 0.3, 0.3].normalizeSum, inf);
- ).play;
- )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement