> Sound.SC3.UGen.Help.viewSC3Help "Dbufrd"
> Sound.SC3.UGen.DB.ugenSummary "Dbufrd"

> import Sound.SC3.ID {- hsc3 -}
> import System.Random {- random -}

setup pattern at buffer 10

> let n = randomRs (200.0,500.0) (mkStdGen 0)
> in withSC3 (async (b_alloc_setn1 10 0 (take 24 n)))

pattern as frequency input

> let {s = dseq 'α' 3 (mce [0,3,5,0,3,7,0,5,9])
>     ;b = dbrown 'β' 5 0 23 1
>     ;p = dseq 'γ' dinf (mce [s,b])
>     ;t = dust 'δ' KR 10
>     ;r = dbufrd 'ε' 10 p Loop}
> in audition (out 0 (sinOsc AR (demand t 0 r) 0 * 0.1))

setup time pattern

> let {i = randomRs (0,2) (mkStdGen 0)
>     ;n = map ([1,0.5,0.25] !!) i}
> in withSC3 (async (b_alloc_setn1 11 0 (take 24 n)))

requires buffers 10 and 11 as allocated above

> let {s = dseq 'α' 3 (mce [0,3,5,0,3,7,0,5,9])
>     ;b = dbrown 'β' 5 0 23 1
>     ;p = dseq 'γ' dinf (mce [s,b])
>     ;j = dseries 'δ' dinf 0 1
>     ;d = dbufrd 'ε' 11 j Loop
>     ;l = dbufrd 'ζ' 10 p Loop
>     ;f = duty KR (d * 0.5) 0 DoNothing l}
> in audition (out 0 (sinOsc AR f 0 * 0.1))

free buffers

> withSC3 (async (b_free 10) >> async (b_free 11))