envStep.help.lhs

> Sound.SC3.UGen.Help.viewSC3Help "Env.*step"
> :i Sound.SC3.envStep

> import Sound.SC3 {- hsc3 -}

> let {env = envStep [0.0,0.5,0.7,1.0,0.9,0.0] [0.5,0.1,0.2,1.0,1.5,3] Nothing Nothing
>     ;envgen = envGen AR 1 1 0 1 RemoveSynth env
>     ;o = sinOsc AR (envgen * 1000 + 440) 0 * (envgen + 1) * 0.1}
> in audition (out 0 o)

major scale, accelerating

> let {env = envStep [0,2,4,5,7,9,11,12] (take 8 (iterate (* 0.75) 1)) Nothing Nothing
>     ;envgen = envGen AR 1 1 0 1 DoNothing env
>     ;o = sinOsc AR (midiCPS (envgen + 60)) 0 * 0.1}
> in audition (out 0 o)

draw envelope

> import Sound.SC3.Plot

> plotEnvelope [envStep [0,2,4,5,7,9,11,12] (take 8 (iterate (* 0.75) 1)) Nothing Nothing]