-odac
sr = 44100
ksmps = 64
nchnls = 2
0dbfs = 1
iN = 2000
gif0 ftgen 0, 0, iN, -2, 0
gif1 ftgen 0, 0, iN, -2, 0
chn_k "portplot", "w"
chn_k "lagplot", "w"
seed 0
instr test
iN = ftlen(gif0)
ksig = samphold:k(unirand:k(1), metro(1))
k0 = portk(ksig, 0.1)
k1 = lag:k(ksig, 0.86)
kidx = timeinstk() % iN
tablew k0, kidx, gif0
tablew k1, kidx, gif1
; println "kidx: %d", kidx
ktrig metro 30
chnset ktrig == 1 ? -1 : gif0, "portplot"
chnset ktrig == 1 ? -1 : gif1, "lagplot"
endin
i "test" 0 100
0
0
0
0
true
240
240
240
portplot
12
14
810
282
{9582904e-38c2-46f6-8d18-2b9153309376}
true
0
-3
port
255
193
3
0.00
lagplot
12
298
810
282
{cb9d061a-af68-44c6-ab91-7c976575a367}
true
0
-3
lag
255
193
3
0.00