Allow free-self to take audio-rate signals (#515)

[diegovdc]

This fixes #515.

(comment
  (o/connect-external-server)

  (o/defsynth rev-perc []
    (let [sig (-> (o/sin-osc 200)
                  (o/pan2:ar)
                  (* 0.2 (o/env-gen (o/env-perc)))
                  (o/free-verb 0.5 3))]
      (o/free-self (* (o/detect-silence (+ sig (o/impulse 0)))))
      (o/out 0 sig)))

  (def node (rev-perc))
  ;; after a while
  (println node) ;; #<synth-node[destroyed]: external.dev/rev-perc 107>  
)

[diegovdc]

There may be other cases like this. To make the code more easy to maintain I would suggest refactoring this into a function that can be more easily configured:

overtone/src/overtone/sc/machinery/ugen/specs.clj

Lines 177 to 202 in 138e14a

	;; Special case the a2k ugen
	(and (= "A2K" (:name ugen))
	(= :ar (:rate-name bad-input)))
	;; Special case the FFT ugen which may have ar ugens plugged into it
	(and (= "FFT" (:name ugen))
	(= :ar (:rate-name bad-input)))
	;; Special case demand rate ugens which may have kr ugens plugged into them
	(and (= :dr cur-rate)
	(= :kr (:rate-name bad-input)))
	;; Special case Amplitude ugen which may have ar ugens plugged into it
	(and (= "Amplitude" (:name ugen))
	(= :ar (:rate-name bad-input)))
	;; Special case Coyote ugen which may have ar ugens plugged into it
	(and (= "Coyote" (:name ugen))
	(= :ar (:rate-name bad-input)))
	;; Special case Pitch ugen which may have ar ugens plugged into it
	(and (= "Pitch" (:name ugen))
	(= :ar (:rate-name bad-input)))
	;; Special case FreeSelf ugen which may have ar ugens plugged into it
	(and (= "FreeSelf" (:name ugen))
	(= :ar (:rate-name bad-input)))
	;; Special case LocalBuf which may have kr ugens plugged in
	;; but further modifications aren't honoured
	(and (= "LocalBuf" (:name ugen))
	(= :kr (:rate-name bad-input))))

Any thoughts?