free.help.lhs

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

> import Sound.SC3.ID

> let {a = out 0 (sinOsc AR 880 0 * 0.1)
>     ;n0 = pinkNoise 'a' AR
>     ;n1 = dust 'b' AR 20
>     ;b = mrg [out 1 (n0 * 0.1), free n1 1001]}
> in withSC3 (\fd -> do {_ <- async fd (d_recv (synthdef "a" a))
>                       ;_ <- async fd (d_recv (synthdef "b" b))
>                       ;send fd (s_new "a" 1001 AddToTail 0 [])
>                       ;send fd (s_new "b" (-1) AddToTail 0 [])})