A place to dump little or mid-sized snippets of SuperCollider code.
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.

27 lines
592 B

  1. Ndef(\akj).play
  2. Ndef(\akj).fadeTime=20;
  3. (
  4. Ndef(\akj, {
  5. var freq=300, snd;
  6. freq = [freq,freq*1.01];
  7. snd = LFPar.ar(freq) * 0.3
  8. + (LFTri.ar(freq*16/19, mul:0.3))
  9. + (Pulse.ar(freq*21/40, mul:0.1))
  10. + (SinOsc.ar(freq/8.01, mul:4).clip2(0.3))
  11. + (LFPulse.ar([2.2,4.4]*2, width: LFNoise1.ar(0.1).exprange(0.001,0.4)))
  12. ;
  13. snd = Splay.ar(snd);
  14. //snd = LeakDC.ar(snd);
  15. snd = snd + (Greyhole.ar(snd) * 0.3);
  16. snd = snd + (SinOsc.ar(freq/4, mul:0.7) * LFPulse.ar(0.275, width:0.25).range(0,1));
  17. //snd = Limiter.ar(snd, 0.5) * 1.5;
  18. (snd * 0.6 + (snd.wrap2 * 0.04)).softclip * 1;
  19. })
  20. )