; modified 06/01/04 3:30pm - for wasatch.mac - Wasatch Front
; 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
-W -m2 -+y -G -o sflib\sing53-c5.wav
sr = 44100
ksmps = 1 ; 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/sing53a.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
; 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 400 .006 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