Commit e5dbc63f authored by wargreen's avatar wargreen
Browse files

compilation OK. First stereo lowpass & encoder seem working (not tested)

parent 48c377fe
......@@ -6,10 +6,15 @@ declare copyright "(c)Wargreen 2019";
import("stdfaust.lib");
radius = hslider("Radius", 1.0, 0, 50, 0.01) : si.smooth(ba.tau2pole(0.02));
azimut = hslider("Azimut", 180, 0, 359.99, 0.01) : si.smooth(ba.tau2pole(0.02));
elevation = hslider("Radius", 180, 0, 359.99, 0.01) : si.smooth(ba.tau2pole(0.02));
ORD = 1;
radius = hslider("Radius (m)", 1.0, 0, 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));
//elevation = hslider("Elevation", 180, 0, 359.99, 0.01) : si.smooth(ba.tau2pole(0.02));
stereo = checkbox("Stereo input");
width = hslider("Stereo Width", 90, 0, 180, 0.01) : si.smooth(ba.tau2pole(0.02));
width = hslider("Stereo Width (deg)", 90, -180, 180, 0.01) : si.smooth(ba.tau2pole(0.02));
encode(ch) =_ <: ho.map(ORD, _, radius, ba.if(stereo, ba.if(ch < 1, azimut-width/2, azimut+width/2), azimut));
process(sig1, sig2) = +;
\ No newline at end of file
out = _,_;
process =_, _: par(i, 2, fi.lowpass(1, 91930/radius)) : par(i, 2, encode(i)) :> _, par(i, ORD, out);
\ 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