hsc3-graphs-0.11: src/fwalk.hs

-- fwalk (rd)

import Sound.OpenSoundControl
import Sound.SC3.Monadic

fwalk' :: UId m => UGen -> m UGen
fwalk' r = do
  t <- dust KR 3
  r1 <- tIRand 0 6 t
  r2 <- tRand (-0.0001) 0.0001 t
  let f = bufRdL 1 KR (mce2 0 1) r1 NoLoop
      f' = f + r2
      o1 = blip AR (midiCPS (r + f)) 12
      o2 = blip AR (midiCPS (r + f')) 12
  return ((o1 + o2) * decay2 t 0.3 1.2 * 0.1)

fwalk :: UId m => m UGen
fwalk = do
  f1 <- fwalk' 24
  f2 <- fwalk' 36
  return (f1 + f2)

run :: Transport t => t -> IO ()
run fd = do
  let n = [40,47,42,40,50
          ,43,35,43,40,47
          ,45,35,43,42,59
          ,48,40,47,52,45]
      m = [40,40,42,47,50
          ,35,43,43,40,45
          ,42,35,48,47,43
          ,40,59,45,47,52]
  _ <- async fd (b_alloc_setn1 0 0 n)
  _ <- async fd (b_alloc_setn1 1 0 m)
  f <- fwalk
  play fd (out 0 f)

main :: IO ()
main = withSC3 run