; ### Eastman Orchestra Library Instrument  s_f_v_p_a_n ###
ifelse(SFTEST,99,[dnl],[include(CSLIBDIR/Include/sf_defs)])
define([NEWPAR],22)dnl
; mono soundfile input; 2 channel output (a1,a2) with pan
instr sfvpan
SFINIT
a1 soundin isfnum,p6 
SFBODY
; pan
 ; variable pan rate                    
; p15  = 1st pan rate  ;p16  = 2nd pan rate 
; p17  = rate. of change(if 0 = 1/p3;if>100=(p17 -100)/p3) ;                 
; if negative, = actual dur. in seconds ; p18  = function ; p19  = phase
ip18 = (p18 = 0 ? 52 : p18 )
p17  = (p17 =0?1/p3:p17 )        
p17  = (p17 >100?(p17 -100)/p3:p17 )
p17  = (p17 <0? 1/abs(p17 ): p17 )
k2 oscili p16 -p15 ,p17 ,ip18 ,p19 
k2 = p15 + k2
               
k3 randi p20 ,p21         
k2 = k2+(k3*k2)         ; pan rate


; p9  = 1st decimal % to a1  ;p10  = 2nd decimal % to a1
; p11  = function ; p12  = starting phase ; p13 = rand. dev. decimal %
; p14 = rand. dev. rate
ip11 = (p11 = 0 ? 52 : p11 )
kpan oscili p10 -p9 ,k2 ,ip11 ,p12 
kpan = p9 +kpan
kran randi p13 ,p14         
kpan = kpan+(kran*kpan)
a2 = sqrt(1-kpan)*a1
a1 = sqrt(kpan)*a1

