demandEnvGen.help.lhs

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

> import Sound.SC3.ID

Frequency ramp, exponential curve.

> let {l = dseq 'α' dinf (mce2 440 9600)
>     ;y = mouseY KR 0.01 3 Exponential 0.2
>     ;s = env_curve_shape EnvExp
>     ;f = demandEnvGen AR l y s 0 1 1 1 0 1 DoNothing}
> in audition (out 0 (sinOsc AR f 0 * 0.1))

Frequency envelope with random times.

> let {l = dseq 'α' dinf (mce [204,400,201,502,300,200])
>     ;t = drand 'β' dinf (mce [1.01,0.2,0.1,2.0])
>     ;y = mouseY KR 0.01 3 Exponential 0.2
>     ;s = env_curve_shape EnvCub
>     ;f = demandEnvGen AR l (t * y) s 0 1 1 1 0 1 DoNothing}
> in audition (out 0 (sinOsc AR (f * mce2 1 1.01) 0 * 0.1))

Frequency modulation

> let {n = dwhite 'α' dinf 200 1000
>     ;x = mouseX KR (-0.01) (-4) Linear 0.2
>     ;y = mouseY KR 1 3000 Exponential 0.2
>     ;s = env_curve_shape (EnvNum undefined)
>     ;f = demandEnvGen AR n (sampleDur * y) s x 1 1 1 0 1 DoNothing
>     ;o = sinOsc AR f 0 * 0.1}
> in audition (out 0 o)

Short sequence with doneAction, linear

> let {l = dseq 'α' 1 (mce [1300,500,800,300,400])
>     ;s = env_curve_shape EnvLin
>     ;f = demandEnvGen KR l 2 s 0 1 1 1 0 1 RemoveSynth}
> in audition (out 0 (sinOsc AR (f * mce2 1 1.01) 0 * 0.1))

Gate, mouse x on right side of screen toggles gate

> let {n = roundTo (dwhite 'α' dinf 300 1000) 100
>     ;x = mouseX KR 0 1 Linear 0.2
>     ;g = x >* 0.5
>     ;f = demandEnvGen AR n 0.1 5 0.3 g 1 1 0 1 DoNothing
>     ;o = sinOsc AR (f * mce2 1 1.21) 0 * 0.1}
> in audition (out 0 o)

gate
mouse x on right side of screen toggles sample and hold
mouse button does hard reset

> let {l = dseq 'α' 2 (mce [dseries 'β' 5 400 200,500,800,530,4000,900])
>     ;x = mouseX KR 0 1 Linear 0.2
>     ;g = (x >* 0.5) - 0.1
>     ;b = mouseButton KR 0 1 0.2
>     ;r = (b >* 0.5) * 2
>     ;s = env_curve_shape EnvSin
>     ;f = demandEnvGen KR l 0.1 s 0 g r 1 0 1 DoNothing
>     ;o = sinOsc AR (f * mce2 1 1.001) 0 * 0.1}
> in audition (out 0 o)

initialise coordinate buffer
layout is (initial-level,duration,level,..,loop-duration)

> withSC3 (async (b_alloc_setn1 0 0 [0,0.5,0.1,0.5,1,0.01]))

> let {b = 0
>     ;l_i = dseries 'β' dinf 0 2
>     ;d_i = dseries 'γ' dinf 1 2
>     ;l = dbufrd 'δ' b l_i Loop
>     ;d = dbufrd 'ε' b d_i Loop
>     ;s = env_curve_shape EnvLin
>     ;e = demandEnvGen KR l d s 0 1 1 1 0 5 RemoveSynth
>     ;f = midiCPS (60 + (e * 12))}
> in audition (out 0 (sinOsc AR (f * mce2 1 1.01) 0 * 0.1))

change envelope by setting values or indeed reallocating buffer

> withSC3 (send (b_set1 0 1 0.1))
> withSC3 (async (b_alloc_setn1 0 0 [0.5,0.9,0.1,0.1,1,0.01]))

read envelope break-points from buffer, here simply duration/level pairs.
the behavior is odd if the curve is zero (ie. flat segments).

> let {b = asLocalBuf 'α' [61,1,60,2,72,1,55,5,67,9,67]
>     ;lvl = dbufrd 'β' b (dseries 'γ' 6 0 2) Loop
>     ;dur = dbufrd 'δ' b (dseries 'ε' 5 1 2) Loop
>     ;e = demandEnvGen KR lvl dur 1 0 1 1 1 0 1 RemoveSynth
>     ;o = sinOsc AR (midiCPS e) 0 * 0.1}
> in audition (out 0 o)