hsc3-graphs-0.12: gr/laser-bubble.hs

-- https://www.listarc.bham.ac.uk/lists/sc-users/msg14775.html

import Sound.SC3.ID {- hsc3 -}

laser_bubble_f :: ID a => a -> UGen
laser_bubble_f z =
    let xr = dxrand z dinf (mce [0.1,0.2,0.3,0.4,0.5])
        lf = dstutter z 2 xr
        du = duty AR lf 0 DoNothing lf
        tr = abs (hpz1 du) >* 0
        ph = sweep tr (1/du)
    in linExp ph 0 1 (rand z 50 100) (rand z 500 2000)

laser_bubble :: Int -> UGen
laser_bubble n =
    let f = mce (map laser_bubble_f (take n ['a'..]))
        [s0,s1] = mceChannels (splay (sinOsc AR f 0) 1 1 0 True)
    in limiter (rotate2 s0 s1 (lfSaw KR 0.1 0)) 1 1e-2

main :: IO ()
main = audition (out 0 (laser_bubble 8 * 0.5))