SCClassLibrary/Common/Audio/PartConv.sc

   1 //Partitioned Convolution
   2
   3 PartConv : UGen
   4 {
   5         *ar { arg in, fftsize, irbufnum,mul = 1.0, add = 0.0;
   6                 ^this.multiNew('audio', in, fftsize, irbufnum).madd(mul, add);
   7         }
   8
   9         *calcNumPartitions {arg fftsize, irbuffer;
  10                 var siz, partitionsize;
  11
  12                 partitionsize=fftsize.div(2);
  13
  14                 siz= irbuffer.numFrames;
  15                 ^((siz/partitionsize).roundUp);
  16                 //bufsize = numpartitions*fftsize;
  17         }
  18
  19         *calcBufSize {arg fftsize, irbuffer;
  20                 ^ fftsize* (PartConv.calcNumPartitions(fftsize,irbuffer));
  21         }
  22
  23 }
  24
  25
  26 + Buffer {
  27
  28         preparePartConv { arg buf, fftsize;
  29                 server.listSendMsg(["/b_gen", bufnum, "PreparePartConv", buf.bufnum, fftsize]);
  30         }
  31
  32 }