hsc3-0.18: Help/UGen/envStep.help.lhs
Sound.SC3.UGen.Help.viewSC3Help "Env.*step"
> import Sound.SC3 {- hsc3 -}
> g_01 =
> 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
> in sinOsc AR (envgen * 1000 + 440) 0 * (envgen + 1) * 0.1
major scale, accelerating, with loop & release nodes
> g_02 =
> let env = envStep [0,2,4,5,7,9,11,12,0] (take 9 (iterate (* 0.75) 1)) (Just 8) (Just 0)
> envgen = envGen AR 1 1 0 1 DoNothing env
> in sinOsc AR (midiCPS (envgen + 60)) 0 * 0.1
draw envelope
> e_01 = [envStep [0,2,4,5,7,9,11,12] (take 8 (iterate (* 0.75) 1)) Nothing Nothing]
import Sound.SC3.Plot
plotEnvelope e_01