hsc3-graphs-0.14: gr/voscil.hs

-- voscil (rd)

import Sound.OSC {- hosc -}
import Sound.SC3.ID {- hsc3 -}
import Sound.SC3.Lang.Random.IO {- hsc3-lang -}

-- > Sound.SC3.UGen.Dot.draw (voscil 32)
voscil :: Real a => a -> UGen
voscil b =
  let lfn z = lfNoise0 z KR
      hb = (constant b - 1) / 2
      rt = 6
      f = 600
      v = vOsc AR (lfn 'α' rt * hb + hb) (f * 2) 0
      o = let bf = lfn 'β' rt * 40 + 600
              nh = lfn 'γ' rt * 16 + 24
          in blip AR bf nh * (lfn 'δ' rt * 0.1 + 0.1)
      p = pan2 (v + o) (lfn 'ε' rt) (lfn 'ζ' rt * 0.5 + 0.5)
      w = vOsc AR (lfSaw KR (1 / rt) 0 * hb + hb) f 0
      q = pan2 w (lfn 'η' rt) (lfn 'θ' rt * 0.5 + 0.5)
  in p + q

run :: Transport m => m ()
run = do
  let bn = 8192 * 4
      b = 32
      r_set i =
          do m <- rrand 2 512
             j <- sequence (replicate m (rrand 0 bn))
             k <- sequence (replicate m (rrand (-1) 1))
             _ <- async (b_alloc i bn 1)
             send (b_set i (zip j k))
  mapM_ r_set [0 .. (b - 1)]
  play (out 0 (voscil b))

main :: IO ()
main = withSC3 run