> Sound.SC3.UGen.Help.viewSC3Help "GrainSin"
> Sound.SC3.UGen.DB.ugenSummary "GrainSin"

> import Sound.SC3.ID

> let {n = whiteNoise 'α' KR
>     ;x = mouseX KR (-0.5) 0.5 Linear 0.1
>     ;y = mouseY KR 0 400 Linear 0.1
>     ;f = n * y + 440
>     ;t = impulse KR 10 0}
> in audition (out 0 (grainSin 2 t 0.1 f x (-1) 512 * 0.1))