 (do
   (voice/ugens)
   (println art/sweet-shop))
-
-(defsynth ding [freq 880 dur 0.2 level 0.25 pan 0.0 out-bus 0]
-  (let [amp  (env-gen:ar (env-perc) :action FREE :time-scale dur)
-        snd (* (sin-osc:ar freq ) amp level)]
-    (out out-bus (pan2:ar snd pan))))
-
-(defsynth tick [freq 880 dur 0.1 level 0.25 pan 0.0 out-bus 0]
-  (let [amp (env-gen (env-perc) :action FREE :time-scale dur)
-        snd (lpf:ar (white-noise:ar) freq)]
-    (out out-bus (pan2:ar (* snd amp level) pan))))
 
 (defsynth woody-beep [freq 300 out-bus 0 dur 0.4]
   (let [tri (* 0.5 (lf-tri:ar freq))

(do
  (voice/the-end)
  (println art/end)
)

(ctl ps :amp 1)
(kill ps)

(buffer-write! bass-duration-b (take 128 (cycle [(/ 1 7)])))
(buffer-write! bass-notes-b (take 128 (cycle (map note bass-score))))
(buffer-write! bass-notes-b (take 128 (cycle (map #(+ -5 (note %)) score))))

(buffer-write! score-b (take 128 (cycle (map #(+ 0 ( note %)) score))))

(Buffer-write! duration-b (take 128 (cycle duration)))

(ctl root-trigger :rate 100)
(ctl beat-trigger :div 29)
