Commit a4afad16 authored by wargreen's avatar wargreen
Browse files

reactive delay with radius, FIXME : it cause lowpass filter

parent 5309026b
No preview for this file type
......@@ -16,12 +16,12 @@ erLvl = hslider("Early Reflection Lvl", 0, -20, 0, 0.01) : si.smooth(ba.tau2pole
hiLvl = hslider("HiLvl", 0, -10, 10, 0.1);
//FIXME : delay make a Low-pass filter at certain delay time...
//delay = _ : de.fdelayltv(3,ma.SR, ma.SR * 1/340*radius) : _ ;
//delay = _ : de.fdelay(ma.SR, 1024, ma.SR * 1/340*radius) : _ ;
delay = de.fdelayltv(3,ma.SR, ma.SR * 1/340*radius);
//delay = _ : de.fdelay(ma.SR, ma.SR * 1/340*radius) : _ ;
//preprocess = delay : fi.high_shelf(3, (-0.43*radius) + 0.43, 15000);
preprocess = _ : fi.highshelf(1, (-0.43*radius) + 0.43, 15000);
//preprocess = delay;
//filter = delay : fi.high_shelf(3, (-0.43*radius) + 0.43, 15000);
filter = _ : fi.highshelf(1, (-0.43*radius) + 0.43, 15000);
//filter = delay;
volume(r) = 1. / (r * r * (r > 0.1) + (r < 0.1));
stereAzim(ch) = ma.neg( ba.if(stereo, ba.if(ch < 1, azimut-width/2, azimut+width/2), azimut));
......@@ -36,4 +36,4 @@ dryprocess = par(i, 2, encodedry(i)) :> _, par(i, ORD, addout);
revlateprocess = _,_ :>_;
revearlyprocess = par(i, 2, encoderev(i)) :> _, par(i, ORD, addout);
process =_, _ : par(i, 2,preprocess) <: dryprocess, revlateprocess, revearlyprocess;
\ No newline at end of file
process =_, _ : par(i, 2,delay : filter) <: dryprocess, revlateprocess, revearlyprocess;
\ No newline at end of file
No preview for this file type
......@@ -15,12 +15,13 @@ stereo = checkbox("Stereo input");
width = hslider("Stereo Width", 90, -180, 180, 0.01) : si.smooth(ba.tau2pole(0.02)) * (ma.PI/180);
erLvl = hslider("Early Reflection Lvl", 0, -20, 0, 0.01) : si.smooth(ba.tau2pole(0.02));
//FIXME : delay make a Low-pass filter a certain frequencies...
delay = _ : de.fdelayltv(1,ma.SR, ma.SR * 1/340*radius) : _ ;
//FIXME : delay make a Low-pass filter at certain delay time...
delay = de.fdelayltv(3,ma.SR, ma.SR * 1/340*radius);
//delay = _ : de.fdelay(ma.SR, ma.SR * 1/340*radius) : _ ;
//preprocess = delay : fi.high_shelf(3, (-0.43*radius) + 0.43, 15000);
preprocess = _ : fi.highshelf(1, (-0.43*radius) + 0.43, 15000);
//preprocess = delay;
//filter = delay : fi.high_shelf(3, (-0.43*radius) + 0.43, 15000);
filter = _ : fi.highshelf(1, (-0.43*radius) + 0.43, 15000);
//filter = delay;
volume(r) = 1. / (r * r * (r > 0.1) + (r < 0.1));
stereAzim(ch) = ma.neg( ba.if(stereo, ba.if(ch < 1, azimut-width/2, azimut+width/2), azimut));
......@@ -35,4 +36,4 @@ dryprocess = par(i, 2, encodedry(i)) :> _, par(i, ORD, addout);
revlateprocess = _,_ :>_;
revearlyprocess = par(i, 2, encoderev(i)) :> _, par(i, ORD, addout);
process =_, _ : par(i, 2,preprocess) <: dryprocess, revlateprocess, revearlyprocess;
\ No newline at end of file
process =_, _ : par(i, 2,delay : filter) <: 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