   (let [african-bell-pattern (rhythm [1/8 1/8 1/4 1/8 1/4 1/4 1/8 1/4])]
     (->> african-bell-pattern forever (all :part :clap1)
          (canon
-           #(->> % (take 64) (then (rhythm [1/8])) forever (all :part :clap2))))))
+           #(->> % (take 32) (then (rhythm [1/8])) forever (all :part :clap2))))))
 
 (comment
   (live/play (clapping-music))


(fact "Clapping Music is minimal."
  (definitional description-length clapping-music) => 228
  (result-length (->> (clapping-music) (take-while #(-> % :time (< 216))))) => 99151)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; The Library of Babel ;;;

;;; Arrangement ;;;
;;;;;;;;;;;;;;;;;;;

(definst drum [freq 110 vol 0.5 pan 0]
  (-> (* 2/3 (brown-noise))
      (+ (* 1/2 (sin-osc (* 3 freq))))
      (+ (* 1/5 (sin-osc (* 5 freq))))
      (clip2 0.8)
      (rlpf (line:kr freq (* 7 freq) 0.02))
      (* (env-gen (adsr 0.02 0.4 0.15 0.2) (line:kr 1 0 0.1) :action FREE))
      (pan2 pan)
      (* vol)))

(defmethod live/play-note :clap1 [_]
  (drum 100 :pan 0.75))

(defmethod live/play-note :clap2 [_]
  (drum 150 :pan -0.75))

(defmethod live/play-note :default
  [{midi :pitch seconds :duration}]
