ljp-one-line.hs

-- one-line (ljp)
let lfs = lfSaw ar (mce2 1 0.99) (mce2 0 0.6) * 2000 + 2000
    lfs_t = trunc lfs (mce2 400 600) * mce2 1 (-1)
    f = onePole (mix lfs_t) 0.98
in pan2 (sinOsc ar f 0) 0 0.1