; ;Chorus ; read in wave file ; p3 ; # sta dur gain i 1 0 7 .5 ; Chorus ; p4 p5 p6 p7 p8 p9 p10 p11 ; Hz .1-4 f 0-1 ms 0-1 ; # sta dur rate depth wave mix delay phase INCH OUTCH i 2 0 7 .5 1 1 1 30 0 1 2 ;i 2 0 7 .5 4 1 1 20 .25 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 "clip16_6s.wav" zaw ar1*p4, 1 endin instr 2 irate = p4 idepth = p5/1000 iwave = p6 imix = p7 ideloff = p8/1000 iphase = p9 izin = p10 izout = p11 kamp linseg 0, .002, 1, p3-.004, 1, .002, 0 asig zar izin aosc1 oscil idepth, irate, iwave, iphase aosc2 = aosc1+ideloff atemp delayr idepth+ideloff adel1 deltapi aosc2 delayw asig aout = (adel1*imix+asig)/2*kamp outs aout, aout endin