New directory tree, with preprocessor/ inside interpretor/.
[Faustine.git] / interpretor / preprocessor / 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