; ### Eastman Orchestra Library Instrument  s_f_1_to_2  ###
ifelse(SFTEST,99,[dnl],[include(CSLIBDIR/Include/sf_defs)])
ifdef([NEWPAR],[undefine([NEWPAR])])dnl
define([NEWPAR],10)dnl
; mono soundfile input, fixed stereo left-right pan output
instr sf1-2
SFINIT
a1 soundin isfnum,p6 
SFBODY
a2 = (1.-p9) *a1
a1 = p9*a1
ifelse(SFOUT,1,[DELAYSIN],SFOUT,2,[REVIN],[dnl])

