 
 (definst drone-eh-sus [freq 80 verb 1 kr-mul 25 amp 1
                        attack 5.0 sustain 0.4 release 15.0 gate 1]
-  (let [synth-unit  (+
-                     ((vowel-formant (+ freq (sin-osc:kr (* 2.5 kr-mul))) 530 0.1))
-                     ((vowel-formant (+ freq (sin-osc:kr (* 0.5 kr-mul))) 1840 0.1))
-                     ((vowel-formant (+ freq (sin-osc:kr (* 1.5 kr-mul))) 2480 0.1)))
+  (let [eq-freq      [530 1840 2480]
+        q            0.1
+        synth-unit (synth-unit-layered freq eq-freq q 0.5)
         synth-unit-env  (* (env-gen (asr attack sustain release) gate) synth-unit)
         synth-unit-lpf  (rlpf synth-unit-env 750 0.9)]
 

                       sustain (synth-defaults ::sustain)
                       release (synth-defaults ::release)
                       gate (synth-defaults ::gate)]
  (let [synth-unit          (+
                             ((vowel-formant (+ freq (sin-osc:kr (* 2.5 kr-mul))) 570 0.1))
                             ((vowel-formant (+ freq (sin-osc:kr (* 0.5 kr-mul))) 840 0.1))
                             ((vowel-formant (+ freq (sin-osc:kr (* 1.5 kr-mul))) 2410 0.1)))
        synth-unit-env  (* (env-gen (asr attack sustain release) gate) synth-unit)
        synth-unit-hpf  (hpf synth-unit-env 900)
        synth-unit-lpf  (* amp (rlpf synth-unit-hpf 600 0.6))]

;;;;;;;;;;;;;;;;;;;;;
;; Audio           ;;
;;;;;;;;;;;;;;;;;;;;;

;; VCA, VCO, and FX
(s/def ::vca (s/and number? #((control-range 0.4 1) %) ))
