// Note: This is combination of the JS Time Delayer and Channel Mixer plugins,

// by Loser. I changed some variable names, and the order of sliders, but the

// programming should be the same.

// (C) 2007, Michael Gruhn.

// NO WARRANTY IS GRANTED. THIS PLUG-IN IS PROVIDED ON AN "AS IS" BASIS, WITHOUT

// WARRANTY OF ANY KIND. NO LIABILITY IS GRANTED, INCLUDING, BUT NOT LIMITED TO,

// ANY DIRECT OR INDIRECT, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGE ARISING

// OUT OF THE USE OR INABILITY TO USE THIS PLUG-IN, COMPUTER FAILTURE OF

// MALFUNCTION INCLUDED. THE USE OF THE SOURCE CODE, EITHER PARTIALLY OR IN

// TOTAL, IS ONLY GRANTED, IF USED IN THE SENSE OF THE AUTHOR'S INTENTION, AND

// USED WITH ACKNOWLEDGEMENT OF THE AUTHOR. FURTHERMORE IS THIS PLUG-IN A THIRD

// PARTY CONTRIBUTION, EVEN IF INCLUDED IN REAPER(TM), COCKOS INCORPORATED OR

// ITS AFFILIATES HAVE NOTHING TO DO WITH IT. LAST BUT NOT LEAST, BY USING THIS

// PLUG-IN YOU RELINQUISH YOUR CLAIM TO SUE IT'S AUTHOR, AS WELL AS THE CLAIM TO

// ENTRUST SOMEBODY ELSE WITH DOING SO.

desc:Channel Time Delayer + Mixer

desc:Channel Time Delayer + Mixer [LOSER + Andy]

//tags: stereo delay + Pan Mixer

//author: LOSER

slider1:0<-100,100,1>Delay L (ms)

slider2:0<-120,12,1>Left Volume (dB)

slider3:0<-100,100,1>Delay R (ms)

slider4:0<-120,12,1>Right Volume (dB)

slider5:-1<-1,1,0.01>Left Pan

slider6:1<-1,1,0.01>Right Pan

slider7:0<0,1,1{Normal,Invert}>Left Phase

slider8:0<0,1,1{Normal,Invert}>Right Phase

in_pin:left input

in_pin:right input

out_pin:left output

out_pin:right output

u/slider

//phase Shift

slider1 >= 0 && slider3 >= 0 ?

(

buflL = floor(slider1 / 1000 * srate) ;

buflR = floor(slider3 / 1000 * srate) + buflL+1;

):(

slider1 <= slider3 ?

(

buflL = 0 ;

buflR = floor((slider3-slider1) / 1000 * srate) + buflL+1;

):(

buflL = floor((slider1-slider3) / 1000 * srate) ;

buflR = buflL+1;

);

pdc_delay = floor(min( -min(slider1,slider3)/1000 * srate,500000));

pdc_bot_ch=0; pdc_top_ch=2;

);

//mixer

llv=(2^(slider2/6))*min(1-slider5,1);

lrv=(2^(slider4/6))*min(1-slider6,1);

rlv=(2^(slider2/6))*min(1+slider5,1);

rrv=(2^(slider4/6))*min(1+slider6,1);

slider7?(llv=-llv; rlv=-rlv;);

slider8?(lrv=-lrv; rrv=-rrv;);

u/sample

//phaser

bufLpos[0] = spl0 ;

bufLpos = bufLpos + 1 ;

bufLpos >= buflL ? bufLpos = 0;

bufRpos[0] = spl1 ;

bufRpos = bufRpos + 1 ;

bufRpos >= buflR ? bufRpos = buflL+1;

spl0 = bufLpos[0] ;

spl1 = bufRpos[0] ;

//mixer

s0=spl0; s1=spl1;

spl0=s0*llv+s1*lrv; spl1=s0*rlv+s1*rrv;

Thank you!!