;; synthetic piano (jmcc)

(import (rnrs) (rsc3))

(define sp
  (lambda (_)
    (let* ((n (i-rand 36 90))
           (f (rand 0.1 0.5))
           (ph (rand 0 (mul pi 2)))
           (s (mul (impulse ar f ph) 0.1))
           (e (decay2 s 0.008 0.04))
           (c
            (lambda (i)
              (let* ((n0 (lf-noise2 ar 3000))
                     (o (list-ref (list -0.05 0 0.04) i))
                     (dt (fdiv 1 (midi-cps (add n o)))))
                (comb-l (mul n0 e) dt dt 6))))
           (l (sub (fdiv (sub n 36) 27) 1)))
      (pan2 (mix-fill 3 c) l 1))))

(audition (out 0 (mix-fill 6 sp)))