dWGPluckedStiff.help.lhs

> import Sound.SC3 {- hsc3 -}
> import qualified Sound.SC3.UGen.Bindings.DB.External as X {- hsc3 -}

self deleting

> g_01 =
>   let freq = 440
>       amp = 0.5
>       gate_ = 1
>       pos = 0.14
>       c1 = 1
>       c3 = 30
>       inp = let e = envelope [0,1,1,0] [0.001,0.006,0.0005] (map EnvNum [5,-5,-8])
>             in amp * lfClipNoise 'α' AR 2000 * envGen AR gate_ 1 0 1 DoNothing e
>       release = 0.1
>       fB = 2.0
>       ps = X.dWGPluckedStiff AR freq amp gate_ pos c1 c3 inp release fB
>       pan = 0
>       z = detectSilence ps 0.001 0.1 RemoveSynth
>   in mrg2 (pan2 ps pan 0.1) z

re-sounding

> g_02 =
>   let sequ e s tr = demand tr 0 (dseq e dinf (mce s))
>       t = let d = dseq 'α' dinf (mce [1,1,2,1,1,1,2,3,1,1,1,1,2,3,4] * 0.175)
>           in tDuty AR d 0 DoNothing 1 0
>       freq = let n0 = sequ 'β' [60,62,63,58,48,55] t
>                  n1 = sequ 'γ' [63,60,48,62,55,58] t
>              in midiCPS (mce2 n0 n1)
>       amp = tRand 'δ' 0.05 0.65 t -- pulse amplitude (0  - 1, def = 0.5)
>       gate_ = 1 -- synth release
>       pos = tRand 'ε' 0.05 0.25 t -- pluck position (0 - 1, def = 0.14)
>       c1 = 1 / tRand 'ζ' 0.25 1.75 t -- reciprocal of decay time (def = 1.0)
>       c3 = tRand 'η' 10 1400 t -- high frequency loss factor (def = 30)
>       inp = let e_dt = tRand 'θ' 0.05 0.150 t
>                 env = decay2 t 0.001 e_dt * lfClipNoise 'ι' AR 2000
>             in amp * lfClipNoise 'κ' AR 2000 * env -- pluck signal
>       release = tRand 'λ' 0.05 0.15 t -- release time (seconds, def = 0.1)
>       fB = tRand 'μ' 1.0 4.0 t -- inharmonicity factor (def = 2.0)
>       ps = X.dWGPluckedStiff AR freq amp gate_ pos c1 c3 inp release fB
>       pan = tRand 'ο' (-1) 1 t
>   in pan2 ps pan 0.1