instr 137

137.orc

137.sco
  instr 137 ; GLOBAL COMB/REVERB LOSCIL
idur = p3
iamp = ampdb(p4)
ifrq = cpspch(p5)
ifun = p6
iatk = p7
irel = p8
irvbsnd = p9
icmbsnd = p10
kenv linen iamp, iatk, idur, irel
asig loscil kenv, ifrq, ifun
  out asig
garvb = garvb+(asig*irvbsnd)
gacmb = gacmb+(asig*icmbsnd)
  endin
 
  instr 198 ; GLOBAL ECHO
idur = p3
itime = p4
iloop = p5
kenv linen 1, .01, idur, .01
acomb comb gacmb, itime, iloop, 0
  out acomb*kenv
gacmb = 0
  endin
 
  instr 199 ; GLOBAL VERB
idur = p3
irvbtim = p4
ihiatn = p5
arvb nreverb garvb, irvbtim, ihiatn
  out arvb
garvb = 0
  endin