rd-lg-timed.hs

-- lg-timed (rd)
let timed r y p =
      let t = tDuty ar (dcons 0 (dser r p)) 0 RemoveSynth (dser r y) 1
      in latch t t
    lg u = lag u 0.03
    n = mce [52,76,66,67,68,69]
    a = mce [0.35,0.15,0.04,0.05,0.16,0.07]
    d = mce [0.1,0.5,0.09,0.08,0.07,0.3]
    x = mouseX kr 0.5 1.25 Linear 0.2
    tn = lg (timed dinf n (d * x))
    ta = lg (timed dinf a (d * x))
in sinOsc ar (midiCps tn) 0 * ta

-- lg-timed (rd) ; monad
uid_st_eval (do
  let timed r y p =
          do d0 <- dserM r p
             d1 <- dconsM 0 d0
             d2 <- dserM r y
             let t = tDuty ar d1 0 RemoveSynth d2 1
             return (latch t t)
      lg u = return (lag u 0.03)
      n = mce [52,76,66,67,68,69]
      a = mce [0.35,0.15,0.04,0.05,0.16,0.07]
      d = mce [0.1,0.5,0.09,0.08,0.07,0.3]
      x = mouseX kr 0.5 1.25 Linear 0.2
  tn <- lg =<< timed dinf n (d * x)
  ta <- lg =<< timed dinf a (d * x)
  return (sinOsc ar (midiCps tn) 0 * ta))