f0-tw0041.hs

-- http://www.fredrikolofsson.com/f0blog/?q=node/537 (f0)
let s = sweep ar (localIn' 6 ar) 1
    i = impulse ar (mce [1,0.749,6,12,3,4]) 0
    o = sinOsc ar (1 / runningMax s i) 0
in mrg [tanh (splay o 1 1 0 True) * 0.05,localOut o]