; ;Vibrato ; p4 ; # sta dur gain i 1 0 10 0.5 ; VIBRATO ; p4 p5 p6 p7 p8 p9 p10 p11 ; # sta dur amp freq f phase delay ramptime inch outch ; s s hZ 0-1 s s i 2 0 10 1 12 1 0 .5 .5 1 2 ; SINE WAVE 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 a1, a2 soundin "clip34_11s.wav" zaw a1*p4, 1 outs a1*p4, a1*p4 endin instr 2 iamp = p4/1000 ifqc = p5 itab1 = p6 iphase = p7 idelay = p8 irmptim = p9 izin = p10 izout = p11 kline line .25, p3, 1 asig zar izin kramp linseg 0, idelay, 0, irmptim, 1, p3-idelay-irmptim, 1 kosc oscil kramp*iamp, ifqc*kline, itab1 atmp delayr 3*iamp aout deltapi kosc+1.5*iamp delayw asig zaw aout,izout outs aout, aout endin