// Name: Pan_Left_Pan_Right, xackley 4-29-2007 desc:Pan Left Pan Right slider1:1<0,8,1{ none, 1+2, 3+4, 5+6, 7+8, 9+10,11+12,13+14,15+16}>Input Channels slider3:0<-96,12,0.1>Pre Pan Volume.........Left slider4:0<-96,12,0.1>Right slider6:0<-100,100,1>Pan.........Left slider7:0<-100,100,1>Right slider9:0<-96,12,0.1> Post Pan Volume.........Left slider10:0<-96,12,0.1>Right slider12:0<-96,12,0.1>Master Volume @init slider6 = -100; slider7 = +100; @slider slider3 > -96 ? B4L = (10^(slider3/20)):0; slider4 > -96 ? B4R = (10^(slider4/20)):0; slider9 > -96 ? AfterL = (10^(slider9/20)):0; slider10 > -96 ? AfterR = (10^(slider10/20)):0; slider12 > -96 ? c = (10^(slider12/20)):0; pan0 = 1 - (1 + slider6*0.01)/2; pan1 = (1 + slider7*0.01)/2; @sample slider1 == 1 ? (chan1 = 0 ; chan2 = 1 ); slider1 == 2 ? (chan1 = 2 ; chan2 = 3 ); slider1 == 3 ? (chan1 = 4 ; chan2 = 5 ); slider1 == 4 ? (chan1 = 6 ; chan2 = 7 ); slider1 == 5 ? (chan1 = 8 ; chan2 = 9 ); slider1 == 6 ? (chan1 = 10; chan2 = 11); slider1 == 7 ? (chan1 = 12; chan2 = 13); slider1 == 8 ? (chan1 = 14; chan2 = 15); left = spl(chan1)*B4L; rite = spl(chan2)*B4R; mixL = left*pan0 + (rite - rite*pan1); mixR = rite*pan1 + (left - left*pan0); slider1 >= 1 ? ( spl(chan1) = mixL*afterL*c; spl(chan2) = mixR*afterR*c; );