packages feed

hsc3-lang-0.7: Help/Pattern/pwhite.help.lhs

pwhite :: (Random a) => P a -> P a -> P Int -> P a

Uniform linear distribution in given range.

> import Sound.SC3.Lang.Pattern

> let p = pwhite 0.0 1.0 12
> in evalP 0 p

> let { l = pseq [0.0, 10.0] 1
>     ; r = pseq [1.0, 11.0] 1
>     ; p = pwhite l r 12 }
> in evalP 0 p

Or equivalently,

> let { b = pseq [return (0.0, 1.0)
>                ,return (10.0, 11.0)] 1
>     ; p = pwhite (fmap fst b) (fmap snd b) 12 }
> in evalP 0 p