SuperCollider code for 8-channel composition exhibited in 2020 at Steklenik gallery run by CONA institute.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

108 lines
2.4 KiB

  1. (
  2. SynthDef(\stndTrigRing, {
  3. arg out=0, freq=1000, min=1, max=10, decay=0.1, ffreq=1000, amp=1, gate=1, fadeTime=1;
  4. var snd, in, env;
  5. in = StandardTrig.ar(min,max);
  6. snd = Ringz.ar(in, freq, decay);
  7. snd = LPF.ar(snd, ffreq);
  8. env = EnvGen.kr(
  9. Env([0, 1, 0], [fadeTime, fadeTime], \sin, 1),
  10. gate, doneAction: Done.freeSelf);
  11. snd = snd * env * amp;
  12. Out.ar(out,snd)
  13. }).add;
  14. );
  15. (
  16. SynthDef(\henoTrigRing, {
  17. arg out=0, freq=1000, min=1, max=10, decay=0.1, ffreq=1000, amp=1, gate=1, fadeTime=1;
  18. var snd, in, env;
  19. in = HenonTrig.ar(min,max);
  20. snd = Ringz.ar(in, freq, decay);
  21. snd = LPF.ar(snd, ffreq);
  22. env = EnvGen.kr(
  23. Env([0, 1, 0], [fadeTime, fadeTime], \sin, 1),
  24. gate, doneAction: Done.freeSelf);
  25. snd = snd * env * amp;
  26. Out.ar(out,snd)
  27. }).add;
  28. );
  29. (
  30. SynthDef(\gbmanTrigRing, {
  31. arg out=0, freq=1000, min=1, max=10, decay=0.1, ffreq=1000, amp=1, gate=1, fadeTime=1;
  32. var snd, in, env;
  33. in = GbmanTrig.ar(min,max);
  34. snd = Ringz.ar(in, freq, decay);
  35. snd = LPF.ar(snd, ffreq);
  36. env = EnvGen.kr(
  37. Env([0, 1, 0], [fadeTime, fadeTime], \sin, 1),
  38. gate, doneAction: Done.freeSelf);
  39. snd = snd * env * amp;
  40. Out.ar(out,snd)
  41. }).add;
  42. );
  43. (
  44. SynthDef(\latooTrigRing, {
  45. arg out=0, freq=1000, min=1, max=10, decay=0.1, ffreq=1000, amp=1, gate=1, fadeTime=1;
  46. var snd, in, env;
  47. in = LatoocarfianTrig.ar(min,max);
  48. snd = Ringz.ar(in, freq, decay);
  49. snd = LPF.ar(snd, ffreq);
  50. env = EnvGen.kr(
  51. Env([0, 1, 0], [fadeTime, fadeTime], \sin, 1),
  52. gate, doneAction: Done.freeSelf);
  53. snd = snd * env * amp;
  54. Out.ar(out,snd)
  55. }).add;
  56. );
  57. (
  58. SynthDef(\lorenzTrigRing, {
  59. arg out=0, freq=1000, min=1, max=10, decay=0.1, ffreq=1000, amp=1, gate=1, fadeTime=1;
  60. var snd, in, env;
  61. in = LorenzTrig.ar(min,max);
  62. snd = Ringz.ar(in, freq, decay);
  63. snd = LPF.ar(snd, ffreq);
  64. env = EnvGen.kr(
  65. Env([0, 1, 0], [fadeTime, fadeTime], \sin, 1),
  66. gate, doneAction: Done.freeSelf);
  67. snd = snd * env * amp;
  68. Out.ar(out,snd)
  69. }).add;
  70. );
  71. (
  72. SynthDef(\fhnTrigRing, {
  73. arg out=0, freq=1000, min=1, max=10, decay=0.1, ffreq=1000, amp=1,
  74. gate=1, fadeTime=1, ffreqlag=5;
  75. var snd, in, env;
  76. ffreq=Lag.kr(ffreq, ffreqlag);
  77. in = FhnTrig.ar(min,max);
  78. snd = Ringz.ar(in, freq, decay);
  79. snd = LPF.ar(snd, ffreq);
  80. env = EnvGen.kr(
  81. Env([0, 1, 0], [fadeTime, fadeTime], \sin, 1),
  82. gate, doneAction: Done.freeSelf);
  83. snd = snd * env * amp;
  84. Out.ar(out,snd)
  85. }).add;
  86. );