SCClassLibrary/Common/Audio/GVerb.sc

   1 GVerb : MultiOutUGen {
   2
   3         *ar { arg in, roomsize = 10, revtime = 3, damping = 0.5, inputbw =  0.5, spread = 15,
   4                         drylevel = 1, earlyreflevel = 0.7, taillevel = 0.5, maxroomsize = 300, mul = 1,
   5                         add = 0;
   6                 ^this.multiNew('audio', in, roomsize, revtime, damping, inputbw, spread, drylevel,
   7                         earlyreflevel, taillevel, maxroomsize).madd(mul, add);
   8         }
   9
  10         init {arg ... theInputs;
  11                 inputs = theInputs;
  12                 ^this.initOutputs(2, rate);
  13         }
  14
  15         checkInputs { ^this.checkNInputs(1); }
  16 }
  17
  18
  19 /*
  20 s.options.memSize_(32768 * 4);
  21 s.boot;
  22 SynthDef(\test, {
  23         Out.ar(0, GVerb.ar(In.ar(24), 50, 100, MouseX.kr(0, 1), 0.15, 0.4, 1, 0.4, 0.7, 500))}).load(s)
  24
  25 s.sendMsg(\s_new, \test, 1000, 0, 1);
  26 s.sendMsg(\n_free, 1000);
  27
  28 s.boot;
  29 {GVerb.ar(In.ar(24))}.play
  30 s.quit;
  31 */