packages feed

hsc3-0.16: Help/UGen/membraneCircle.help.lhs

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

> import Sound.SC3

Excite the mesh with some pink noise, triggered by an
impulse generator.  mouseX is tension and impulse frequency,
mouseY is duration of excitation, release-time and amplitude.

> let {x = mouseX KR 0 1 Linear 0.2
>     ;y = mouseY KR 1e-9 1 Exponential 0.2
>     ;loss = linLin y 0 1 0.999999 0.999
>     ;wobble = sinOsc KR 2 0
>     ;tension = linLin x 0 1 0.01 0.1 + (wobble * 0.0001)
>     ;p = envPerc 0.0001 y
>     ;tr = impulse KR (linLin x 0 1 3 9) 0
>     ;e = envGen KR tr (linLin y 0 1 0.05 0.25) 0 0.1 DoNothing p
>     ;m = membraneCircle
>     ;n = pinkNoise 'α' AR}
> in audition (out (mce2 0 1) (m (n * e) tension loss))