hsc3-graphs-0.14: gr/record-scratcher.hs

-- record scratcher (jp)

import Sound.OSC {- hosc -}
import Sound.SC3 {- hsc3 -}

record_scratcher :: UGen
record_scratcher =
  let dup a = mce2 a a
      d = Envelope [0, 1, 0] [0.1, 0.1] [EnvSin] (Just 1) (Just 0)
      e = envGen KR 1 0.5 0 1 RemoveSynth d
      x = mouseX KR (-10) 10 Linear 0.2
      dx = x - delayN x 0.1 0.1
      bdx = mouseButton KR 1 0 0.3 + dx
      bdxr = bdx * bufRateScale KR 0
      scr = playBuf 1 AR 0 bdxr 0 0 Loop DoNothing
  in dup (scr * e)

run :: Transport m => m ()
run = do
  let fn = "/home/rohan/data/audio/pf-c5.snd"
  _ <- async (b_allocRead 0 fn 0 0)
  play (out 0 record_scratcher)

main :: IO ()
main = withSC3 run