     (>= age 1000) 0.4
     :else 1))
 
-;;;;;;;;;;;;;;;;;;;;;
-;; Control         ;;
-;;;;;;;;;;;;;;;;;;;;;
-
 (defn end-sound! [pid]
   (if (contains? @person-sound pid)
     (do

     ((vowel-formant (overtone.sc.ugen-collide/+ freq (sin-osc:kr (* 1.5 kr-mul))) freq-c q)))))

(definst drone-eh
  [freq 100]
  (let [eq-freq      [530 1840 2480]
        q            0.1

   ::release 5.0
   ::gate 1})

(s/fdef vowel-formant
        :args (s/cat :freq number? :eq-freq number? :q number?)
        :ret (s/fspec :args (s/cat :saw clojure.test/function? :freq number?)
                      :ret number?))

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

(defn vowel-formant
  "I EQ a narrow Q on a given frequency to shape a saw waveform of a certain pitch."
  [pitch eq-freq q]
  (fn [] (resonz (saw pitch) eq-freq q)))

(defn synth-unit-layered [freq eq-freq q kr-mul]
  (let [[freq-a freq-b freq-c] eq-freq]
