     (harmonic 4.1 0.25)
     (harmonic 5.2 0.2)))
 
-(defn connect [& [a b & nodes]]
-  (when b
-    (.connect a b)
-    (apply connect (cons b nodes))))
-
 (defn fuzz! [midi start dur]
   (let [freq (music/equal-temperament midi)
         start (+ start (.-currentTime context))

  (:require [klangmeister.music :as music]))

(defonce context (js/window.AudioContext.))


(defn perc [at attack decay]
  (let [node (.createGain context)]

      (-> .-type  (set! "sawtooth"))
      (.start start)
      (.stop (+ start 1.5))
      (connect (vol 0.8) envelope (.-destination context)))))
