lagUD.help.lhs

> import Sound.SC3 {- hsc3 -}

lag pitch, slower down (5 seconds) than up (1 second)

> g_01 =
>   let x = mouseX KR 220 440 Linear 0.2
>   in sinOsc AR (mce2 x (lagUD x 1 5)) 0 * 0.1

as signal filter

> f_01 l s =
>   let x = mouseX KR 0.0001 0.01 Exponential 0.2
>       y = mouseY KR 0.0001 0.01 Exponential 0.2
>   in l s x y

> f_02 = f_01 lagUD
> f_03 = f_01 lag2UD
> f_04 = f_01 lag3UD

> g_02 = f_02 (0 - saw AR 440) * 0.15
> g_03 = f_02 (impulse AR (range 6 24 (lfNoise2 'α' KR 4)) 0) * 0.5
> g_04 = f_04 (lfPulse AR 800 0 0.5 * 2 - 1) * 0.25

> g_05 =
>   let s = varSaw AR 220 0 (range 0 1 (sinOsc KR 0.25 0))
>   in f_02 s * 0.1

> g_06 =
>   let x = mouseX KR 0.0 (1/100) Linear 0.2
>       y = mouseY KR 0.0 (3/100) Linear 0.2
>   in lagUD (lfPulse AR 50 0 0.25) x y * 0.2