HelpSource/Classes/PV_Mul.schelp

   1 class:: PV_Mul
   2 summary:: Complex multiply.
   3 related:: Classes/FFT, Classes/IFFT, Classes/PV_Add, Classes/PV_CopyPhase, Classes/PV_MagMul, Classes/PV_Max, Classes/PV_Min
   4 categories:: UGens>FFT
   5
   6 Description::
   7
   8 Complex Multiplication:
   9
  10 formula::
  11
  12 (RealA * RealB) - (ImagA * ImagB),
  13 (ImagA * RealB) + (RealA * ImagB)
  14
  15 ::
  16
  17
  18 classmethods::
  19
  20 method::new
  21
  22 argument::bufferA
  23 FFT buffer A.
  24
  25 argument::bufferB
  26 FFT buffer B.
  27
  28 Examples::
  29
  30 code::
  31
  32 s = Server.internal.boot;
  33 (
  34 b = Buffer.alloc(s,2048,1);
  35 c = Buffer.alloc(s,2048,1);
  36 )
  37
  38 (
  39 SynthDef("help-mul", { arg out=0, bufnumA=0, bufnumB=1;
  40         var inA, chainA, inB, chainB, chain ;
  41         inA = SinOsc.ar(500, 0, 0.5);
  42         inB =  SinOsc.ar(Line.kr(100, 400, 5), 0, 0.5);
  43         chainA = FFT(bufnumA, inA);
  44         chainB = FFT(bufnumB, inB);
  45         chain = PV_Mul(chainA, chainB);
  46         Out.ar(out,  0.5 * IFFT(chain).dup);
  47 }).play(s,[\out, 0, \bufnumA, b.bufnum, \bufnumB, c.bufnum]);
  48 s.scope;
  49 )
  50
  51 (
  52 SynthDef("help-mul2", { arg out=0, bufnumA=0, bufnumB=1;
  53         var inA, chainA, inB, chainB, chain ;
  54         inA = SinOsc.ar(500, 0, 0.5) * Line.kr;
  55         inB = LFNoise1.ar(20);
  56         chainA = FFT(bufnumA, inA);
  57         chainB = FFT(bufnumB, inB);
  58         chain = PV_Mul(chainA, chainB);
  59         Out.ar(out,  0.5 * IFFT(chain).dup);
  60 }).play(s,[\out, 0, \bufnumA, b.bufnum, \bufnumB, c.bufnum]);
  61 s.scope;
  62 )
  63
  64 ::
  65