;
;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