Guest User

Untitled

a guest
Jul 15th, 2018
79
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.85 KB | None | 0 0
  1. (
  2. SynthDef.new(\iter, {
  3. arg freq=40;
  4. var temp, sum, env;
  5. sum = 0;
  6. env = EnvGen.kr(
  7. Env.perc(0.01, 5, 1, -2),
  8. doneAction:2
  9. );
  10. 10.do{
  11. temp = VarSaw.ar(
  12. 40 * {Rand(0.99,1.02)}!2,
  13. {Rand(0.0,1.0)}!2,
  14. {ExpRand(0.005, 0.05)}!2
  15. );
  16. sum = sum + temp;
  17. };
  18. sum = sum * 0.05;
  19. Out.ar(0, sum);
  20. }).add;
  21. )
  22.  
  23. Synth.new(\iter, [\freq, 66.midicps]);
  24. Synth.new(\iter, [\freq, 73.midicps]);
  25. Synth.new(\iter, [\freq, 80.midicps]);
  26. Synth.new(\iter, [\freq, 75.midicps]);
  27.  
  28. (
  29. SynthDef.new(\iter2, {
  30. arg freq=200, dev=1.02;
  31. var temp, sum;
  32. sum = 0;
  33. 20.do{
  34. arg count;
  35. temp = SinOsc.ar(
  36. freq *
  37. (count + 1) *
  38. LFNoise1.kr({Rand(0.05, 0.2)}!2).range(dev.reciprocal, dev)
  39. );
  40. temp = temp * LFNoise1.kr({Rand(0.5,8)}!2).exprange(0.01,1);
  41. sum = sum + temp;
  42. };
  43. sum = sum * 0.05;
  44. Out.ar(0, sum);
  45. }).add;
  46. )
  47.  
  48. x = Synth.new(\iter2);
  49. x.set(\dev, 1.3);
  50. x.free;
Add Comment
Please, Sign In to add comment