sr=44100
kr=441
ksmps=100
nchnls=2

;p4 -- soundfile number
;p5 -- gain in dB
;p6 -- pan, 1-9
;p7 -- reverb send, dB

    instr 10
ga1 init    0
a1  reverb  ga1, 3
    outs    a1, a1
ga1 =       0
    endin

    instr 1
a1  soundin p4
i5  = 	 exp(log(10) * 0.05 * p5)
i1  = 	 cos(1.5707 * (p6-1)/8)
i2  = 	 sin(1.5707 * (p6-1)/8)
i9  = 	 exp(log(10) * 0.05 * (p7 - 100))
a2  = 	 a1 * i5
ga1 = 	 ga1 + a2 * i9
a3  = 	 a2 * i1
a4  = 	 a2 * i2
    outs a3, a4
    endin