 
 (do (voice/synthesis))
 
-;; play{d=Duty;f=d.kr(1/[1,2,4],0,Dseq([0,3,7,12,17]+24,inf));GVerb.ar(Blip.ar(f.midicps*[1,4,8],LFNoise1.kr(1/4,3,4)).sum,200,8)}
 
 (defsynth wallop [freq 300  amp 1]
   (let [sin1 (sin-osc freq)

  (let [freq (+ mid-freq (* (in:kr freq-bus) freq-amp))]
    (out 0 (pan2 (lf-tri freq)))))

(def mft (modulated-freq-tri [:tail late-g] sin-bus))

(ctl mft :freq-bus tri-bus)
(ctl tri-synth-inst :freq 1)

(kill mft)


(spacey)
(kill spacey)

;; Improv

(defonce clap-sequencer-buffer (buffer 8))

