chrd (rd)
> import Sound.SC3.Monadic
> main =
> let chrd = do { r0 <- rand 0.05 0.5
> ; [r1, r2] <- sequence (replicate 2 (rand (-1) 1))
> ; r3 <- rand 0.15 0.35
> ; r4 <- rand 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 }
> in return (mix (pan2 o p e)) }
> in audition . out 0 . mix =<< clone 9 chrd
{ var chrd = { var r0 = Rand.new(0.05, 0.5)
; var r1 = Rand.new(-1, 1)
; var r2 = Rand.new(-1, 1)
; var r3 = Rand.new(0.15, 0.35)
; var r4 = Rand.new(0.005, 0.01)
; var m = [60, 65, 72, 77, 79, 84]
; var ds = 3
; var d = [5, 4, 5, 7, 4, 5] * ds
; var f = XLine.kr(m, m + r0, d).midicps
; var z_ = Env.linen(r3 * d, 0, (1 - r3) * d, r4)
; var z = Env.sine(d.maxItem, r4)
; var e = EnvGen.kr(z, 1, 1, 0, 1)
; var p = XLine.kr(r1, r2, d)
; var o = SinOsc.ar(f, 0)
; Mix.ar(Pan2.ar(o, p, e)) }
; Out.ar(0, Mix.fill(9, chrd)) }.play