Stereo Reverb Example

; SOUNDFILE REVERBERATOR INSTRUMENT
; SOUNDREV.ORC

sr = 22050
kr = 2205
ksmps = 10
nchnls = 2

garvbsig1 init 0
garvbsig2 init 0

instr 1

iampmult	=	p4
isendval	=	p5

asig1,asig2 	soundin 	 1
kenv		linseg	0,p3-.1,1,.1,0

; serial low and high pass filters

asigf1		butterlp  asig1, p6
asigh1		butterhp  asigf1, p7
asigf2		butterlp  asig2, p6
asigh2		butterhp  asigf2, p7

garvbsig1   = 	asigh1*isendval 
garvbsig2   = 	asigh2*isendval 

outs		(asigh1*iampmult)*kenv, (asigh2*iampmult)*kenv

endin


instr 100 
  idur = p3
  irvbtime1 = p4
		   		                                      
  arev1	   reverb2   garvbsig1,  irvbtime1,  .1
  kseg	   linseg	 1,p3-2,1,2,0
  asigf	   butterlp  arev1, 9000
  aoutsig  = asigf*kseg

  outs   aoutsig, aoutsig*0
  garvbsig1 = 0

endin

instr 101 
  idur = p3
  irvbtime1 = p4
		   		                                      
  arev1	   reverb2   garvbsig2,  irvbtime1,  .1
  kseg	   linseg	 1,p3-2,1,2,0
  asigf	   butterlp  arev1, 9000
  aoutsig  = asigf*kseg

  outs   aoutsig*0, aoutsig
  garvbsig2 = 0

endin

;***************************************************************************
; AND NOW THE SCORE
;***************************************************************************

i100 0 20	60.0	
i101 0 20	60.0	

i1 0 4.82 1.5 0.16 4000 80  
e