interpretor/faust-0.9.47mr3/tools/faust2oct/wgo.dsp

   1 // twgo.dsp - test the transformer-normalized, one-multiply,
   2 // digital waveguide resonator with an impulse.
   3 // Code from Julius Orion Smith
   4 // http://ccrma.stanford.edu/~jos/pasp/Faust_Implementation.html
   5
   6 import("music.lib"); // PI, SR
   7
   8 fr = hslider("freq",440,0,10000,1);
   9
  10 G = 1;
  11 C = cos(2*PI*fr/SR);
  12
  13 wgo(x) = (*(G)+x, _ <: _, ((+:*(C)) <: _,_), _ : +,-) ~ cross
  14          with { cross = _,_ <: !,_,_,!; };
  15
  16 process = 1-1' : wgo;
  17