Commit ae359b89 authored by wargreen's avatar wargreen
Browse files

Try with a hi shelf filter

parent 905fa0b1
......@@ -9,20 +9,28 @@ import("stdfaust.lib");
ORD = 1;
radius = hslider("Radius (m)", 1.0, 0.01, 50, 0.01) : si.smooth(ba.tau2pole(0.02));
azimut = hslider("Azimut (deg)", 180, 0, 359.99, 0.01) * (ma.PI/180) : si.smooth(ba.tau2pole(0.02));
azimut = (hslider("Azimut (deg)", 0, -180, 180, 0.01)) * (ma.PI/180) : si.smooth(ba.tau2pole(0.02));
//elevation = hslider("Elevation", 180, 0, 359.99, 0.01) : si.smooth(ba.tau2pole(0.02));
stereo = checkbox("Stereo input");
width = hslider("Stereo Width (deg)", 90, -180, 180, 0.01) : si.smooth(ba.tau2pole(0.02));
erLvl = hslider("Early Reflection Lvl", 0, -20, 0, 0.01) : si.smooth(ba.tau2pole(0.02));
preprocess = fi.lowpass(1, 91930/radius) ;
//preprocess = _;
//preprocess = fi.lowpass(1, 91930/radius) ;
preprocess = fi.highshelf( 1, 0.524*radius, 20000);
//delay = _;
delay = de.fdelayltv(1,ma.SR, 1/340*radius) ;
encode(ch) =_ <: ho.map(ORD, _, radius, ba.if(stereo, ba.if(ch < 1, azimut-width/2, azimut+width/2), azimut));
encodedry(ch) =_ * ma.inv(ma.cbrt(radius))<: ho.encoder(ORD, _, ma.neg( ba.if(stereo, ba.if(ch < 1, azimut-width/2, azimut+width/2), azimut)));
encoderev(ch) =_ * erLvl <: ho.encoder(ORD, _, ma.neg(ba.if(stereo, ba.if(ch < 1, azimut-width/2, azimut+width/2), azimut)));
addout = _,_;
dryprocess = par(i, 2, delay : encode(i)) :> _, par(i, ORD, addout);
dryprocess = par(i, 2, delay : encodedry(i)) :> _, par(i, ORD, addout);
revlateprocess = _,_ :>_;
revearlyprocess = _,_;
revearlyprocess = par(i, 2, delay : encoderev(i)) :> _, par(i, ORD, addout);
process =_, _: par(i, 2,preprocess) <: dryprocess, revlateprocess, revearlyprocess;
\ No newline at end of file
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment