hsc3-0.12: Help/UGen/Wavelets/idwt.help.lhs
> Sound.SC3.UGen.Help.viewSC3Help "IDWT"
> Sound.SC3.UGen.DB.ugenSummary "IDWT"
> import Sound.SC3.ID
> let {i = whiteNoise 'a' AR * 0.05
> ;b = mrg2 (localBuf 'α' 1024 1) (maxLocalBufs 1)
> ;c = dwt b i 0.5 0 1 0 0}
> in audition (out 0 (mce2 (idwt c 0 0 0) i))
direct synthesis via writing values to buffer (try changing wavelet
type...)
> withSC3 (async (b_alloc 10 1024 1) >> send (b_zero 10))
> let {c = fftTrigger 10 0.5 0
> ;i = idwt c (-1) 0 0}
> in audition (out 0 (i * 0.1))
> import Control.Monad.Random
> import Sound.SC3.Lang.Random.Monad
> withSC3 (send (b_zero 10))
run this to change sound: WARNING, NOISY!
> do {a <- evalRandIO (nrrand 1024 (-1) 1)
> ;withSC3 (send (b_setn 10 [(0,a)]))}
> let a = map (/ 1024) [0..1023]
> in withSC3 (send (b_setn 10 [(0,a)]))
> let a = map (\i -> 1 - i / 1024) [0..1023]
> in withSC3 (send (b_setn 10 [(0,a)]))