<CsoundSynthesizer>
 ; modified 01/28/04 5:12pm - for resol12.mac - Resolution in Blue - to support  stereo convolve
 ; modified 09/19/01 3:20pm - for find6.mac - "found" music box in Fremont
 ; created 10/6/00 3:28pm - first used for shuffle9.wav - Omar & Los Bandelero's
 <CsOptions>
 -W -m2 -+y -G -o sflib\next12b-c.wav
 </CsOptions> 

<CsInstruments>
   sr = 44100
   ksmps = 4 ; any higher than 10 and I hear clicks - can this line be eliminated?
   kr = 11025 ; no lower than 4410 - higher the better, slower run time though
   nchnls = 2

 instr 1

 imix = p4 ; Wet/dry mix. long reverb needs mix=.005, to make it wetter, try    .007
   idel = p5 ; Required delay to align dry audio with output of convolve. length    of convolv input file

 adryl,adryr soundin "sflib/next12b.wav" ; input (dry) audio (both    channels?)

 ; convolv with the impulse response from Teatro Alcorcon in Madrid from Angelo    Farina
   awetlr,awetll convolve adryl,"samples/impulse/alcorcon.cv" ; stereo    convolved (wet) audio
   awetrr,awetrl convolve adryr,"samples/impulse/alcorcon.cv" ; stereo    convolved (wet) audio

 adrydell delay (1-imix)*adryl,idel ; Delay dry signal, to align it with convolved    one
   adrydelr delay (1-imix)*adryr,idel ; Delay dry signal, to align it with convolved    one

 outs adrydell+imix*awetll+imix*awetrl, adrydelr+imix*awetrr+imix*awetlr ;    mix dry and wet for both channels

 endin

</CsInstruments>

<CsScore>
   ; start dur wet/dry-mix delaydry
   ; + length in seconds plus length of impulse response file
   ; | + percentage of echo vs live sound .0075 is pretty wet now
   ; | | + Length of impulse response file
   ; | | |
   i1 0 580 .005 1.81124716553287981859410430839
   ;i1 0 380 .009 1.81124716553287981859410430839
   ; i1 0 18 .007 4.049206349206
   ; i1 0 520 .004 1.81124716553287981859410430839
   ; i1 0 520 .010 1.854
   ; i1 0 520 .005 1.854
   </CsScore>
   </CsoundSynthesizer>