;; formant
(import (rsc3))

;; Modulate fundamental frequency, formant frequency stays constant.
(audition
 (let ((f (x-line kr 400 1000 8 remove-synth)))
   (out 0 (mul (formant ar f 2000 800) 0.125))))

;; Modulate formant frequency, fundamental frequency stays constant.
(audition
 (let ((f (x-line kr 400 4000 8 remove-synth)))
   (out 0 (mul (formant ar (mce2 200 300) f 200) 0.125))))

;; Modulate width frequency, other frequencies stay constant.
(audition
 (let ((w (x-line kr 800 8000 8 remove-synth)))
   (out 0 (mul (formant ar 400 2000 w) 0.125))))