hsc3-graphs-0.12: gr/klink.hs

-- klink (rd)

import Sound.SC3.ID {- hsc3 -}

klink :: UGen
klink =
  let n1 = lfNoise0 'a' KR (mce2 0.5 1.5)
      o = sinOsc KR n1 0
      a = abs (slope o) * mce2 2 3
      t = impulse AR a 0
      i = decay2 t 0.01 0.1
      x = mouseX KR 960 3620 Exponential 0.2
      y = mouseY KR 0.5 2.0 Linear 0.2
      n2 = tRand 'a' x 3940 t
      n3 = tRand 'a' 0.005 0.275 t
  in ringz i n2 (n3 * y)

main :: IO ()
main = audition (out 0 klink)