desc:sidechain delay - pdc undelayed on outputs 1/2; negative delayed on 3/4

slider1:0<-1000,0,1>negative delay (ms)
slider2:0<-1000,0,1>additional negative delay (samples)
slider3:0<0,1000,1>-spacer
slider4:0<1100,0,.01>net delay (ms-r/o)
slider5:0<10000,0,1>net delay (samples-r/o)

@init
bpos=0;

@slider
delaylen = (-slider1*srate*0.001 + -slider2)|0;
pdc_delay= 0; //delaylen;  
pdc_top_ch= 0; //4;
pdc_bot_ch= 0;
delaylen2= delaylen*2;
bufsize= srate*4; // extra in case the user wants to go over
bufsize2= bufsize*2;
slider4= -delaylen/srate*1000;
slider5= -delaylen;

@sample

spl2= spl0; 
spl3= spl1;

bpos[0]=spl0;
bpos[1]=spl1;

rdpos=bpos-delaylen2;
rdpos<0 ? rdpos+=bufsize2;
spl0=rdpos[0];
spl1=rdpos[1];

bpos+=2;
bpos>=bufsize2 ? bpos=0;
