; 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