Commit 905fa0b1 authored by wargreen's avatar wargreen
Browse files

Begginin of implementation of the reverb sends

parent e5dbc63f
......@@ -2,19 +2,27 @@ declare name "Ambisonic Encoder";
declare version "0.1";
declare author "Wargreen";
declare license "GPL v3";
declare copyright "(c)Wargreen 2019";
declare copyright "(c) Wargreen 2019";
import("stdfaust.lib");
ORD = 1;
radius = hslider("Radius (m)", 1.0, 0, 50, 0.01) : si.smooth(ba.tau2pole(0.02));
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));
//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));
preprocess = fi.lowpass(1, 91930/radius) ;
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));
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
addout = _,_;
dryprocess = par(i, 2, delay : encode(i)) :> _, par(i, ORD, addout);
revlateprocess = _,_ :>_;
revearlyprocess = _,_;
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