lpf.help.hs

-- lpf
let f = xLine kr 0.7 300 20 RemoveSynth
    ff = fSinOsc kr f 0 * 3600 + 4000
in lpf (saw ar 200 * 0.1) ff

-- lpf ; control rate filtering
let ctl = lpf (lfPulse kr 8 0 0.5) (mouseX kr 2 50 Exponential 0.1)
in sinOsc ar (ctl * 200 + 400) 0 * 0.1

-- lpf ; event control
let f (_,g,_,y,z,o,_,_,p,_,_) =
      let f0 = unitCps p
      in pan2 (lpf (blip ar f0 (1 + y * 5)) (f0 * 0.25)) (o * 2 - 1) (lagUD g 0.05 1 * z)
in mix (voicer 16 f) * control kr "gain" 4

-- lpf
let k = 32
    n = mceFill k (\i -> lpf (dust2Id i ar (int_to_ugen i + 1 / 3)) 1500)
in splay n (lfNoise2Id 'α' kr 0.1 `in_range` (0,1)) 1 0 True