; ### Eastman Orchestra Library Instrument  d_e_l_a_y_s ###
instr delaysinst
ifelse(NCHNLS,1,[
; mono in and out ; global signal input is gadelin1],[
; stereo output ; global input signals are gadelin1(left channel) and
; gadelin2 (right channel)
])
include(CSLIBDIR/Include/delays_defs)dnl
DELAYPARAMS
; p22: Flag: 0 = echos on same channel; 1 = ping-pong
DELAYBODY
ifelse(NCHNLS,1,
[gadelfeed1 = (k3+k4)*a1out
a1 = a1out+a2
gadelin1 = 0],
[a3 = (k1+k2)*gadelin2
a4 = (1-(k1+k2))*gadelin2

a3del 	delayr idel+(p8*idel)
a3out	deltapi  adeltime
	delayw   a3+gadelfeed2

if p22=1 kgoto pingpong
gadelfeed1 = (k3+k4)*a1out
gadelfeed2 = (k3+k4)*a3out
kgoto addem
pingpong: gadelfeed1 = (k3+k4)*a3out
gadelfeed2 = (k3+k4)*a1out
addem: a1 = a1out+a2
a2 = a3out+a4
gadelin1 = 0
gadelin2 = 0])
