REAPERのJSFXでモノラル→ステレオのアップミックスやってみた

Lauridsenのモノラル→ステレオのアップミックス・エフェクタをサクッと作ってみました。簡単ですねー。参考文献は以下。(注:最近使われている手法とは違ってかなり原始的です!)

www.aes.org

desc: maruware Lauridsen Decorrelator (mono-to-stereo)

// The ring buffer code was taken from
// http://www.auriculaonline.com/wp/?p=232

slider1:20<1,100,1>Delay [ms]
slider2:0<0,100,1>Mix [%]

@init
buf = 0; // buffer exists at offset 0
bufposR = 0;
delay = srate * 0.010; 
bufposW = delay;
buflength = srate * 0.100;
mix = 0.0;

@slider
delay = srate * slider1 / 1000.0; // # of samples
bufposR = bufposW - delay;
bufposR < 0 ? bufposR = bufPosR + buflength;
mix = slider2 / 100.0;

@sample
x = spl0;
spl0 = x + buf[bufposR] * mix;
spl1 = x - buf[bufposR] * mix;
buf[bufposW] = x;
bufposR = bufposR + 1 ;
bufposR > buflength ? bufposR = 0;
bufposW = bufposW + 1 ;
bufposW > buflength ? bufposW = 0;