From 576bfd688fc8a65de176d4f1fbf9bf71505953a9 Mon Sep 17 00:00:00 2001
From: Jake Zerrer <him@jakezerrer.com>
Date: Thu, 6 Nov 2025 11:17:12 -0500
Subject: Create first clock-based composition

---
 dev/scratch.clj | 36 +++++++++++++++++++++++++++++-------
 1 file changed, 29 insertions(+), 7 deletions(-)

(limited to 'dev')

diff --git a/dev/scratch.clj b/dev/scratch.clj
index 9459c81..ef7241a 100644
--- a/dev/scratch.clj
+++ b/dev/scratch.clj
@@ -1,6 +1,6 @@
 (ns scratch
   (:require [unheard.midi :as midi]
-            [unheard.midi.percussion :refer [kick snare]]
+            [unheard.midi.percussion :refer [kick snare hat]]
             [unheard.clock :refer [clock]]
             [unheard.theory :refer [note poly]]
             [missionary.core :as m]))
@@ -9,19 +9,41 @@
 
 (def midi-keyboard  "CoreMIDI4J - Minilab3 MIDI")
 
-
 (def run
   (midi/<bus midi-keyboard
              (fn [v]
                (m/ap
                  ;; 2 is the number of message types, e.g. :key
-                (let [[t f] (m/?> 2 (midi/keyboard v))]
-                  [t (rest (m/?< f))])))))
+                (let [[>c c] (clock)
+                      p (poly
+                         (note >c 0 1 kick)
+                         (note >c 8 1 kick)
+                         (note >c 16 1 kick)
+                         (note >c 24 1 kick)
+
+                         (note >c 0 1 hat)
+                         (note >c 4 1 hat)
+                         (note >c 8 1 hat)
+                         (note >c 12 1 hat)
+                         (note >c 16 1 hat)
+                         (note >c 20 1 hat)
+                         (note >c 24 1 hat)
+                         (note >c 28 1 hat)
+
+                         (note >c 4 1 snare)
+                         (note >c 12 1 snare)
+                         (note >c 20 1 snare)
+                         (note >c 28 1 snare))]
+                  (m/amb=
+                   (let [[t f] (m/?> 2 (midi/keyboard v))
+                         [ch k v] (rest (m/?< f))]
+                     (if (and (= t :control) (= ch 0) (= k 74))
+                       (do (reset! c v) (m/amb))
+                       (m/amb)))
+                   [:n  (m/?< (m/eduction (dedupe) p))]
+                   [:c  (m/?< (m/eduction (dedupe) >c))]))))))
 
-#_
 (def cancel
   (run prn prn))
 
-#_
 (cancel)
-
-- 
cgit v1.2.3