pv_RandWipe.help.lhs

    Sound.SC3.UGen.Help.viewSC3Help "PV_RandWipe"
    Sound.SC3.UGen.DB.ugenSummary "PV_RandWipe"

> import Sound.SC3 {- hsc3 -}
> import qualified System.Random as R {- random -}

> g_01 =
>   let n0 = R.randomRs (400.0, 1000.0) (R.mkStdGen 0)
>       o0 = map (\n -> lfSaw AR n 0 * 0.1) (take 6 n0)
>   in sum_opt o0

> g_02 =
>   let n1 = R.randomRs (80.0, 400.0) (R.mkStdGen 1)
>       n2 = R.randomRs (0.0, 8.0) (R.mkStdGen 2)
>       o1 = map (\n -> lfPulse AR n 0.0 0.2) (take 6 n1)
>       o2 = map (\n -> sinOsc KR n 0 * 0.2) (take 6 n2)
>   in sum_opt (zipWith (\p s -> p * (max s 0.0)) o1 o2)

> g_03 =
>   let f1 = fft' (localBuf 'α' 2048 1) g_01
>       f2 = fft' (localBuf 'β' 2048 1) g_02
>       x = mouseX KR 0 1 Linear 0.1
>       y = mouseY KR 0 1 Linear 0.1
>       h = pv_RandWipe 'γ' f1 f2 x (y >* 0.5)
>   in pan2 (ifft' h) 0 0.5