 (ctl ps :amp 1)
 (kill ps)
 
-(buffer-write! bass-duration-b (take 128 (cycle [(/ 1 0.87)])))
-(buffer-write! bass-notes-b (take 128 (cycle (map note [:F2 :F2 :G2 :G2 :F2 :F2]))))
-
+(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 note score))))
-(buffer-write! duration-b (take 128 (cycle duration)))
+(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)

(def clap (freesound 48310))
(def clap2 (freesound 132676))

(def waves-s (sample (freesound-path 48412)))
(def waves (waves-s :rate 0.3 :vol 0.5))
(def waves-s (freesound-sample 163120))
(def waves (waves-s :rate 0.8 :vol 0.5))
(ctl waves :rate 1)

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