; ---  global mono reverberation instrument: ------------------
instr 16

    gkcs1     port  gkcs1, .03   ; smooth out abrupt changes in this controller
    gkcs2     port  gkcs2, .03   ; smooth out abrupt changes in this controller
    gkmod     port  gkmod, .02   ; smooth out abrupt changes
a1     nreverb  galeft , gkcs2 , .2 + (.8 * (1. - gkmod))
a2     nreverb  garight , gkcs2 , .2 + (.8 * (1. - gkmod))
outs .5 * a1 , .5 * a2 
              ; note 50 % attentuation of reverb signal
       galeft = 0
       garight = 0
        ; do not zero out kmod, gkcs1 or gkcs2
       gktest = 0
       endin

