Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (
- SynthDef.new(\iter, {
- arg freq=40;
- var temp, sum, env;
- sum = 0;
- env = EnvGen.kr(
- Env.perc(0.01, 5, 1, -2),
- doneAction:2
- );
- 10.do{
- temp = VarSaw.ar(
- 40 * {Rand(0.99,1.02)}!2,
- {Rand(0.0,1.0)}!2,
- {ExpRand(0.005, 0.05)}!2
- );
- sum = sum + temp;
- };
- sum = sum * 0.05;
- Out.ar(0, sum);
- }).add;
- )
- Synth.new(\iter, [\freq, 66.midicps]);
- Synth.new(\iter, [\freq, 73.midicps]);
- Synth.new(\iter, [\freq, 80.midicps]);
- Synth.new(\iter, [\freq, 75.midicps]);
- (
- SynthDef.new(\iter2, {
- arg freq=200, dev=1.02;
- var temp, sum;
- sum = 0;
- 20.do{
- arg count;
- temp = SinOsc.ar(
- freq *
- (count + 1) *
- LFNoise1.kr({Rand(0.05, 0.2)}!2).range(dev.reciprocal, dev)
- );
- temp = temp * LFNoise1.kr({Rand(0.5,8)}!2).exprange(0.01,1);
- sum = sum + temp;
- };
- sum = sum * 0.05;
- Out.ar(0, sum);
- }).add;
- )
- x = Synth.new(\iter2);
- x.set(\dev, 1.3);
- x.free;
Add Comment
Please, Sign In to add comment