rd-20060914.hs

-- chrd (rd, 2006-09-14)
let chrd _ =
      let m = mce [60, 65, 72, 77, 79, 84]
          d = mce (map (* 3) [5, 4, 5, 7, 4, 5])
          f = midiCps (xLine kr m (m + rand 0.05 0.5) d DoNothing)
          z = envTrapezoid 0 (rand 0.15 0.35) d (rand 0.005 0.01)
          e = envGen kr 1 1 0 1 DoNothing z
          p = xLine kr (rand2 1) (rand2 1) d DoNothing
      in mix (pan2 (fSinOsc ar f 0) p e)
in mixFill 9 chrd

-- chrd (rd, 2006-09-14) ; monad
uid_st_eval (do
  let chrd_m = do
        r0 <- randM 0.05 0.5
        r1 <- randM (-1) 1
        r2 <- randM (-1) 1
        r3 <- randM 0.15 0.35
        r4 <- randM 0.005 0.01
        let m = mce [60, 65, 72, 77, 79, 84]
            ds = 3
            d = mce (map (* ds) [5, 4, 5, 7, 4, 5])
            f = midiCps (xLine kr m (m + r0) d DoNothing)
            z = envTrapezoid 0 r3 d r4
            e = envGen kr 1 1 0 1 DoNothing z
            p = xLine kr r1 r2 d DoNothing
            o = fSinOsc ar f 0
        return (mix (pan2 o p e))
  chrd_9 <- replicateM 9 chrd_m
  return (sum chrd_9))