lfBrownNoise2.help.hs

-- lfBrownNoise2
let freq = 1000
    dev = mouseX kr 0 1 Linear 0.2
    dist = mouseY kr 0 5 Linear 0.2
in X.lfBrownNoise2Id 'α' ar freq dev dist * 0.25

-- lfBrownNoise2 ; as frequency control
let freq = 8
    dev = mouseX kr 0 1 Linear 0.2
    dist = mouseY kr 0 5 Linear 0.2
    n1:n2:n3:_ = map (\z -> X.lfBrownNoise2Id z kr freq dev dist) ['α'..]
    o = impulse ar (range 6 24 n1) 0
in lagUD o (range 0.0001 0.001 n2) (range 0.0001 0.001 n3) * 0.5

-- lfBrownNoise2 ; as pan & volume controls ; warning=feedback
let s = soundIn 0
    freq = range 0.5 2 (X.lfBrownNoise2Id 'α' kr 2 0.1 5)
    dev = mouseX kr 0.01 0.35 Linear 0.2
    dist = mouseY kr 0 5 Linear 0.2
    n1:n2:_ = map (\z -> X.lfBrownNoise2Id z kr freq dev dist) ['β'..]
in pan2 s (range (-0.75) 0.75 n1) 1 * range 0.01 0.5 n2