--- /dev/null
+// twgo.dsp - test the transformer-normalized, one-multiply,
+// digital waveguide resonator with an impulse.
+// Code from Julius Orion Smith
+// http://ccrma.stanford.edu/~jos/pasp/Faust_Implementation.html
+
+import("music.lib"); // PI, SR
+
+fr = hslider("freq",440,0,10000,1);
+
+G = 1;
+C = cos(2*PI*fr/SR);
+
+wgo(x) = (*(G)+x, _ <: _, ((+:*(C)) <: _,_), _ : +,-) ~ cross
+ with { cross = _,_ <: !,_,_,!; };
+
+process = 1-1' : wgo;
+