one-line.lhs

one-line (lance putnam)

> 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 audition (out 0 (pan2 (sinOsc AR f 0) 0 0.1))

{ var lfs = LFSaw.ar([1, 0.99], [0, 0.6], 2000, 2000)
; var lfs_t = lfs.trunc([400, 600]) * [1, -1]
; var f = OnePole.ar(Mix.new(lfs_t), 0.98)
; Out.ar(0, Pan2.ar(SinOsc.ar(f, 0), 0, 0.1)) }.play

(let* ((lfs (MulAdd (LFSaw ar (Mce 1 0.99) (Mce 0 0.6)) 2000 2000))
       (lfs_t (Mul (Trunc lfs (Mce 400 600)) (Mce 1 -1)))
       (f (OnePole (mix lfs_t) 0.98)))
  (audition (Out 0 (Pan2 (SinOsc ar f 0) 0 0.1))))