;  ###########################################
;  orchestra file for examples ex5-9-1, ex5-9-2 and ex5-10
;  Library algorithm marimba with added global reverberator
;  ##########################################


ga1 init 0     ; initialize global variable

MARIMBA([ ; send output to global reverberator
ga1 = ga1 + a1])

instr 99
krevamount   line  p4, p3, p5   ; % signal to be reverberated
adry = (1 - krevamount) * ga1  ; direct signal -- no reverberation

irevtime = p6 ; reverberation time

;awet  reverb2  krevamount * ga1 , irevtime, p7
awet  nreverb  krevamount * ga1 , irevtime, p7
out awet + adry  ; output reverberated plus direct signals
ga1 = 0                ; clear global variable 
endin
