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
6 import("music.lib"); // PI, SR
8 fr = hslider("freq",440,0,10000,1);
13 wgo(x) = (*(G)+x, _ <: _, ((+:*(C)) <: _,_), _ : +,-) ~ cross
14 with { cross = _,_ <: !,_,_,!; };