hsc3-0.12: Help/UGen/External/membraneCircle.help.lhs
> Sound.SC3.UGen.Help.viewSC3Help "MembraneCircle"
> Sound.SC3.UGen.DB.ugenSummary "MembraneCircle"
> import Sound.SC3.ID
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 'a' AR }
> in audition (out (mce2 0 1) (m (n * e) tension loss))