                              ((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  (rlpf synth-unit-hpf 600 0.6)]
+        synth-unit-lpf  (* amp (rlpf synth-unit-hpf 600 0.6))]
 
     (out 0 (free-verb synth-unit-lpf verb verb verb))
     (out 1 (free-verb synth-unit-lpf verb verb verb))))

    (out 0 (free-verb synth-unit-lpf verb verb verb))
    (out 1 (free-verb synth-unit-lpf verb verb verb))))

;;;;;;;;;;;;;;;;;;;;;
;; Control         ;;
;;;;;;;;;;;;;;;;;;;;;

(defn start-sound! [pid]
  (let [number-of-people (count @person-sound)]
    (case number-of-people
      0 (add-person-sound! pid "drone-aw-sus")
      1 (add-person-sound! pid "drone-ae-sus")
      2 (add-person-sound! pid "drone-eh-sus")
      3 (add-person-sound! pid "drone-oo-sus")
      "atom full: four people are tracked")))

(defn end-sound! [pid]
  (if (contains? @person-sound pid)

                      (* (env-gen (asr attack sustain release) gate)
                              (saw freq)
                              vol))
;; SYNTHS

(defn tremelo-freq []
