softClip.help.lhs

softClip a

Nonlinear distortion.  Distortion with a perfectly linear region
from -0.5 to +0.5.

> import Sound.SC3

> let { e = xLine KR 0.1 10 10 DoNothing
>     ; o = fSinOsc AR 500 0.0 }
> in audition (out 0 (softClip (o * e) * 0.25))