hsc3-0.21: Help/Graph/f0-tw-1343283697840226307.hs

-- f0 <https://twitter.com/redFrik/status/1343283697840226307>
let b = mce [2..12] / 12
    f = mce [136.1, 163.3, 181.4, 204.1, 244.9, 272.1, 326.5, 362.8, 408.2, 489.8, 544.2]
    z = mceFill 11 (\_ -> whiteNoise ar) * ((lfTri ar b 0 + 1) / 2) + brownNoise ar
    t = lfTri ar (121 ** lfTri ar ((2 / 121) * b) 0) 0
    d = (lag2 ((1 / 212) `greater_than` lfTri ar (1/212.1) 0) (2 / b) / 12 * 1.2 + 1.2) / f
    p = pluck z t (2 / 121) d (1 / 2 * 12 / 1.2) ((lfTri ar (b/12) 0 + 1) / 2)
in splay (hpf p 12) 1 (1 / 2.1 / 2) 0 True

-- f0 <https://twitter.com/redFrik/status/1343283697840226307> ; id
let b = mce [2..12] / 12
    f = mce [136.1, 163.3, 181.4, 204.1, 244.9, 272.1, 326.5, 362.8, 408.2, 489.8, 544.2]
    z = mceFillInt 11 (\e -> whiteNoiseId ('α',e) ar) * ((lfTri ar b 0 + 1) / 2) + brownNoiseId 'β' ar
    t = lfTri ar (121 ** lfTri ar ((2 / 121) * b) 0) 0
    d = (lag2 ((1 / 212) `greater_than` lfTri ar (1/212.1) 0) (2 / b) / 12 * 1.2 + 1.2) / f
    p = pluck z t (2 / 121) d (1 / 2 * 12 / 1.2) ((lfTri ar (b/12) 0 + 1) / 2)
in splay (hpf p 12) 1 (1 / 2.1 / 2) 0 True

---- ; drawings
UI.ui_sc3_scope 2 0 (2 ^ 14) 0 "audio" 0