pv_MagAbove.help.lhs

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

> import Sound.SC3 {- hsc3 -}

> n_01 = "/home/rohan/data/audio/pf-c5.snd"

> m_01 = b_allocRead 12 n_01 0 0

     withSC3 (async m_01)

> g_01 = playBuf 1 AR 12 (bufRateScale KR 12) 0 0 Loop DoNothing

> f_01 z n =
>   let f = fft' (localBuf 'α' 2048 1) z
>       x = mouseX KR 0 n Linear 0.1
>       h = pv_MagAbove f x
>   in ifft' h * 0.5

> g_02 = f_01 g_01 100

Synthesised input.

> g_03 =
>   let a = sinOsc KR (squared (sinOsc KR 0.08 0 * 6 + 6.2)) 0 * 100 + 800
>   in sinOsc AR a 0

> g_04 = f_01 g_03 1024

> g_05 = f_01 (soundIn 0) 32