demand.help.hs

-- demand ; monadic form
uid_st_eval (
  do r <- dustM kr 1
     s <- dgeomM dinf (midiCps 72) (midiRatio 1)
     let t = impulse kr 10 0
         f = demand t r s
         o = sinOsc ar (mce [f,f + 0.7]) 0
     return (max (cubed o) 0 * 0.1))

-- demand
let n = diwhiteId 'α' dinf 60 72
    t = impulse kr 10 0
    s = midiCps n
    f = demand t 0 s
    o = sinOsc ar (mce [f,f + 0.7]) 0
in cubed (cubed o) * 0.1

-- demand ; audio rate (poll output is equal for x1 and x2)
let i = lfNoise2Id 'α' ar 8000
    d = dseqId 'β' dinf (mce [i])
    x = mouseX kr 1 3000 Exponential 0.2
    t = impulse ar x 0
    x1 = demand t 0 d
    x2 = latch i t
    s = mce2 x1 x2
    p = poll t s 0 (mce2 (label "x1") (label "x2"))
    o = sinOsc ar (s * 300 + 400) 0 * 0.1
in mrg2 o p

-- demand
let t = impulse ar 5 0
    d1 = dseqId 'α' dinf (mce [1,0,1,1,0,1,0,0,1,0,1])
    d2 = dseqId 'β' dinf (mce [0,1,0,0,1,0,1,1,0,1,0])
    x = demand t 0 (mce2 d1 d2) * t
in decay x 1 * brownNoiseId 'γ' ar * 0.1

-- demand
let t = impulse ar 5 0
    d = drandId 'α' dinf (mce [dseqId 'β' 1 (mce [1,1,1,1]),dseqId 'γ' 1 (mce [1,0,0,0])])
    x = demand t 0 d * t
in decay x 1 * brownNoiseId 'δ' ar * 0.1