f0-tw0028.hs

-- http://www.fredrikolofsson.com/f0blog/?q=node/537 (f0) ; slow to start...
let fib = 0 : scanl (+) 1 fib
    sc3_fib k = take k (tail fib)
    n = map ((* 99) . (`mod` 8)) (sc3_fib 16)
    p = dseq dinf (dshuf 8 (mce (map fromInteger n)))
    q = combN (duty ar (1/8) 0 DoNothing p) 4 4 16
    o = lfTri ar q 0 / 4
    f = lfTri kr (1/16) 0 * 2e3 + 3e3
in pan2 (moogFF o f 2 0) 0 0.5

-- http://www.fredrikolofsson.com/f0blog/?q=node/537 (f0) ; slow to start... ; id
let fib = 0 : scanl (+) 1 fib
    sc3_fib k = take k (tail fib)
    n = map ((* 99) . (`mod` 8)) (sc3_fib 16)
    p = dseqId 'α' dinf (dshufId 'β' 8 (mce (map fromInteger n)))
    q = combN (duty ar (1/8) 0 DoNothing p) 4 4 16
    o = lfTri ar q 0 / 4
    f = lfTri kr (1/16) 0 * 2e3 + 3e3
in pan2 (moogFF o f 2 0) 0 0.5

---- ;
sc3_fib 16 == [1,1,2,3,5,8,13,21,34,55,89,144,233,377,610,987]