sr = 44100
ksmps = 128
nchnls = 2
0dbfs = 1.0
instr 1
kx = randh(2, 1)
kx2 = sc_lagud(kx, 1.0, 0.1, 1)
printks "x %f x2 %f\n", 0.1, kx, kx2
endin
instr 2
kmidis[] fillarray 60, 65, 60, 65, 60
ilen = lenarray(kmidis)
kidx = int(linseg(0, ilen*2, ilen-0.00000001))
kmidi = mtof(kmidis[kidx])
afreq = sc_lagud(a(kmidi), 1, 0.1)
a0 = oscili(0.7, afreq)
kfreq = sc_lagud(kmidi, 1, 0.1)
a1 = oscili(0.7, kfreq)
outch 1, a0
outch 2, a1
endin
; i 1 0 10
i 2 0 12