sr = 192000
kr = 192000
ksmps = 1
nchnls = 2
0dbfs = 1
instr 1
//// env ////////////////////////////////////////////////////
/*
kx init 0
kx += 1/sr
ib = p3
kfx = ((log(2 - (kx / ib)))^2) / (log(2))
dont mind this enveloppe, replaced by rspline to get rid of max problems
*/
//// sig ////////////////////////////////////////////////////
aa = 0.125 ; amplitude
af = 440 * rspline(0.25, 2, 0.5, 2) ; controlling frequency
ax init 0 ; x
ax += 1/sr ; increment abscissa
afx = cos($M_PI * (2 * af) * ax) * aa ; f(x)f(x)f(x)f(x)f(x)f(x)f(x)
outs(afx, afx)
endin
i 1 0 10
e