> import Sound.SC3 {- hsc3 -}
> import Sound.SC3.Common.Math.Noise {- hsc3 -}

Default values

> g_00 = cuspL AR 22050 1.0 1.9 0.0 * 0.1

Vary frequency

> g_01 =
>     let x = mouseX KR 20 (sampleRate / 2) Linear 0.1
>     in cuspL AR x 1.0 1.99 0 * 0.3

Mouse-controlled parameters.

> g_02 =
>     let x = mouseX KR 0.9 1.1 Linear 0.1
>         y = mouseY KR 1.8 2.0 Linear 0.1
>     in cuspL AR (sampleRate / 4) x y 0 * 0.3

As frequency control.

> g_03 =
>     let x = mouseX KR 0.9 1.1 Linear 0.1
>         y = mouseY KR 1.8 2.0 Linear 0.1
>         n = cuspL AR 40 x y 0 * 0.3
>     in sinOsc AR (n * 800 + 900) 0 * 0.4

Haskell implementation of equation.

> cusp_hs a b = iterate (cusp_f a b) 0

    import Sound.SC3.Plot {- hsc3-plot -}
    plotTable1 (take 600 (cusp_hs 1.0 1.9))
    plot_ugen_nrt (600,1) 1.0 (cuspL AR 600 1.0 1.9 0)