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


(do (voice/synthesis))

(defsynth wallop [freq 300]
  (let [tri (lf-tri freq)
        sin1 (* 1 (sin-osc freq))
        sin2 (* 1.1 (sin-osc freq))
        src (mix [tri sin1 sin2])
        env (env-gen (perc :attack 0 :release 0.25))]
    (out 0 (pan2 (* env src)))))

(show-graphviz-synth wallop)


(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)
