hsc3-graphs-0.11: src/klink.hs

-- klink (rd)

import Sound.SC3.ID

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)