; ### Eastman Orchestra Library Instrument  s_f_p_a_n ###
ifelse(SFTEST,99,[dnl],[include(CSLIBDIR/Include/sf_defs)])
define([NEWPAR],14)dnl
; mono soundfile input; 2 channel output (a1,a2) with moving pan
instr sfpan
SFINIT
a1 soundin isfnum,p6 
SFBODY
; pan
; p9  = 1st decimal % to a1  ;p10  = 2nd decimal % to a1
; p11  = rate of change(if 0 = 1/p3;if>100=(p11 -100)/p3) ;                 
; if negative, = actual dur. in seconds ; p12  = function ; p13  = phase
p11  = (p11 >100?(p11 -100)/p3:p11 )
p11  = (p11 =0?1/p3:p11 )        
p11  = (p11 >100?(p11 -100)/p3:p11 )
p11  = (p11 <0? 1/abs(p11 ): p11 )
ip12 = (p12 = 0 ? 52 : p12 )
kpan oscili p10 -p9 ,p11 ,ip12 ,p13 
kpan = p9 +kpan
a2 = sqrt(1-kpan) * a1
a1 = sqrt(kpan) * a1

