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 ...@@ -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); hiLvl = hslider("HiLvl", 0, -10, 10, 0.1);
//FIXME : delay make a Low-pass filter at certain delay time... //FIXME : delay make a Low-pass filter at certain delay time...
//delay = _ : de.fdelayltv(3,ma.SR, ma.SR * 1/340*radius) : _ ; delay = de.fdelayltv(3,ma.SR, ma.SR * 1/340*radius);
//delay = _ : de.fdelay(ma.SR, 1024, 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); //filter = delay : fi.high_shelf(3, (-0.43*radius) + 0.43, 15000);
preprocess = _ : fi.highshelf(1, (-0.43*radius) + 0.43, 15000); filter = _ : fi.highshelf(1, (-0.43*radius) + 0.43, 15000);
//preprocess = delay; //filter = delay;
volume(r) = 1. / (r * r * (r > 0.1) + (r < 0.1)); 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)); 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); ...@@ -36,4 +36,4 @@ dryprocess = par(i, 2, encodedry(i)) :> _, par(i, ORD, addout);
revlateprocess = _,_ :>_; revlateprocess = _,_ :>_;
revearlyprocess = par(i, 2, encoderev(i)) :> _, par(i, ORD, addout); revearlyprocess = par(i, 2, encoderev(i)) :> _, par(i, ORD, addout);
process =_, _ : par(i, 2,preprocess) <: dryprocess, revlateprocess, revearlyprocess; process =_, _ : par(i, 2,delay : filter) <: dryprocess, revlateprocess, revearlyprocess;
\ No newline at end of file \ No newline at end of file
No preview for this file type
...@@ -15,12 +15,13 @@ stereo = checkbox("Stereo input"); ...@@ -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); 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)); 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... //FIXME : delay make a Low-pass filter at certain delay time...
delay = _ : de.fdelayltv(1,ma.SR, 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); //filter = delay : fi.high_shelf(3, (-0.43*radius) + 0.43, 15000);
preprocess = _ : fi.highshelf(1, (-0.43*radius) + 0.43, 15000); filter = _ : fi.highshelf(1, (-0.43*radius) + 0.43, 15000);
//preprocess = delay; //filter = delay;
volume(r) = 1. / (r * r * (r > 0.1) + (r < 0.1)); 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)); 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); ...@@ -35,4 +36,4 @@ dryprocess = par(i, 2, encodedry(i)) :> _, par(i, ORD, addout);
revlateprocess = _,_ :>_; revlateprocess = _,_ :>_;
revearlyprocess = par(i, 2, encoderev(i)) :> _, par(i, ORD, addout); revearlyprocess = par(i, 2, encoderev(i)) :> _, par(i, ORD, addout);
process =_, _ : par(i, 2,preprocess) <: dryprocess, revlateprocess, revearlyprocess; process =_, _ : par(i, 2,delay : filter) <: dryprocess, revlateprocess, revearlyprocess;
\ No newline at end of file \ 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