Xpan true 2 2 if (<XpanON> == 1) then if <Xpan_combine to mono> == 1 then ain = (ain1 + ain2) * .75 ; when mono sent across stereo image aout1,aout2 pan2 ain, <Xpan_panning>, i(<Xpan_mode>) else if <Xpan_swap channels> == 0 then aout1 = ain1 aout2 = ain2 else aout1 = ain2 ; left and right channels are swapped aout2 = ain1 endif if <Xpan_MS stereo> == 1 then aout1, aout2 stereoRotate ain1, ain2, <Xpan_MS rotate> ; rotate 45 degrees to the right endif endif aout1 *= <Xpan_gain Left> ; apply gain to channel aout2 *= <Xpan_gain Right> else aout1 = ain1 aout2 = ain2 endif DESCRIPTION: small tool - but very handy - that uses the opcode pan2. pan2 offers 4 different ways of panning solutions - see manual. The incoming signal can be either mono or stereo. CONTROLLERS: ON/OFF - bypass combine to mono - If the signal is stereo, it can be made a mono one. panning - pan the mono signal mode - pan the mono signal according to different panning laws swap Left/Right channel - exactly that MS stereo - use the MS stereo formula on the stereo signal MS Rotate - the angle of rotation in degrees, usually in the range of -45 to +45. Negative values result in a rotation rightward. Positive values rotate leftward. Left/Right - output gain for Left and Right channel --- version 1.22, July 2020 - added BSB information comments version 1.21, May 2020 - added comments on controllers version 1.2, February 2019 - included MS stereo option for alternative panning handling, using the UDO from http://www.csounds.com/udo/displayOpcode.php?opcode_id=45, created by Joseph Anderson and Matthew Ingalls version 1.1, February 2019 - added stereo option with swap channels - added channel gain version 1, november 2017 - mixes the left and right signal so it can be panned in a stereo image (by Menno Knevel) stereoRotate aa aak ainl, ainr, ktheta xin ; constants ipi = 3.141592653589793 iradfac = ipi/180 ;compute coeffs ktheta = iradfac*ktheta kstheta = sin(ktheta) kctheta = cos(ktheta) ;Do Rotate aoutl = kctheta*ainl + kstheta*ainr aoutr = -kstheta*ainl + kctheta*ainr xout aoutl, aoutr 5 5 DOT true 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 XpanON 0 0 bypass true 10 10 XPan 0x4d8080ff 0x000000ff 0xffffffff false 20 72 180 10 if stereo input 0x00000033 0x1a4d4dff 0xffffffff true 20 20 84 48 System Regular 12.0 Xpan_MS rotate 10 50 the angle of rotation in degrees, usually in the range of -45 to +45. Negative values result in a rotation rightward. Positive values rotate leftward. true -45.0 45.0 0.1 0.0 150 true true Xpan_swap channels 10 10 exactly that true false true Xpan_MS stereo 10 30 use the MS stereo formula on the stereo signal true false true Xpan_gain Right 435 10 output gain for Right channel true 0.0 1.0 0.1 1.0 90 true false 435 105 System Regular 12.0 10 10 if mono input 0x00000033 0x1a4d4dff 0xffffffff true 20 20 83 27 System Regular 12.0 Xpan_mode 30 55 pan the mono signal according to different panning laws true 1 12 true equal power 0 square root 1 simple linear 2 alt. eq. power 3 Xpan_panning 10 30 pan the mono signal true 0.0 1.0 0.05 0.5 150 true false Xpan_combine to mono 10 10 If the signal is stereo, it can be made a mono one. true false true 405 105 System Regular 12.0 Xpan_gain Left 405 10 output gain for Left channel true 0.0 1.0 0.1 1.0 90 true false