<info>
i is ex5-9-3
ECMC Csound Tutorial example ex5-9-3
</info>
<tk_interface>
</tk_interface>
<mono>
;  ###########################################
;  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
</mono>
<stereo>
</stereo>
<score>

                  SCORE-11, Version 1.4
Copyright (C) 1982, 1990, 1992, 1995 by Alexander R. Brinkman
     Eastman School of Music, University of Rochester

new random seed =     888
f100 0 1024 10 1.
  i30 0.000 2.000 6.11 2064 0.029 0.786 0.296 0
  i30 0.100 2.000 6.00 3341 0.017 0.966 0.463 0
  i30 0.425 2.000 9.03 4129 0.023 0.929 0.492 0
  i30 0.517 2.000 9.10 3846 0.016 0.870 0.399 0
  i30 1.520 2.000 5.02 3904 0.017 1.030 0.685 0
  i30 1.863 2.000 10.07 6951 0.012 0.994 0.641 0
  i30 2.364 2.000 8.09 4934 0.015 1.043 0.772 0
  i30 2.623 2.000 8.04 5097 0.014 1.107 0.849 0
  i30 3.612 2.000 5.02 7592 0.013 1.224 0.874 0
  i30 3.871 2.000 8.09 7000 0.012 1.114 0.946 0
  i30 4.195 2.000 8.04 7258 0.010 1.143 1.034 0
  i30 4.309 2.000 6.00 7603 0.011 1.246 0.998 0
  i30 5.298 2.000 5.02 8645 0.010 1.235 1.195 0
  i30 5.391 2.000 7.08 8349 0.009 1.308 1.173 0
  i30 5.895 2.000 8.04 7846 0.008 1.340 1.262 0
  i30 5.984 2.000 7.08 9518 0.008 1.357 1.246 0
  i30 6.976 2.000 8.04 10909 0.009 1.401 1.376 0
  i30 7.081 2.000 10.07 9836 0.010 1.413 1.368 0
  i30 7.343 2.000 9.10 11270 0.007 1.454 1.412 0
  i30 7.441 2.000 7.08 10590 0.006 1.464 1.432 0
  i99 0.000 9.500 0.010 0.740 1.100 0.300
e
</score>
