divisiondeariza

(defsynth pitch-follow-1 []
  (let [in (mix [(sound-in)])
        amp (amplitude:kr in 0.05 0.05)
        [freq has-freq] (pitch:kr in
                                  :amp-threshold 0.02
                                  :median 7)
        out-1 (mix [(var-saw:ar (mul-add:ar 0.5 1 2)
                                0
                                (lf-noise1:kr (mul-add:kr 0.3 0.1 0.1)))])
        out-2 (loop [n 6