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.

21 lines
532 B

  1. ( // synthdef /////////
  2. SynthDef(\fm_grainer, {
  3. arg out = 0, modfreq = rrand(10,1000), carfreq = 100, amp=0.5 ;
  4. var signal;
  5. signal = GrainFM.ar(
  6. numChannels:2,
  7. trigger: Impulse.kr(LFTri.kr(0.1, -1)+1*10),
  8. dur: 0.05,
  9. carfreq: carfreq,
  10. modfreq: modfreq,
  11. // index: LFNoise1.kr.range(1, 90),
  12. index: SinOsc.kr(0.05)*0.2,// LFNoise1.kr.range(1, 90),
  13. pan: 0,
  14. envbufnum: -1
  15. ) * 0.2;
  16. signal = signal * EnvGen.kr(Env.linen(1,60,10,0.4,\lin),doneAction:Done.freeSelf) * amp;
  17. Out.ar(out, signal);
  18. }).add;
  19. );