;
;Tremolo
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 "clip23_7s.wav"
zaw a1/2, 1
endin
instr 2
iamp = p4
ifqc = p5
itab1 = p6
iphase = p7
izin = 1
izout = 2
kline line 0, 7, 1
asig zar izin
kosc oscil iamp, ifqc*kline, itab1, iphase
aout = asig*(kosc+1)/2
zaw aout, izout
outs aout, aout
endin
; read in wave file
i 1 0 7
; sine wave
f 1 0 8192 10 1
; square wave
f 3 0 8192 7 1 4096 1 0 -1 4096 -1
; tremolo
; # sta dur amp freq table phase inch outch
i 2 0 7 .9 24 1 0 2 3