; ### Eastman Orchestra Library Instrument  s_f ###
ifelse(SFTEST,99,[dnl],[include(CSLIBDIR/Include/sf_defs)])
ifdef([NEWPAR],[undefine([NEWPAR])])dnl
define([NEWPAR],10)dnl
ifelse(NCHNLS,2,[define([STEREO_OUT],[ipan	 = p9
[a2 = a1*sqrt(1-ipan)  ; stereo orchestra : right channel output]
[a1 = a1*sqrt(ipan)  ; left channel output]
[outs a1, a2]
])])dnl
; mono soundfile input:
instr sfinst
SFINIT
a1 soundin isfnum,p6 
SFBODY
ifelse(SFOUT,1,[DELAYSIN],SFOUT,2,[REVIN],[dnl])

