examples/demonstrations/snare909.scd

   1
   2  Ê(
   3  ÊÊSynthDef(\snare909,{ |out=0,mul=1,velocity=1|
   4
   5  ÊÊ Ê var excitation, membrane;
   6  ÊÊ Ê excitation = LPF.ar(WhiteNoise.ar(1), 7040, 1) * (0.1 + velocity);
   7  ÊÊÊ Êmembrane = (
   8  ÊÊ Ê/* Two simple enveloped oscillators represent the loudest resonances of the drum membranes */
   9  ÊÊ Ê Ê Ê Ê Ê Ê Ê Ê Ê(LFTri.ar(330,0,1) * EnvGen.ar(Env.perc(0.0005,0.055),doneAction:0) * 0.25)
  10  ÊÊ Ê Ê Ê Ê Ê Ê Ê Ê +(LFTri.ar(185,0,1) * EnvGen.ar(Env.perc(0.0005,0.075),doneAction:0) * 0.25)
  11
  12  ÊÊ Ê/* Filtered white noise represents the snare */
  13  ÊÊ Ê Ê Ê Ê Ê Ê Ê Ê +(excitation * EnvGen.ar(Env.perc(0.0005,0.4),doneAction:2) * 0.2)
  14  ÊÊ Ê Ê Ê Ê Ê Ê Ê Ê +(HPF.ar(excitation, 523, 1) * EnvGen.ar(Env.perc(0.0005,0.283),doneAction:0) * 0.2)
  15  ÊÊ Ê Ê Ê Ê Ê Ê Ê Ê
  16  ÊÊ Ê Ê Ê Ê Ê Ê Ê Ê) * mul;
  17  Out.ar(out, membrane!2)
  18  ÊÊ}).add
  19  Ê)
  20
  21
  22   Synth(\snare909,[\mul,0.5,\velocity, rrand(0.5, 1.0)]);