voltap.clj

(ns voltap.voltap
  (:use [overtone.live]))

(defsynth vol [freq 440.0 rq 1.0]
  (tap "system-vol" 60 (lag (abs (bpf (in:ar 0) freq rq)) 0.1)))
(def monitor-var (vol [:after (foundation-monitor-group)] 440))
(defn monitor-vol
  ([] @(get-in monitor-var [:taps "system-vol"]))
  ([synth-var] @(get-in synth-var [:taps "system-vol"])))


(defsynth sound-in-vol-synth [freq 440.0 rq 1.0]
  (tap "system-vol" 60 (lag (abs (bpf (sound-in:ar 0) freq rq)) 0.1)))
(def sound-in-var (sound-in-vol-synth 440))
(defn sound-in-vol
  ([] @(get-in sound-in-var [:taps "system-vol"]))
  ([synth-var] @(get-in synth-var [:taps "system-vol"])))

; (let [vol (sound-in-vol)]
;   (println vol))

;(odoc bpf)