; ;Flanger ; read in wave file ; p4 ; # sta dur gain i 1 0 9.5 1 ;Flanger .1-4 ; p4 p5 p6 p7 p8 p9 p10 p11 p12 ; # sta dur rate depth f feedback mix delay phase inch outch i 2 0 9.5 .5 3 1 .5 .5 8 0 1 2 i 2 0 9.5 1 1 1 .35 1 6 .25 1 2 i 2 0 9.5 1.5 2 1 .6 1 10 .5 1 2 ; SINE WAVE ; # time size gen partial f 1 0 8192 10 1 sr = 48000 kr = 4800 ksmps = 10 nchnls = 2 zakinit 30, 30 ;read in stereo wave file to two separate audio signals instr 1 ar1, ar2 soundin "clip09_10s_equalizer_lo_hi.wav" zaw ar1*p4, 1 endin instr 2 irate = p4 idepth = p5/1000 iwave = p6 ifdbk = p7 imix = p8 ideloff = p9/1000 iphase = p10 izin = p11 izout = p12 adel1 init 0 kamp linseg 0, .002, 1, p3-.004, 1, .002, 0 asig zar izin asig1 = asig+ifdbk*adel1 aosc1 oscil idepth, irate, iwave, iphase aosc2 = aosc1+ideloff atemp delayr idepth+ideloff adel1 deltapi aosc2 delayw asig1 aout = (imix*adel1+asig)/2 zaw aout, izout outs aout, aout endin